В тексте определить количество чисел, у которых три одинаковых цифры в числе

[Zaresh]

Вот так сделал. После запуска в строке Result выводится только пустая строка. Что неправильно?

org  100h
jmp  start

hello   db  13,10,'String: $'
bye     db  13,10,'Result: $'
string  db  80,0,80 dup(' ')     ;' входной буфер для dos(0Ah)
buff    db  20 dup('$')          ;' выходной буфер (место под каждое слово)
                                 ;' макс.длина слова: 20 символов
start:
;' Сохраняем строку юзера ========================================
   mov   ah,9               ;
   mov   dx,hello           ;
   int   21h                ;
   mov   ah,0Ah             ;
   mov   dx,string          ;
   int   21h                ;
   mov   ah,9               ;
   mov   dx,bye             ;
   int   21h                ;

;' Копируем очередное слово из строки в буфер ====================
xor bp,bp ;ВОТ ЗДЕСЬ ОБНУЛЯЮ РЕГИСТР ВР
   xor   ch,ch              ;' СН = текущая позиция в строке
   mov   cl,[string+1]      ;' CL = длина введённой строки
   mov   si,string+2        ;' указатель на начало строки
startCopy:                  ;
   mov   di,buff            ;' адрес приёмного буфера
   xor   bx,bx              ;' ВХ = 0 (это будет длина слова)
copy:                       ;
   lodsb                    ;' берём символы из SI,
   cmp   al,' '             ;'    ..пока не встретиться пробел
   je    stopCopy           ;
   stosb                    ;' запись их в DI.
   inc   bx                 ;' длина слова +1
   inc   ch                 ;' позиция в строке +1
   jmp   copy               ;' сл.символ...

;' Встретился пробел. Поиск триады в слове =======================
stopCopy:                   ;' в ВХ лежит длина слова
   push  si cx              ;' запомним текущую позицию в строке
   mov   si,buff            ;' SI = плавающий символ в слове
   mov   dx,bx              ;' СX/DX = длина слова
find3:                      ;
   mov   cx,bx              ;
   inc   cx                 ;' захватим последний символ
   xor   ah,ah              ;' AH будет флагом совпадений
   mov   di,buff            ;' где искать
   mov   al,byte[si]        ;' что искать
@@:                         ;' <----------------<<---------------+
   repne scasb              ;' ищем до совпадения!               |
   or    cl,cl              ;' все символы слова проверили?      |
   jz    test3              ;' да:  тест на 3                    |
   inc   ah                 ;' нет: флаг +1                      |
   jmp   @b                 ;' продолжаем поиск совпадений -->---+
test3:                      ;
   cmp   ah,3               ;' проверка флага на 3
   inc bp                      ; ЗДЕСЬ ЕГО УВЕЛИЧИВАЮ НА ЕДИНИЦУ, ЕСЛИ АН=3
   jz    stopFind           ;' прыг если равно
   inc   si                 ;' иначе: ищем сл.символ слова
   dec   dx                 ;' уменьшить длину слова
   jnz   find3              ;' конец слова? нет: искать дальше..
   jmp   clearBuff          ;' иначе: нет триады. Очистить буфер!

;' Есть 3 совпадения! Выводим результат ===========================
stopFind:
   mov   ah,9               ;' выводим слово из буфера
   mov   dx,buff            ;
   int   21h                ;
   mov   al,' '             ;' ..и вставляем пробел/разделитель
   int   29h                ;
clearBuff:                  ;' забиваем буфер баксами
   mov   al,'$'             ;
   mov   cx,20              ;
   mov   di,buff            ;
   rep   stosb              ;

;' Читаем следующее слово... ======================================
nextWord:                   ;
   pop   cx si              ;' восстанавливаем позицию в строке юзера
   cmp   ch,cl              ;' всю строку проверили?
   ja    exit               ;' да - на выход!
   jmp   startCopy          ;' иначе: берём сл.слово строки в буфер

kolvo:         ; В ЭТОЙ ПРОЦЕДУРЕ ВЫВОЖУ РЕЗУЛЬТАТ И ЗАТЕМ ПЕРЕХОЖУ НА EXIT
        mov ah,9
        mov dx,bp
        int 21h
        jmp exit
exit:                       ;

   xor   ax,ax              ;
   int   16h                ;
   int   20h                ;' выход в DOS...

[R71MT]

..а значение из BP кто будет переводить в символы?

kolvo:
mov  ax,bp
add   al,30h
int  29h
jmp exit

[Zaresh]

Вроде работает

[Zaresh]

Уважаемый R71MT, посмотрите, пожалуйста, код. Что скажете? Вроде сделал. Но разъясните, пожалуйста, почему если убрать текст, то bp показывает на один больше (комментарий этого "глюка" в коде)

org  100h
jmp  start

