Ввод и сравнение двух строк

include io.asm
Sseg segment stack
db 256 dup (?)
Sseg ends
 
Dseg segment
str1 dw 6 dup (?)  ;
str2 dw 6 dup (?)  ;
 
str3 db 0dh,0ah,'‚Vvedite stroky a:'
str4 db 0dh,0ah,'‚Vvedite stroky b:''
Dseg ends
 
Cseg segment
assume CS:Cseg,DS:Dseg,SS:Sseg,ES:Dseg
start:
MOV AX,Dseg
MOV DS,AX
MOV ES,AX
 
LEA DX,str3
MOV AH,9H
INT 21H
MOV CX,6
m1:MOV SI,0
INCH str1[SI]
INC SI
LOOP m1
 
LEA DX,str4
MOV AH,9H
INT 21H 
MOV CX,6
m2:MOV SI,0
INCH str2[SI]
INC SI
LOOP m2
 
Cseg ends
end start

str3 db 0dh,0ah,'‚Vvedite stroky a:', '$'

    mov ax, 4C00h
    int 21h

LOCALS
 
.model small
 
.stack 100h
 
.data
        X       db      '123486', '$'
        Y       db      '983684', '$'
        R       db      6 dup(0), '$'
        Count   db      0
        Len     dw      6
        CrLf    db      0Dh, 0Ah, '$'
.code
 
main    proc
        mov     ax,     @data
        mov     ds,     ax
 
        mov     Count,  0
        mov     si,     offset X
        push    ds
        pop     es
        mov     di,     offset Y
        mov     bx,     offset R
        mov     cx,     Len
@@For:
        mov     al,     ds:[si] ;al - символ из строки X
        cmp     al,     es:[di] ;сравниваем его с символом из строки Y
        je      @@Equal
@@Different:                    ;если символы различны, то
        mov     al,     '5'     ;в результирующую строку записать символ '5'
        mov     ds:[bx],al
        inc     Count           ;увеличить счётчик разных символов на 1
        jmp     @@Next
@@Equal:                        ;если символы одинаковые, то
        mov     ds:[bx],al      ;записать это символ в результирующую строку
@@Next:
        inc     si              ;перейти к следующим символам в каждой из трёх строк
        inc     di
        inc     bx
        loop    @@For           ;команда цикла
 
        mov     ah,     09h     ;вывести результирующую строку на экран
        lea     dx,     R
        int     21h
 
        mov     ah,     09h     ;перевод строки
        lea     dx,     CrLf
        int     21h
 
        ;вывод значения различных символов на экран
        mov     dl,     Count
        add     dl,     '0'
        mov     ah,     02h
        int     21h
 
        mov     ax,     4C00h   ;завершение программы
        int     21h
main    endp
 
end     main

include io.asm
Sseg segment stack
db 256 dup (?)
Sseg ends
 
Dseg segment
a db 6 dup (?)  ;
b db 6 dup (?)  ;
 
str1 db 'Введите строку А'
str2 db 'Введите строку B'
Dseg ends
 
Cseg segment
assume CS:Cseg,DS:Dseg,SS:Sseg,ES:Dseg
start:
MOV AX,Dseg
MOV DS,AX
MOV ES,AX
 
LEA DX,str1
MOV AH,9H
INT 21H
MOV CX,6
MOV SI,0
m1:INCH a[SI]
INC SI
LOOP m1
 
LEA DX,str2
MOV AH,9H
INT 21H 
MOV CX,6
MOV SI,0
m2:INCH b[SI]
INC SI
LOOP m2
 
MOV AX,4C00H
INT 21H 
Cseg ends
end start