home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / arm000.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  1.5 KB  |  64 lines
  1.     TITLE    'ARM000 - A/R MAP 000 - DRIVER 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    'ARM000'
  27. ARM000:    CSEG
  28.     PUBLIC    ARM000
  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,10
  46.     DDB    <'* * *  ACCOUNTS RECEIVABLE SYSTEM  * * *'>
  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 CP/M',CR,LF>
  53.     DDB    <'  1 - CUSTOMER FILE MAINTENANCE',CR,LF>
  54.     DDB    <'  2 - PRINT TECHNICAL LABELS',CR,LF>
  55.     DDB    <'  3 - PRINT BILLING LABELS',CR,LF>
  56.     DDB    <'  4 - PRINT FULL CUSTOMER REPORT',CR,LF>
  57.     DDB    <'  5 - OFF-LOAD CUSTOMER FILE TO CP/M FILE',CR,LF>
  58.     DDB    <'  6 - LOAD CUSTOMER FILE FROM CP/M FILE',CR,LF>
  59.     DDB    <'  7 - PRINT CUSTOMER CALL REPORT',CR,LF>
  60.     DDRKEND
  61.     DDB    <'ENTER YOUR SELECTION: XXXXXX'>
  62.     DB    0        ;END OF MAP
  63.     END
  64.