.model small
            .stack
            .data
            mess1  db  13,10, "Nhap 1 so i(2-9): $" 
            mess2  db  13,10, "Si la: $"
            messkt  db  13,10, "Nhan 1 phim de ket thuc ...!$"   
            s0      db  00000001b
            s1      db  11000000b
            a      db  10101010b
            .code
           
            mov dx,seg messkt
            mov ds,dx       
           
            ;thong bao nhap
            Nhap:
            mov ah,9
            lea dx,mess1
            int 21h
           
            mov ah,1
            int 21h
           
            cmp al,32h
            jb  Nhap
            cmp al,39h
            ja  Nhap
           
            sub al,31h  ;tru de lay so vong lap
            mov ch,0    ;xoa bit cao
            mov cl,al
           
            mov al,s0
            mov bl,s1
            push ax    ;dua vao stack ax=s0
            push bx    ;dua vao stack bx=s1     
           
            mov dh,0    ;xoa bit cao           
           
            Tinh: 
           
            pop bx      ;lay si-1 trong stack ra
            pop ax      ;lay si-2 trong stack ra
           
            mov dl,bl  ;luu gia tri si-1
            xor bl,a    ;si-1 xor a
            add bl,al  ;cong them si-2           
           
            push dx    ;dua vao stack dx=si-2
            push bx    ;dua vao stack bx=si-1     
            loop Tinh
           
            pop bx      ;lay si trong stack ra de in
           
            mov ah,9
            lea dx,mess2     
            int 21h
           
            mov dl,bl  ;gan dl=bl de in
            mov ah,2
            int 21h         

                       

            ;thong bao ket thuc
            mov ah,9
            lea dx,messkt
            int 21h
           
            mov ah,1
            int 21h
           
            mov ah,4ch
            int 21h
           
            end