A large commit.
[pdp8.git] / sw / os8 / v3d / sources / devext / dectapes / dectape1 / cclmsg.ma
CommitLineData
81e70d48
PH
1/
2/
3/
4/COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
5/
6/
7/
8/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
9/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
10/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
11/FOR ANY ERRORS THAT MAY APPE;Vr#(+CRs\ fAsW5k;3*~S*~#3\17%2?(w\1fA3WP2\17H7K\14sW\ 23&\ 17\12\ 37\ f\ 2r?(3w\10wSQ6\ f8v\17(\0 \10RNISHED TO THE PURCHASER
12/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
13/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
14/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
15/
16/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
17/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
18/DIGITAL.
19/
20/
21/
22
23\f
24/VERSION=V3A (D.H.)
25\f/2 CCL MESSAGE PRINTER
26 .EXTERNAL TWAIT,BATCH
27
28 T=20
29 BATOUT=7400 /JMS HERE TO PRINT ON BATCH LOG
30 BATERR=7000 /JMP HERE TO ABORT BATCH
31 NAME1=23
32 NAME2=24
33 NAME3=25
34 NAME4=26
35 NAME5=27
36
37 .GLOBAL PRMESG,PRWD,PRNAME,PRINT,CRLF
38 .GLOBAL LEAVE
39\f .RSECT CCLMSG
40
41 FIELD 1
42
43PRMESG, 0
44 CLA
45 TAD I PRMESG
46 DCA TE2
47 JMS PRINT
48TE2, HLT
49LEAVE, JMS I (TWAIT
50/V3D TCF
51 CIF CDF 0
52 TAD FATALFLG
53 SNA CLA
54 JMP I (7605
55FATALFLG,0 /CIF CDF BATCH FIELD IF WANT TO ABORT
56 JMP I (BATERR
57
58PRWD, 0
59 DCA T
60 TAD T
61TTY212, RTR
62 RTR
63 RTR
64 JMS PCHAR
65 TAD T
66 JMS PCHAR
67 JMP I PRWD
68
69PCHAR, 0
70 AND (77
71TNOP, SNA
72 JMP I PCHAR /IGNORE NULLS
73 TAD (240
74 AND (77
75 TAD (240 /CAN'T USE 'TTY240'
76 JMS TYPE
77 JMP I PCHAR
78\fTE,
79PRNAME, 0
80 TAD NAME1
81 JMS PRWD
82 TAD NAME2
83 JMS PRWD
84 TAD NAME3
85 JMS PRWD
86 TAD NAME4
87 SNA CLA
88 JMP I PRNAME
89 TAD (256
90 JMS PCHAR
91 TAD NAME4
92 JMS PRWD
93/ TAD NAME5
94/ SZA
95/ JMS PRWD
96 JMP I PRNAME
97\fTYPE, 0
98/ SNA
99/ JMP I TYPE /CAN REMOVE IF NEED ROOM
100 DCA TE2
101 JMS I (BATCH
102 JMP TTYOUT
103 DCA CIFB
104CIFB, HLT /REPLACED BY CIF BATCH FIELD
105 TAD TE2
106 JMS I (BATOUT
107 TAD TE2
108 TAD (-"#
109 SZA CLA
110 JMP I TYPE
111 TAD CIFB
112 IAC /CONVERT CIF TO CIF CDF
113 DCA FATALFLG
114 JMP I TYPE
115
116TTYOUT, TAD TE2
117 TAD (-"# /DON'T TYPE #'S
118 SNA CLA
119 JMP I TYPE
120 TAD T7600
121 KRS
122 TAD (-7603
123 SNA
124 JMP LEAVE
125 TAD (203-217
126 SNA CLA
127 JMP I TYPE
128 TAD TE2
129TJUMP, JMP .+3
130 TSF
131 JMP .-1
132 TLS
133T7600, 7600
134 TAD TNOP
135 DCA TJUMP
136 JMP I TYPE
137\fPRINT, 0
138 DCA CRLF /AC NON-0 MEANS DON'T CRLF
139 TAD I PRINT
140 ISZ PRINT
141 DCA TE
142 TAD CRLF
143 SPA CLA
144 TAD (TYPE-PRWD
145 TAD (PRWD
146 DCA PROUT
1471$: TAD I TE
148 JMS I PROUT
149 TAD I TE
150 ISZ TE
151 AND (77
152 SZA CLA
153 JMP 1$
154 CLA IAC
155 AND CRLF
156 SNA CLA
157 JMS CRLF
158 JMP I PRINT
159
160PROUT, PRWD
161\fCRLF, 0
162 TAD (215
163 JMS TYPE
164 TAD TTY212
165 JMS TYPE
166 JMP I CRLF
167 PAGE
168\f