.MODEL    SMALL

.STACK

.DATA
ENTER_PROMPT           DB     'Introduzca n£mero decimal:',0
NUMBER_READ_PROMPT     DB     'N£mero leĦdo: ',0

.CODE
     EXTRN     WRITE_HEX:PROC, WRITE_DECIMAL:PROC
     EXTRN     WRITE_STRING:PROC, SEND_CRLF:PROC
     EXTRN     READ_DECIMAL:PROC

TEST_READ_DECIMAL      PROC
     MOV  AX,DGROUP
     MOV  DS,AX

     LEA  DX,ENTER_PROMPT
     CALL WRITE_STRING
     CALL READ_DECIMAL
     JC   ERROR
     CALL SEND_CRLF
     LEA  DX,NUMBER_READ_PROMPT
     CALL WRITE_STRING
     MOV  DX,AX
     CALL WRITE_DECIMAL
ERROR:    CALL SEND_CRLF

     MOV  AH,4Ch              ;Regresa al DOS
     INT  21h
TEST_READ_DECIMAL      ENDP


     END  TEST_READ_DECIMAL