File: CCLMSG.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/CCL PRINTING FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 /CCL PRINTING FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
10 /
11 /
12 /
13 /
14 /
15 /
16 /
17 /
18 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
19 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
20 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
21 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
22 /
23 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
24 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
25 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
26 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
27 /
28 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
29 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
30 /DIGITAL.
31 /
32 /
33 /
34
/CCL PRINTING FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 2
FILE # 1
35
36
37 /2 CCL MESSAGE PRINTER
38
141
142 .GLOBAL PRWD,PRNAME,PRINT,CRLF,TYPE
143
144 .EXTERNAL TWAIT,BATCH,LEAVE,FATALFLG
145
146 0000 .RSECT CCLMSG
147
148 0001 FIELD 1
149
150 /ALL ROUTINES ARE DATA-FIELD INSENSITIVE
151 /AND RESET IT TO 10
/CCL PRINTING FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 4
FILE # 1
152
153
154
155 10000 0000 PRWD, 0
156 10001 3020 DCA T
157 10002 1020 TAD T
158 10003 7002 BSW
159 10004 4210 JMS PCHAR
160 10005 1020 TAD T
161 10006 4210 JMS PCHAR
162 10007 5600 JMP I PRWD
163
164 10010 0000 PCHAR, 0
165 10011 0377 AND (77
166 10012 7450 TNOP, SNA
167 10013 5610 JMP I PCHAR /IGNORE NULLS
168 10014 1376 TAD (240
169 10015 0377 AND (77
170 10016 1376 TAD (240
171 10017 4240 JMS TYPE
172 10020 5610 JMP I PCHAR
173
174 TE,
175 10021 0000 PRNAME, 0
176 10022 1023 TAD NAME1
177 10023 4200 JMS PRWD
178 10024 1024 TAD NAME2
179 10025 4200 JMS PRWD
180 10026 1025 TAD NAME3
181 10027 4200 JMS PRWD
182 10030 1026 TAD NAME4
183 10031 7650 SNA CLA
184 10032 5621 JMP I PRNAME
185 10033 1375 TAD (256
186 10034 4240 JMS TYPE
187 10035 1026 TAD NAME4
188 10036 4200 JMS PRWD
189 / TAD NAME5
190 / SZA
191 / JMS PRWD
192 10037 5621 JMP I PRNAME
/CCL PRINTING FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 5
FILE # 1
193
194
195 10040 0000 TYPE, 0
196 10041 6211 CDF 10
197 10042 7450 SNA
198 10043 5640 JMP I TYPE /IGNORE NULLS
199 10044 3313 DCA TE2
200 10045 4774 JMS I (BATCH
201 10046 5263 JMP TTYOUT
202 10047 3250 DCA CIFB
203 10050 7402 CIFB, HLT /REPLACED BY CIF BATCH FIELD
204 10051 1313 TAD TE2
205 10052 4773 JMS I (BATOUT
206 10053 1313 TAD TE2
207 10054 1372 TAD (-"#
208 10055 7640 SZA CLA
209 10056 5640 JMP I TYPE
210 10057 1250 TAD CIFB
211 10060 7001 IAC /CONVERT CIF TO CIF CDF
212 10061 3771 DCA I (FATALFLG
213 10062 5640 JMP I TYPE
214
215 10063 1313 TTYOUT, TAD TE2
216 10064 1372 TAD (-"# /DON'T TYPE #'S
217 10065 7650 SNA CLA
218 10066 5640 JMP I TYPE
219 10067 1307 KEYTES, TAD T7600
220 10070 6034 KRS
221 10071 1370 TAD (-7603
222 10072 7450 SNA
223 10073 5767 JMP I (LEAVE
224 10074 1366 TAD (203-217 /CTLR O
225 10075 7450 SNA
226 10076 5640 JMP I TYPE
227 10077 1365 TAD (217-223 /CTRL S
228 10100 7650 SNA CLA
229 10101 5314 JMP CTRLS
230 10102 1313 TAD TE2
231 10103 5306 TJUMP, JMP .+3
232 10104 6041 TSF
233 10105 5304 JMP .-1
234 10106 6046 TLS
235 10107 7600 T7600, 7600
236 10110 1212 TAD TNOP
237 10111 3303 DCA TJUMP
238 10112 5640 JMP I TYPE
239 10113 0000 TE2, 0
240
241 10114 6032 CTRLS, KCC /WAIT AFTER CTRL S FOR NEXT
242 10115 6031 KSF
243 10116 5315 JMP .-1
244 10117 5267 JMP KEYTES
/CCL PRINTING FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 6
FILE # 1
245
246
247 10120 0000 PRINT, 0
248 10121 6211 CDF 10
249 10122 7200 CLA
250 10123 1720 TAD I PRINT
251 10124 2320 ISZ PRINT
252 10125 3221 DCA TE
253 10126 1621 1$: TAD I TE
254 10127 0364 AND (177
255 10130 1363 TAD (-137
256 10131 7650 SNA CLA /_ AT END MEANS NO CRLF
257 10132 5720 JMP I PRINT
258 10133 1621 TAD I TE
259 10134 4240 JMS TYPE
260 10135 1621 TAD I TE
261 10136 2221 ISZ TE
262 10137 0364 AND (177
263 10140 7640 SZA CLA
264 10141 5326 JMP 1$
265 10142 4344 JMS CRLF
266 10143 5720 JMP I PRINT
267
268 10144 0000 CRLF, 0
269 10145 1362 TAD (215
270 10146 4240 JMS TYPE
271 10147 1361 TAD (212
272 10150 4240 JMS TYPE
273 10151 5744 JMP I CRLF
------
10161 0212
10162 0215
10163 7641
10164 0177
10165 7774
10166 7764
10167 0000 *
10170 0175
10171 0000 *
10172 7535
10173 7400
10174 0000 *
10175 0256
10176 0240
10177 0077
274 0200 PAGE
/CCL PRINTING FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 7
FILE # 1
275
276
/CCL PRINTING FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 8
SYMBOL TABLE
AMFLAG 0017 MMISC 7777
BATBUF 4400 MOFILE 7600
BATCCL 7777 MONLOD 7605
BATCH X **** MONSAV 7600
BATERR 7000 MPARAM 7643
BATIN 5400 MREAD 7757
BATOUT 7400 MSOVL2 0055
BATSPL 7200 NAME1 0023
BATTBL 6600 NAME2 0024
BATVFY 5600 NAME3 0025
BEGLN 1000 NAME4 0026
BFR 3000 NAME5 0027
CCLBLK 0067 NMBASE 0037
CCLDEV 0001 OS78BI 7771
CCLHND 0000 OV 1375
CCLINC 0054 PCHAR 0010+ CCLMSG
CCLMSG 0200 RSECT PRINT G 0120+ CCLMSG
CCLNUM 0265 PRMES 0330
CCLSW 0435 PRNAME G 0021+ CCLMSG
CCLTAB 0265 PRQMRK 1357
CCLVER 0301 PRWD G 0000+ CCLMSG
CIFB 0050+ CCLMSG PTR 0036
CLXR 0035 REMBLO 0065
CRLF G 0144+ CCLMSG REMSPA 4000
CTRLCK 1241 REST 5000
CTRLS 0114+ CCLMSG SBLOCK 7776
DEASAD 0427 SCOPE 7726
DEF 0022 SHNDLR 7607
DEFALT 0033 SM8 6254
DELIM 0032 SOFSET 7747
DEV1 0030 SPLNUM 7777
DEV2 0031 SWSTBL 7360
DOLFLG 7776 SYBLKN 7774
DVHNDL 7647 SYCNT 7775
ERRET 0033 SYSTEM 0022
EXTTBL 6600 T 0020
FATALF X **** TBLTBL 6100
FILDMY 0002 TE 0021+ CCLMSG
FILETB 7000 TESBUF 2000
FLD: 0 0200 ASECT TE2 0113+ CCLMSG
F0STUF 7200 TJUMP 0103+ CCLMSG
GETCCL 1362 TNOP 0012+ CCLMSG
GIOT 6770 TT 0021
GLINE 1200 TTYOUT 0063+ CCLMSG
HNDLR 4400 TWAIT X ****
JSBITS 7746 TYPE G 0040+ CCLMSG
KEYMON 0403 T7600 0107+ CCLMSG
KEYTES 0067+ CCLMSG USR 0200
KMNTRY 0400 XFERV G 0070
LEAVE X **** XR 0016
LONGTB 5000 XR2 0015
LXR 0034
MDATE 7666
MIFILE 7617