BÀI TOÁN
Viết chương trình nhập 1 chuỗi tối đa 10 ký tự từ bàn phím. Hiển thị ký tự đầu và ký tự cuối của chuỗi ra màn hình.

CHƯƠNG TRÌNH

Code:

.Model Small
.Stack
.Data
        S db 'Nhap vao mot chuoi khong qua 10 ky tu:$'
        S1 db 13,10,'Ky tu dau:$'
        S2 db 13,10,'Ky tu cuoi:$'
        Buf Db 11,?,12 dup('$')
.Code
        Begin:
                Mov Ax,@Data
                Mov Ds,Ax

                ;Xuat Chuoi S Ra Man Hinh
                Mov Dx,Offset S
                Mov Ah,09
                Int 21h

                ;Nhap mot chuoi ky tu
                Mov dx,offset Buf
                Mov ah,0ah
                Int 21h
                 
                Lea si,Buf+1
                xor cx,cx
                Mov cl,[si]    ; Lay chieu ddai thuc su cua chuoi

                ;Xuat Chuoi S1 Ra Man Hinh
                Mov Dx,Offset S1
                Mov Ah,09
                Int 21h
                 
                ;Xuat ky tu dau
                Mov ah,2
                Mov dl,[si+1]
                Int 21h

                ;Xuat Chuoi S2 Ra Man Hinh
                Mov Dx,Offset S2
                Mov Ah,09
                Int 21h
                 
                ;Xuat ky tu cuoi
                Add si,cx
                Mov ah,2
                Mov dl,[si]
                Int 21h
 
                ;Thoat khoi chuong trinh va tro va Dos
                Mov Ax,4c00h
                Int 21h
        End Begin