home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Assembly / TEST23.ASM < prev    next >
Assembly Source File  |  1986-09-25  |  876b  |  42 lines
  1. CGROUP    GROUP    CODE_SEG, DATA_SEG
  2.     ASSUME    CS:CGROUP, DS:CGROUP
  3.  
  4. CODE_SEG    SEGMENT PUBLIC
  5.     ORG    100h
  6.  
  7.     EXTRN    WRITE_HEX:NEAR, WRITE_DECIMAL:NEAR
  8.     EXTRN    WRITE_STRING:NEAR, SEND_CRLF:NEAR
  9.     EXTRN    READ_DECIMAL:NEAR
  10.  
  11. TEST    PROC    NEAR
  12.     LEA    DX,ENTER_PROMPT
  13.     CALL    WRITE_STRING
  14.     CALL    READ_DECIMAL
  15.     JC    ERROR
  16.     CALL    SEND_CRLF
  17.     LEA    DX,NUMBER_READ_PROMPT
  18.     CALL    WRITE_STRING
  19.     MOV    DX,AX
  20.     CALL    WRITE_DECIMAL
  21. ERROR:    CALL    SEND_CRLF
  22.     INT    20h
  23. TEST    ENDP
  24.  
  25. CODE_SEG    ENDS
  26.  
  27. DATA_SEG    SEGMENT PUBLIC
  28. ENTER_PROMPT        DB    'Enter decimal number: ',0
  29. NUMBER_READ_PROMPT    DB    'Number read: ',0
  30. ; and now dummy variables
  31.     PUBLIC    HEADER_LINE_NO, DISK_DRIVE_NO, HEADER_PART_1, HEADER_PART_2
  32.     PUBLIC    PROMPT_LINE_NO, CURRENT_SECTOR_NO
  33. HEADER_LINE_NO        DB    0
  34. DISK_DRIVE_NO        DB    0
  35. HEADER_PART_1        DB    0
  36. HEADER_PART_2        DB    0
  37. PROMPT_LINE_NO        DB    0
  38. CURRENT_SECTOR_NO    DB    0
  39. DATA_SEG    ENDS
  40.  
  41.     END    TEST
  42.