home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv049.ark / ARM050.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  1.2 KB  |  58 lines
  1.     TITLE    'ARM050 - A/R MAP 060 - FILE OFF-LOAD MENU'
  2. ;PROGRAM
  3. ;PROGRAMMER
  4. ;        ROBERT M. WHITE
  5. ;DATE WRITTEN
  6. ;        APRIL 10, 1981
  7. ;COPYRIGHT
  8. ;        (C)COPYRIGHT 1981, H&W COMPUTER SYSTEMS, INC.
  9. ;PURPOSE
  10. ;        THIS ROUTINE WRITES THE MAP GIVEN AT THE END OF
  11. ;        THE PROGRAM TO TERMINAL AND RETURNS CONTROL TO
  12. ;        THE CALLER.
  13. ;INPUT
  14. ;        NONE
  15. ;OUTPUT
  16. ;REMARKS
  17. ;        1.  REQUIRES REL 2.0 OR ABOVE OF CP/M.
  18.  
  19. ;                * * *  CONTROL CHARACTER EQUATES  * * *
  20. CR    EQU    00DH        ;CARRIAGE RETURN
  21. LF    EQU    00AH        ;LINE FEED
  22.  
  23. ;        DO INITIALIZATION.
  24.     MACLIB    SCRNMAC
  25.     TRMDFN            ;DEFINE TERMINAL.
  26.     NAME    'ARM050'
  27. ARM050:    CSEG
  28.     PUBLIC    ARM050
  29.  
  30. ;        OUTPUT THE MAP OF LINES.
  31.     LXI    H,MAP
  32. BGNLIN:
  33.     MOV    A,M        ;GET NUMBER OF CHARACTERS.
  34.     ORA    A
  35.     RZ            ;...YES, QUIT.
  36.  
  37. ;        OUTPUT A LINE.
  38.     CALL    STROUT
  39.     EXTRN    STROUT
  40.     JMP    BGNLIN        ;LOOP FOR ALL LINES.
  41.  
  42. ;        MAP OF LINES
  43. MAP:                ;*** OUTPUT CHARACTER MAP ***
  44.     DCLS
  45.     DGOTOXY 1,15
  46.     DDB    <'* * *  CUSTOMER OFF-FILE LOAD  * * *'>
  47.     DGOTOXY 2,30
  48.     DDB    <'MAIN MENU'>
  49.     DGOTOXY 3,1 
  50.     DDB    <'SELECT ONE OF THE FOLLOWING:',CR,LF>
  51.     DDRK
  52.     DDB    <'  0 - RETURN TO MAIN MENU',CR,LF>
  53.     DDB    <'  1 - OFF-LOAD THE FILE',CR,LF>
  54.     DDRKEND
  55.     DDB    <'ENTER YOUR SELECTION: XXXXXX'>
  56.     DB    0        ;END OF MAP
  57.     END
  58.