File: CCLSEM.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 /CCL SEMICOLONS FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 / CCL SEMICOLON CODE
8 / VERSION=5A
9
10 .ENTRY SEMI
11
12 .EXTERNAL ERROR,YBATCH,ZOW,GLIN
13
116
117 0000 .RSECT SEM1
118 0001 FIELD 1
119
120 10000 1377 ENGOA, TAD (-5
121 10001 4214 JMS ZEROCD
122 10002 1776 TAD I (BLKNO
123 10003 3775 DCA I (MIFILE+1
124 10004 7201 CLA IAC
125 10005 3774 DCA I (MIFILE /'CCBTCH' IS ON SYS:
126 10006 1373 TAD (40 / /S OPTION FOR SECOND LEVEL
127 10007 3772 DCA I (MPARAM+1
128 10010 1371 TAD (20 / ALSO /H (HUSH) OPTION
129 10011 3770 DCA I (MPARAM
130 10012 1367 TAD (YBATCH
131 10013 5766 JMP I (ZOW /CHAIN TO BATCH
132
133 10014 0000 ZEROCD, 0
134 10015 1365 TAD (-42 /AC MAY BE NON-0
135 10016 3225 DCA T$
136 10017 1364 TAD (MOFILE-1
137 10020 3016 DCA XR
138 10021 3416 DCA I XR /ZERO THE COMMAND DECODER OUTPUT AREA
139 10022 2225 ISZ T$
140 10023 5221 JMP .-2
141 10024 5614 JMP I ZEROCD
142 10025 0000 T$: 0
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 3
FILE # 1
143
144
145 .ENABLE ASCII
146 10026 0244 BATHED, TEXT "$JOB"<215><212>"."
10027 0312
10030 0317
10031 0302
10032 0215
10033 0212
10034 0256
10035 0000
147 10036 0256 BATAIL, TEXT ".DEL SYS:CCBTCH.TM/H"<215><212>"$END"<215><212><32>
10037 0304
10040 0305
10041 0314
10042 0240
10043 0323
10044 0331
10045 0323
10046 0272
10047 0303
10050 0303
10051 0302
10052 0324
10053 0303
10054 0310
10055 0256
10056 0324
10057 0315
10060 0257
10061 0310
10062 0215
10063 0212
10064 0244
10065 0305
10066 0316
10067 0304
10070 0215
10071 0212
10072 0232
10073 0000
148 .ENABLE SIXBIT
149 10074 0303 TEMNAM, FILENAME CCBTCH.TM
10075 0224
10076 0310
10077 2415
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 4
FILE # 1
150
151
------
10164 7577
10165 7736
10166 0000 *
10167 0000 *
10170 7643
10171 0020
10172 7644
10173 0040
10174 7617
10175 7620
10176 0207 +
10177 7773
152 0200 PAGE
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 5
FILE # 1
153
154
155 10200 4377 BATPTR, BATBUF-1
156 10201 0000 LCHAR, 0
157 10202 7777 SEMSWI, -1
158
159 10203 0000 SEMI, 0
160 10204 7201 CLA IAC /SYS
161 10205 4777 JMS I (USR
162 10206 0003 3 /ENTER
163 10207 0074 + BLKNO, TEMNAM
164 10210 0000 BLKLEN, 0 /NEG OF LENGTH
165 10211 5346 JMP SEMER1 /ENTER ERROR
166 10212 1207 TAD BLKNO
167 10213 3306 DCA BATBLK
168 10214 1376 TAD (BEGLN-1
169 10215 3016 DCA XR
170 10216 1375 TAD (7600
171 10217 6201 CDF 0
172 10220 3774 DCA I (CTRLCK /FORCE ^C TO GLINE TO GO TO 7600
173 10221 6211 CDF 10
174 10222 4333 JMS BATLST
175 10223 0026 + BATHED
176 10224 6201 S2, CDF 0
177 10225 1416 TAD I XR
178 10226 6211 CDF 10
179 10227 7450 SNA
180 10230 5242 JMP LINEND
181 10231 3201 DCA LCHAR /SAVE CHAR
182 10232 1201 TAD LCHAR
183 10233 1373 TAD (-";
184 10234 7650 SNA CLA
185 10235 5253 JMP GOTSEM
186 10236 1201 TAD LCHAR
187 10237 4267 S3, JMS BATPUT
188 10240 3202 DCA SEMSWI /INITIAL ; IS PAST
189 10241 5224 JMP S2
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 6
FILE # 1
190
191
192 10242 1201 LINEND, TAD LCHAR
193 10243 1373 TAD (-"; /LOOK AT LAST CHAR
194 10244 7640 SZA CLA /WAS IT SEMICOLON?
195 10245 5320 JMP BATEND /NO, END OF TEMP BATCH STREAM
196 10246 6203 CIF CDF 0
197 10247 4772 JMS I (GLIN /YES, READ NEW LINE FROM KEYBOARD
198 10250 1376 TAD (BEGLN-1 /**** WHAT IF WE'RE RUNNING UNDER BATCH ****
199 10251 3016 DCA XR
200 10252 5224 JMP S2
201
202 10253 2202 GOTSEM, ISZ SEMSWI /WAS IT INITIAL ; ?
203 10254 7410 SKP
204 10255 5224 JMP S2 /YES ; DON'T PUT EXTRA '.'
205 10256 4261 JMS KRLF
206 10257 1371 TAD (".
207 10260 5237 JMP S3
208
209 10261 0000 KRLF, 0
210 10262 1370 TAD (215
211 10263 4267 JMS BATPUT
212 10264 1367 TAD (212
213 10265 4267 JMS BATPUT
214 10266 5661 JMP I KRLF
215
216 10267 0000 BATPUT, 0
217 10270 2200 ISZ BATPTR
218 10271 6201 CDF 0
219 10272 3600 DCA I BATPTR
220 10273 6211 CDF 10
221 10274 1200 TAD BATPTR
222 10275 1366 TAD (-BATBUF-377
223 10276 7650 SNA CLA
224 10277 4301 JMS BATWRIT /WRITE OUT BUFFER IF FULL
225 10300 5667 JMP I BATPUT
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 7
FILE # 1
226
227
228 10301 0000 BATWRIT,0
229 10302 6202 CIF 0
230 10303 4765 JMS I (7607
231 10304 4200 4200 /WRITE 1 BLOCK
232 10305 4400 BATBUF
233 10306 0000 BATBLK, 0
234 10307 5350 JMP SEMER2 / I/O ERROR
235 10310 2306 ISZ BATBLK /POINT TO NEXT BLOCK
236 10311 2330 ISZ BATLEN /BUMP LENGTH
237 10312 2210 ISZ BLKLEN
238 10313 7410 SKP
239 10314 5352 JMP SEMER3 /DEVICE FULL
240 10315 1364 TAD (BATBUF-1
241 10316 3200 DCA BATPTR
242 10317 5701 JMP I BATWRIT
243
244 10320 4261 BATEND, JMS KRLF
245 10321 4333 JMS BATLST
246 10322 0036 + BATAIL
247 10323 4301 JMS BATWRIT
248 10324 7201 CLA IAC /SYS
249 10325 4777 JMS I (USR
250 10326 0004 4 /CLOSE
251 10327 0074 + TEMNAM
252 10330 0000 BATLEN, 0 /LENGTH OF TEMPORARY FILE
253 10331 5354 JMP SEMER4 /CLOSE ERROR
254 10332 5763 JMP I (ENGOA
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 8
FILE # 1
255
256
257 10333 0000 BATLST, 0
258 10334 1733 TAD I BATLST
259 10335 3345 DCA T$
260 10336 2333 ISZ BATLST
261 10337 1745 L$: TAD I T$
262 10340 7450 SNA
263 10341 5733 JMP I BATLST
264 10342 4267 JMS BATPUT
265 10343 2345 ISZ T$
266 10344 5337 JMP L$
267
268 10345 0000 T$: 0
269
270 10346 4762 SEMER1, JMS I (ERROR
271 10347 0021 17. /#CCBTCH Enter error
272 10350 4762 SEMER2, JMS I (ERROR
273 10351 0000 0. /#I/O Error on SYS:
274 10352 4762 SEMER3, JMS I (ERROR
275 10353 0022 18. /#Device full
276 10354 4762 SEMER4, JMS I (ERROR
277 10355 0023 19. /#CCBTCH Close error
------
10362 0000 *
10363 0000 +
10364 4377
10365 7607
10366 3001
10367 0212
10370 0215
10371 0256
10372 0000 *
10373 7505
10374 1241
10375 7600
10376 0777
10377 0200
278 0400 PAGE
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 9
FILE # 1
279
280
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 10
FILE # 1
281
282
/CCL SEMICOLONS FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 11
SYMBOL TABLE
AMFLAG 0017 JSBITS 7746 TT 0021
BATAIL 0036+ SEM1 KEYMON 0403 USR 0200
BATBLK 0306+ SEM1 KMNTRY 0400 XFERV G 0070
BATBUF 4400 KRLF 0261+ SEM1 XR 0016
BATCCL 7777 LCHAR 0201+ SEM1 XR2 0015
BATEND 0320+ SEM1 LINEND 0242+ SEM1 YBATCH X ****
BATERR 7000 LONGTB 5000 ZEROCD 0014+ SEM1
BATHED 0026+ SEM1 LXR 0034 ZOW X ****
BATIN 5400 MDATE 7666
BATLEN 0330+ SEM1 MIFILE 7617
BATLST 0333+ SEM1 MMISC 7777
BATOUT 7400 MOFILE 7600
BATPTR 0200+ SEM1 MONLOD 7605
BATPUT 0267+ SEM1 MONSAV 7600
BATSPL 7200 MPARAM 7643
BATTBL 6600 MREAD 7757
BATVFY 5600 MSOVL2 0055
BATWRI 0301+ SEM1 NAME1 0023
BEGLN 1000 NAME2 0024
BFR 3000 NAME3 0025
BLKLEN 0210+ SEM1 NAME4 0026
BLKNO 0207+ SEM1 NAME5 0027
CCLBLK 0067 NMBASE 0037
CCLDEV 0001 OS78BI 7771
CCLHND 0000 OV 1375
CCLINC 0054 PRMES 0330
CCLNUM 0265 PRQMRK 1357
CCLSW 0435 PTR 0036
CCLTAB 0265 REMBLO 0065
CCLVER 0301 REMSPA 4000
CLXR 0035 REST 5000
CTRLCK 1241 SBLOCK 7776
DEASAD 0427 SCOPE 7726
DEF 0022 SEMER1 0346+ SEM1
DEFALT 0033 SEMER2 0350+ SEM1
DELIM 0032 SEMER3 0352+ SEM1
DEV1 0030 SEMER4 0354+ SEM1
DEV2 0031 SEMI E 0203+ SEM1
DOLFLG 7776 SEMSWI 0202+ SEM1
DVHNDL 7647 SEM1 0400 RSECT
ENGOA 0000+ SEM1 SHNDLR 7607
ERRET 0033 SM8 6254
ERROR X **** SOFSET 7747
EXTTBL 6600 SPLNUM 7777
FILDMY 0002 SWSTBL 7360
FILETB 7000 SYBLKN 7774
FLD: 0 0200 ASECT SYCNT 7775
F0STUF 7200 SYSTEM 0022
GETCCL 1362 S2 0224+ SEM1
GIOT 6770 S3 0237+ SEM1
GLIN X **** T 0020
GLINE 1200 TBLTBL 6100
GOTSEM 0253+ SEM1 TEMNAM 0074+ SEM1
HNDLR 4400 TESBUF 2000