File: CCLTAB.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 / CCL OVERLAY TABLE V50
2 /
3 /
4 /
5 /
6 / CCL OVERLAY TABLE
7 /VERSION=5A
8
9 .GLOBAL NOCCL,RESNUM,RESHND,ENTRY
10
113
114 /CCL.SV (THE IMPORTANT PART) MUST BE A SINGLE CORE-LOAD
115 /CONTIGUOUS LOAD, BECAUSE OF THE WAY THE MONITOR LOADS IT.
116 /FORTUNATELY, FIELD 0 STUFF OCCURS AFTER FIELD 1 STUFF IN THE
117 /OS/8 CORE-IMAGE FORMAT.
118 /FOR VERSION OF THE MONITOR BEFORE LEVEL A,
119 /THE TOTAL LENGTH OF CCL.SV MUST BE LESS THAN 14 BLOCKS
120 /OR IT READS OVER 7600.
121 /BUT NOW CCL COMES IN AND READS THE REMAINDER OF ITSELF
122 /INTO FIELD 0. 400-777 IS IGNORED BY SKIPPING A BLOCK,
123 /THEN THER REST OF CCL (7 PAGES) IS READ IN.
124
125 IFDEF XYZMCR <
126
127 FOLLOWING IS THE TECO MACRO WE USE TO CREATE THE TABLE:
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 3
FILE # 1
128
129
130
131
132
133
134 HKGYJ2SR0,.KHXAHKMA
135 TYPE COMMANDS, SPACE TERMINATES TABLE PART FROM
136 COMMENTARY PART, CR TERMINATES BOTH, ^Z TERMINATES ALL.
137 ** NO EDITING **
138 HKHXYHXN0UO0UN0UH
139 !CHLP!^TULQL-32"EOBLANK'QL-13"EOCR'QL-26"EOEND'
140 !CHLP0!QL&63UT QT/8UXQX+48IQT-(8*QX)+48I
141 QL"NZJ.UZGNQLIQZJXNK%N'
142 %O&1"NOCHLP' QN-3"LZUH'I
143 OCHLP
144 !BLANK! ZJ.UZGNQLI<UBQB-13"E 0;'QBI>
145 QZJXNK%N
146 !CR!
147 QHJ /GNZJXN0UN0ULOCHLP0
148 !END!I00
149
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 4
FILE # 1
150
151
152
153
154
155
156 >
157 /TABL0 LOADS OVER THE SAVE, DATE OVERLAY
158 /AND STARTS AT LOCATION 600
159
160 /KEYWORD TABLE IN 400 - THE FOLLOWING 2-LETTER INITIAL
161 /GROUPS ARE NOT ALLOWED (THEY ARE DECODED BY KM)
162 /AS - SA - RU - GE - ST - OD
163
164 /CONSISTS OF COMMANDS 2 CHARS PER LOCATION
165 /IN 5-BIT ASCII (ONLY LETTERS ARE LEGAL)
166 /SEPARATED FROM EACH OTHER BY 6-BIT 00'S.
167 /@ IS IN TABLE AS _ . 2 _ MUST BE AT END
168 /OF TABLE FOR TERMINATION. NO LETTER 'K'
169 /ALLOWED: 'K' ON INPUT IS CONVERTED TO 'C'
170 /ALSO LOWER CASE INPUT CONVERTED TO UPPER CASE
171
172 .IF DF GERMAN <
173
174 .ASECT TABLE0
175 FIELD 0
176
177 *400
178 VNO, CCLTAB /MUST BE AT 400!!!
179 KEYWRD,
180
181 0530 /EX ECUTE = EXEKUTIERE
182 0001 /AC ID = RTES ENGLISCH
183 0300
184 0201 /BA SIC
185 0002 /BO OT
186 1700
187 2424 /TT L = TECO.TEC LAUF
188 0003 /CL OSE
189 1400
190 0317 /COMPA RE
191 1520
192 0100
193 0317 /COM PILE = KOMPILIERE
194 1500
195 0317 /COP Y
196 2000
197 0322 /CREF = KREF
198 0506
199 0003 /CRE ATE = KREIERE
200 2205
201 0004 /DA TE = DATUM
202 0100
203 0405 /DEA SSIGN
204 0100
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 4-1
FILE # 1
205 0405 /DEL ETE
206 1400
207 0411 /DI RECTORY
208 0004 /DR UCKE = LIST
209 2200
210 0425 /DU PLICATE = DUPLIZIERE
211 0005 /ED IT = EDITIERE
212 0400
213 0617 /FO CAL = DPF
214 0006 /FU TIL
215 2500 /G OTO = BATCH GOTO
216 0700 /H ELP = HILFE
217 1000 /I NHALTSVERZEICHNIS
218 1100
219 1401 /LAU F = SPEZ. SUBMIT
220 2500
221 1401 /LAD E = LOAD
222 0400
223 1411 /LIN KER
224 1600
225 1411 /LI ST
226 0014 /LOE SCHE = DELETE
227 1705
228 0014 /LOGI N
229 1707
230 1100
231 1417 /LOGO UT
232 0717
233 0014 /LO AD
234 1700
235 1501 /MACE = MAKE *KL*
236 0305
237 0015 /MACH E = MAKE
238 0103
239 1000
240 1501 /MAC REL
241 0300
242 1501 /MAP = MAPPIERE
243 2000
244 1505 /ME MORY
245 0015 /MU NG
246 2500
247 1601 /NA ME = RENAME
248 0017 /OC OMP
249 0300
250 1705 /OE FFNE = OPEN
251 0017 /OP EN
252 2000
253 2001 /PA L8
254 0020 /PIP
255 1120
256 0020 /PR INT
257 2200
258 2205 /REN AME
259 1600
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 4-2
FILE # 1
260 2224 /RT ES = GERMAN ACID
261 0023 /SC HLIESSE = CLOSE
262 0300
263 2305 /SEN DE = TALK
264 1600
265 2305 /SET = SETZE
266 2400
267 2310 /SH SAVE
268 0023 /SP EICHER = MEMORY
269 2000
270 2321 /SQ UISH
271 0023 /SU BMIT
272 2500
273 2331 /SY STEM = RESOURCE
274 0024 /TA LK
275 0100
276 2405 /TE CO
277 0024 /TY PE
278 3100
279 2501 /UA
280 0025 /UB
281 0200
282 2503 /UC
283 0025 /UX = REMEMBER
284 3000
285 2523 /USA = USER PROG 1 !NICE NAME!
286 0100
287 2523 /USB = USER PROG 2
288 0200
289 2523 /USC = USER PROG 3
290 0300
291 2605 /VERD ICHTE = SQUISH
292 2204
293 0026 /VERG LEICHE = COMPARE
294 0522
295 0700
296 2605 /VE RSION
297 0032 /ZEI GE = TYPE
298 0511
299 0032 /ZERO
300 0522
301 1700 /_ = @
302 3700 /_ = @
303 3700
304 0000
305 >
306
307 .IF NDF GERMAN <
308
309 0200 .ASECT TABLE0
310 0000 FIELD 0
311
312 0400 *400
313 00400 0265 VNO, CCLTAB /MUST BE AT 400!!!
314 KEYWRD,
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 4-3
FILE # 1
315
316 00401 0530 0530 /EX ECUTE
317 00402 0002 0002 /BA SIC
318 00403 0100 0100
319 00404 0217 0217 /BO OT
320 00405 0003 0003 /CCL
321 00406 0314 0314
322 00407 0003 0003 /CL OSE
323 00410 1400 1400
324 00411 0317 0317 /COMPA RE
325 00412 1520 1520
326 00413 0100 0100
327 00414 0317 0317 /COM PILE
328 00415 1500 1500
329 00416 0317 0317 /COP Y
330 00417 2000 2000
331 00420 0322 0322 /CREF
332 00421 0506 0506
333 00422 0003 0003 /CRE ATE
334 00423 2205 2205
335 00424 0004 0004 /DA TE
336 00425 0100 0100
337 00426 0405 0405 /DEA SSIGN
338 00427 0100 0100
339 00430 0405 0405 /DEL ETE
340 00431 1400 1400
341 00432 0411 0411 /DI RECTORY
342 00433 0004 0004 /DU PLICATE
343 00434 2500 2500
344 00435 0504 0504 /ED IT
345 00436 0006 0006 /FO CAL = DPF
346 00437 1700 1700
347 00440 0625 0625 /FU TIL
348 00441 0007 0007 /G OTO = BATCH GOTO
349 00442 0010 0010 /H ELP
350 00443 0014 0014 /LAU F = SPECIAL SUBMIT
351 00444 0125 0125
352 00445 0014 0014 /LIN K
353 00446 1116 1116
354 00447 0014 0014 /LI ST
355 00450 1100 1100
356 00451 1417 1417 /LOGI N
357 00452 0711 0711
358 00453 0014 0014 /LOGO UT
359 00454 1707 1707
360 00455 1700 1700
361 00456 1417 1417 /LO AD
362 00457 0015 0015 /MACE = MAKE *KL*
363 00460 0103 0103
364 00461 0500 0500
365 00462 1501 1501 /MAC REL
366 00463 0300 0300
367 00464 1501 1501 /MAP
368 00465 2000 2000
369 00466 1505 1505 /ME MORY
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 4-4
FILE # 1
370 00467 0015 0015 /MU NG
371 00470 2500 2500
372 00471 1703 1703 /OC OMP
373 00472 0017 0017 /OP EN
374 00473 2000 2000
375 00474 2001 2001 /PA L8
376 00475 0020 0020 /PIP
377 00476 1120 1120
378 00477 0020 0020 /PR INT
379 00500 2200 2200
380 00501 2025 2025 /PU NCH
381 00502 0022 0022 /REN AME
382 00503 0516 0516
383 00504 0022 0022 /RES OURCE
384 00505 0523 0523
385 00506 0023 0023 /SET
386 00507 0524 0524
387 00510 0023 0023 /SH SAVE
388 00511 1000 1000
389 00512 2321 2321 /SQ UISH
390 00513 0023 0023 /SU BMIT
391 00514 2500 2500
392 00515 2331 2331 /SY STEM = RESOURCE
393 00516 0024 0024 /TA LK
394 00517 0100 0100
395 00520 2405 2405 /TE CO
396 00521 0024 0024 /TT LAUF
397 00522 2400 2400
398 00523 2431 2431 /TY PE
399 00524 0025 0025 /UA
400 00525 0100 0100
401 00526 2502 2502 /UB
402 00527 0025 0025 /UC
403 00530 0300 0300
404 00531 2530 2530 /UX
405 00532 0025 0025 /USA USER PROG 1
406 00533 2301 2301
407 00534 0025 0025 /USB USER PROG 2
408 00535 2302 2302
409 00536 0025 0025 /USC USER PROG 3
410 00537 2303 2303
411 00540 0026 0026 /VE RSION
412 00541 0500 0500
413 00542 3205 3205 /ZERO
414 00543 2217 2217
415 00544 0037 0037 /_
416 00545 0037 0037 /_
417 00546 0000 0000
418
419
420 >
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 5
FILE # 1
421
422
423
424
425
426
427 00547 0000 ZBLOCK 600-.
428 0600 *600
429
430 /RUNS IN FIELD 0 ONLY.
431
432 00600 0000 ENTRY, 0 /INITIALLY 0 MEANS 'EX' COMMAND
433 00601 5207 LINPTR, JMP ENTREE /OS/8 JUMPS HERE (ACTUALLY TO 600)
434 TEMM,
435 00602 2276 TEKLDG, ISZ CCLNHR /TECO 'EG' JUMPS HERE
436 00603 3777 DCA I (BEGLN /ZERO COMMAND LINE
437 00604 5262 JMP TEGO /FIRST WE DISABLE CALLS TO MONITOR
438 00605 0001 RESNUM, 1 /DEVICE NUMBER OF RESIDENT HANDLER
439 00606 7607 RESHND, SHNDLR /ENTRY POINT OF RESIDENT HANDLER
440 00607 1376 ENTREE, TAD (MONLOD
441 00610 3033 DCA ERRET
442 00611 1022 TAD SYSTEM
443 00612 3305 DCA MYSYS
444 00613 1375 MORE, TAD (BEGLN-1
445 00614 3201 DCA LINPTR
446 00615 2201 ISZ LINPTR
447 00616 1601 TAD I LINPTR
448 00617 1225 TAD M240
449 00620 7650 SNA CLA /ELIMINATE LEADING SPACES
450 00621 5215 JMP .-4
451 00622 1601 FNLUP, TAD I LINPTR
452 00623 2201 ISZ LINPTR
453 00624 1343 TAD M340 /TEST FOR LC
454 00625 7540 M240, SMA SZA
455 00626 1250 TAD M40 /YES: CHANGE TO UPPER CASE
456 00627 1374 TAD (40
457 00630 7450 SNA /TEST FOR @
458 00631 1373 TAD (37 /YES: CHANGE TO _
459 00632 7550 SPA SNA /LETTERS FROM 1-37,`
460 00633 5254 JMP NOLET /NOT A LETTER
461 00634 1372 TAD (-<"K&77>
462 00635 7450 SNA
463 00636 1371 TAD (<"C-"K>&77 /CONVERT 'K' TO 'C'
464 00637 1370 TAD ("K&77
465 00640 4325 JMS GETKAR /GETKAR WILL STORE IN TEMM
466 00641 5257 JMP MATCH
467 00642 7041 CIA
468 00643 1202 TAD TEMM
469 00644 0367 AND (77 /6-BIT ASCII
470 00645 7650 SNA CLA /DO THEY MATCH?
471 00646 5222 JMP FNLUP /YES
472 00647 4325 NOMT, JMS GETKAR
473 00650 7740 M40, SZA SMA CLA /SKIPS ON ZERO
474 00651 5247 JMP NOMT /SCAN TO NEXT ENTRY
475 00652 2200 ISZ ENTRY /COUNT TABLE POSITION
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 5-1
FILE # 1
476 00653 5213 JMP MORE
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 6
FILE # 1
477
478
479
480
481
482
483 00654 4325 NOLET, JMS GETKAR /LOOK IF TABLE ENTRY OVER
484 00655 5257 JMP MATCH /YESSS
485 00656 5247 JMP NOMT /NO: SKIP TO NEXT
486
487 00657 1054 MATCH, TAD CCLINC /IS CCL IN CORE?
488 00660 7640 SZA CLA
489 00661 5315 JMP CCLGO /YES: MAKE IT FAST
490 00662 3054 TEGO, DCA CCLINC /IF FROM TECO: CCL NOT IN CORE
491 00663 1366 TAD (7603 /YES
492 00664 3765 DCA I (JSBITS
493 00665 6212 CIF 10
494 00666 4705 JMS I MYSYS /CALL USR AND LOCK IN CORE
495 00667 0010 10
496 00670 1205 TAD RESNUM
497 00671 6212 CIF 10
498 00672 4764 JMS I (USR
499 00673 0002 2
500 00674 0717 CCLBLC, CCLSV
501 00675 0000 CCLEN, 0
502 00676 5346 CCLNHR, JMP NOCCL /ISZ'ED IF KBM NOT IN MEMORY
503 00677 7201 CLA IAC
504 00700 1274 TAD CCLBLC
505 00701 3305 DCA CCLRDB
506 00702 4606 JMS I RESHND
507 00703 1211 CCLCCW, 1211 /READ 12 PAGES OF CCL.SV
508 00704 2000 CCLSTR, 2000 /REST IS READ BY OVERDRV
509 MYSYS,
510 00705 7700 CCLRDB, 7700 /INITIALLY POINTS TO USR
511 00706 5346 JMP NOCCL
512 00707 1274 TAD CCLBLC
513 00710 3763 DCA I (SOFSET /CCL BLOCK TO SOFSET
514 00711 1206 TAD RESHND
515 00712 3762 DCA I (MREAD-1
516 00713 1205 TAD RESNUM
517 00714 3761 DCA I (SBLOCK
518 00715 6213 CCLGO, CIF CDF 10
519 00716 5704 JMP I CCLSTR
520
521 00717 0303 CCLSV, FILENAME CCL.SV
00720 1400
00721 0000
00722 2326
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 7
FILE # 1
522
523
524
525
526
527
528 00723 7777 HALF, -1 /0 MEANS LEFT HALF
529 00724 0401 KPTR, KEYWRD
530
531 /GETKAR GETS NEXT 6-BIT CHAR, LEAVES IT IN AC
532 /TAKES RETURN 1 IF CHAR IS 0
533 /TAKES RETURN 2 OTHERWISE
534 /ABORTS BY IT SELF IF END OF TABLE (2 6-BITS)
535
536 00725 0000 GETKAR, 0
537 00726 3202 DCA TEMM
538 00727 2323 ISZ HALF
539 00730 5334 JMP RTHALF
540 00731 1724 TAD I KPTR
541 00732 7002 BSW
542 00733 5340 JMP INSIDE
543 00734 7240 RTHALF, STA
544 00735 3323 DCA HALF
545 00736 1724 TAD I KPTR
546 00737 2324 ISZ KPTR
547 00740 7450 INSIDE, SNA /IS IT END OF TABLE?
548 00741 5760 JMP I (PRQMRK /YES: ABORT TO KBM
549 00742 0367 AND (77
550 00743 7440 M340, SZA
551 00744 2325 ISZ GETKAR
552 00745 5725 JMP I GETKAR
553
554 00746 7710 NOCCL, SPA CLA /DON'T PRINT ON HANDLER ERROR
555 00747 5776 JMP I (MONLOD /GO BACK TO MON IF CCL NOT FOUND ON TECO EG COMMAND
556 00750 4757 JMS I (PRMES /PRINT ERROR MESSAGE OTHERWISE
557 00751 1617 .IF NDF GERMAN < TEXT /NO CCL! />
00752 4003
00753 0314
00754 4140
00755 0000
558 .IF DF GERMAN < TEXT /KEIN CCL/>
------
00757 0330
00760 1357
00761 7776
00762 7756
00763 7747
00764 0200
00765 7746
00766 7603
00767 0077
00770 0013
00771 0070
00772 7765
00773 0037
00774 0040
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 7-1
FILE # 1
00775 0777
00776 7605
00777 1000
559 1000 PAGE
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 8
FILE # 1
560
561
562
563
564
565
/ CCL OVERLAY TABLE V50 MACREL-V2C TUE 02-JUN-92 PAGE 9
SYMBOL TABLE
AMFLAG 0017 KEYMON 0403 TBLTBL 6100
BATBUF 4400 KEYWRD 0401 TEGO 0662
BATCCL 7777 KMNTRY 0400 TEKLDG 0602
BATERR 7000 KPTR 0724 TEMM 0602
BATIN 5400 LINPTR 0601 TESBUF 2000
BATOUT 7400 LONGTB 5000 TT 0021
BATSPL 7200 LXR 0034 USR 0200
BATTBL 6600 MATCH 0657 VNO 0400
BATVFY 5600 MDATE 7666 XFERV G 0070
BEGLN 1000 MIFILE 7617 XR 0016
BFR 3000 MMISC 7777 XR2 0015
CCLBLC 0674 MOFILE 7600
CCLBLK 0067 MONLOD 7605
CCLCCW 0703 MONSAV 7600
CCLDEV 0001 MORE 0613
CCLEN 0675 MPARAM 7643
CCLGO 0715 MREAD 7757
CCLHND 0000 MSOVL2 0055
CCLINC 0054 MYSYS 0705
CCLNHR 0676 M240 0625
CCLNUM 0265 M340 0743
CCLRDB 0705 M40 0650
CCLSTR 0704 NAME1 0023
CCLSV 0717 NAME2 0024
CCLSW 0435 NAME3 0025
CCLTAB 0265 NAME4 0026
CCLVER 0301 NAME5 0027
CLXR 0035 NMBASE 0037
CTRLCK 1241 NOCCL G 0746
DEASAD 0427 NOLET 0654
DEF 0022 NOMT 0647
DEFALT 0033 OS78BI 7771
DELIM 0032 OV 1375
DEV1 0030 PRMES 0330
DEV2 0031 PRQMRK 1357
DOLFLG 7776 PTR 0036
DVHNDL 7647 REMBLO 0065
ENTREE 0607 REMSPA 4000
ENTRY G 0600 RESHND G 0606
ERRET 0033 RESNUM G 0605
EXTTBL 6600 REST 5000
FILDMY 0002 RTHALF 0734
FILETB 7000 SBLOCK 7776
FLD: 0 0200 ASECT SCOPE 7726
FNLUP 0622 SHNDLR 7607
F0STUF 7200 SM8 6254
GETCCL 1362 SOFSET 7747
GETKAR 0725 SPLNUM 7777
GIOT 6770 SWSTBL 7360
GLINE 1200 SYBLKN 7774
HALF 0723 SYCNT 7775
HNDLR 4400 SYSTEM 0022
INSIDE 0740 T 0020
JSBITS 7746 TABLE0 1000 ASECT