.MODEL SMALL
.STACK 100H

.DATA
message db “Please Enter character:”, “$”
message2 db “character is:”, “$”
.CODE
MAIN PROC
mov AX,seg message
mov DS,AX
mov AH,09
lea DX,message
int 21h
mov AX,4c00h

MOV AH, 1 ; خواندن کاراکتر
INT 21H

MOV BL, AL ; ذخیره کاراکتر در BL

MOV AH, 2 ; بازگردان مقدار به سگمنت
MOV DL, 0DH
INT 21H

MOV DL, 0AH ; تعویض خط
INT 21H

mov AX,seg message2
mov DS,AX
mov AH,09
lea DX,message2
int 21h
mov AX,4c00h

MOV AH, 2 ; نمایش کاراکتر ذخیره شده در BL
MOV DL, BL