File: CCLSUB.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
PAGE LINE SUBTITLE
3 128 UA,UB,UC COMMANDS
4 151 SQUISH COMMAND
5 187 DEASSIGN COMMAND
6 225 ZERO COMMAND
7 249 PUT MACRO
8 270 MAKE COMMAND
10 338 TECO COMMAND
11 376 MUNG COMMAND
13 454 BASIC COMMAND
14 481 CREATE COMMAND
14 494 EDIT COMMAND
14 511 FOCAL COMMAND
15 519 COPY, RENAME, AND DELETE COMMANDS
16 553 TTL TECO.TEC LOAD
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 /CCL SUBROUTINES 1 FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 / CCL SIMPLE COMMAND SUBROUTINES
9 / VERSION=5A
10
11 .ENTRY CCSUB
12
13 .EXTERNAL REMD,REGO,FLAG,FOREVER,EXSUB
14 .EXTERNAL LISPRT,ERROR,VMES,MMES,MSGLST
15 .EXTERNAL RDMON,BATCH,ARLOC,MOVE
16 .EXTERNAL ASSIGN,FUDG,DVICE,LOOK
17 .EXTERNAL GETSPC,ZEROCD,LBEGIN
18
19 .GLOBAL USRSUB,BASUB,DEASSIGN
20 .GLOBAL CRSUB,EDSUB,FOSUB,ZERSUB
21 .GLOBAL TECSUB,MAKSUB,MNGSUB,TTSUB
22 .GLOBAL SQSUB,KILRT,RENRT,MOVRT
23
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 3
FILE # 1
126
127
128 .SBTTL UA,UB,UC COMMANDS
129 0000 .RSECT CCLSUB
130 0001 FIELD 1
131
132 10000 0000 CCSUB, 0 /USED TO FORCE THIS OVERLAY IN
133 10001 5600 JMP I CCSUB
134
135 /TEST END OF TABLE
136
137 10002 0000 USRSUB, 0
138 10003 1777 TAD I (REMD
139 10004 7700 SMA CLA
140 10005 5776 JMP I (REGO /REMEMBERED A NEW LINE
141 10006 4775 JMS I (FOREVER /NO DATE
142 10007 1774 TAD I (FLAG /WANT TO
143 10010 0373 AND (70
144 10011 7112 CLL RTR
145 10012 7010 RAR
146 10013 1372 TAD (-1 /IN THIS REM-LINE
147 10014 4771 JMS I (EXSUB
148 10015 5602 JMP I USRSUB
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 4
UA,UB,UC COMMANDS FILE # 1
149
150
151 .SBTTL SQUISH COMMAND
152
153 10016 0000 SQSUB, 0
154 10017 1770 TAD I (MOFILE+1
155 10020 1767 TAD I (MIFILE+1
156 10021 7640 SZA CLA
157 10022 4766 SQER$: JMS I (ERROR /DON'T ALLOW FILES
158 10023 0030 24. /#Error in command
159 10024 1765 TAD I (MOFILE
160 10025 7640 SZA CLA
161 10026 5616 JMP I SQSUB
162 10027 1764 TAD I (MIFILE
163 10030 7450 SNA
164 10031 5222 JMP SQER$ /NO DEV: NO GOOD
165 10032 3765 DCA I (MOFILE
166 10033 4763 JMS I (BATCH /IS BATCH RUNNING?
167 10034 5616 JMP I SQSUB /NO
168 10035 7200 CLA
169 10036 1765 TAD I (MOFILE
170 10037 1362 TAD (DVHNDL-1 /POINT INTO DEVICE HANDLER RESIDENCY TABLE
171 10040 3255 DCA T$
172 10041 1655 TAD I T$ /GET HANDLER STARTING ADDRESS
173 10042 1361 TAD (-SHNDLR
174 10043 7640 SZA CLA /IS SQUISHED DEVICE SYS:?
175 10044 5616 JMP I SQSUB /NO
176 10045 1760 TAD I (MPARAM
177 10046 0357 AND (20 /HUSH ?
178 10047 7640 SZA CLA
179 10050 5616 JMP I SQSUB /YES, NO MESSAGE
180 10051 7325 CLA STL IAC RAL /3
181 10052 4756 JMS I (LISPRT /%Batch squishing SYS:!
182 10053 0000 * MSGLST /YES, WARN USER
183 10054 5616 JMP I SQSUB
184 10055 0000 T$: 0
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 5
SQUISH COMMAND FILE # 1
185
186
187 .SBTTL DEASSIGN COMMAND
188
189 /ALLOW DEASSIGN FOO ?
190
191 10056 0000 DEASSIGN,0
192 10057 1355 TAD (7740
193 10060 3016 DCA XR
194 10061 1354 TAD (-17
195 10062 3275 DCA D$
196 10063 3416 DCA I XR
197 10064 2275 ISZ D$
198 10065 5263 JMP .-2
199 10066 6201 CDF 0
200 10067 1753 TAD I (JSBITS
201 10070 0352 AND (6777
202 10071 1351 TAD (1000
203 10072 3753 DCA I (JSBITS
204 10073 6211 CDF 10
205 10074 5656 JMP I DEASSIGN
206
207 10075 0000 D$: 0
208
209 10076 0000 CHKSUP, 0
210 10077 4750 JMS I (FUDG
211 10100 4747 JMS I (ASSIGN
212 10101 1023 TAD NAME1
213 10102 7650 SNA CLA
214 10103 5676 JMP I CHKSUP /CAN'T SUP IF NO FILENAME
215 10104 1746 TAD I (DVICE
216 10105 4745 JMS I (LOOK /LOOK UP FILE
217 10106 0023 NAME1
218 10107 5676 JMP I CHKSUP /NOT FOUND (GOOD)
219 10110 7326 CLA STL RTL /MSG #2 %Superseding
220 10111 4756 JMS I (LISPRT
221 10112 0000 * MSGLST
222 10113 5676 JMP I CHKSUP
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 6
DEASSIGN COMMAND FILE # 1
223
224
225 .SBTTL ZERO COMMAND
226 10114 0000 ZERSUB, 0
227 10115 1770 TAD I (MOFILE+1
228 10116 7650 SNA CLA /WAS FILENAME SPECIFIED ON ZERO CMD?
229 10117 1765 TAD I (MOFILE /OR WAS NO OUT DEVICE SPECIFIED?
230 10120 7650 SNA CLA
231 10121 4766 JMS I (ERROR /YES... ERROR
232 10122 0011 9. /#Illegal syntax
233 10123 5714 JMP I ZERSUB /NO, OKAY.
234
235 10124 0000 TECEND, 0 /TRANSFER TECO COMMAND TO 17400
236 10125 4744 JMS I (TPUT /TERMINATE COMMAND
237 10126 1365 TAD (-200
238 10127 4743 JMS I (MOVE
239 10130 6201 CDF 0
240 10131 3000 BFR
241 10132 6211 CDF 10
242 10133 7400 7400
243 10134 1333 TAD .-1
244 10135 3765 DCA I (MOFILE /SET CONTINUATION POINTER
245 10136 5724 JMP I TECEND
------
10143 0000 *
10144 0400 +
10145 0000 *
10146 0000 *
10147 0000 *
10150 0000 *
10151 1000
10152 6777
10153 7746
10154 7761
10155 7740
10156 0000 *
10157 0020
10160 7643
10161 0171
10162 7646
10163 0000 *
10164 7617
10165 7600
10166 0000 *
10167 7620
10170 7601
10171 0000 *
10172 7777
10173 0070
10174 0000 *
10175 0000 *
10176 0000 *
10177 0000 *
246 0200 PAGE
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 7
ZERO COMMAND FILE # 1
247
248
249 .SBTTL PUT MACRO
250 .NOLIST ME
251
252 .MACRO PUT TXT
253 JMS TECPUT
254
255 .IF IDN TXT[1],$<
256 .ENABLE ASCII
257 ;TEXT <ALTMODE>"TXT[2:0]"
258 .ENABLE SIXBIT
259 >
260
261 .IF DIF TXT[1],$<
262 .ENABLE ASCII
263 ;TEXT /TXT/
264 .ENABLE SIXBIT
265 >
266
267 .ENDM
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 8
PUT MACRO FILE # 1
268
269
270 .SBTTL MAKE COMMAND
271
272 0233 ALTMODE=233
273
274 10200 0000 MAKSUB, 0
275 10201 1032 TAD DELIM
276 10202 7650 SNA CLA
277 10203 4777 JMS I (ERROR /DON'T ALLOW MAKE <CR>
278 10204 0030 24. /#Error in command
279 10205 4225 JMS SETLXR
280 10206 4776 JMS I (GETSPC
281 PUT "EW"
282 10213 4246 JMS TECMOV
283 PUT "$"
284 10217 4775 JMS I (CHKSUP
285 10220 4774 JMS I (LOVE
286 10221 7305 CLA CLL IAC RAL /REMEMBER IN CHANNEL #2
287 10222 4773 JMS I (EXSUB
288 10223 4772 JMS I (TECEND
289 10224 5600 JMP I MAKSUB
290
291 10225 0000 SETLXR, 0
292 10226 1771 TAD I (LBEGIN
293 10227 3034 DCA LXR
294 10230 1370 TAD (BFR-1
295 10231 3767 DCA I (TYR
296 10232 1366 TAD (-5 /ZERO OPTION TABLE TOO
297 10233 4765 JMS I (ZEROCD
298 10234 1034 TAD LXR
299 10235 3346 DCA SAVLXR
300 10236 5625 JMP I SETLXR
301
302 /PUT FOLLOWING CHARS INTO TECO BUFFER VIA TXR
303
304 10237 0000 TECPUT, 0
305 10240 1637 TAD I TECPUT
306 10241 2237 ISZ TECPUT
307 10242 7450 SNA
308 10243 5637 JMP I TECPUT
309 10244 4764 JMS I (TPUT
310 10245 5240 JMP TECPUT+1
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 9
MAKE COMMAND FILE # 1
311
312
313 /MOVE CHARS FROM FIELD 0 LINE BUFFER
314 /FROM SAVLXR+1 TO LXR-1 INCLUSIVE
315 /INTO TECO LINE BUFFER AT 'BFR'
316
317 10246 0000 TECMOV, 0
318 10247 1346 TAD SAVLXR
319 10250 3015 DCA XR2
320 10251 1346 TAD SAVLXR
321 10252 7040 CMA
322 10253 1034 TAD LXR
323 10254 7650 SNA CLA
324 10255 4777 JMS I (ERROR /NO FILE SPEC
325 10256 0011 9. /#Illegal syntax
326 10257 6201 L$: CDF 0
327 10260 1415 TAD I XR2
328 10261 6211 CDF 10
329 10262 4764 JMS I (TPUT
330 10263 1015 TAD XR2
331 10264 7040 CMA
332 10265 1034 TAD LXR
333 10266 7650 SNA CLA
334 10267 5646 JMP I TECMOV
335 10270 5257 JMP L$
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 10
MAKE COMMAND FILE # 1
336
337
338 .SBTTL TECO COMMAND
339
340 10271 0000 TECSUB, 0
341 10272 4225 JMS SETLXR
342 10273 4776 JMS I (GETSPC
343 10274 1032 TAD DELIM
344 10275 7450 SNA
345 10276 5331 JMP TECNORM
346 10277 1363 TAD (-"< /ALLOW "_" AS WELL AS "<"
347 10300 7440 SZA
348 10301 1362 TAD ("<-"=
349 10302 7440 SZA
350 10303 1361 TAD ("=-"_
351 10304 7640 SZA CLA
352 10305 4777 JMS I (ERROR
353 10306 0011 9. /#Illegal syntax
354 10307 6201 1$: CDF 0
355 10310 3434 DCA I LXR /CHANGE < TO 0
356 10311 6211 CDF 10
357 PUT "EW"
358 10316 4246 JMS TECMOV
359 10317 1034 TAD LXR
360 10320 3346 DCA SAVLXR
361 10321 4775 JMS I (CHKSUP
362 10322 4776 JMS I (GETSPC
363 PUT "$ER"
364 10330 5335 JMP TECLV
365 TECNORM,PUT "EB"
366 10335 4246 TECLV, JMS TECMOV
367 PUT "$Y"
368 10342 7305 CLA CLL IAC RAL /CHANNEL #2
369 10343 4773 JMS I (EXSUB
370 10344 4772 JMS I (TECEND
371 10345 5671 JMP I TECSUB
372 10346 0000 SAVLXR, 0
------
10361 7736
10362 7777
10363 7504
10364 0400 +
10365 0000 *
10366 7773
10367 0414 +
10370 2777
10371 0000 *
10372 0124 +
10373 0000 *
10374 0532 +
10375 0076 +
10376 0000 *
10377 0000 *
373 0400 PAGE
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 11
TECO COMMAND FILE # 1
374
375
376 .SBTTL MUNG COMMAND
377
378 10400 0000 TPUT, 0
379 10401 0377 AND (177 /TECO LIKES 7-BIT
380 10402 2214 ISZ TYR
381 10403 6201 CDF 0
382 10404 3614 DCA I TYR
383 10405 6211 CDF 10
384 10406 1214 TAD TYR
385 10407 1376 TAD (-<BFR+200-1> /CHECK FOR OVERFLOW OF 'BFR' AREA
386 10410 7640 SZA CLA
387 10411 5600 JMP I TPUT
388 10412 4775 JMS I (ERROR
389 10413 0031 25. /#Command is too long
390 10414 0000 TYR, 0
391
392 10415 0000 MNGSUB, 0
393 10416 4774 JMS I (SETLXR
394 10417 4773 JMS I (GETSPC
395 PUT "ER"
396 10424 4771 JMS I (TECMOV
397 10425 4271 JMS SETX
398 10426 0324 "T;"E
10427 0305
399 PUT "$YHXYHKI"
400 10442 1032 TAD DELIM
401 10443 7450 SNA
402 10444 5262 JMP F$
403 10445 1370 TAD (-",
404 10446 7640 SZA CLA
405 10447 4775 JMS I (ERROR
406 10450 0011 9. /#Illegal syntax
407 10451 6201 L$: CDF 0
408 10452 2034 ISZ LXR
409 10453 1434 TAD I LXR
410 10454 6211 CDF 10
411 10455 0377 AND (177 /GET RID OF HIGH ORDER BIT
412 10456 7450 SNA
413 10457 5262 JMP F$
414 10460 4200 JMS TPUT
415 10461 5251 JMP L$
416 F$: PUT "$MY" /MACRO GETS CALLED WITH POINTER PAST CHARS
417 10467 4767 JMS I (TECEND
418 10470 5615 JMP I MNGSUB
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 12
MUNG COMMAND FILE # 1
419
420
421 /SET DEFAULT EXTENSION
422
423 10471 0000 SETX, 0
424 10472 1671 TAD I SETX
425 10473 3312 DCA 1$
426 10474 2271 ISZ SETX
427 10475 1671 TAD I SETX
428 10476 3313 DCA 2$ /FALL THRU 2ND EXT
429 10477 1026 TAD NAME4
430 10500 7650 SNA CLA
431 10501 1023 TAD NAME1
432 10502 7650 SNA CLA
433 10503 5671 JMP I SETX
434 10504 1614 TAD I TYR /GET LAST CHAR (NO EXT)
435 10505 1366 TAD (-56 /WAS IT A DOT?
436 10506 7650 SNA CLA
437 10507 5671 JMP I SETX /YES
438 10510 4772 JMS I (TECPUT /NO, USE DEFAULT EXTENSION
439 10511 0256 ".
440 10512 0000 1$: 0
441 10513 0000 2$: 0
442 10514 0000 0
443 10515 1312 TAD 1$
444 10516 0365 AND (77
445 10517 7002 BSW
446 10520 3312 DCA 1$
447 10521 1313 TAD 2$
448 10522 0365 AND (77
449 10523 1312 TAD 1$
450 10524 3026 DCA NAME4
451 10525 5671 JMP I SETX
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 13
MUNG COMMAND FILE # 1
452
453
454 .SBTTL BASIC COMMAND
455
456 10526 0000 BASUB, 0
457 10527 1364 TAD (200 /SET /Q SWITCH
458 10530 3763 DCA I (MPARAM+1
459 10531 5726 JMP I BASUB
460
461 10532 0000 LOVE, 0
462 10533 1023 TAD NAME1
463 10534 1362 TAD (-'LO
464 10535 7640 SZA CLA
465 10536 5732 JMP I LOVE
466 10537 1024 TAD NAME2
467 10540 1361 TAD (-'VE
468 10541 7640 SZA CLA
469 10542 5732 JMP I LOVE
470 10543 1025 TAD NAME3
471 10544 7640 SZA CLA
472 10545 5732 JMP I LOVE
473 10546 7201 CLA IAC /not WAR?
474 10547 4760 JMS I (LISPRT
475 10550 0000 * MSGLST
476 10551 5732 JMP I LOVE
477
------
10560 0000 *
10561 5173
10562 6361
10563 7644
10564 0200
10565 0077
10566 7722
10567 0124 +
10570 7524
10571 0246 +
10572 0237 +
10573 0000 *
10574 0225 +
10575 0000 *
10576 4601
10577 0177
478 0600 PAGE
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 14
BASIC COMMAND FILE # 1
479
480
481 .SBTTL CREATE COMMAND
482
483 10600 0000 CRSUB, 0
484 10601 1777 TAD I (MIFILE
485 10602 7650 SNA CLA /BETTER BE NO INPUT
486 10603 1776 TAD I (MOFILE /ANYTHING THERE?
487 10604 7650 SNA CLA
488 10605 4775 JMS I (ERROR /NO OUTPUT OR YES INPUT
489 10606 0011 9. /#Illegal syntax
490 10607 4211 JMS EDSUB /REMOVE BACK-ARROW AND REMEMBER CREATE LINE
491 10610 5600 JMP I CRSUB
492
493
494 .SBTTL EDIT COMMAND
495
496 10611 0000 EDSUB, 0
497 10612 1774 TAD I (ARLOC
498 10613 3224 DCA AR$
499 10614 1224 TAD AR$
500 10615 6201 CDF 0
501 10616 7640 SZA CLA /WE COULD KILL SOMETHING IN F0
502 10617 3624 DCA I AR$ /REPLACE ARROW BY NULL
503 10620 6211 CDF 10
504 10621 7305 CLA IAC CLL RAL /REMEMBER NEW COMMAND LINE
505 10622 4773 JMS I (EXSUB /REMEMBER IN CHANNEL #2
506 10623 5611 JMP I EDSUB
507
508 10624 0000 AR$: 0 /LOCATION OF BACK-ARROW IN COMMAND LINE
509 /0 IS NOW HARMLESS IN CASE NO ARROW
510
511 .SBTTL FOCAL COMMAND
512
513 10625 0000 FOSUB, 0
514 10626 7327 CLA STL IAC RTL /REMEMBER IN CHANNEL #6
515 10627 4773 JMS I (EXSUB
516 10630 5625 JMP I FOSUB
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 15
FOCAL COMMAND FILE # 1
517
518
519 .SBTTL COPY, RENAME, AND DELETE COMMANDS
520
521 10631 0000 KILRT, 0
522 10632 7327 CLA STL IAC RTL /MESSAGE #6
523 10633 4245 JMS KRMHSH
524 10634 5631 JMP I KILRT
525
526 10635 0000 RENRT, 0
527 10636 7307 CLA CLL IAC RTL /MESSAGE #4
528 10637 4245 JMS KRMHSH
529 10640 5635 JMP I RENRT
530
531 10641 0000 MOVRT, 0
532 10642 1372 TAD (5 /MESSAGE #5
533 10643 4245 JMS KRMHSH
534 10644 5641 JMP I MOVRT
535
536 10645 0000 KRMHSH, 0
537 10646 3257 DCA KRMNM$
538 10647 1771 TAD I (MPARAM
539 10650 0370 AND (20 /PICK OUT /H FOR HUSH
540 10651 7650 SNA CLA
541 10652 5260 JMP KRMND$ /NO HUSH
542 10653 7344 CLA CLL CMA RAL /7776
543 10654 0771 AND I (MPARAM
544 10655 3771 DCA I (MPARAM /TAKE OUT /L
545 10656 5645 JMP I KRMHSH
546 10657 0000 KRMNM$: 0
547 10660 1257 KRMND$: TAD KRMNM$
548 10661 4767 JMS I (LISPRT
549 10662 0000 * MSGLST
550 10663 5645 JMP I KRMHSH
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 16
COPY, RENAME, AND DELETE COMMANDS FILE # 1
551
552
553 .SBTTL TTL TECO.TEC LOAD
554
555 10664 0000 TTSUB, 0 /MOVE TT COMMAND STRING
556 10665 1376 TAD (-200 /TO TECO INPUT BUFFER
557 10666 3020 DCA T /128 CHARS
558 10667 1366 TAD (BEGLN-1
559 10670 3015 DCA XR2
560 10671 1365 TAD (7400-1
561 10672 3016 DCA XR
562 10673 6201 TL$: CDF 0
563 10674 1415 TAD I XR2
564 10675 6211 CDF 10
565 10676 0364 AND (177
566 10677 3416 DCA I XR
567 10700 2020 ISZ T
568 10701 5273 JMP TL$
569 10702 3776 DCA I (MOFILE /SET FLAG FOR TECO.TEC
570 10703 1363 TAD (7400 /AND CONTINUATION POINTER
571 10704 3762 DCA I (MOFILE+1
572 10705 5664 JMP I TTSUB /THAT WAS EASY
------
10762 7601
10763 7400
10764 0177
10765 7377
10766 0777
10767 0000 *
10770 0020
10771 7643
10772 0005
10773 0000 *
10774 0000 *
10775 0000 *
10776 7600
10777 7617
/CCL SUBROUTINES 1 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 17
SYMBOL TABLE
ALTMOD 0233 GETSPC X **** SHNDLR 7607
AMFLAG 0017 GIOT 6770 SM8 6254
ARLOC X **** GLINE 1200 SOFSET 7747
ASSIGN X **** HNDLR 4400 SPLNUM 7777
BASUB G 0526+ CCLSUB JSBITS 7746 SQSUB G 0016+ CCLSUB
BATBUF 4400 KEYMON 0403 SWSTBL 7360
BATCCL 7777 KILRT G 0631+ CCLSUB SYBLKN 7774
BATCH X **** KMNTRY 0400 SYCNT 7775
BATERR 7000 KRMHSH 0645+ CCLSUB SYSTEM 0022
BATIN 5400 LBEGIN X **** T 0020
BATOUT 7400 LISPRT X **** TBLTBL 6100
BATSPL 7200 LONGTB 5000 TECEND 0124+ CCLSUB
BATTBL 6600 LOOK X **** TECLV 0335+ CCLSUB
BATVFY 5600 LOVE 0532+ CCLSUB TECMOV 0246+ CCLSUB
BEGLN 1000 LXR 0034 TECNOR 0331+ CCLSUB
BFR 3000 MAKSUB G 0200+ CCLSUB TECPUT 0237+ CCLSUB
CCLBLK 0067 MDATE 7666 TECSUB G 0271+ CCLSUB
CCLDEV 0001 MIFILE 7617 TESBUF 2000
CCLHND 0000 MMES X **** TPUT 0400+ CCLSUB
CCLINC 0054 MMISC 7777 TT 0021
CCLNUM 0265 MNGSUB G 0415+ CCLSUB TTSUB G 0664+ CCLSUB
CCLSUB 1000 RSECT MOFILE 7600 TYR 0414+ CCLSUB
CCLSW 0435 MONLOD 7605 USR 0200
CCLTAB 0265 MONSAV 7600 USRSUB G 0002+ CCLSUB
CCLVER 0301 MOVE X **** VMES X ****
CCSUB E 0000+ CCLSUB MOVRT G 0641+ CCLSUB XFERV G 0070
CHKSUP 0076+ CCLSUB MPARAM 7643 XR 0016
CLXR 0035 MREAD 7757 XR2 0015
CRSUB G 0600+ CCLSUB MSGLST X **** ZEROCD X ****
CTRLCK 1241 MSOVL2 0055 ZERSUB G 0114+ CCLSUB
DEASAD 0427 NAME1 0023
DEASSI G 0056+ CCLSUB NAME2 0024
DEF 0022 NAME3 0025
DEFALT 0033 NAME4 0026
DELIM 0032 NAME5 0027
DEV1 0030 NMBASE 0037
DEV2 0031 OS78BI 7771
DOLFLG 7776 OV 1375
DVHNDL 7647 PRMES 0330
DVICE X **** PRQMRK 1357
EDSUB G 0611+ CCLSUB PTR 0036
ERRET 0033 PUT M 0000
ERROR X **** RDMON X ****
EXSUB X **** REGO X ****
EXTTBL 6600 REMBLO 0065
FILDMY 0002 REMD X ****
FILETB 7000 REMSPA 4000
FLAG X **** RENRT G 0635+ CCLSUB
FLD: 0 0200 ASECT REST 5000
FOREVE X **** SAVLXR 0346+ CCLSUB
FOSUB G 0625+ CCLSUB SBLOCK 7776
FUDG X **** SCOPE 7726
F0STUF 7200 SETLXR 0225+ CCLSUB
GETCCL 1362 SETX 0471+ CCLSUB