BÀI TOÁN
CHƯƠNG TRÌNH
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