Подсчитать количество одинаковых и различных элементов в вашей фамилии, начиная с последнего, в обратном порядке

.model tiny
 
.stack 100h
 
.data
 
      ArrayA                 db  05,10,06,44,20,32,05,11,46,0
 
      ArrayB                 db  35,10,15,44,20,02,65,10,46,0
 
      Difference           db  10 dup(0)
 
      NumOfDiff          dw  0
 
      NumOfEqual       dw  0
 
.code
 
start:
 
       mov ax,@data
 
       mov ds,ax
 
       push ds
 
       pop es
 
       mov di,offset Difference
 
       mov cx,10
 
       mov al,'Y'
 
       cld
 
       rep stosb
 
       mov si,offset ArrayA
 
       mov di,offset ArrayB
 
       mov bx,offset Difference
 
       mov cx,10
 
       cld
 
findDE:
 
       cmpsb
 
       jne NotEqual
 
       inc NumOfEqual
 
       inc bx
 
       dec di
 
       dec si
 
       mov al,byte ptr ds:[si]
 
       cbw
 
       add SumOfEqual, ax
 
       mov al,byte ptr ds:[di]
 
       cbw
 
       add SumOfEqual, ax
 
       inc si
 
       inc di
 
       jmp NextElement
 
NotEqual:
 
       inc NumOfDiff
 
       mov byte ptr ds:[bx],'N'
 
       inc bx
 
       dec di
 
       dec si
 
       mov al,byte ptr ds:[si]
 
       cbw
 
       add SumOfDiff, ax
 
       mov al,byte ptr ds:[di]
 
       cbw
 
       add SumOfDiff, ax
 
       inc si
 
       inc di
 
NextElement:
 
       loop findDE
 
       mov ax,4c00h
 
       int 21h
 
end     start

.model small
 
.stack 100h
 
.data
        msgName         db      'Name: ', '$'
        asName          db      'ИВАНОВА'
        LenName         dw      $-asName
        msgTotal        db      'ЧИсло сколько всего букв тоесть ', '$'
        msgChar         db      'И буква которая повторяется. То есть '
        msgChar2        db      ?, 0Dh, 0Ah, '$'
        CrLf            db      0Dh, 0Ah, '$'
        msgPressAnyKey  db      'Press any key to exit...', '$'
        FreqChars       db      256 dup(0)
.code
 
main    proc
        ;инициализация сегментного регистра ds адресом сегмента данных
        mov     ax,     @data
        mov     ds,     ax
 
        ;
        mov     cx,     [LenName]
        lea     si,     [asName]
        lea     di,     [FreqChars]
        xor     bx,     bx
        @@For:
                mov     bl,     [si]
                inc     si
                inc     byte ptr[di+bx]
        loop    @@For
 
        ;вывод результатов
        mov     ah,     09h
        lea     dx,     [msgName]
        int     21h
        mov     ah,     40h
        mov     bx,     1
        mov     cx,     [LenName]
        lea     dx,     [asName]
        int     21h
        mov     ah,     09h
        lea     dx,     [CrLf]
        int     21h
        mov     ah,     09h
        lea     dx,     [msgTotal]
        int     21h
        mov     ax,     [LenName]
        aam
        add     ax,     '00'
        mov     dl,     ah
        mov     dh,     al
        mov     ah,     02h
        int     21h
        mov     dl,     dh
        int     21h
        mov     ah,     09h
        lea     dx,     [CrLf]
        int     21h
 
        mov     cx,     256
        lea     si,     [FreqChars]
        mov     bh,     0
        @@ForResult:
                lodsb
                cmp     al,     1
                jbe     @@Skip
                mov     [msgChar2],     bh
                mov     ah,     09h
                lea     dx,     [msgChar]
                int     21h
        @@Skip:
                inc     bh
        loop    @@ForResult
        ;ожидание нажатия любой клавиши
        mov     ah,     09h
        lea     dx,     [msgPressAnyKey]
        int     21h
 
        mov     ah,     00h
        int     16h
 
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main