home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp8 / os278-src.tar.Z / os278-src.tar / cclmsg.ma < prev    next >
Text File  |  1992-09-18  |  3KB  |  188 lines
  1. /CCLMSG  CCL MESSAGE PRINTER
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17. /
  18. /
  19. /
  20. /COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
  21. /
  22. /
  23. /
  24. /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  25. /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  26. /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  27. /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  28. /
  29. /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  30. /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  31. /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  32. /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  33. /
  34. /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  35. /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  36. /DIGITAL.
  37. /
  38. /
  39. /
  40.  
  41.  
  42. /VERSION=V3A (D.H.)
  43. /2    CCL MESSAGE PRINTER
  44.     .EXTERNAL TWAIT,BATCH
  45.  
  46.     T=20
  47.     BATOUT=7400    /JMS HERE TO PRINT ON BATCH LOG
  48.     BATERR=7000    /JMP HERE TO ABORT BATCH
  49.     NAME1=23
  50.     NAME2=24
  51.     NAME3=25
  52.     NAME4=26
  53.     NAME5=27
  54.  
  55.     .GLOBAL PRMESG,PRWD,PRNAME,PRINT,CRLF
  56.     .GLOBAL LEAVE
  57.     .RSECT CCLMSG
  58.  
  59.     FIELD 1
  60.  
  61. PRMESG,    0
  62.     CLA
  63.     TAD I PRMESG
  64.     DCA TE2
  65.     JMS PRINT
  66. TE2,    HLT
  67. LEAVE,    JMS I (TWAIT
  68. /V3D    TCF
  69.     CIF CDF 0
  70.     TAD FATALFLG
  71.     SNA CLA
  72.     JMP I (7605
  73. FATALFLG,0        /CIF CDF BATCH FIELD IF WANT TO ABORT
  74.     JMP I (BATERR
  75.  
  76. PRWD,    0
  77.     DCA T
  78.     TAD T
  79. TTY212,    RTR
  80.     RTR
  81.     RTR
  82.     JMS PCHAR
  83.     TAD T
  84.     JMS PCHAR
  85.     JMP I PRWD
  86.  
  87. PCHAR,    0
  88.     AND (77
  89. TNOP,    SNA
  90.     JMP I PCHAR    /IGNORE NULLS
  91.     TAD (240
  92.     AND (77
  93.     TAD (240    /CAN'T USE 'TTY240'
  94.     JMS TYPE
  95.     JMP I PCHAR
  96. TE,
  97. PRNAME,    0
  98.     TAD NAME1
  99.     JMS PRWD
  100.     TAD NAME2
  101.     JMS PRWD
  102.     TAD NAME3
  103.     JMS PRWD
  104.     TAD NAME4
  105.     SNA CLA
  106.     JMP I PRNAME
  107.     TAD (256
  108.     JMS PCHAR
  109.     TAD NAME4
  110.     JMS PRWD
  111. /    TAD NAME5
  112. /    SZA
  113. /    JMS PRWD
  114.     JMP I PRNAME
  115. TYPE,    0
  116. /    SNA
  117. /    JMP I TYPE    /CAN REMOVE IF NEED ROOM
  118.     DCA TE2
  119.     JMS I (BATCH
  120.     JMP TTYOUT
  121.     DCA CIFB
  122. CIFB,    HLT        /REPLACED BY CIF BATCH FIELD
  123.     TAD TE2
  124.     JMS I (BATOUT
  125.     TAD TE2
  126.     TAD (-"#
  127.     SZA CLA
  128.     JMP I TYPE
  129.     TAD CIFB
  130.     IAC        /CONVERT CIF TO CIF CDF
  131.     DCA FATALFLG
  132.     JMP I TYPE
  133.  
  134. TTYOUT,    TAD TE2
  135.     TAD (-"#    /DON'T TYPE #'S
  136.     SNA CLA
  137.     JMP I TYPE
  138.     KRB        //KEYBOARD CHECKING CHANGED FOR V4 (VT278)
  139.     AND K177
  140.     TAD MINUS3
  141.     SNA
  142.     JMP LEAVE
  143.     TAD (203-217
  144.     SNA CLA
  145.     JMP I TYPE
  146.     TAD TE2
  147. TJUMP,    TLS        //CHANGED FOR V4:
  148.     TSF
  149.     JMP .-1
  150.     CLA
  151.     JMP I TYPE
  152.  
  153. K177,    177
  154. MINUS3,    -3
  155.  
  156. PRINT,    0
  157.     DCA CRLF    /AC NON-0 MEANS DON'T CRLF
  158.     TAD I PRINT
  159.     ISZ PRINT
  160.     DCA TE
  161.     TAD CRLF
  162.     SPA CLA
  163.     TAD (TYPE-PRWD
  164.     TAD (PRWD
  165.     DCA PROUT
  166. 1$:    TAD I TE
  167.     JMS I PROUT
  168.     TAD I TE
  169.     ISZ TE
  170.     AND (77
  171.     SZA CLA
  172.     JMP 1$
  173.     CLA IAC
  174.     AND CRLF
  175.     SNA CLA
  176.     JMS CRLF
  177.     JMP I PRINT
  178.  
  179. PROUT,    PRWD
  180. CRLF,    0
  181.     TAD (215
  182.     JMS TYPE
  183.     TAD TTY212
  184.     JMS TYPE
  185.     JMP I CRLF
  186.     PAGE
  187.  
  188.