Программа поиска и подсчета количества вхождений символа в строке

model small
.stack 256
.data
fnd     db      0ah,0dh,'Символ найден! ','$'
noc    db      0ah,0dh,'Символ не найден!','$'
string db      ' 'Conditions test values of shell variables, characteristics of files, whether or not commands run successfully, and other factors ',0ah,0dh,'$'
 .code
ASSUME ds:@data,es:@data
main:
mov   ax,@data
mov   ds,ax
mov   es,ax ;
mov   ah,09h
lea     dx,string
int      21h     
mov   al,'h   
cld                
lea     di,string       
mov   сх,9    
repne scas   string
je       found 
failed:           
mov   ah,09h
lea     dx,noc
int      21h     
jmp    exit     
found:        
mov   ah,09h
lea     dx,fnd
int      21h    
;... вставить необходимый вам обработчик
exit:               ; выход
mov   ax,4c00h
int      21h
end    main

; masm dos exe #
.286
.model small
.stack 256
.data
fnd     db      0ah,0dh,'Символ "h" найден '
x dw    ?
db ' раз$'
noc    db      0ah,0dh,'Символ "h" не найден!','$'
string  db     'Conditions test values of shell variables, characteristics of files, whether or not commands run successfully, and other factors ',0Ah,0Dh,'$'
N = $ - string - 3
 .code
main:   mov     ax,@data
    mov     ds,ax
    mov     es,ax 
    mov     ax,3
    int     10h
    mov     ah,9
    lea     dx,string
    int     21h     
    mov     al,'h'
    xor     bx,bx
    cld                
    lea     di,string
    mov     cx,N
a1: repne   scasb
    jcxz    failed
    inc     bx
    jmp     a1 
failed: lea     dx,noc
    or  bx,bx
    jz  found
    mov     ax,bx
    aam
    ror     ax,8
    add     ax,'00'
    mov     x,ax
    lea     dx,fnd
found:  mov     ah,9
    int     21h    
exit:   mov     ah,0
    int     16h
    mov     ah,4Ch
    int     21h; выход
end    main