diff --git a/software/BALGOL/BALGOL-Generator.bacg b/software/BALGOL/BALGOL-Generator.bacg index 1e3d737..92999af 100644 --- a/software/BALGOL/BALGOL-Generator.bacg +++ b/software/BALGOL/BALGOL-Generator.bacg @@ -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