home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol049 / arm011.asm < prev    next >
Assembly Source File  |  1984-04-29  |  2KB  |  110 lines
  1.     TITLE    'ARM011 - A/R MAP 011 - RECORD UPDATE BACKGROUND'
  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    'ARM011'
  27. ARM011:    CSEG
  28.     PUBLIC    ARM011
  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.     DDRK
  45.     DGOTOXY 03,24 
  46.     DDB    <'-- BILLING --'>
  47.     DGOTOXY 04,01 
  48.     DDB    <' 1) CONTACT'>
  49.     DGOTOXY 05,01 
  50.     DDB    <' 2) COMPANY'>
  51.     DGOTOXY 06,01 
  52.     DDB    <' 3) ADDRESS #1'>
  53.     DGOTOXY 07,01 
  54.     DDB    <' 4) ADDRESS #2'>
  55.     DGOTOXY 08,01 
  56.     DDB    <' 5) CITY, STATE'>
  57.     DGOTOXY 08,41
  58.     DDB    <' 6) ZIP'>
  59.     DGOTOXY 09,01 
  60.     DDB    <' 7) TELEPHONE'>
  61.     DGOTOXY 09,28
  62.     DDB    <' 8) EXT'>
  63.     DGOTOXY 10,23 
  64.     DDB    <'-- TECHNICAL --'>
  65.     DGOTOXY 11,01 
  66.     DDB    <' 9) CONTACT'>
  67.     DGOTOXY 12,01 
  68.     DDB    <'10) COMPANY'>
  69.     DGOTOXY 13,01 
  70.     DDB    <'11) ADDRESS #1'>
  71.     DGOTOXY 14,01 
  72.     DDB    <'12) ADDRESS #2'>
  73.     DGOTOXY 15,01 
  74.     DDB    <'13) CITY, STATE'>
  75.     DGOTOXY 15,41
  76.     DDB    <'14) ZIP'>
  77.     DGOTOXY 16,01 
  78.     DDB    <'15) TELEPHONE'>
  79.     DGOTOXY 16,28
  80.     DDB    <'16) EXT'>
  81.     DGOTOXY 17,24 
  82.     DDB    <'-- GENERAL --'>
  83.     DGOTOXY 18,01 
  84.     DDB    <'17) STATUS'>
  85.     DGOTOXY 18,16 
  86.     DDB    <'18) TERM'>
  87.     DGOTOXY 18,29 
  88.     DDB    <'19) BALANCE TYPE'>
  89.     DGOTOXY 18,49 
  90.     DDB    <'20) PRICE CODE'>
  91.     DGOTOXY 18,66 
  92.     DDB    <'21) DISC'>
  93.     DGOTOXY 19,01
  94.     DDB    <'22) TAX CODE'>
  95.     DGOTOXY 19,17 
  96.     DDB    <'23) SPECIAL'>
  97.     DGOTOXY 20,01 
  98.     DDB    <'24) CURRENT'>
  99.     DGOTOXY 20,27 
  100.     DDB    <'25) OVER 30'>
  101.     DGOTOXY 20,53 
  102.     DDB    <'26) OVER 60'>
  103.     DGOTOXY 21,01 
  104.     DDB    <'27) OVER 90'>
  105.     DGOTOXY 21,27 
  106.     DDB    <'28) LAST YEAR'>
  107.     DDRKEND
  108.     DB    0        ;END OF MAP
  109.     END
  110.