Подсчет количества разных символов в строке - Assembler - Ответ 3179376

.286
.model small 
.stack 256 
.data
azbuka db 'a b c d e f g h i j k l m n o p q r s t u v w x y z $'
tmp db 28 dup (?),'$'
.code
; код программы
main:   mov ax,@data
    mov ds,ax
    mov ax,600h
    mov bh,7
    xor cx,cx
    mov dx,184Fh
    int 10h; чистим экран через BIOS        
    mov dx,3
    call setcur     ;установка курсора
    mov dx,1803h
    call setcur     ;установка курсора
    mov dx,offset azbuka
    mov ah,9
    int 21h; вывод текста через DOS     
    mov dx,1703h
    call setcur
for1:   xor dx,dx
    call setcur     ;установка курсора
    mov ah,0
    int 16h;вывод без эха
    cmp al,0Dh      ;если Энтер заканчиваем ввод
    je exit
cont:   cmp al,'A'  ;если не буква латинского алфавита заканчиваем ввод
    jb for1       
    cmp al,'Z'
    jbe for1
    sub al,33
    and ax,1Fh
    mov bx,ax
    inc tmp[bx] 
    mov dh,24
    sub dh,tmp[bx]  ;строка
    shl al,1
    add al,3
    mov dl,al       ;столбец
    call setcur
    mov ax,920h
    mov bx,50h
    mov cx,1
    int 10h
    jmp for1
exit: mov ah,4Ch
    int 21h
setcur  proc    
    mov ah,2
    mov bh,0
    int 10h
    ret
setcur  endp
end main