1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-01-13 15:18:24 +00:00

Commit BALGOL-Generator transcription WIP; change string quote characters from "-" (how a 4-8 punch printed on some IBM 407 tabulators) to "'" (alternative for "@" with type-H printwheels).

This commit is contained in:
Paul Kimpel 2017-01-29 09:06:39 -08:00
parent dfcfe00e12
commit 44f685bb51

View File

@ -1,5 +1,5 @@
6 11 17 40 52 60
SEQ PLAC ADDR WORD LABEL OPCODE OPERAND
SEQ PLAC ADDR WORD LABEL OPCODE OPERAND ' IS A 4-8 PUNCH, PRINTS AS - (MINUS ZERO) ON 407
1 LOAD 0000
2 ON TAPE,1/4999
@ -51,7 +51,7 @@ SEQ PLAC ADDR WORD LABEL OPCODE OPERAND
48 0007 1 0000 12 0000 2 -ADD 0
49 0008 0 0001 21 0007 DBB 2B,1
50 0009 0 0000 36 0015 BZA 3F
51 0010 0 0040 09 2355 SPO R-CHECK SUM ERROR-
51 0010 0 0040 09 2355 SPO R'CHECK SUM ERROR'
52 0011 0 0001 58 0000 MPB 0,0
53 0012 0 0272 00 2720 HLT 2720,0272(44)
54 0013 0 0000 42 0007 LDB 2B
@ -92,7 +92,7 @@ SEQ PLAC ADDR WORD LABEL OPCODE OPERAND
89
90
91 THEBEGINNING
92 0046 0 0060 09 2349 SPO LRT-THECOMPILER GENERATOR-R
92 0046 0 0060 09 2349 SPO LRT'THE COMPILER GENERATOR'R
93 0047 0 1101 26 0051 IFL 20F/11,1
94 0048 0 1101 26 0049 IFL $+1/11,1
95 0049 0 0000 64 0051 CRI 20F,0
@ -101,59 +101,59 @@ SEQ PLAC ADDR WORD LABEL OPCODE OPERAND
98 0052 0 0008 50 0000 MRW 0
99 0053 0 0000 44 0115 21 DO SAN
54 0 0000 30 0107
100 0055 0 0010 18 2337 CFA -COMME-/00
100 0055 0 0010 18 2337 CFA 'COMME'/00
101 0056 0 0000 35 0134 BCE COMMENT
102 0057 0 0010 18 2411 CFA -COPYC-/00
102 0057 0 0010 18 2411 CFA 'COPYC'/00
103 0058 0 0000 35 0139 BCE COMPILERTAPEUNIT
104 0059 0 0010 18 2394 CFA -COMPI-/00
104 0059 0 0010 18 2394 CFA 'COMPI'/00
105 0060 0 0000 35 0268 BCE SETLOCN
106 0061 0 0010 18 2416 CFA -GENER-/00
106 0061 0 0010 18 2416 CFA 'GENER'/00
107 0062 0 0000 35 0290 BCE VERSION
108 0063 0 0010 18 2302 CFA -SETSC-/00
108 0063 0 0010 18 2302 CFA 'SETSC'/00
109 0064 0 0000 35 0144 BCE SETSCAN
110 0065 0 0010 18 2414 CFA -PRINT-/00
110 0065 0 0010 18 2414 CFA 'PRINT'/00
111 0066 0 0000 35 0161 BCE SETPRINTER
112 0067 0 0010 18 2293 CFA -VARIA-/00
112 0067 0 0010 18 2293 CFA 'VARIA'/00
113 0068 0 0000 35 0240 BCE VARIABLES
114 0069 0 0010 18 2340 CFA -CARDP-/00
114 0069 0 0010 18 2340 CFA 'CARDP'/00
115 0070 0 0000 35 0167 BCE SETPUNCH
116 0071 0 0010 18 2341 CFA -CARDR-/00
116 0071 0 0010 18 2341 CFA 'CARDR'/00
117 0072 0 0000 35 0172 BCE SETREADER
118 0073 0 0010 18 2410 CFA -MACHI-/00
118 0073 0 0010 18 2410 CFA 'MACHI'/00
119 0074 0 0000 35 0178 BCE SETSCRATCH
120 0075 0 0010 18 2420 CFA -CORRE-/00
120 0075 0 0010 18 2420 CFA 'CORRE'/00
121 0076 0 0000 35 0192 BCE SETCORRECTIONS
122 0077 0 0010 18 2393 CFA -MEMOR-/00
122 0077 0 0010 18 2393 CFA 'MEMOR'/00
123 0078 0 0000 35 0225 BCE SETSIZE
124 0079 0 0010 18 2397 CFA -PROCE-/00
124 0079 0 0010 18 2397 CFA 'PROCE'/00
125 0080 0 0000 35 0245 BCE SETPROCESSBIT
126 0081 0 0010 18 2335 CFA -POSIT-/00
126 0081 0 0010 18 2335 CFA 'POSIT'/00
127 0082 0 0000 35 0248 BCE SETUPFORPOSITIONFORWARD
128 0083 0 0010 18 2396 CFA -PUNCH-/00
128 0083 0 0010 18 2396 CFA 'PUNCH'/00
129 0084 0 0000 35 0260 BCE SETTHEPUNCHLIBRARYBIT
130 0085 0 0010 18 2381 CFA -SUPPR-/00
130 0085 0 0010 18 2381 CFA 'SUPPR'/00
131 0086 0 0000 35 0266 BCE THEREGOESTHEHALT
132 0087 0 0010 18 2365 CFA -DELET-/00
132 0087 0 0010 18 2365 CFA 'DELET'/00
133 0088 0 0000 35 0100 BCE WHATGOES
134 0089 0 0010 18 2440 CFA -INPUT-/00
134 0089 0 0010 18 2440 CFA 'INPUT'/00
135 0090 0 0000 35 0603 BCE INPUTMEDIA
136 0091 0 0010 18 2291 CFA -OUTPU-/00
136 0091 0 0010 18 2291 CFA 'OUTPU'/00
137 0092 0 0000 35 0767 BCE OUTPUTMEDIA
138 0093 0 0010 18 2310 CFA -FINIS-/00
138 0093 0 0010 18 2310 CFA 'FINIS'/00
139 0094 0 0000 35 0387 BCE FINIS
140 STATEMENTERROR
141 0095 0 0050 09 2382 SPO R-INCORRECT STATEMENT-RRIII
141 0095 0 0050 09 2382 SPO R'INCORRECT STATEMENT'RRIII
142 0096 0 0160 09 1778 SPO INPUT,16
143 0097 0 0010 09 2342 SPO RRRRR--
143 0097 0 0010 09 2342 SPO RRRRR''
144 0098 0 1370 00 7310 HLT 7310,1370(44)
145 0099 0 0000 30 0098 BUN $-1
146
147
148 0100 0 0000 44 0115 WHATGOES DO SCAN
0101 0 0000 30 0107
149 0102 0 0010 18 2374 CFA -EOUTP-/00
149 0102 0 0010 18 2374 CFA 'EOUTP'/00
150 0103 0 0000 35 0364 BCE OUTPUTFORMATS
151 0104 0 0010 18 2418 CFA -EINPU-/00
151 0104 0 0010 18 2418 CFA 'EINPU'/00
152 0105 0 0000 35 0360 BCE INPUTFORMATS
153 0106 0 0000 30 0095 BUN STATEMENTERROR
154
@ -276,7 +276,7 @@ SEQ PLAC ADDR WORD LABEL OPCODE OPERAND
262 0200 1 0000 12 1533 12 -ADD CDR+6
263 0201 0 0001 21 0200 DBB 12B,1
264 0202 0 0000 36 0206 BZA $+4
265 0203 0 0060 09 2434 SPO R-ERRONEOUS CORRECTION CARD-
265 0203 0 0060 09 2434 SPO R'ERRONEOUS CORRECTION CARD'
266 0204 0 9669 00 9669 HLT 9669,9669(44)
267 0205 0 0000 30 0204 BUN $-1
268
@ -304,8 +304,624 @@ SEQ PLAC ADDR WORD LABEL OPCODE OPERAND
290 0225 0 0000 44 0350 SETSIZE DO BASICNUMSCAN
0226 0 0000 30 0337
291 0227 0 0200 36 0231 BFA 1F/02,00
292 SPO R-MEMORY SIZE MUST BE GIVEN AS A MULTIPLE- ...
293 0228 0 0120 09 2422 - OF ONE HUNDRED-RRRI
292 SPO R'MEMORY SIZE MUST BE GIVEN AS A MULTIPLE' ...
293 0228 0 0120 09 2422 ' OF ONE HUNDRED'RRRI
294 0229 0 1370 00 7310 HLT 7310,1370(44)
295 0230 0 0000 30 0229 BUN $-1
296 0231 0 0000 12 2443 1 ADD =9999=
297 0232 0 8210 40 0239 STA RELOCATION/82
298 0233 0 0000 01 0134 OSWITCH NOP COMMENT
299 0234 0 0410 40 2459 3 STA TBL+11/04
300 0235 0 0000 12 2445 ADD =1=
301 0236 0 0410 40 2457 STA TBL+9/04
302 0237 0 0410 40 4240 STA FIX/04
303 0238 0 0000 30 0134 BUN COMMENT
304 0239 0 0000 00 4900 RELOCATION (4900)
305
306
307 0240 0 0000 44 0350 VARIABLES DO BASICNUMSCAN
0241 0 0000 30 0337
308 0242 0 0000 12 2443 ADD =9999=
309 0243 0 6229 26 0233 IFL OSWITCH/62,29
310 0244 0 0000 30 0234 BUN 3B
311
312
313 SETPROCESSBIT
314 0245 0 0501 26 0247 IFL PROCESSBIT/05,1
315 0246 0 0000 30 0134 BUN COMMENT
316 0247 0 0000 00 0000 PROCESSBIT (0)
317
318
319 SETUPFORPOSITIONFORWARD
320 0248 0 0000 44 0350 DO BASICNUMSCAN
0249 0 0000 30 0337
321 0250 0 0000 40 0256 STA COUNT
322 0251 0 0410 40 0259 STA 2F/04
323 0252 0 0000 42 2279 LDB =1F=
324 0253 0 0000 44 0385 DO EXTENDTABLE
0254 0 0000 30 0376
325 0255 0 0000 30 0134 BUN COMMENT
326 0256 0 0000 00 0000 COUNT (0)
327 0257 0 0000 00 0002 1 (2(04))
328 0258 0 0000 84 0081 ((POSCT/100)(04)+(POSCT//100)(64))
329 0259 0 0000 01 0000 2 NOP
330
331
332 SETTHEPUNCHLIBRARYBIT
333 0260 0 0001 26 0265 IFL THEPUNCHLIBRARYBIT/00,1
334 0261 0 0000 44 0350 DO BASICNUMSCAN
0262 0 0000 30 0337
335 0263 0 0000 40 3505 STA 3500+(NUMBEROFWORDS//100)(02)
336 0264 0 0000 30 0134 BUN COMMENT
337 THEPUNCHLIBRARYBIT
338 0265 0 0000 00 0000 (0)
339
340
341 THEREGOESTHEHALT
342 0266 0 4201 26 2461 IFL TBL+13/42,1
343 0267 0 0000 30 0134 BUN COMMENT
344
345
346 0268 0 0000 44 0350 SETLOCN DO BASICNUMSCAN
0269 0 0000 30 0337
347 0270 0 0410 40 0283 STA 2F/04
348 0271 0 0410 40 4241 STA FIX+1/04
349 0272 0 0410 40 0285 STA 4F/04
350 0273 0 0401 27 0285 DFL 4F/04,1
351 0274 0 0000 49 0004 SLA 4
352 0275 0 6410 40 0287 STA 6F/64
353 0276 0 6410 40 0289 STA 8F/64
354 0277 0 0000 42 2282 LDB =1F=
355 0278 0 0000 44 0385 DO EXTENDTABLE
0279 0 0000 30 0376
356 0280 0 0000 30 0134 BUN COMMENT
357 0281 0 0000 00 0008 1 (8)
358 0282 0 0000 74 0052 ((LODOX/100)(04)+(LODOX//100)(64))
359 0283 0 0000 30 0000 2 BUN 0
360 0284 0 0000 27 0052 ((ZERO/100)(04)+(ZERO//100)(64))
361 0285 0 0000 29 0000 4 RTF 0,00
362 0286 0 0000 21 0042 (((LOCN+4)/100)(04)+((LOCN+4)//100)(64))
363 0287 0 0000 00 0000 6 (0)
364 0288 0 0000 32 0016 ((IMAGE)/100)(04)+((IMAGE)//100)(64)
365 0289 2 0000 00 0000 8 (20000000000)
366
367
368 0290 0 0000 44 0115 VERSION DO SCAN
0291 0 0000 30 0107
369 0292 0 0010 18 2419 CFA 'ATEST'/00
370 0293 0 0000 35 0134 BCE COMMENT
371 0294 0 0010 18 2338 CFA 'ATEPA'/100
372 0295 0 0000 35 0308 BCE PTVER
373 0296 0 0010 18 2360 CFA 'ATEHS'/100
374 0297 0 0000 35 0299 BCE HSPVER
375 0298 0 0000 30 0095 BUN STATEMENTERROR
376
377 0299 0 0000 42 2287 HSPVER LDB =1F=
378 0300 0 0000 44 0385 DO EXTENDTABLE
0301 0 0000 30 0376
379 0302 0 0000 30 0134 BUN COMMENT
380 0303 0 0000 00 0004 1 (4)
381 0304 0 0000 17 0045 ((HDNG/100)(04)+(HDNG//100)(64)
382 0305 0 0000 67 4517 HPI HDNG
383 0306 0 0000 22 0045 (((HDNG+5)/100)(04)+((HDNG+5)//100)(64))
384 0307 4 4523 30 9898 4BUN 9898,(HDNG+6)(44)
385
386
387 0308 0 0000 42 2288 PTVER LDB =1F=
388 0309 0 0000 44 0385 DO EXTENDTABLE
0310 0 0000 30 0376
389 0311 0 0000 30 0134 BUN COMMENT
390
391 DJ 00
392 0312 0 0000 00 0024 1 (24)
393 0313 3 0000 35 0061 3J (NUMB/100)(04)+(NUMB//100)(64)
394 0314 1 0408 27 1677 -DFL IA/04,8
395 0315 3 0000 36 0061 3J ((NUMB+1)/100)(04)+((NUMB+1)//100)(64)
396 0316 1 0414 26 1677 -IFL IA/04,14
397 0317 3 0000 37 0061 3J ((NUMB+2)/100)(04)+((NUMB+2)//100)(64)
398 0318 1 0409 27 1677 -DFL IA/04,9
399 0319 3 0000 42 0061 3J ((NUMB+7)/100)(04)+((NUMB+7)//100)(64)
400 0320 1 0414 26 1677 -IFL IA/04,14
401 0321 3 0000 43 0061 3J ((NUMB+8)/100)(04)+((NUMB+8)//100)(64)
402 0322 1 0408 27 1677 -DFL IA/04,8
403 0323 3 0000 47 0061 3J ((NUMB+12)/100)(04)+((NUMB+12)//100)(64)
404 0324 1 0414 26 1677 -IFL IA/04,14
405 0325 3 0000 67 0079 3J ((LOD2+40)/100)(04)+((LOD2+40)//100)(64)
406 0326 1 4209 27 1677 -DFL IA/42,09
407 0327 3 0000 94 0079 3J ((LOD2+67)/100)(04)+((LOD2+67)//100)(64)
408 0328 1 0409 27 1677 -DFL IA/04,9
409 0329 3 0000 96 0079 3J ((LOD2+69)/100)(04)+((LOD2+69)//100)(64)
410 0330 1 0409 27 1677 -DFL IA/04,9
411 0331 3 0000 98 0079 3J ((LOD2+71)/100)(04)+((LOD2+71)//100)(64)
412 0332 1 0409 27 1677 -DFL IA/04,9
413 0333 3 0000 00 0080 3J ((LOD2+73)/100)(04)+((LOD2+73)//100)(64)
414 0334 1 0409 27 1677 -DFL IA/04,9
415 0335 3 0000 24 0080 3J ((LOD2+97)/100)(04)+((LOD2+97)//100)(64)
416 0336 1 4209 27 1677 -DFL IA/42,9
417
418
419 BASICNUMSCAN.1
420 0337 0 0000 44 0125 DO CHARACTER
0338 0 0000 30 0117
421 0339 0 9108 36 0341 BFA 1F/91,8
422 0340 0 0000 30 0117 BUN CHARACTER.1
423 0341 0 0000 46 0351 1 CLL NUMBER
424 0342 0 0001 48 0001 2 SRT 1
425 0343 0 0000 10 0351 CAD NUMBER
426 0344 0 0001 49 0001 SLT 1
427 0345 0 0000 40 0351 STA NUMBER
428 0346 0 0000 44 0125 DO CHARACTER
0347 0 0000 30 0117
429 0348 0 9108 36 0342 BFA 2B/91,8
430 0349 0 0000 10 0351 CAD NUMBER
431 BASICNUMSCAN
432 0350 0 0000 30 0350 BUN BASICNUMSCAN
433 0351 0 0000 00 0000 NUMBER (0)
434
435
436 TAPENUMSCAN.1
437 0352 0 0000 44 0350 DO BASICNUMSCAN
0353 0 0000 30 0337
438 0354 0 0000 49 0002 SLA 2
439 0355 0 0000 40 1676 STA HOLD0
440 0356 0 0000 44 0350 DO BASICNUMSCAN
0357 0 0000 30 0337
441 0358 0 0000 12 1676 ADD HOLD0
442 TAPENUMSCAN
443 0359 0 0000 30 0359 BUN TAPENUMSCAN
444
445
446 INPUTFORMATS
447 0360 0 0000 44 0350 DO BASICNUMSCAN
0361 0 0000 30 0337
448 0362 0 0000 12 2444 ADD =2=
449 0363 0 0000 30 0366 BUN 1F
450
451
452 OUTPUTFORMATS
453 0364 0 0000 44 0350 DO BASICNUMSCAN
0365 0 0000 30 0337
454 0366 0 0000 40 1675 1 STA HOLD
455 0367 0 0000 42 1675 LDB HOLD
456 0368 1 0000 42 0372 -LDB 2F
457 0369 0 0000 44 0385 DO EXTENDTABLE
0 0000 30 0376
458 0 0000 30 0134 BUN COMMENT
459 0 0000 00 1645 2 F1,F2,F3,F4
0 0000 00 1658
0 0000 00 1657
0 0000 00 1672
460
461
462 EXTENDTABLE.1
463 0376 1 0000 10 0000 -CAD 0
464 0377 0 0412 40 0384 STB 1F/04
465 0378 0 0401 26 0384 IFL 1F/04,1
466 0379 0 0000 42 0386 LDB KP
467 0380 0 0000 19 0386 ADL KP
468 0381 0 0000 19 0223 ADL K
469 0382 0 0000 49 0007 SLA 7
470 0383 0 3210 40 0384 STA 1F/32
471 0384 0 0000 29 0000 1 RTF 0,0
472 EXTENDTABLE
473 0385 0 0000 30 0385 BUN EXTENDTABLE
474 0386 0 0000 00 2462 KP (TBL+14)
475
476
477 0387 0 0000 41 1520 FINIS LDR COMPILER
478 0388 0 3211 40 0389 STR $+1/32
479 0389 0 2008 50 0000 MRW 2
480 0390 0 1000 38 0392 BCS $+2,1
481 0391 0 6202 26 1424 IFL W.1/62,02
482 0392 0 0004 45 0000 CLB
483 0393 1 0000 41 2448 2 -LDR TBL
484 0394 0 0811 18 2454 CFR TBL+6/08
485 0395 0 0099 37 0403 BFR 1F/00,99
486 0396 0 0001 35 0402 BCU 2F
487 0397 1 0000 10 2449 -CAD TBL+1
488 0398 0 1200 37 0401 BFR $+3/12,00
489 0399 0 0000 12 0239 ADD RELOCATION
490 0400 0 0000 13 2421 SUB =4900=
491 0401 0 0000 40 0224 STA MAMAXP
492 0402 0 0002 20 0393 2 IBB 2B,2
493
494 0403 0 0000 10 0224 1 CAD MAMAXP
495 0404 0 0000 13 0616 SUB IK
496 0405 0 0000 40 0224 STA MAMAXP
497 0406 0 0000 12 2445 ADD =1=
498 0407 0 0000 40 0602 STA REL
499 0408 0 0000 40 0991 STA IREL
500 0409 0 0000 13 0239 SUB RELOCATION
501 0410 0 0000 12 2299 ADD =5100=
502 0411 0 0000 49 0008 SLA 8
503 0412 0 0001 48 0002 SRT 2
504 0413 0 0000 48 0004 SRA 4
505 0414 0 0001 48 0008 SRT 8
506 0415 0 0000 10 0616 CAD IK
507 0416 0 0000 12 2300 ADD =((ITBL**10000)-1)=
508 0417 0 0000 44 0601 DO PUTINTABLE
0418 0 0000 30 0573
509
510 0419 0 0000 10 0224 1 CAD MAMAXP
511 0420 0 0000 13 0780 SUB OK
512 0421 0 0000 40 0224 STA MAMAXP
513 0422 0 0000 12 2445 ADD =1=
514 0423 0 0000 40 0602 STA REL
515 0424 0 0000 40 0992 STA OREL
516 0425 0 0000 13 0239 SUB RELOCATION
517 0426 0 0000 12 2299 ADD =5100=
518 0427 0 0000 49 0008 SLA 8
519 0428 0 0001 48 0002 SRT 2
520 0429 0 0000 48 0004 SRA 4
521 0430 0 0001 48 0008 SRT 8
522 0431 0 0000 10 0780 CAD OK
523 0432 0 0000 12 2294 ADD =((OTBL**10000)-1)=
524 0433 0 0000 44 0601 DO PUTINTABLE
0434 0 0000 30 0573
525 0435 0 0000 41 0224 LDR MAMAXP
526 0436 0 0001 40 0443 STR 2F
527 0437 0 0000 42 2290 LDB =1F=
528 0438 0 0000 44 0385 DO EXTENDTABLE
0439 0 0000 30 0376
529 0440 0 0000 30 0444 BUN 0F
530 0441 0 0000 00 0002 1 (2)
531 0442 0 0000 31 0042 (((MAMAX+4)/100)(04)+((MAMAX+4)//100)(64))
532 0443 0 0000 00 0000 2 (0)
533
534 0444 0 0000 42 0256 0 LDB COUNT
535 0445 0 9999 20 0448 1 IBB MRD,-1
536 0446 0 2100 58 0000 MPF 2,1
537 0447 0 0000 30 0445 BUN 1B
538
539 0448 0 0101 52 1677 MRD MNC IA,0,1
540 0449 0 0001 42 2412 LBC =798=
541 0450 0 0000 10 1519 1 CAD BLCT
542 0451 1 0410 18 3246 -CFA TBL+798/04
543 0452 0 0000 35 0496 BCE 3F
544 0453 0 0002 20 0450 25 IBB 1B,2
545
546 0454 0 0000 42 2297 LDB =99=
547 0455 1 0001 10 1677 97 -CAA IA
548 0456 0 0000 44 0931 STP IO.1
549 0457 0 0004 33 0932 BSA IO,4
550 0458 0 0001 21 0455 98 DBB 97B,1
551
552 0459 0 0000 42 1519 LDB BLCT
553 0460 1 0000 10 2157 -CAD SUMTBL
554 0461 0 0410 40 0471 STA 2F/04
555 0462 0 0002 48 0004 SRS 4
556 0463 0 0410 40 0467 STA 4F/04
557 0464 0 0000 40 1676 STA HOLD0
558 0465 0 6400 28 1676 DLB HOLD0/64
559 0466 0 0001 45 0000 CLA
560 0467 1 0000 13 0000 4 -SUB 0
561 0468 0 0001 21 0467 DBB 4B,1
562 0469 0 0000 12 1777 ADD IA+100
563 0470 0 0000 46 1777 CLL IA+100
564 0471 0 0000 40 0000 2 STA 0
565 0472 0 0000 31 0473 BOF $+1
566
567 0473 0 0000 42 2323 MOW LDB =IA=
568 0474 0 0000 44 1448 DO W
0475 0 0000 30 1424
569 0476 0 0401 26 1519 IFL BLCT/04,1
570 0477 0 0000 10 1519 CAD BLCT
571 0478 0 0410 18 2289 CFA =52=/04
572 0479 0 0000 35 0483 BCE 5F
573 0480 0 0410 18 2295 CFA =83=/04
574 0481 0 0000 34 0516 BCH 6F
575 0482 0 0000 30 0448 BUN MRD
576
577 0483 0 2201 58 0000 5 MPB 2,2
578 0484 0 2200 52 4800 MRD 4800,2,2
579 0485 0 0000 46 1777 CLL IA+100
580 0486 0 0000 46 4800 CLL 4800
581 0487 0 0000 42 2317 LDB =199=
582 0488 0 0001 45 0000 CLA
583 0489 1 0000 13 4800 -SUB 4800
584 0490 0 0001 21 0489 DBB $-1,1
585 0491 0 0000 40 4800 STA 4800
586 0492 0 2201 58 0000 MPB 2,2
587 0493 0 2200 56 4800 MOW 4800,2,2
588 0494 0 0300 58 0000 MPF 0,3
589 0495 0 0000 30 0448 BUN MRD
590
591 0496 1 0000 10 3247 3 -CAD TBL+799
592 0497 1 0000 41 3246 -LDR TBL+798
593 0498 0 0002 40 1676 STB HOLD0
594 0499 1 6400 28 3246 -DLB TBL+798/64
595 0500 0 1230 37 0512 BFR 33F/12,30
596 0501 1 0000 40 1677 -STA IA
597 0502 0 1220 37 0510 BFR 30F/12,20
598 0503 0 1200 37 0508 BFR $+5/12,00
599 0504 0 0000 43 0000 LSA 0
600 0505 0 0000 12 0239 ADD RELOCATION
601 0506 0 0000 13 2421 SUB =4900=
602 0507 1 0410 40 1677 -STA IA/04
603 0508 0 0000 42 1676 LDB HOLD0
604 0509 0 0000 30 0453 BUN 25B
605 0510 0 1001 03 1677 30 PRD IA,1,100
606 0511 0 0000 30 0508 BUN $-3
607 0512 0 0000 40 0513 33 STA $+1
608 0513 0 0000 00 0000 HLT
609 0514 0 0000 42 1676 RETURN LDB HOLD0
610 0515 0 0000 30 0453 BUN 25B
611
612 0516 0 4400 28 0519 6 DLB 5F/44,0
613 0517 1 0000 29 9500 1 -RTF 9500
614 0518 0 1101 27 0520 DFL $+2/11,1
615 0519 0 4500 32 0517 5 BRP 1B,4500(44)
616 0520 0 3000 42 0247 LDB PROCESSBIT,3(11)
617 0521 0 0001 21 0993 DBB THELIBRARYPROCESSOR,1
618
619 0522 0 0100 52 1677 1 MRD IA,0,1
620 0523 0 0000 42 2323 LDB =IA=
621 0524 0 0000 44 1448 DO W
0525 0 0000 30 1424
622 0526 0 0000 10 1677 CAD IA
623 0527 0 0000 18 2277 CFA =99999999999=
624 0528 0 0001 35 0522 BCU 1B
625
626
627 0529 0 1000 38 0531 CRDUMP.1 BCS $+2,1
628 0530 0 6202 26 0540 IFL 15F/62,02
629 0531 0 3000 42 2323 3 LDB =IA=,3(11)
630 0532 0 0000 29 4500 2 RTF 4500,00
631 0533 0 0000 42 2297 LDB =99=
632 0534 1 0001 10 1677 9 -CAA IA
633 0535 0 0000 44 0931 STP IO.1
634 0536 0 0004 33 0932 BSA IO,4
635 0537 0 0005 33 0932 BSA IO,5
636 0538 0 0001 21 0534 DBB 9B,1
637 0539 0 0000 42 2323 LDB =IA=
638 0540 1 2100 54 0000 15 -MIW 0,2,1
639 0541 0 0001 26 1449 IFL THECOUNT/00,1
640 0542 0 8181 26 0532 IFL 2B/81,1
641 0543 0 1101 27 0531 DFL 3B/11,1
642 0544 0 0000 32 0531 BRP 3B
643 0545 0 0000 30 0546 CRDUMP BUN $+1
644
645
646 ENDOFGENERATION
647 0546 0 0070 09 2324 SPO R'END OF GENERATION OF THE COMPILER'R
648 0547 0 0008 50 0000 MRW 0
649 0548 0 0000 10 1449 CAD THECOUNT
650 0549 0 0001 48 0004 SRT 4
651 0550 0 0001 45 0000 CLA
652 0551 0 3000 49 0001 1 SLA 1,3(11)
653 0552 0 1109 26 0551 IFL $-1/11,9
654 0553 0 0000 12 2269 ADD =8=
655 0554 0 0001 49 0001 SLT 1
656 0555 0 0000 31 0551 BOF 1B
657 0556 0 0002 43 0000 LSA 2
658 0557 0 0000 40 1675 STA HOLD
659 0558 0 0010 09 1675 SPO HOLD,1
660 0559 0 0040 09 2345 SPO ' BLOCKS ON UNIT 2 'RR
661 0560 0 0000 41 1520 LDR COMPILER
662 0561 0 3211 40 0562 STR $+1/32
663 0562 0 3008 50 0000 MRW 2
664 0563 0 0000 42 0265 LDB THEPUNCHLIBRARYBIT
665 0564 0 9999 30 0571 IBB 1F,-1
666 0565 0 0000 42 2446 RELOCATE LDB =1000=
667 0566 0 8181 26 0567 5 IFL $+1/81,1
668 0567 0 0000 29 3400 RTF 3400,00
669 0568 0 1101 27 0570 DFL 6F/11,1
670 0569 0 0000 32 0566 BRP 5B
671 0570 0 4000 30 1028 6 BUN READY,4(11)
672 0571 0 0757 00 7250 1 HLT 7250,757(44)
673 0572 0 0000 30 0571 BUN $-1
674
675
676 PUTINTABLE.1
677 0573 0 0000 40 3249 STA TEMP1
678 0574 0 0001 40 3250 STR TEMP2
679 0575 0 0000 42 0386 1 LDB KP
680 0576 0 0000 41 3250 LDR TEMP2
681 0577 1 0001 40 0000 -STR 0
682 0578 0 6400 28 3249 DLB TEMP1/64,0
683 0579 1 0001 10 0000 -CAA
684 0580 0 0000 33 0587 BSA $+7,8
685 0581 0 0006 33 0584 BSA $+3,6
686 0582 1 0000 10 0000 -CAD 0
687 0583 0 0000 30 0591 BUN $+8
688 0584 0 0001 48 0006 SRT 6
689 0585 0 0000 12 0602 ADD REL
690 0586 0 0001 49 0006 SLT 6
691 0587 0 0000 12 0602 ADD REL
692 0588 1 0010 40 0000 -STA 0/00
693 0589 0 0001 45 0000 CLA
694 0590 1 0000 12 0000 -ADD 0
695 0591 0 0000 42 0386 LDB KP
696 0592 1 0000 40 0001 -STA 1
697 0593 0 6401 26 3249 IFL TEMP1/64,1
698 0594 0 6201 26 3250 IFL TEMP2/62,1
699 0595 0 0402 26 0386 IFL KP/04,2
700 0596 0 0401 27 3249 DFL TEMP1/04,1
701 0597 0 0000 31 0599 BOF $+2
702 0598 0 0000 30 0600 BUN $+2
703 0599 0 0401 26 3250 IFL TEMP2/04,1
704 0600 0 0000 32 0575 BRP 1B
705 0601 0 0000 30 0601 PUTINTABLE BUN PUTINTABLE
706 0602 0 0000 00 0000 REL (0)
707
708
709 0603 0 0000 41 0051 INPUTMEDIA LDR 20B
710 0604 0 1111 40 0607 STR 1F/11
711 0605 0 1111 40 0614 STR 2F/11
712 0606 0 0000 46 0616 CLL IK
713 0607 0 0011 60 1539 1 CNCL CDR+12,0
714 0608 0 0000 10 1527 CAD CDR
715 0609 0 0002 33 0134 BSA COMMENT,2
716 0610 0 0000 10 1536 CAD CDR+9
717 0611 0 0001 26 0616 IFL IK/00,1
718 0612 0 0000 42 0616 LDB IK
719 0613 1 0000 40 0616 -STA ITBL-1
720 0614 0 0000 60 1539 2 CNC CDR+12,0
721 0615 0 0000 30 0607 BUN 1B
722 0616 0 0000 00 0006 IK (6)
723 0617 0 0000 01 0000 ITBL NOP
724 0618 8 0000 42 0000 8LDB ($-1)-ITBL
725 0619 8 0412 40 0005 8STB (1F)-ITBL/04
726 0620 1 4400 28 9999 -DLB -1/44
727 0621 1 1010 60 0015 UNIT1 -CNC 15,1
728 0622 0 0000 30 0622 1 BUN $
729 ORIGIN ITBL+150
730
731
732 OUTPUTMEDIA
733 0767 0 0000 41 0051 LDR 20B
734 0768 0 1111 40 0771 STR 1F/11
735 0769 0 1111 40 0778 STR 2F/11
736 0770 0 0000 46 0780 CLL OK
737 0771 0 0011 60 1539 1 CNCL CDR+12,0
738 0772 0 0000 10 1527 CAD CDR
739 0773 0 0002 33 0134 BSA COMMENT,2
740 0774 0 0000 10 1536 CAD CDR+9
741 0775 0 0001 26 0780 IFL OK/00,1
742 0776 0 0000 42 0780 LDB OK
743 0777 1 0000 40 0780 -STA OTBL-1
744 0778 0 0010 60 1539 2 CNC CDR+12,0
745 0779 0 0000 30 0771 BUN 1B
746 0780 0 0000 00 0013 OK (13)
747 0781 0 0000 01 0000 OTBL NOP
748 0782 8 0000 42 0000 8LDB ($-1)-OTBL
749 0783 8 0412 40 0012 8STB (1F)-OTBL/04
750 0784 1 0000 10 9999 -CAD -1
751 0785 0 0000 48 0006 SRA 6
752 0786 8 0410 40 0011 8STA (2F)-OTBL/04
753 0787 1 0000 10 9998 -CAD -2
754 0788 8 4210 40 0011 8STA (2F)-OTBL/42
755 0789 0 0000 48 0008 SRA 8
756 0790 0 0000 13 4100 SUB XONE+1
757 0791 8 0000 19 0011 8ADL (2F)-OTBL
758 UNIT2 IS $+1
759 0792 0 2009 61 0000 2 CWR 0,2,0
760 0793 0 0000 30 0793 1 BUN $
761 ORIGIN OTBL+150
762
763
764
765 98 IS IO.1
766 0931 0 0000 30 0931 IO.1 BUN IO.1
767 0932 0 6260 36 0947 IO BFA CRD/62,60
768 0933 0 6262 36 0947 BFA CRD/62,62
769 0934 0 6264 36 0947 BFA CRD/62,64
770 0935 0 6261 36 0952 BFA CWR/62,61
771 0936 0 6263 36 0952 BFA CWR/62,63
772 0937 0 6265 36 0952 BFA CWR/62,65
773 0938 0 6250 36 0961 BFA UNITLANE/62,50
774 0939 0 5105 36 0974 BFA TAPE/51,5
775 0940 0 6244 36 0983 BFA STPBUN/62,44
776 0941 0 6230 36 0983 BFA STPBUN/62,30
777 0942 0 0000 30 0931 BUN 98B
778
779
780 0943 0 0001 45 0000 99 CLA
781 0944 1 0000 12 1677 -AD IA
782 0945 1 0000 40 1677 -STA IA
783 0946 0 0000 30 0931 BUN 98B
784
785
786 0947 0 1101 36 0949 CRD BFA $+2/11,1
787 0948 0 0000 30 0931 BUN 98B
788 0949 0 0000 10 1823 CAD READER
789 0950 1 1110 40 1677 -STA IA/11
790 0951 0 0000 30 0943 BUN 99B
791
792 0952 0 1101 36 0958 CWR BFA 1F/11,1
793 0953 0 1102 36 0955 BFA $+2/11,2
794 0954 0 0000 30 0931 BUN 98B
795 0955 0 0000 10 1801 CAD PRINTER
796 0956 1 1110 40 1677 -STA IA/11
797 0957 0 0000 30 0943 BUN 99B
798 0958 0 0000 10 1803 1 CAD PUNCH
799 0959 1 1110 40 1677 -STA IA/11
800 0960 0 0000 30 0943 BUN 99B
801
802
803 0961 0 1101 36 0964 UNITLANE BFA 1F/11,1
804 0962 0 1102 36 0970 BFA 2F/11,2
805 0963 0 0000 30 0931 BUN 98B
806 0964 0 0000 41 1827 1 LDR SCRATCHML
807 0965 0 3100 36 0967 BFA $+2/31,0
808 0966 0 0000 41 1828 LDR SCRATCHDUMP
809 0967 1 3311 40 1677 -STR IA/33
810 0968 0 4100 36 0931 BFA 98B/41,0
811 0969 0 0000 30 0943 BUN 99B
812 0970 0 0000 41 1520 2 LDR COMPILER
813 0971 1 3311 40 1677 -STR IA/33
814 0972 0 4100 36 0931 BFA 98B/41,0
815 0973 0 0000 30 0943 BUN 99B
816
817
818 0974 0 1101 36 0977 TAPE BFA 1F/11,1
819 0975 0 1102 36 0980 BFA 2F/11,2
820 0976 0 0000 30 0931 BUN 98B
821 0977 0 0000 41 1827 1 LDR SCRATCHML
822 0978 1 1111 40 1677 -STR IA/11
823 0979 0 0000 30 0943 BUN 99B
824 0980 0 0000 41 1520 2 LDR COMPILER
825 0981 1 1111 40 1677 -STR IA/11
826 0982 0 0000 30 0943 BUN 99B
827
828
829 0983 0 0498 36 0986 STPBUN BFA 1F/04,98
830 0984 0 0499 36 0988 BFA 2F/04,99
831 0985 0 0000 30 0931 BUN 98B
832 0986 0 0000 41 0992 1 LDR OREL
833 0987 0 0000 30 0989 BUN $+2
834 0988 0 0000 41 0991 2 LDR IREL
835 0989 1 0411 40 1677 -STR IA/04
836 0990 0 0000 30 0943 BUN 99B
837 0991 0 0000 00 0000 IREL (0)
838 0992 0 0000 00 0000 OREL (0)
839
840
841 THELIBRARYPROCESSOR
842 0993 0 0080 09 2366 SPO R'THE LIBRARY PROCESSOR'RRR'ROUTINE NAME'R
843 0994 0 0001 58 0000 MPB 0,10
844 0995 0 0001 58 0000 MPB 0,10
845 0996 0 0001 58 0000 MPB 0,10
846 0997 0 0501 58 0000 MPB 0,5
847 0998 0 0300 52 3996 MRD 3996,0,3
848 0999 0 0000 42 1001 LDB $+2
849 1000 0 0010 29 2265 RTF =0=,1
850 1001 0 0990 29 1857 RTF LIBRARYTABLE,99
851 1002 0 0000 20 1857 RTF LIBRARYTABLE,100
852 1003 0 3000 29 1857 RTF LIBRARYTABLE,100,3(11)
853 1004 0 1101 27 1003 DFL $-1/11,1
854 1005 0 0000 42 2417 LDB =LIBRARYTABLE=
855 1006 0 0000 44 1448 DO W
1007 0 0000 30 1424
856 1008 0 0000 32 1004 BRP $-4
857 1009 0 0000 44 1192 RDSTP RDEX
858 1010 0 0000 30 1184 BUN RDE
859 1011 0 0002 33 1015 BSA RDP,2
860 1012 0 0040 09 2331 SPO R'MISSING NAME CARD'II
861 1013 0 1370 00 7310 HLT 7310,1370(44)
862 1014 0 0000 30 1013 BUN $-1
863 1015 0 0000 44 1211 RDP STP SCANX
864 1016 0 0000 30 1193 BUN SCAN1
865 1017 0 0000 10 1829 CAD SYMBOL
866 1018 0 0010 18 2310 CFA 'FINIS'/00
867 1019 0 0001 35 1023 BCU $+4
868 1020 0 0000 10 1830 CAD SYMBOL+1
869 1021 0 0010 18 2413 CFA 'H'/00
870 1022 0 0000 35 1340 BCE DONE
871 1023 0 0000 44 1289 STP SYMBOLINSERTX
872 1024 0 0000 30 1275 BUN SYMBOLINSERT
873 1025 0 0010 09 2415 SPO ''RIIII
874 1026 0 0020 09 1829 SPO SYMBOL,2
875 1027 0 0401 26 1797 IFL LIBRARYINDEX/04,1
876 1028 0 0000 10 1797 CAD LIBRARYINDEX
877 1029 0 0000 49 0006 SLA 6
878 1030 0 0000 40 3251 STA WRITEBUFFER
879 1031 0 0000 42 1797 LDB LIBRARYINDEX
880 1032 0 0000 10 1795 CAD L
881 1033 1 6410 40 1857 -STA LIBRARYTABLE/64
882 1034 0 0000 44 1211 STP SCANX
883 1035 0 0000 30 1193 BUN SCAN1
884 1036 0 6512 40 1825 STB RR2/65
885 1037 0 0000 46 1826 CLL RR3
886 1038 0 0103 26 1826 IFL RR3/01,3
887 1039 0 0000 10 1829 CAD SYMBOL