hello	db  13,10,'String: $'
bye	db  13,10,'Result: $'
string	db  80,0,80 dup(' ')	 ;' входной буфер для dos(0Ah)
buff	db  20 dup('$') 	 ;' выходной буфер (место под каждое слово)
				 ;' макс.длина слова: 20 символов
textKolvo db 13,10,'kolichestvo: $' 

start:
;' Сохраняем строку юзера ========================================
   mov	 ah,9		    ;
   mov	 dx,hello	    ;
   int	 21h		    ;
   mov	 ah,0Ah 	    ;
   mov	 dx,string	    ;
   int	 21h		    ;
   mov	 ah,9		    ;
   mov	 dx,bye 	    ;
   int	 21h		    ;

;' Копируем очередное слово из строки в буфер ====================
xor bp,bp
   xor	 ch,ch		    ;' СН = текущая позиция в строке
   mov	 cl,[string+1]	    ;' CL = длина введённой строки
   mov	 si,string+2	    ;' указатель на начало строки
startCopy:		    ;
   mov	 di,buff	    ;' адрес приёмного буфера
   xor	 bx,bx		    ;' ВХ = 0 (это будет длина слова)
copy:			    ;
   lodsb		    ;' берём символы из SI,
   cmp	 al,' ' 	    ;'	  ..пока не встретиться пробел
   je	 stopCopy	    ;
   stosb		    ;' запись их в DI.
   inc	 bx		    ;' длина слова +1
   inc	 ch		    ;' позиция в строке +1
   jmp	 copy		    ;' сл.символ...

;' Встретился пробел. Поиск триады в слове =======================
stopCopy:		    ;' в ВХ лежит длина слова
   push  si cx		    ;' запомним текущую позицию в строке
   mov	 si,buff	    ;' SI = плавающий символ в слове
   mov	 dx,bx		    ;' СX/DX = длина слова
find3:			    ;
   mov	 cx,bx		    ;
   inc	 cx		    ;' захватим последний символ
   xor	 ah,ah		    ;' AH будет флагом совпадений
   mov	 di,buff	    ;' где искать
   mov	 al,byte[si]	    ;' что искать
@@:			    ;' <----------------<<---------------+
   repne scasb		    ;' ищем до совпадения!		 |
   or	 cl,cl		    ;' все символы слова проверили?	 |
   jz	 test3		    ;' да:  тест на 3			 |
   inc	 ah		    ;' нет: флаг +1			 |
   jmp	 @b		    ;' продолжаем поиск совпадений -->---+
test3:			    ;
   cmp	 ah,3		    ;' проверка флага на 3
   jz	kolvoUvel ;stopFind	    ;' прыг если равно
   inc	 si		    ;' иначе: ищем сл.символ слова
   dec	 dx		    ;' уменьшить длину слова
   jnz	 find3		    ;' конец слова? нет: искать дальше..
   jmp	 clearBuff	    ;' иначе: нет триады. Очистить буфер!

;' Есть 3 совпадения! Выводим результат ===========================
	kolvoUvel:
	inc bp
	jmp stopFind

stopFind:
   mov	 ah,9		    ;' выводим слово из буфера
   mov	 dx,buff	    ;
   int	 21h		    ;
   mov	 al,' ' 	    ;' ..и вставляем пробел/разделитель
   int	 29h		    ;
clearBuff:		    ;' забиваем буфер баксами
   mov	 al,'$' 	    ;
   mov	 cx,20		    ;
   mov	 di,buff	    ;
   rep	 stosb		    ;

;' Читаем следующее слово... ======================================
nextWord:		    ;
   pop	 cx si		    ;' восстанавливаем позицию в строке юзера
   cmp	 ch,cl		    ;' всю строку проверили?
   ja	 kolvo		     ;' да - на выход!
   jmp	 startCopy	    ;' иначе: берём сл.слово строки в буфер

kolvo: ; САМЫЙ ПРИКОЛ ТВОРИТСЯ ЗДЕСЬ. ЕСЛИ УБРАТЬ ПЕРВЫЕ ТРИ СТРОКИ (ВЫВОД ТЕКСТА TEXTKOLVO)
		; ТО КОЛИЧЕСТВО ЧИСЕЛ БУДЕТ ВЫВОДИТСЯ НА ОДНО БОЛЬШЕ
		; ТАКОЕ ОЩУЩЕНИЕ, ЧТО РЕГИСТР ВР ЧТО ПОДХВАТЫВАЕТ ИЗ AL ТИПО ПРОБЕЛА
		; А ЕСЛИ ТЕКСТ СНАЧАЛА ВЫВЕСТИ, ТО ВСЕ НОРМ
	mov   ah,9               ;
    mov   dx,textKolvo            ;
    int   21h   
	mov  ax,bp
	add   al,30h
	int  29h
	jmp exit
	
exit:			    ;

   xor	 ax,ax		    ;
   int	 16h		    ;
   int	 20h		    ;' выход в DOS...