Подсчет количества заданного символа в строке

.model small
.data
    message1 db 'symbol: $'
    message2 db 0ah,0dh,'Stroka: $'
    message3 db 0ah,0dh,'Result: $'
FullData STRUC
    isx db 10 dup(36)
    symb db 2 dup(36)
    resl db 6 dup(36) 
FullData ENDS
    FD FullData 1 dup(<>)
.stack 256h
.code
INPUT proc near
    Xor di,di         ;очищаем DI-счетчик символов
m1:             ;метка m1
    mov ah,0        ;считываем символ без эха
    Int 16h           ;функцией BIOS
    cmp al,0        ;проверка нажатой клавиши
    Jne m3          ;если она нефункциональная, идем на m3 mov ah,0
    int 16h         ;в противном случае вызываем снова эту же функцию BIOS
    jmp m1          ;переходим на начало (m1)
m3:               ;метка m3
   cmp dx,1         ;проверяем на возможность обрыва строки (dx заполняется до ;вызова функции)
   Je m4            ;если флаг установлен, переход ;на m4
   cmp al,13        ;если нажата клавиша Enter, то
   Je quit          ;переход на конец
  m4:               ;метка m4
   cmp al,33        ;проверяем, не является ли ;введенный символ управляющим
   Jle m1           ;если он все-таки управляющий, переход на m1 (нам не нужны ;такие символы)
   mov [bx][di],al  ;в противном случае записываем в буфер ввода (описанную структуру) веденный символ
   Inc di           ;увеличиваем счетчик
   mov ah,2h        ;подготавливаем функцию для
   mov dl,al        ;вывода на экран
   Int 21h        ;прерывание DOS
   loop m1        ;все это выполняется в цикле
  quit:               ;метка quit (выход)
   Ret              ;возврат из подпрограммы
INPUT endp          ;конец описания процедуры
MESSAGE proc near
    push ax
    push cx
    mov ah,09h
    Int 21h
    pop cx
    pop ax
    Ret
MESSAGE endp
 
perevod proc        ;процедура преобразования числа из ах в строку
    push cx         ;сохраняем регистры
    push dx         
    push di         
    mov di,10       ;основание системы
    XOR CX,CX       ;в сх будет количество цифр в десятичном числе
@@m1:   XOR dx,dx ;обнудяем dx
    DIV di        ;делим число на степени 10
    PUSH DX         ;и сохраняем остаток от деления(коэффициенты при степенях) в стек
    INC CX          ;увеличиваем количество символов в числе
    TEST AX,AX    ;преобразовали все число?
    JNZ @@m1        ;если нет, то продолжить
    xor di,di
@@m2:   POP ax      ;восстанавливаем остаток от деления
    ADD AL,'0'      ;преобразовываем число в ASCII символ
    mov [bx][di],al
    inc di
    LOOP @@m2       ;все цифры
    pop di          ;восстанавливаем регистры
    POP dx
    POP cx
    RET             ;возврат из процедуры
 
perevod endp
main:
    mov ax,@data          ;получение начального адреса сегмента данных
    mov ds,ax         ;копируем полученный адрес в регистр сегмента данных DS
    lea dx,message1       ;загрузкка эффективного адреса сообщ1
    call MESSAGE          ;выводим сообщ 
    lea bx,FD.symb        ;подготавливаем место на которое будет записан символ для поиска
    mov cx,1          ;кол-во символов для ввода-1
    call INPUT        ;вызов функции ввода символа
    lea dx, message2      ;загрузкка эффективного адреса сообщ2
    call MESSAGE          ;выводим сообщ 
    lea bx,FD.isx         ;подготавливаем место на которое будет записана строка символов
    mov cx,10         ;кол-во символов для ввода-10
    call INPUT        ;вызов функции ввода символа
    mov cx,di         ; записываем в сх кол-во фактич введ симв
    mov di,cx
    mov si,1
    mov ah,FD.symb[si]
    mov si,00h
m7:
    cmp FD.isx[di],ah   ;проверяем совпадает ли символ из строки с введенным
    jne m6          ;если они не равны то переход на m6
    inc si          ;увеличиваем колво совпавших симв на 1
m6:
    dec di      ;уменьшаем diна 1(перемещ по строке симв)
    cmp di,00   ;сравниваем di с 0(пуст ли массив исх строки)
    jne m7
    mov ax,si   ;подготовка данных для  процедуры перевода
    lea bx,FD.resl
    call perevod        ;вызов процедуры для перевода числа из регистра ax (16cc) в 10cc
    lea dx,message3     ;загрузкка эффективного адреса сообщ3
    call MESSAGE        ;выводим сообщ 
    lea dx,FD.resl      ;загрузкка эффективного адреса сообщ
    call MESSAGE
    MOV AX,4c00H        ;ф-ия для выхода в ОС
    INT 21H
END main

; line   - Введенная строка 
; char - Введенный символ
 
mov ecx, length ( line ) ; В ecx (cx) нужно поместить длину строки.
lea edi, line 
xor ebx, ebx
mov al, char
@@:
repnz scasb 
jecxz @F ; or ecx, ecx / jz @F (прыжок вниз)
inc ebx
jmp @B ; (прыжок вверх)
@@:
 
; в ebx будет количество повторений..

model small
.stack 100h
.data
mes1 db "Vvedite stroky: $"
mes3 db 0ah,0dh,"Kol-vo povtoreniy vvedennogo simvola: $"
mes4 db 0ah,0dh,"Vvedite proizvonuy simvol dlya sravneniya: $"
mes5 db 0ah,0dh,"Simvol nekorrekten: $"
string db 10 dup ("$")
    len_string = $ - string
    adr_string dd string
.code
main:
    mov ax,@data
    mov ds,ax
    xor ax,ax
    mov ah,09h ;заносим в ah 09h
    lea dx,mes1 ;в dx смещение строки mes1
    int 21h ;вызов прерывания DOS для вывода строки
    mov cx,len_string ;в cx заносим длину строки
    dec cx ;уменьшить на* 1 счётчик cx
    les di,adr_string ;в di смещение, в es сегментный адресс
m1:
    mov ah,01h ;в ah заносим 01h
    int 21h ;в AL - символ, полученный из станлартного ввода*
    cmp al,0dh ;проверяем нажатие Enter
    je prov ;если равно прыгаем на метку prov
    cmp al,0 ;сравниваем al с нулём
    jne m2 ;если не равно прыгаем на метку m2
    jmp prov ;прыгаем на метку prov
m2:
    stosb ;переписываем содержимое AL в ячейку памяти с адрессом ES: (E)DI, после чего прибовляем единицу к (E)DI.
    
    loop m1 ;выполняем m1, пока* cx не станет равным нулю
prov:
    mov cx,len_string ;в cx заносим длину строки
    dec cx ;уменьшаем cx на единицу
    mov si,0 ;переводим сегментный регистор si **в начало строки
exit:
    
    lea dx,mes4
    mov ah,09h
    int 21h
    mov ah,01h
    int 21h
    cmp al,0
    je not2
go:
    cmp string[si],al
    jne go1
    inc bh
go1:
    inc si
    loop go
lea dx,mes3
mov ah,09h
int 21h
add bh,"0"
mov dl,bh
mov ah,02h
int 21h
jmp ex
not2:
    lea dx,mes5
    mov ah,09h
    int 21h
ex:
    mov ax,4c00h
    mov ah,10h
    
mov ah,0
int 16h
 
    mov ah,4Ch
    int 21h
    end main