Цепочные команды . Робота со строкой

[galaxyblazer]

Используя цепочные команды написать програму которая считывает с клавиатури строку символов и щитает количество букв "А" в ней.
вот коечто сделал , но чет не пашет(((

masm
model small
stack 256
 
.data
fnd db      0ah,0dh,'Simvol nayden ','$'
nochar      db      0ah,0dh,'simvol ne nayden.','$'
 
 string     db 30,?,30 dup('$') 
 
.code
ASSUME     ds:@data,es:@data
 main:
mov     ax,@data
 mov     ds,ax
 mov     es,ax   
 
xor ax,ax
lea dx,string
 
 mov     ah,0ah
 lea     dx,string
 int     21h    
 
    mov     ax,'a'  
    cld             
   lea     di,string 
  
m:
repne      scas    string
 jne next 
 inc cx
 aaa
 next :
 inc ax
 loop m 
 
     je      found   
    failed:    
 
  mov     ah,09h
  lea     dx,nochar
 int     21h     
jmp     exit    
found:             
      mov     ah,09h
  lea     dx,fnd
  int     21h 
  dec di
    add si,'00' 
    dec ax
    mov ax,cx
    dec ax
    mov ax,ah
    
    mov ah,09h
    mov dx,ax
    int 21h     
     exit:    
       mov     ax,4c00h
    int     21h
end        main