home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / nor_asm / test23.asm < prev    next >
Assembly Source File  |  1989-05-17  |  584b  |  35 lines
  1. .MODEL    SMALL
  2.  
  3. .STACK
  4.  
  5. .DATA
  6. ENTER_PROMPT        DB    'Enter decimal number: ',0
  7. NUMBER_READ_PROMPT    DB    'Number read: ',0
  8.  
  9. .CODE
  10.     EXTRN    WRITE_HEX:PROC, WRITE_DECIMAL:PROC
  11.     EXTRN    WRITE_STRING:PROC, SEND_CRLF:PROC
  12.     EXTRN    READ_DECIMAL:PROC
  13.  
  14. TEST_READ_DECIMAL    PROC
  15.     MOV    AX,DGROUP
  16.     MOV    DS,AX
  17.  
  18.     LEA    DX,ENTER_PROMPT
  19.     CALL    WRITE_STRING
  20.     CALL    READ_DECIMAL
  21.     JC    ERROR
  22.     CALL    SEND_CRLF
  23.     LEA    DX,NUMBER_READ_PROMPT
  24.     CALL    WRITE_STRING
  25.     MOV    DX,AX
  26.     CALL    WRITE_DECIMAL
  27. ERROR:    CALL    SEND_CRLF
  28.  
  29.     MOV    AH,4Ch            ;Return to DOS
  30.     INT    21h
  31. TEST_READ_DECIMAL    ENDP
  32.  
  33.  
  34.     END    TEST_READ_DECIMAL
  35.