File: CCL.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 / MACREL VERSION OF CCL FOR OS/8 V50
2 /
3 /
4 /
5 /
6 /
7 / CCL MAIN PROGRAM
8 / VERSION=5A
9
10 .GLOBAL OUTLIM,OUTSW,COLSET
11 .GLOBAL LOSUB,EXSUB,BLK,IOERR
12 .GLOBAL LOOK,MONRES
13 .GLOBAL SETLPT,SETPTP,SETTTY
14 .GLOBAL DEFILE
15 .GLOBAL YAT,ZOW,BATCH,FLAG,RDMON,REGO,REMD,CHAIN
16 .GLOBAL DECODE,SCAN,LBEGIN
17 .GLOBAL MOVE,TWAIT,NAMPTR
18 .GLOBAL SAVL,DONB,FUDG,ARLOC
19 .GLOBAL ERROR,LEAVE,FATALFLG
20 .EXTERNAL RESHND,RESNUM,ENTRY
21 .EXTERNAL LPTDEV,TTYDEV,PTPDEV
22 .EXTERNAL SWAPER
23 .EXTERNAL SEMI
24 .EXTERNAL TABLES,YBATCH,YFRTS,YF4
25 .EXTERNAL AT,PTBL,VERTN,NOCCL
26 .EXTERNAL SETDEV,RECALL
27 .EXTERNAL CD,CDNORM,CCER1,REMEM
28 .EXTERNAL PRINT,PRWD,TYPE
29 .EXTERNAL LISPRT,ERRLST,MSGLST
30 .EXTERNAL CCSUB,OVLSTR
31
32 /CCL STARTING ADDRESS: 12000
33 /STARTING ADDRESS: 12001
34 /CHAIN STARTING ADDRESS:12002
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 2
FILE # 1
35
36
37 .INCLUDE IN:CCLDEF.MA
38 /CCLDEF VERSION 5A
39
40 /GERMAN=0 /FOR GERMAN MESSAGES
41 6254 SM8=6254 /MULTI8 INSTRUCTIONS
42 6770 GIOT=6770
43
44 7600 MOFILE=7600 /FIELD 1 RESIDENT TABLES
45 7617 MIFILE=7617
46 7643 MPARAM=7643
47 7647 DVHNDL=7647
48 7666 MDATE=7666
49 7726 SCOPE=7726
50 7777 MMISC=7777 /MISCELLANEOUS BITS
51
52 7600 MONSAV=7600
53 7605 MONLOD=7605
54 7607 SHNDLR=7607
55 7746 JSBITS=7746 /FIELD 0 RESIDENT LOCATIONS
56 7747 SOFSET=7747
57 7757 MREAD=7757
58 7771 OS78BIT=7771
59 7776 SBLOCK=7776
60 7777 BATCCL=7777
61
62 0000 CCLHND=0 /USER LOCATIONS IN USR
63 0001 CCLDEV=1
64 0002 FILDMY=2 /USE TILL 7
65 0015 XR2=15
66 0016 XR=16
67 0017 AMFLAG=17
68 0020 T=20
69 0021 TT=21
70 0022 DEF=22
71 0023 NAME1=23
72 0024 NAME2=24
73 0025 NAME3=25
74 0026 NAME4=26
75 0027 NAME5=27
76 0030 DEV1=30
77 0031 DEV2=31
78 0032 DELIM=32
79 0033 DEFALT=33 /POINTS TO DEFAULT EXTENSION LIST
80 0034 LXR=34
81 0035 CLXR=35
82 0036 PTR=36
83 0037 NMBASE=37
84 0070 XFERV==70 /2 LOCATIONS INSIDE USR WHICH ARE FREE
85 0200 USR=200
86
87 2000 TESBUF=2000 /BUFFERS AND TABLES IN CCL
88 3000 BFR=3000
89 4000 REMSPACE=4000
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 2-1
FILE - 1
90 4400 HNDLR=4400
91 4400 BATBUF=4400
92 5000 REST=5000
93 5000 LONGTBL=5000
94 6100 TBLTBL=6100
95 6600 EXTTBL=6600
96 7000 FILETBL=7000
97 7200 F0STUF=7200
98 7360 SWSTBL=7360
99
100 5400 BATIN=5400 /BATCH INPUT HANDLER
101 5600 BATVFY=5600 /BATCH VERIFY LOCATION C=2214='RL
102 6600 BATTBL=6600 /BATCH INTERNAL VALUES (12(8) LONG)
103 7000 BATERR=7000 /JMP HERE TO ABORT BATCH
104 7200 BATSPL=7200 /JMS HERE TO PERFORM SPOOLING WITH DEFAULT EXT IN AC
105 7400 BATOUT=7400 /JMS HERE TO PRINT ON BATCH LOG
106 7774 SYBLKN=7774 /RESIDENT SYS: BLOCK NUMBER
107 7775 SYCNT=7775 /RESIDENT SYS: CHARACTER COUNT
108 7776 DOLFLG=7776 /RESIDENT BATCH ERROR STATUS
109 7777 SPLNUM=7777 /RESIDENT SPOOL SEQUENCE NUMBER
110
111 0022 SYSTEM=22 /VOLATILE LOCATIONS IN KBM
112 0033 ERRET=33
113 0054 CCLINC=54 /ONLY V50!
114 0330 PRMES=330
115 0400 KMNTRY=400
116 0403 KEYMON=403
117 0427 DEASADR=427
118 0435 CCLSW=435
119 1000 BEGLN=1000
120 1200 GLINE=1200
121 1241 CTRLCK=1241
122 1357 PRQMRK=1357
123 1362 GETCCL=1362
124 1375 OV=1375
125
126 0055 MSOVL2=55 /SYSTEM BLOCKS
127 0065 REMBLOCK=65
128 0067 CCLBLK=67
129
130 0265 CCLTAB="5 /MUST BE UPDATED IF TABLES CHANGE
131 0265 CCLNUM="5
132 0301 CCLVER="A /CCL VERSION #
133 3603 .JSW 3603
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 3
FILE - 1
134
135
136
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 4
FILE # 1
137
138
139 /*** NOTE: VERSION E OF CCL WAS FOR IN-HOUSE USE ONLY.
140 /USE OF SEMICOLONS WITH CCL VERSION I OR LATER
141 /REQUIRES BATCH VERSION 7 OR LATER.
142 /USE OF BASIC COMMAND REQUIRES V3D BASIC OR LATER
143
144 /MEMORY ALLOCATION:
145
146 /0 0000-0777 KBM
147 /0 1000-1777 COMMAND LINE [EACH @ FILE RESTRICTED TO 1 BLOCK]
148 /0 2000-2777 LINE BUFFER EXTENSION
149 /0 3000-3177 PRE-EXTENSION @ BUFFER
150 /0 3200-3577 @ BUFFER
151 /0 4000-4377 REM-LINES
152 /0 4400-4777 INPUT HANDLER FOR CD
153 / ALSO, SEMICOLON BUFFER
154 /0 5000-5777 LONGWORD TABLE
155 /0 6000-7277 MORE TABLES
156 /0 7300-7577 SWITCH POINTER TABLE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 5
FILE # 1
157
158
159 /VERSION 1A CHANGES:
160
161 /56. FIXED BUG RE NULL INDIRECT CMD FILE
162 /57. FIXED BUG TO NOW ALLOW DATE WITH ARGS IN INIT.CM
163 /58. PRINT "OS78" FOR VERSION NAME IF APPLICABLE
164 /59. ADDED -N AND -D AND REWROTE LOGIC A BIT
165 /60. HELP COMMAND NOW USES HELP.SV
166 /61. SET COMMAND NOW USES SET.SV
167 /62. 'CORE' BECOMES 'MEMORY' IN 3 MSGS AND 1 CMD
168 /63. ADDED BASIC COMMAND (CHAINS TO BASIC.SV WITH Q SWITCH)
169 /64. ALLOWED FOR TERMINATE COMMAND (OS78 REPLACES BACKSPACE)
170 /65. ADDED DUPLICATE COMMAND (USES RXCOPY)
171
172 /V1B CHANGES:
173
174 /66. MODIFIED FORMAT OF MAIN TABLE
175 /67. GIVE ERROR MESSAGE IF NO FILENAME IS GIVEN WITH INDIRECT
176 / FILE (EVEN IF NON-FS)
177 /68. PRINT KBM VERSION #
178 /69. ADDED TERMINATE COMMAND
179
180 /V1F CHANGE:
181
182 /70. DUPL CALLS RXCOPY IN SPECIAL MODE
183
184 /V1G CHANGES:
185
186 /71. SOURCE CODE IS NOW MACREL
187 /72 LINKER OVERLAYS ADDED
188 /73. = ALLOWED IN ADDITION TO _ AND < (IF NOT FOLLOWED BY A DIGIT)
189 /74. /C:NNNN ALLOWED FOR NUMERIC ARGUMENT IN ADDITION TO =
190 /75. HOOKS FOR MULTIPLE CHARACTER SWITCHES ADDED
191 /76. SWITCHES MAY NO LONGER BE EMBEDDED IN A FILENAME
192 /77. KNOWN BUG IF SAY MAKE #
193 /78 A+B IS IDENTICAL TO A-NB,B
194 /79. KNOWN BUG THAT /A-L USES A
195 /80. TEMPORARILY REMOVED SEMICOLON STUFF
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 6
FILE # 1
196
197
198 / FORMAT OF CCL TABLE
199
200 /ENTRY PURPOSE
201
202 / TABLE WIDTH=7 (BUT VARIES)
203
204 /0 FLAG WORD
205
206 /BIT MEANING IF ON
207
208 /0 PERFORM CD (IF 0, OMIT ENTRIES 1-6)
209 /1 DON'T PERMIT SPOOLING
210 /2 ALLOW .LS, .NB, .MP SWITCHES
211 /3 ADD _ TO END OF COMMAND STRING
212 /4 SET OUTPUT EXTENSION = INPUT EXTENSION (IF BIT 2 ON)
213 /5 RESERVED
214 /6-8 SPECIFIES AUTOMATIC INPUT REMEMBERING (REM LINE MINUS 1)
215 / 0 MEANS NONE. 7 RESERVED FOR SPECIAL USE.
216 /9 OPEN/CLOSE SPECIAL (ALLOW NON-EXISTING DEVS)
217 /10 CAUSE -L, ETC. TO GO TO 2ND OUTPUT FILE & COPIES NAME
218 /11 WANT DEFAULT ALTMODE (COMPL IF AMFLAG=1)
219
220 /1 PTR TO DEFAULT EXTENSION LIST FOR INPUT FILES.
221 / IF PTS TO 0, NONE. IF PTS TO 5200, USE SPECIAL MODE.
222
223 /2-4 DEFAULT SWITCHES TO BE OR'ED INTO THOSE
224 / EXPLICITLY GIVEN.
225
226 /5 ADDRESS OF SUBROUTINE TO BE CALLED
227 / AFTER C.D. HAS BEEN DONE. 0 IF NONE.
228
229 /6 PTR TO FILENAME OF PROGRAM
230 / TO BE CHAINED TO. 0 IF NONE.
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 7
FILE # 1
231
232
233 0200 .ASECT CCL
234 2000 *2000
235 6501 .VERSION CCLNUM&77^100+<CCLVER&77>
236
237 0001 FIELD 1
238
239
240 12000 7001 START, IAC /START FROM MONITOR
241 12001 7001 IAC /START FROM .RUN COMMAND
242 12002 1377 TAD (JMP I WHICH+1 /START WHEN CHAINED TO
243 12003 3217 DCA WHICH
244 12004 6201 CDF 0 /DO INIT FOR ALL MODES
245 12005 1776 TAD I (MREAD-1
246 12006 3000 DCA CCLHND /WHICH HANDLER ENTRY POINT?
247 12007 1775 TAD I (SBLOCK
248 12010 3001 DCA CCLDEV /GET HANDLER NUMBER
249 12011 1774 TAD I (SOFSET
250 12012 1373 TAD (1+1+5 /SKIP CCB, *400 AND FIELD 1
251 12013 3233 DCA CCLREM /GET BLOCK OF REST
252 12014 3070 DCA XFERV /SET UP FOR OVERLAY DRIVER
253 12015 1372 TAD (SWAPER
254 12016 3071 DCA XFERV+1
255 12017 5620 WHICH, JMP I .+1
256 12020 2077 MONCHN
257 12021 3200 MONFIX
258 12022 2023 .+1
259 12023 1771 TAD I (CCLINC /IS CCL IN CORE?
260 12024 7640 SZA CLA
261 12025 5235 JMP CCLIN /YES: DON'T READ
262 12026 6211 CDF 10
263 12027 6202 CIF 0
264 12030 4400 JMS I CCLHND
265 12031 1300 1300 /READ 11 MORE PAGES
266 12032 5000 REST
267 12033 0000 CCLREM, 0
268 12034 5275 JMP ERR2
269 12035 4770 CCLIN, JMS I (TWAIT
270 12036 6201 CDF 0
271 12037 1767 TAD I (KMNTRY /REALLY 'VNO' BUT WE KNOW IT IS AT 400
272 12040 1366 TAD (-CCLTAB /DO VERSION #'S AGREE?
273 12041 7640 SZA CLA
274 12042 5765 JMP I (BADVNO
275 12043 6211 CDF 10
276 12044 3332 DCA DONB
277 12045 7240 STA
278 12046 3330 DCA OUTSW
279 12047 1364 TAD (1-MIFILE
280 12050 3331 DCA OUTLIM
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 8
FILE # 1
281
282
283 12051 1363 TAD ("@
284 12052 4762 JMS I (CSRCH
285 12053 4761 JMS I (AT
286 12054 1360 TAD (";
287 12055 4762 JMS I (CSRCH
288 12056 4757 JMS I (SEMI
289 12057 7240 STA
290 12060 3756 DCA I (REMD /ALLOW RECURSIVE U'S
291 12061 6201 CDF 0
292 12062 1755 TAD I (ENTRY /GET ENTRY #
293 12063 1354 TAD (PTBL /GET ADDRESS OF PTR TO START OF ENTRY
294 12064 3036 DCA PTR
295 12065 6201 * CDF TABLES
296 12066 1436 TAD I PTR /GET PTR TO START OF ENTRY
297 12067 6211 CDF 10
298 12070 3036 DCA PTR
299 12071 1036 TAD PTR
300 12072 3274 DCA BASPTR
301 12073 5753 JMP I (GO
302 12074 0000 BASPTR, 0
303
304 12075 6203 ERR2, CIF CDF 0
305 12076 5752 JMP I (NOCCL
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 9
FILE # 1
306
307
308 12077 1351 MONCHN, TAD (1000 /4 BLOCKS
309 12100 4750 JMS I (LODKBM
310 12101 1347 TAD (-44
311 12102 4746 JMS I (MOVE /ASSUME COMMAND LINE IS IN
312 12103 6211 CDF 10 /17600-17643
313 12104 7600 MOFILE
314 12105 6201 CDF 0
315 12106 1000 BEGLN /MOVE TO OS/8 LINE BUFFER
316 12107 6203 CIF CDF 0
317 12110 5745 JMP I (KEYMON+1 /START KM
318
319 12111 7240 KBMGO, STA
320 12112 3274 DCA BASPTR /SET SWITCH FOR KBM RESTART
321 12113 1367 TAD (400 /4 BLOCKS (WITH NEXT)
322 12114 1367 REGO, TAD (400 /2 BLOCKS (BUFFER STAYS)
323 12115 4750 JMS I (LODKBM
324 12116 7240 STA
325 12117 3744 DCA I (7700 /USR IS IN CORE
326 12120 6203 CIF CDF 0
327 12121 7240 STA
328 12122 3771 DCA I (CCLINC /CCL IS IN CORE!
329 12123 1343 TAD (MSOVL2
330 12124 3742 DCA I (OV /RESTORE FOR DATE CMD WITH ARGS
331 12125 2274 ISZ BASPTR
332 12126 5745 JMP I (KEYMON+1
333 12127 5767 JMP I (KMNTRY
334
335 2001 .START START+1,1
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 10
FILE # 1
336
337
338 12130 7777 OUTSW, -1 /-1 MEANS ON OUTPUT SIDE, 0 ON INPUT SIDE
339 12131 0162 OUTLIM, 1-MIFILE
340 12132 0000 DONB, 0 /USED AS A FLAG
341 12133 5732 JMP I DONB
342
------
12142 1375
12143 0055
12144 7700
12145 0404
12146 2653
12147 7734
12150 2324
12151 1000
12152 0000 *
12153 2267
12154 0000 *
12155 0000 *
12156 2313
12157 0000 *
12160 0273
12161 0000 *
12162 3000
12163 0300
12164 0162
12165 2725
12166 7513
12167 0400
12170 3072
12171 0054
12172 0000 *
12173 0007
12174 7747
12175 7776
12176 7756
12177 5620
343 2200 PAGE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 11
FILE # 1
344
345
346 /THIS ROUTINE DETERMINES IF THE CHARACTER IN THE AC IS A LETTER OR DIGIT
347 /IF LETTER, RETURNS TO RET+1 WITH LETTER-"A IN AC AND LINK=0
348 /IF DIGIT, RETURNS TO RET+1 WITH DIGIT-"0 IN AC AND LINK=1
349 /IF NEITHER, RETURNS TO RET WITH CHAR-"A IN AC.
350
351 12200 0000 DECODE, 0
352 12201 1377 TAD (-"9-1 /MIGHT BE CALLED WITH ANY DF
353 12202 7100 CLL
354 12203 1376 TAD ("9+1-"0
355 12204 7430 SZL
356 12205 5212 JMP YES$
357 12206 1375 TAD ("0-"Z-1
358 12207 7120 CLL CML
359 12210 1374 TAD ("Z-"A+1
360 12211 7420 SNL
361 12212 2200 YES$: ISZ DECODE
362 12213 5600 JMP I DECODE
363
364 12214 0000 SETLPT, 0 /COULD BE ONCE ONLY
365 12215 1373 TAD (LPTDEV
366 12216 4772 JMS I (SETDEV
367 12217 5614 JMP I SETLPT
368
369 12220 0000 SETTTY, 0
370 12221 1371 TAD (TTYDEV
371 12222 4772 JMS I (SETDEV
372 12223 5620 JMP I SETTTY
373
374 12224 0000 SETPTP, 0
375 12225 1370 TAD (PTPDEV
376 12226 4772 JMS I (SETDEV
377 12227 5624 JMP I SETPTP
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 12
FILE # 1
378
379
380 12230 0000 LBEGIN, 0 /PTS TO 1 CHAR BEFORE COMMAND KEYWORD ARGUMENT
381
382 12231 0000 SCAN, 0
383 12232 1367 TAD (BEGLN-1
384 12233 3016 DCA XR
385 12234 4255 JMS BLSCAN /IGNORE INITIAL SPACES
386 12235 7410 SKP
387 12236 4766 1$: JMS I (CGET /GET CHAR THRU XR
388 12237 7450 SNA
389 12240 5250 JMP 3$
390 12241 4200 JMS DECODE
391 12242 7610 SKP CLA
392 12243 5236 JMP 1$
393 12244 7240 STA
394 12245 1016 TAD XR
395 12246 3016 DCA XR
396 12247 4255 JMS BLSCAN
397 12250 3032 3$: DCA DELIM
398 12251 7240 STA
399 12252 1016 TAD XR
400 12253 3230 DCA LBEGIN
401 12254 5631 JMP I SCAN
402
403 12255 0000 BLSCAN, 0
404 12256 4766 JMS I (CGET
405 12257 1365 TAD (-240
406 12260 7450 SNA
407 12261 5256 JMP BLSCAN+1
408 12262 1364 TAD (240-211 /ALLOW TABS
409 12263 7450 SNA
410 12264 5256 JMP BLSCAN+1
411 12265 1363 TAD (211
412 12266 5655 JMP I BLSCAN /LEAVE CHAR IN AC
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 13
FILE # 1
413
414
415 12267 4231 GO, JMS SCAN /ADVANCE SCAN UNTIL AFTER SPACES
416 12270 6201 * GO2, CDF TABLES
417 12271 1436 TAD I PTR /GET FLAG
418 12272 6211 CDF 10
419 12273 3337 DCA FLAG /SAVE IT
420 12274 1032 TAD DELIM
421 12275 7650 SNA CLA /IS TYPED LINE EMPTY AFTER KEYWORD?
422 12276 1337 TAD FLAG /AND IS SPECIAL REMEMBERING BITS ON?
423 12277 7112 CLL RTR
424 12300 7010 RAR /AND HAS GOD WILLED US TO REMEMBER?
425 12301 0362 AND (7 /AND ARE THE ZODIAK SIGNS FAVORABLE?
426 12302 7450 SNA
427 12303 5761 JMP I (NORM /NO
428 12304 1313 TAD REMD /YES, GET REM-LINE (SUBTRACT 1)
429 12305 3313 DCA REMD
430 12306 6201 CDF 0
431 12307 1760 TAD I (BEGLN
432 12310 6211 CDF 10
433 12311 3214 DCA SETLPT
434 12312 4757 JMS I (RECALL /RECALL LINE
435 12313 7777 REMD, -1 /-1 MEANS DIDN'T RETRIEVE A REMEMBER LINE
436 12314 3336 DCA DEPN /SAVE DEPENDENT INFO
437 12315 1214 TAD SETLPT
438 12316 7640 SZA CLA /EG COMMAND?
439 12317 5761 JMP I (NORM /NO
440 12320 2032 ISZ DELIM /YES
441 12321 1336 TAD DEPN
442 12322 3036 DCA PTR /RESET PTR FROM CMD DEPENDENT WORD
443 12323 5270 JMP GO2
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 14
FILE # 1
444
445
446 12324 0000 LODKBM, 0 /AC= # OF PAGES * 100
447 12325 6211 CDF 10
448 12326 6202 CIF 0
449 12327 3331 DCA .+2
450 12330 4756 JMS I (SHNDLR /READ IN KBM
451 12331 1000 1000 /4 BLOCKS
452 12332 0000 0 /0-1777
453 12333 0007 7 /BLOCK 7 ON SYS:
454 12334 7402 HLT /NO WAY TO RECOVER (EVEN 7605 DOES THIS)
455 12335 5724 JMP I LODKBM
456
457 12336 0000 DEPN, 0 /REM LINE DEPENDENT INFORMATION
458 12337 0000 FLAG, 0 /MAIN TABLE FLAG (CD ETC.)
------
12356 7607
12357 0000 *
12360 1000
12361 2401
12362 0007
12363 0211
12364 0027
12365 7540
12366 3020
12367 0777
12370 0000 *
12371 0000 *
12372 0000 *
12373 0000 *
12374 0032
12375 7725
12376 0012
12377 7506
459 2400 PAGE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 15
FILE # 1
460
461
462 12400 2636 PSPOOL, SPOOLIT /HARMLESS FOR SET TTY COL
463 12401 3311 NORM, DCA DEFILE
464 12402 1777 TAD I (FLAG
465 12403 7700 L7700, SMA CLA
466 12404 5255 JMP CHAINN /SKIP ENTRIES IF NO CD
467 12405 2036 ISZ PTR /POINT TO DEFAULT INPUT EXTENSION
468 12406 6201 * CDF TABLES
469 12407 1436 TAD I PTR /GET DEFAULT INPUT EXTENSION PTR
470 12410 6211 CDF 10
471 12411 3033 DCA DEFALT /SAVE IT
472 12412 1376 TAD (MPARAM-2
473 12413 3016 DCA XR
474 12414 1777 TAD I (FLAG
475 12415 6201 CDF 0
476 12416 1775 TAD I (AMFLAG /COMBINE ALTMODE BITS
477 12417 6211 CDF 10
478 12420 7010 RAR /IN POSITION 11
479 12421 7210 CLA RAR /PUT NEW ALTMODE BIT ALONE IN BIT 0
480 12422 3416 DCA I XR /STORE AWAY IN C.D. OPTION TABLE
481 12423 3416 DCA I XR /V3D ZERO OPTION WORDS
482 12424 3416 DCA I XR
483 12425 3416 DCA I XR
484 12426 3416 DCA I XR /ZERO L.O. =
485 12427 2036 L$: ISZ PTR
486 12430 6201 * CDF TABLES
487 12431 1436 TAD I PTR
488 12432 7450 SNA
489 12433 5243 JMP 2$
490 12434 3350 DCA NTEMP
491 12435 2036 ISZ PTR
492 12436 1436 TAD I PTR /GET VALUE
493 12437 6211 CDF 10
494 12440 1750 TAD I NTEMP
495 12441 3750 DCA I NTEMP /STORE IN SPECIFIED LOCATION
496 12442 5227 JMP L$
497 12443 6211 2$: CDF 10
498 12444 1777 TAD I (FLAG
499 12445 0374 AND (400
500 12446 7640 SZA CLA
501 12447 4773 JMS I (INSARR /INSERT BACK ARROW IF FLAG BIT SET
502 12450 4772 JMS I (CD /PERFORM COMMAND DECODE IF FLAG BIT 0 SET
503 12451 1777 TAD I (FLAG
504 12452 7004 RAL
505 12453 7700 SMA CLA /IS SPOOLING PROHIBITED?
506 12454 4600 JMS I PSPOOL /NO
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 16
FILE # 1
507
508
509 12455 2036 CHAINN, ISZ PTR /POINT TO AFTER CD SUBR
510 12456 6201 * CDF TABLES
511 12457 1436 TAD I PTR /GET SUBR ADDRESS
512 12460 6211 CDF 10
513 12461 4771 JMS I (JMSUB
514 12462 1311 TAD DEFILE
515 12463 7440 SZA /IS THERE A FILENAME SET TO CHAIN TO?
516 12464 5273 JMP ZOW /YES
517 12465 2036 ISZ PTR /NO, POINT TO FILENAME
518 12466 6201 * CDF TABLES
519 12467 1436 TAD I PTR
520 12470 6211 CDF 10
521 12471 7450 SNA
522 12472 5770 JMP I (LEAVE /NO FILE TO CHAIN TO
523 12473 3303 ZOW, DCA NMPTR
524 12474 1367 TAD (YBATCH /CHECK FOR BATCH.SV
525 12475 7041 CIA
526 12476 1303 TAD NMPTR
527 12477 7650 SNA CLA
528 12500 5312 JMP BATSYS /YES, IS BATCH
529 12501 1001 TAD CCLDEV /ON 'CCL' DEVICE
530 12502 4320 JMS LOOK /LOOKUP FILE
531 12503 0000 NMPTR, 0
532 12504 5766 JMP I (CCER1 /NOT FOUND
533 12505 1000 TAD CCLHND /ONLY KBM V40!!!!
534 12506 4765 CHAIN, JMS I (USR /CHAIN TO IT
535 12507 0006 6 /CHAIN
536 12510 0000 BLK, 0
537 12511 0000 DEFILE, 0 /PTR TO FILENAME TO CHAIN TO
538
539 12512 1303 BATSYS, TAD NMPTR /BATCH M U S T COME FROM SYS:
540 12513 3315 DCA .+2
541 12514 4320 JMS LOOK
542 12515 0000 0
543 12516 5766 JMP I (CCER1
544 12517 5306 JMP CHAIN
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 17
FILE # 1
545
546
547 /LOOK, LOOKS UP FILE ON DEVICE . POINTER IS IN ARG1
548 / ARG2 IS ERROR RETURN IF NOT FOUND
549 /DEVICE NUMBER IS IN AC. IF 0, USE SYS:
550
551 12520 0000 LOOK, 0
552 12521 7450 SNA
553 12522 7001 IAC
554 12523 3361 DCA DEV
555 12524 1720 TAD I LOOK /GET PTR TO FILE NAME IN FIELD 0
556 12525 3335 DCA HISFIL
557 12526 1335 TAD HISFIL
558 12527 0203 AND L7700
559 12530 7650 SNA CLA
560 12531 5357 JMP FLD1 /PTR LT 100 MEANS IN FIELD 1
561 12532 1364 TAD (-3
562 12533 4763 JMS I (MOVE /MOVE IT UP
563 12534 6201 CDF 0
564 12535 0000 HISFIL, 0
565 12536 6211 CDF 10
566 12537 0002 PFILDMY,FILDMY
567 12540 1337 TAD PFILDMY
568 12541 3350 SETN, DCA NAMPTR /STORE AWAY PTR TO FILENAME
569 12542 1362 TAD ('SV
570 12543 3005 DCA FILDMY+3
571 12544 2320 ISZ LOOK /POINT TO ERROR RETURN
572 12545 1361 TAD DEV /GET DEVICE NUMBER
573 12546 4765 JMS I (USR
574 12547 0002 2 /LOOKUP
575 NTEMP,
576 12550 0000 NAMPTR, 0
577 12551 0000 0
578 12552 5720 JMP I LOOK /TAKE ERROR RETURN IF NOT FOUND
579 12553 1350 TAD NAMPTR /STORE STARTING BLOCK # IN 'BLK'
580 12554 3310 DCA BLK
581 12555 2320 ISZ LOOK /POINT TO NORMAL RETURN
582 12556 5720 JMP I LOOK /RETURN
583
584 12557 1335 FLD1, TAD HISFIL
585 12560 5341 JMP SETN
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 18
FILE # 1
586
587
588 12561 0000 DEV, 0
------
12562 2326
12563 2653
12564 7775
12565 0200
12566 0000 *
12567 0000 *
12570 3046
12571 2623
12572 0000 *
12573 2706
12574 0400
12575 0017
12576 7641
12577 2337
589 2600 PAGE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 19
FILE # 1
590
591
592 12600 0000 TEMP, 0
593
594 12601 0000 LOSUB, 0
595 12602 7201 CLA IAC /LOAD,LINK: CHANNEL #1
596 12603 4205 JMS EXSUB
597 12604 5601 JMP I LOSUB
598
599 12605 0000 EXSUB, 0
600 12606 3211 DCA EX$ /AC CARRIES REMEMBRANCE CHANNEL
601 12607 1777 TAD I (BASPTR /PUSH PTR BACK TO BEGIN OF ENTRIES
602 12610 4776 JMS I (REMEM /REMEMBER THIS IN DEPENDENT WORD
603 12611 0000 EX$: 0 /NORMALLY CHANNEL #0 FOR COMPILE CLASS
604 12612 1775 TAD I (MMISC
605 12613 7106 CLL RTL /LOOK AT FORTRAN BITS
606 12614 7520 SNL SMA /F2 OR F5 ?
607 12615 5221 JMP EXEN$
608 12616 7630 SZL CLA
609 12617 4774 JMS I (EXF2
610 12620 4773 JMS I (EXF5
611 12621 7200 EXEN$: CLA
612 12622 5605 JMP I EXSUB
613
614 12623 0000 JMSUB, 0
615 12624 7450 SNA
616 12625 5623 JMP I JMSUB
617 12626 3200 DCA TEMP
618 12627 1372 TAD (OVLSTR
619 12630 7141 CLL CIA
620 12631 1200 TAD TEMP /CHECK IF SUB IS IN OVERLAY RANGE
621 12632 7630 SZL CLA
622 12633 4771 JMS I (CCSUB /LOAD OVERLAY ONLY IF NEEDED
623 12634 4600 JMS I TEMP
624 12635 5623 JMP I JMSUB
625
626 12636 0000 SPOOLIT,0
627 12637 4770 JMS I (BATCH /IS BATCH RUNNING?
628 12640 5636 JMP I SPOOLIT /NO
629 12641 3250 DCA CB /YES
630 12642 6201 CDF 0
631 12643 1433 TAD I DEFALT
632 12644 1367 TAD (-5200
633 12645 7450 SNA
634 12646 1433 TAD I DEFALT /LEAVE 5200 IN AC IF SPECIAL MODE
635 12647 6211 CDF 10
636 12650 7402 CB, HLT /CIF TO FIELD OF BATCH
637 12651 4766 JMS I (BATSPL /ALLOW BATCH TO SPOOL STUFF
638 12652 5636 JMP I SPOOLIT
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 20
FILE # 1
639
640
641 / TAD (-# OF LOCS TO MOVE
642 / JMS MOVE
643 / FROM CDF
644 / FROM LOC
645 / TO CDF
646 / TO LOC
647
648 12653 0000 MOVE, 0
649 12654 3020 DCA T
650 12655 1653 TAD I MOVE /GET FROM CDF
651 12656 3276 DCA FRCDF
652 12657 2253 ISZ MOVE
653 12660 7240 STA
654 12661 1653 TAD I MOVE /GET FROM LOC-1
655 12662 3016 DCA XR
656 12663 2253 ISZ MOVE
657 12664 1653 TAD I MOVE /GET TO CDF
658 12665 3300 DCA TOCDF
659 12666 2253 ISZ MOVE
660 12667 7240 STA
661 12670 1653 TAD I MOVE /GET TO LOC-1
662 12671 3015 DCA XR2
663 12672 2253 ISZ MOVE /POINT TO RETURN
664 12673 1020 TAD T
665 12674 7650 SNA CLA
666 12675 5653 JMP I MOVE /V1A IGNORE 0 MOVE
667 12676 7402 FRCDF, HLT
668 12677 1416 TAD I XR
669 12700 7402 TOCDF, HLT
670 12701 3415 DCA I XR2
671 12702 2020 ISZ T
672 12703 5276 JMP FRCDF
673 12704 6211 CDF 10
674 12705 5653 JMP I MOVE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 21
FILE # 1
675
676
677 12706 0000 INSARR, 0
678 12707 4765 JMS I (CSRCH /SEARCH NULL
679 12710 7240 STA
680 12711 1016 TAD XR
681 12712 3016 DCA XR
682 12713 1364 TAD ("<
683 12714 6201 CDF 0
684 12715 3416 DCA I XR
685 12716 3416 DCA I XR
686 12717 6211 CDF 10
687 12720 7240 STA
688 12721 1016 TAD XR
689 12722 3324 DCA ARLOC /REMEMBER WHERE WE INSERTED A "_"
690 12723 5706 JMP I INSARR
691 12724 0000 ARLOC, 0 /FOR REMOVING BACK-ARROW 'EDIT'
692
693 12725 1363 BADVNO, TAD ('#V
694 12726 4762 JMS I (PRWD
695 12727 6201 CDF 0
696 12730 1761 TAD I (400
697 12731 4760 JMS I (TYPE
698 12732 4757 JMS I (LISPRT /MSG 0
699 12733 0000 * MSGLST
700 12734 4756 JMS I (VERTN
701 12735 5755 JMP I (LEAVE /GO AWAY
702
703 12736 0000 COLSET, 0
704 12737 4754 JMS I (SETTTY
705 12740 1753 TAD I (MPARAM+3
706 12741 7450 SNA
707 12742 1775 TAD I (MMISC /NEW F1 RESIDENT BITS KM V40!!!!
708 12743 0352 AND (7
709 12744 3753 DCA I (MPARAM+3
710 12745 5736 JMP I COLSET
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 22
FILE # 1
711
712
713 12746 4751 IOERR, JMS I (ERROR
714 12747 0000 0.
------
12751 3040
12752 0007
12753 7646
12754 2220
12755 3046
12756 0000 *
12757 0000 *
12760 0000 *
12761 0400
12762 0000 *
12763 4326
12764 0274
12765 3000
12766 7200
12767 2600
12770 3054
12771 0000 *
12772 0000 *
12773 3131
12774 3120
12775 7777
12776 0000 *
12777 2074
715 3000 PAGE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 23
FILE # 1
716
717
718 13000 0000 CSRCH, 0
719 13001 3217 DCA S$
720 13002 1377 TAD (BEGLN-1
721 13003 3016 DCA XR
722 13004 4220 1$: JMS CGET
723 13005 7041 CIA
724 13006 1217 TAD S$
725 13007 7450 SNA
726 13010 5600 JMP I CSRCH /FOUND IT (ALSO END)
727 13011 7041 CIA
728 13012 1217 TAD S$
729 13013 7640 SZA CLA /AT END?
730 13014 5204 JMP 1$
731 13015 2200 ISZ CSRCH
732 13016 5600 JMP I CSRCH /YES SECOND RETURN
733 13017 0000 S$: 0
734
735 13020 0000 CGET, 0
736 13021 7200 CLA
737 13022 6201 CDF 0
738 13023 1416 TAD I XR
739 13024 6211 CDF 10
740 13025 1376 TAD (-340
741 13026 7500 SMA
742 13027 1375 TAD (-40 /CONVERT LC TO UC
743 13030 1374 TAD (340
744 13031 5620 JMP I CGET
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 24
FILE # 1
745
746
747 13032 0000 SAVL, 0
748 13033 0000 YAT, 0
749 13034 1232 TAD SAVL /'YAT' IS JMS'ED TO
750 13035 7650 SNA CLA /BY INITIAL @ COMMAND
751 13036 5246 JMP LEAVE /DO NOTHING IF NO @ GOT EXPANDED (NULL LINE)
752 13037 5773 JMP I (REGO
753
754 13040 0000 ERROR, 0
755 13041 7200 CLA
756 13042 6211 CDF 10
757 13043 1640 TAD I ERROR /GET ERROR NUMBER
758 13044 4772 JMS I (LISPRT
759 13045 0000 * ERRLST
760 13046 4771 LEAVE, JMS I (TWAIT
761 13047 1252 TAD FATALF
762 13050 7650 SNA CLA
763 13051 5770 JMP I (KBMGO
764 13052 0000 FATALF, 0 /CIF CDF BATCH FIELD IF WANT TO ABORT
765 13053 5767 JMP I (BATERR
766
767 /SKIP IF BATCH IS RUNNING AND PUT CIF BATCH FIELD IN AC
768
769 13054 0000 BATCH, 0
770 13055 6201 CDF 0
771 13056 1766 TAD I (BATCCL
772 13057 6211 CDF 10
773 13060 3311 DCA BWORD
774 13061 1311 TAD BWORD
775 13062 7006 RTL
776 13063 7620 SNL CLA /IS BATCH RUNNING?
777 13064 5654 JMP I BATCH /NO
778 13065 1311 TAD BWORD /YES
779 13066 0365 AND (70 /ISOLATE FIELD OF BATCH
780 13067 1364 TAD (CIF /FORM CIF TO THE HIGHEST FIELD
781 13070 2254 ISZ BATCH /AND TAKE SKIP RETURN WITH IT IN AC
782 13071 5654 JMP I BATCH
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 25
FILE # 1
783
784
785 13072 0000 TWAIT, 0
786 13073 3240 DCA ERROR
787 13074 4254 JMS BATCH
788 13075 5300 JMP TW$ /BATCH NOT RUNNING
789 13076 7200 CLA /WE'RE RUNNING UNDER BATCH
790 13077 5672 JMP I TWAIT
791 13100 6041 TW$: TSF
792 13101 7410 SKP /WAIT FOR THINGS TO QUIET DOWN
793 13102 5672 JMP I TWAIT
794 13103 0400 400 /WASTE SOME TIME
795 13104 0400 400
796 13105 0400 400
797 13106 2240 ISZ ERROR
798 13107 5300 JMP TW$
799 13110 5672 JMP I TWAIT /CAN'T WAIT TOO LONG
800
801 BWORD,
802 13111 0000 FUDG, 0
803 13112 4763 JMS I (CDNORM /INIT CD NORMAL MODE
804 13113 3762 DCA I (OUTSW
805 13114 1761 TAD I (OUTLIM /LOAD HANDLER
806 13115 7041 CIA
807 13116 3035 DCA CLXR
808 13117 5711 JMP I FUDG
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 26
FILE # 1
809
810
811 13120 0000 EXF2, 0
812 13121 2320 ISZ EXF2 /SKIP OVER EXF5
813 13122 1360 TAD (-6
814 13123 4757 JMS I (MOVE
815 13124 6211 CDF 10
816 13125 3141 YFORT
817 13126 6201 CDF 0
818 13127 0000 * YF4 /REPLACE F4 BY FORT, LOAD BY LOADER
819 13130 5720 JMP I EXF2
820
821 13131 0000 EXF5, 0
822 13132 1360 TAD (-6
823 13133 4757 JMS I (MOVE
824 13134 6211 CDF 10
825 13135 3147 YFRUN
826 13136 6201 CDF 0
827 13137 0000 * YFRTS /REPLACE FRTS BY FRUN, F4 BY FCOMP
828 13140 5731 JMP I EXF5
829
830 13141 0617 YFORT, FILENAME FORT.SV
13142 2224
13143 0000
13144 2326
831 3144 *.-1
832 13144 1417 FILENAME LOADER.SV
13145 0104
13146 0522
13147 2326
833 3147 *.-1
834 13147 0622 YFRUN, FILENAME FRUN.SV
13150 2516
13151 0000
13152 2326
835 3152 *.-1
836 13152 0603 FILENAME FCOMP.SV
13153 1715
13154 2000
13155 2326
837 3155 *.-1
------
13157 2653
13160 7772
13161 2131
13162 2130
13163 0000 *
13164 6202
13165 0070
13166 7777
13167 7000
13170 2111
13171 3072
13172 0000 *
13173 2114
13174 0340
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 26-1
FILE # 1
13175 7740
13176 7440
13177 0777
838 3200 PAGE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 27
FILE # 1
839
840
841 13200 4246 MONFIX, JMS RDMON
842 13201 6201 CDF 0
843 13202 1777 TAD I (TESBUF
844 13203 1376 TAD (-SHNDLR
845 13204 7650 SNA CLA
846 13205 5273 JMP CCER3 /ALWAYS WRITE OUT CCL BLOCK
847 13206 7100 CLL
848 13207 1000 TAD CCLHND /NOW TEST IF RESIDENT
849 13210 1376 TAD (-SHNDLR
850 13211 7620 SNL CLA
851 13212 5275 JMP RESERR /NON-RESIDENT HANDLERS TEND TO DISAPPEAR
852 13213 1000 TAD CCLHND /GOT ENTRY POINT FROM 'RUN'
853 13214 3775 DCA I (RESHND /STORE IN CCLBLK
854 13215 1001 TAD CCLDEV /GOT NUMBER FROM MONITOR RUN
855 13216 3774 DCA I (RESNUM /STORE ALSO IN CCLBLK
856 13217 6211 CDF 10
857 13220 6202 CIF 0
858 13221 4773 JMS I (SHNDLR
859 13222 4200 4200 /WRITE 1 RECORD FROM FIELD 0
860 13223 0400 400 /LOCATIONS 400-777
861 13224 0067 CCLBLK /INTO THE SYSTEM'S CCL BLOCK
862 13225 5772 JMP I (IOERR
863 13226 6201 CDF 0
864 13227 1771 TAD I (TESBUF+CCLSW
865 13230 1370 TAD (-PRQMRK
866 13231 7450 SNA
867 13232 5236 JMP OK$
868 13233 1367 TAD (PRQMRK-GETCCL
869 13234 7640 SZA CLA
870 13235 5273 JMP CCER3
871 13236 1366 OK$: TAD (GETCCL
872 13237 3771 DCA I (TESBUF+CCLSW
873 13240 7240 STA
874 13241 3765 DCA I (TESBUF+DEASADR /DELETE DEASSIGN
875 13242 7330 CLA STL RAR /WRITE MONITOR
876 13243 4246 JMS RDMON
877 13244 6203 CIF CDF 0
878 13245 5764 JMP I (MONLOD
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 28
FILE # 1
879
880
881 13246 0000 RDMON, 0 /WITH AC=4000 ALSO WRITE MONITOR
882 13247 6211 CDF 10
883 13250 6202 CIF 0
884 13251 1363 TAD (400
885 13252 3254 DCA .+2
886 13253 4773 JMS I (SHNDLR
887 13254 0400 0400 /READ/WRITE 2 RECORDS
888 13255 2000 TESBUF /IN BUFFER AT 02000
889 13256 0007 7 /BLOCK 7,10
890 13257 5772 JMP I (IOERR
891 13260 5646 JMP I RDMON
892
893 13261 0000 MONRES, 0
894 13262 4246 JMS RDMON
895 13263 6201 CDF 0
896 13264 1362 TAD (PRQMRK
897 13265 3771 DCA I (TESBUF+CCLSW
898 13266 1361 TAD (-405
899 13267 3765 DCA I (TESBUF+DEASADR
900 13270 7330 CLA STL RAR
901 13271 4246 JMS RDMON
902 13272 5661 JMP I MONRES
903
904 13273 4760 CCER3, JMS I (ERROR
905 13274 0027 23.
906
907 13275 4757 RESERR, JMS I (PRINT
908 13276 3301 RESBAD
909 13277 6203 CIF CDF 0
910 13300 5764 JMP I (MONLOD
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 29
FILE # 1
911
912
913 .ENABLE ASCII
914 RESBAD,
915 13301 0243 .IF NDF GERMAN < TEXT /#Device not resident!/>
13302 0304
13303 0345
13304 0366
13305 0351
13306 0343
13307 0345
13310 0240
13311 0356
13312 0357
13313 0364
13314 0240
13315 0362
13316 0345
13317 0363
13320 0351
13321 0344
13322 0345
13323 0356
13324 0364
13325 0241
13326 0000
916 .IF DF GERMAN < TEXT /#Geraet nicht resident!/>
917 .ENABLE SIXBIT
------
13357 0000 *
13360 3040
13361 7373
13362 1357
13363 0400
13364 7605
13365 2427
13366 1362
13367 7775
13370 6421
13371 2435
13372 2746
13373 7607
13374 0000 *
13375 0000 *
13376 0171
13377 2000
918 3400 PAGE
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 30
FILE # 1
919
920
/ MACREL VERSION OF CCL FOR OS/8 MACREL-V2C TUE 02-JUN-92 PAGE 31
SYMBOL TABLE
AMFLAG 0017 DOLFLG 7776 MOVE G 2653 SOFSET 7747
ARLOC G 2724 DONB G 2132 MPARAM 7643 SPLNUM 7777
AT X **** DVHNDL 7647 MREAD 7757 SPOOLI 2636
BADVNO 2725 ENTRY X **** MSGLST X **** START 2000
BASPTR 2074 ERRET 0033 MSOVL2 0055 SWAPER X ****
BATBUF 4400 ERRLST X **** NAME1 0023 SWSTBL 7360
BATCCL 7777 ERROR G 3040 NAME2 0024 SYBLKN 7774
BATCH G 3054 ERR2 2075 NAME3 0025 SYCNT 7775
BATERR 7000 EXF2 3120 NAME4 0026 SYSTEM 0022
BATIN 5400 EXF5 3131 NAME5 0027 T 0020
BATOUT 7400 EXSUB G 2605 NAMPTR G 2550 TABLES X ****
BATSPL 7200 EXTTBL 6600 NMBASE 0037 TBLTBL 6100
BATSYS 2512 FATALF G 3052 NMPTR 2503 TEMP 2600
BATTBL 6600 FILDMY 0002 NOCCL X **** TESBUF 2000
BATVFY 5600 FILETB 7000 NORM 2401 TOCDF 2700
BEGLN 1000 FLAG G 2337 NTEMP 2550 TT 0021
BFR 3000 FLD1 2557 OS78BI 7771 TTYDEV X ****
BLK G 2510 FLD: 0 0200 ASECT OUTLIM G 2131 TWAIT G 3072
BLSCAN 2255 FRCDF 2676 OUTSW G 2130 TYPE X ****
BWORD 3111 FUDG G 3111 OV 1375 USR 0200
CB 2650 F0STUF 7200 OVLSTR X **** VERTN X ****
CCER1 X **** GETCCL 1362 PFILDM 2537 WHICH 2017
CCER3 3273 GIOT 6770 PRINT X **** XFERV G 0070
CCL 3400 ASECT GLINE 1200 PRMES 0330 XR 0016
CCLBLK 0067 GO 2267 PRQMRK 1357 XR2 0015
CCLDEV 0001 GO2 2270 PRWD X **** YAT G 3033
CCLHND 0000 HISFIL 2535 PSPOOL 2400 YBATCH X ****
CCLIN 2035 HNDLR 4400 PTBL X **** YFORT 3141
CCLINC 0054 INSARR 2706 PTPDEV X **** YFRTS X ****
CCLNUM 0265 IOERR G 2746 PTR 0036 YFRUN 3147
CCLREM 2033 JMSUB 2623 RDMON G 3246 YF4 X ****
CCLSW 0435 JSBITS 7746 RECALL X **** ZOW G 2473
CCLTAB 0265 KBMGO 2111 REGO G 2114
CCLVER 0301 KEYMON 0403 REMBLO 0065
CCSUB X **** KMNTRY 0400 REMD G 2313
CD X **** LBEGIN G 2230 REMEM X ****
CDNORM X **** LEAVE G 3046 REMSPA 4000
CGET 3020 LISPRT X **** RESBAD 3301
CHAIN G 2506 LODKBM 2324 RESERR 3275
CHAINN 2455 LONGTB 5000 RESHND X ****
CLXR 0035 LOOK G 2520 RESNUM X ****
COLSET G 2736 LOSUB G 2601 REST 5000
CSRCH 3000 LPTDEV X **** SAVL G 3032
CTRLCK 1241 LXR 0034 SBLOCK 7776
DEASAD 0427 L7700 2403 SCAN G 2231
DECODE G 2200 MDATE 7666 SCOPE 7726
DEF 0022 MIFILE 7617 SEMI X ****
DEFALT 0033 MMISC 7777 SETDEV X ****
DEFILE G 2511 MOFILE 7600 SETLPT G 2214
DELIM 0032 MONCHN 2077 SETN 2541
DEPN 2336 MONFIX 3200 SETPTP G 2224
DEV 2561 MONLOD 7605 SETTTY G 2220
DEV1 0030 MONRES G 3261 SHNDLR 7607
DEV2 0031 MONSAV 7600 SM8 6254