Cần giúp về hợp ngữ

Bài này mình đã suy nghĩ và làm mà vẫn không ra, các bạn xem code hộ mình rồi chỉ cho mình chỗ sai và cách khắc phục với.tks
Đề: nhập ct nhập vào 2 chuỗi có độ dài và kí tự bất kì sau đó in ra phần tử giống nhau của 2 chuỗi
Code của mình:

.model small
.stack 100h
.data
    tb db 13,10,'nhap vao chuoi 1: $'
    tb2 db 13,10,'nhap vao chuoi 2: $'
    tb3 db 13,10,'chuoi ki tu giong la: $'
    chuoi1 db 1000 dup(?)
    kitugiong db 1000 dup(?)
.code
main proc
    mov ax,@data
    mov ds,ax
    mov si,0
    mov di,0
    lea dx,tb
    mov ah,09h
    int 21h
    
    nhapchuoi1:
    
    mov ah,1
    int 21h
    mov chuoi1[si],al
    inc si
    cmp al,0DH
    jE thongbao2
    loop nhapchuoi1
    
    thongbao2:
    lea dx,tb2
    mov ah,09h
    int 21h
    cmp al,0dh
    ;jmp nhapchuoi2 
    
    nhapchuoi2:
    mov ah,1
    int 21h
    cmp al,0dh
    je thongbao
    mov cx,si
    mov si,0
    
    
    sosanh:
    mov ah,chuoi1[si]
    cmp al,ah
    JE hamkitugiong;sosanh2
    inc SI
    cmp cx,0
    je nhapchuoi2
    loop sosanh
    
    ;gan:
    ;mov cx,di
    
    ;jmp sosanh2
    
    ;sosanh2:
    ;mov ah,kitugiong[di]
    ;dec di
    ;cmp al,ah
    ;je nhapchuoi2
    ;cmp cx,0
    
    
    
    hamkitugiong:
    
    mov kitugiong[di],al
    inc di
  
    jmp nhapchuoi2
    
    thongbao:
    lea dx,tb3
    mov ah,09h
    int 21h
    mov cx,di
    mov di,0
    
    xuat:
    
    
    mov ah,2
    mov dl,kitugiong[di]
    int 21h
    inc di
    cmp cx,0
    ;je ends main
    
    loop xuat
    ;mov ah,4ch
    ;int 21h
   main endp