Viết chương trình nhập hay chuỗi tối đa 40 ký tự. So sánh chiều dài hai chuỗi, hiển thị kết quả so sánh.

Code:

.Model Small
.Stack
.Data
        S Db "Nhap Chuoi Thu Nhat:$"
        S1 db 13,10,"Nhap Chuoi Thu Hai:$"
        S2 db 13,10,"Chuoi 1 Lon Hon:$"
        S3 db 13,10,"2 Chuoi Bang Nhau:$"
        S4 db 13,10,"Chuoi 2 Lon Hon:$"
        Buf1 db 41,?,42 dup('$')
        Buf2 db 41,?,42 dup('$')
.Code
        Begin:
            ;Khoi Tao Chuong Trinh
                Mov Ax,@Data
                Mov Ds,Ax
                ;Hien Thi Chuoi S
                Lea Dx,S
                Mov Ah,09
                Int 21h
                ;Nhap Chuoi Thu Nhat
                Mov Ah,0ah
                Lea Dx,Buf1
                Int 21h
                ;Lay du lieu tu buf1 
                Mov Si,Offset Buf1+2
                ;Hien Thi Chuoi S1
                Lea Dx,S1
                Mov Ah,09
                Int 21h
                ;Nhap Chuoi Thu Hai
                Mov Ah,0ah
              Lea Dx,Buf2
                Int 21h
                ;Lay du lieu tu buf2 
                Mov Di,Offset Buf2+2
                Cmp Si,Di
                Ja  Lon
                Jb  Nho
                ;Hien Thi Chuoi S3
                Mov Ah,09
                Lea Dx,S3
                Int 21h
                Lon:
                        ;Hien Thi Chuoi S2
                        Mov Ah,09
                        Lea Dx,S2
                        Int 21h
                Nho:
                        ;Hien Thi Chuoi S4
                        Mov Ah,09
                        Lea Dx,S4
                        Int 21h
                ;Thoat Chuong Trinh
                Mov Ax,4c00h
                Int 21h
        End Begin