.MODEL SMALL
.STACK 100H
.DATA
M1 DB 'ENTER VALUE: $'
M2 DB 'VALUE IS: $'
.CODE ;Start of Coding
MAIN PROC ;Start of Procedure
MOV AX, @DATA
MOV DS,AX
LEA DX,M1
MOV AH,9
INT 21H
MOV AH,1 ;input function
INT 21H ;function execution
MOV BL,AL ;copy value from AL to BL
MOV AH,2 ;display function
MOV DL,0DH ;bring cursor to left( <- )
INT 21H ;function execution
MOV DL,0AH ;New line or Enter
INT 21H ;function execution
LEA DX,M2
MOV AH,9
INT 21H
MOV DL, BL ;copy value from BL to DL
INT 21H ;function execution
MOV AH,4CH ;exit function
INT 21H ;function execution
MAIN ENDP ;end of procedure
END MAIN