.MODEL SMALL
.STACK
.DATA
VAL1 DB 'DIGITE VALOR 1: $'
MSG DB 13,10,'EN ASCII ES: $'
RESU DW 0
.CODE
inicio:
MOV AX, SEG VAL1
MOV DS, AX
MOV DX, OFFSET VAL1;Envia a DX el mensaje VAL1
CALL Print
CALL Capt
MOV RESU, AL
ADD RESU, AL
MOV AX, SEG MSG
MOV DS, AX
MOV DX, OFFSET MSG;Envia a DX el mensaje MSG
MOV AH, 09h;imprime mensaje con la
INT 21h;función 9h
MOV AH, 02h
MOV DX ,AX
INT 21h
MOV AH, 4Ch
INT 21h
Print Proc Near
MOV AH, 09h;imprime mensaje con la
INT 21h;función 9h
SUB AL, 48 ;restamos al caracter el ASCII de 0 para convertirlo en un numero
RET
Print Endp
Capt Proc Near
MOV AH, 01h;captura un valor del teclado
INT 21h;y se guarda en AL
RET
Capt Endp
END inicio