Nhập 1 ký tự từ bàn phím. Hiển thị ký tự đứng trước và đứng sau ra màn hình
Code:
.Model Small
.Stack
.Data
S1 Db 'Nhap Mot Ki Tu:$'
S2 Db 13,10,'Ki Tu Lien Truoc La:$'
S3 Db 13,10,'Ki Tu Lien Sau La:$'
.Code
Begin:
Mov Ax,@Data
Mov Ds,Ax
;Xuat Chuoi S1 Ra Man Hinh
Mov Dx,Offset S1
Mov Ah,09
Int 21h
;Dung Man Hinh Va Nhap Mot Ki Tu
Mov Ah,01
Int 21h
;Luu kí t? nh?p vào thanh ghi Dl
Mov Dl,Al
;L?y giá tr? Dx
Push Dx
;Xu?t thông báo S2 ra màn hình
Mov Dx,Offset S2
Mov Ah,09
Int 21h
;Tr? giá tr? Dx
Pop Dx
Dec Dl ;dec:tang Dl lên 1
Mov Ah,02 ;hàm 02 dùng d? xu?t 1 kí t?
Int 21h
Push Dx
;Xu?t thông báo S3 ra màn hình
Mov Dx,Offset S3
Mov Ah,09
Int 21h
Pop Dx
Add Dl,2 ;L?y Dl + 2 r?i gán giá tr? nh?n du?c cho Dl
Mov Ah,02
Int 21h
Mov Ax,4c00h
Int 21h
End Begin