.Thực hiện nhập vào từ bàn phím một kí tự, nếu không phải là ký tự số thì nhập lại. Sau đó hiển thị ký tự vừa nhập trên dòng tiếp theo.

model small

.stack 100h

.data

msg1 db 'nhap vao mot ky tu so:$'

msg2 db 13,10,'$'

msg3 db 'ban da nhap sai!$'

a db ?

.code

main proc

mov ax,@data

mov ds,ax

;hien thi msg1

lap: mov ah,9

lea dx,msg1

int 21h

;nhap vao

mov ah,1

int 21h

mov a,al

;do ax co the bi thay doi do lenh xuong dong

;xuong dong_msg2

mov ah,9

lea dx,msg2

int 21h

;kiem tra

cmp a,30h

jl tb

cmp a,39h

jg tb

jmp thoat

;hien thi msg3

tb: mov ah,9

lea dx,msg3

int 21h

;xuong dong_msg2

lea dx,msg2

int 21h

jmp lap

;hien thi ky tu so

thoat:

mov ah,2

mov dl,a

int 21h

;tro ve dos

mov ah,4ch

int 21h

main endp

end main