Вывести на экран символы, которые содержатся в обеих строках

data segment
     string1 db 100,100 dup ('$') ; буфер ввода
     string2 db 100,100 dup ('$')  ; буфер ввода
     string3 db 100,100 dup ('$') ; буфер вывода
     len1 dw ?
     len2 dw ?
data ends
code segment
assume cs:code, ds:data
START:
        mov ax, data
        mov ds, ax
        mov dl, 0ah
        mov ah, 2
        int 21h
        lea dx, string1
        mov ah, 0ah
        int 21h 
        xor ah, ah 
        lea bx, string1+2 
        xor cx, cx
        mov cl, string1+1
        xor si, si
        mov len1, cx
BB1:
        mov al, [bx]
        mov string1[si] , al
        inc si
        inc bx 
loop BB1 ; окончание ввода 1й строки
        mov dl, 0ah
        mov ah, 2
        int 21h
        lea dx, string2
        mov ah, 0ah
        int 21h 
        xor ah, ah 
        lea bx, string2+2 
        xor cx, cx
        mov cl, string2+1
        xor si, si
        mov len2, cx
BB2:
        mov al, [bx]
        mov string2[si] , al
        inc si
        inc bx 
loop BB2 ; окончание ввода 2й строки
        mov dl, 0ah
        mov ah, 2
        int 21h
        xor bx, bx
        xor si, si
        xor di, di
        xor dx, dx
compare:
        cmp si, len1 ; как только дойдем до конца первой строки, выход
        je OUT1
        mov ah, string1[si] ; в ah - элемент из 1й строки
 
cmp1:
        mov al, string2[di] ; в al - элемент из 2й строки
        cmp ah, al
        jne NO
        mov string3[si], al ; если совпали, заношу элемент в строку на вывод
        jmp NEXT_SI
NO:
        cmp di, len2
        jl NEXT_DI
NEXT_SI:
        inc si
        xor di, di
        jmp compare
NEXT_DI:
        inc di
        jmp cmp1
loop compare
OUT1:
        mov string3[si], '$'
        xor si, si
        lea dx, string3
        mov ah, 09h
        int 21h
        mov ah, 10h
        int 16h
        mov ax, 4C00h 
        int 21h
 code ends
 end START

;fasm-code
;-----------
org   100h
jmp   start
 
str1    db    13,10,'String: $'
buff1   db    80,0,80 dup(0)       ; вх\буфер для fn.0Ah
buff2   db    80 dup('$')          ; вых\буфер
 
start:  mov   ah,9                 ; запрос на ввод(1)..
        mov   dx,str1
        int   21h
 
        mov   ah,0Ah               ; ввод сроки(1)
        mov   dx,buff1
        int   21h
 
        mov   ah,9                 ; запрос на ввод(2)..
        mov   dx,str1
        int   21h
 
        xor   cx,cx
        mov   cl,[buff1+1]
        inc   cx                   ; длина строки(1)
        mov   bx,cx                ;    ..(запомнить)
        mov   dx,buff1+2           ; адрес строки(1)
        mov   si,buff2             ; приёмник найденых
 
;--- начало цикла ----------//
@@1:    mov   ah,1                 ; ввод символа с эхом
        int   21h                  ;    ..(символ лежит в AL)
        cmp   al,13                ; это интер? 
        je    @stop
        mov   cx,bx                ; поиск символа в строке
        mov   di,dx                ; СХ-длина, DI-адрес для поиска
        repne scasb                ; поиск AL в DI длинною СХ..
        or    cx,cx                ; нашли?
        jz    @@2                  ; нет..
        mov   byte[si],al          ; иначе: сохраняем символ в буфере(2)
        inc   si                   ; буфер +1
@@2:    jmp   @@1                  ; в начало цикла..
 
@stop:  mov   ah,9                 ; результат!
        mov   dx,str1
        int   21h
 
        mov   ah,9
        mov   dx,buff2
        int   21h
 
        xor   ax,ax                ; ждём клаву..
        int   16h
        ret                        ; на выход!

data segment
     string1 db 80,0,80 dup(0)  ; ввод
     string2 db 80 dup('$')     ; вывод
     len dw ?
data ends
code segment
assume cs:code, ds:data
START:
        mov ax, data
        mov ds, ax
        mov dl, 0ah
        mov ah, 2
        int 21h
        lea dx, string1
        mov ah, 0ah
        int 21h
        xor ah, ah
        lea bx, string1+2
        xor cx, cx
        xor si, si
        mov cl, string1+1
        mov len, cx
STR1:
        mov al, [bx]
        mov string1[si], al
        inc si
        inc bx
loop STR1
        mov dl, 0ah
        mov ah, 2
        int 21h
        lea si, string2
        xor di, di
STR2:
        mov ah, 1
        int 21h
        cmp al, 13
        je EXIT
COMPARE:
        mov ah, string1[di]
        inc di
        cmp ah, al
        jne NO
        cmp ah, [si-1]
        je STR2
        cmp ah, [si+1]
        je STR2
        mov [si], al
        inc si
        xor di, di
        jmp STR2
NO:
        cmp len, di
        jg NEXT
        xor di, di
        jmp STR2
NEXT:
        jmp COMPARE
EXIT:
        mov ah,9
        lea dx, string2
        int 21h
        xor ax,ax
        int 16h
        mov ax, 4C00h 
        int 21h
 code ends
 end START

    mov ax, ds
     mov es, ax