1 /DISASSEMBLY PROGRAM; SA = 200 2 /ASR33 TELETYPE TAPE READER. 3 /CONSTANTS & PROGRAM INTERTIES ON PAGE 0. 4 5 BINDX=16 /BUFFER INDEX 6 AINDX=17 /ADDRESS INDEX 7 8 *20 9 00020 0000 OCT, 0 /OCTAL STORAGE 10 00021 0000 ADRF, 0 /ADDR. FINDER 11 00022 7774 CN4, 0-4 12 00023 0007 M7, 7 13 00024 7000 M777, 7000 14 00025 0377 M377, 377 15 00026 0000 ADC, 0 /ADDR. FINDER 16 00027 1244 BEG, OUT 17 00030 7776 CN2, 0-2 18 00031 0077 M77, 77 19 00032 0240 C240, 240 20 00033 0311 POCT, SOCT /TIE TO PRINT OCT SUBR. 21 00034 0000 TEMP, 0 22 00035 0000 CNTR, 0 23 00036 0002 C2, 2 24 00037 0004 C4, 4 25 00040 0010 C10, 10 26 00041 0710 PROP, SROP /TIE WITH PRINT OPR. CODE SUBR. 27 00042 0743 PRT, SRT /TIE WITH PRINT ON TELE SUBR. 28 00043 7775 CN3, 0-3 29 00044 0156 STI, STEP 30 00045 0751 NGRI, NGR 31 00046 0757 NGR+6 32 00047 0000 FSWIT, 0 33 00050 0000 FPSWIT, 0 34 00051 1000 FPNTI, FPNT /FLOATING POINT OP. CODES 35 00052 3371 M4407, -4407 /JMS I Z 7 36 00053 1200 READI, READ 37 00054 0342 ENDTI, ENDT 38 00055 0265 READ1I, READ1 39 00056 0221 BBBI, BBB 40 00057 0277 SPCRI, SPCR 41 00060 0360 SETI, SET 42 00061 1233 OUT8I, OUT8 43 00062 0215 AAAI, AAA 44 00063 0271 CRLFPI, CRLFP 45 46 /OPERATION CODES 47 00064 5641 OPC, 5641 /AND 48 00065 0044 0044 49 00066 4164 4164 /TAD 50 00067 0044 0044 51 00070 6351 6351 /ISZ 52 00071 0072 0072 53 00072 4344 4344 /DCA 54 00073 0041 0041 55 00074 5552 5552 /JMS 56 00075 0063 0063 57 00076 5552 5552 /JMP 58 00077 0060 0060 59 00100 0051 IZC, 0051 /I 60 00101 0072 0072 /Z 61 62 /MICRO GROUP 1 63 00102 5443 MIC1, 5443 /CLA 64 00103 0041 0041 65 00104 5443 5443 /CLL 66 00105 0054 0054 67 00106 5543 5543 /CMA 68 00107 0041 0041 69 00110 5543 5543 /CML 70 00111 0054 0054 71 00112 4151 4151 /IAC 72 00113 0043 0043 73 00114 4162 4162 /RAL 74 00115 0054 0054 75 00116 4162 4162 /RAR 76 00117 0062 0062 77 00120 6462 6462 /RTL 78 00121 0054 0054 79 00122 6462 6462 /RTR 80 00123 0062 0062 81 00124 5756 NOC, 5756 /NOP 82 00125 0060 0060 83 84 /MICRO GROUP 2 85 00126 5450 MIC2, 5450 /HLT 86 00127 0064 0064 87 00130 6357 6357 /OSR 88 00131 0062 0062 89 00132 5363 5363 /SKP 90 00133 0060 0060 91 00134 5663 5663 /SNL 92 00135 0054 0054 93 00136 7263 7263 /SZA 94 00137 0041 0041 95 00140 5563 5563 /SMA 96 00141 0041 0041 97 00142 7263 7263 /SZL 98 00143 0054 0054 99 00144 5663 5663 /SNA 100 00145 0041 0041 101 00146 6063 6063 /SPA 102 00147 0041 0041 103 104 / I/O PRINT OCTAL ROUTINE 105 00150 1020 OP6, TAD OCT 106 00151 4433 JMS I POCT 107 00152 1026 TAD ADC 108 00153 7001 IAC 109 00154 3026 DCA ADC 110 00155 5427 JMP I BEG /GO TO STRT 111 112 /STEP ADDR. FINDER ROUTINE 113 00156 0000 STEP, 0 114 00157 7420 SNL 115 00160 5163 JMP .+3 116 00161 4441 JMS I PROP 117 00162 5166 JMP .+4 118 00163 1021 TAD ADRF 119 00164 1036 TAD C2 120 00165 3021 DCA ADRF 121 00166 1034 TAD TEMP 122 00167 7010 RAR 123 00170 3034 DCA TEMP 124 00171 2035 ISZ CNTR 125 00172 5157 JMP STEP+1 126 00173 5556 JMP I STEP 127 128 END0, /LOC. END PAGE 129 130 /SORT FIRST 3 BITS ROUTINE 131 /DIFFERENTIATE BETWEEN REG. CODE & FLOATING POINT CODE 132 133 *200 134 00200 6046 6046 135 00201 7300 CLA CLL 136 00202 3360 DCA SET 137 00203 3050 DCA FPSWIT 138 00204 7404 OSR 139 00205 7700 SMA CLA 140 00206 5212 JMP .+4 141 00207 7001 IAC 142 00210 3047 DCA FSWIT /SET FLOAT PROG. INDIC. 143 00211 7410 SKP 144 00212 3047 DCA FSWIT 145 00213 4463 JMS I Z CRLFPI /PRINT CR & LF 146 00214 5453 STRT, JMP I Z READI /GO READ TAPE 147 00215 4277 AAA, JMS SPCR /GO TO SPACE SUBR. 148 00216 1026 TAD Z ADC 149 00217 4311 JMS SOCT /PRINT OCTAL SUBR. 150 00220 5427 JMP I Z BEG 151 00221 1026 BBB, TAD Z ADC 152 00222 4311 JMS SOCT /PRINT ADDR. 153 00223 1020 TAD Z OCT 154 00224 4311 JMS SOCT /PRINT OCTAL CONTENTS 155 00225 1050 TAD FPSWIT 156 00226 7650 SNA CLA 157 00227 5232 JMP .+3 158 00230 1020 TAD Z OCT 159 00231 5235 JMP .+4 160 00232 1020 TAD Z OCT 161 00233 7450 SNA 162 00234 5152 JMP OP6+2 163 00235 7106 CLL RTL 164 00236 7006 RTL 165 00237 0023 AND Z M7 166 00240 3034 DCA Z TEMP 167 00241 1034 TAD Z TEMP 168 00242 1354 TAD CN6 169 00243 7510 SPA 170 171 00244 5755 JMP I OP5 /GO TO OPR. CODE 172 00245 3034 DCA Z TEMP 173 00246 1050 TAD Z FPSWIT 174 00247 7640 SZA CLA 175 00250 5451 JMP I Z FPNTI /GO TO F.P. CODE ROUTINE 176 00251 1034 TAD Z TEMP 177 00252 7650 SNA CLA 178 00253 5150 JMP Z OP6 /GO TO I/O CODE 179 00254 1020 TAD Z OCT 180 00255 7001 IAC 181 00256 7650 SNA CLA 182 00257 5152 JMP OP6+2 183 00260 1020 TAD Z OCT 184 00261 0355 AND OP5 /400 185 00262 7450 SNA 186 00263 5756 JMP I OP71 /GO TO MICRO 1 187 00264 5757 JMP I OP72 / GO TO MICRO 2 188 189 /SUBROUTINES 190 /READ TELE 1 SUBR. 191 00265 0000 READ1, 0 192 00266 6031 6031 /SKIP IF FLAG = 1 193 00267 5266 JMP .-1 194 00270 5665 JMP I READ1 195 196 /CR & LF SUBR. 197 00271 0000 CRLFP, 0 198 00272 1347 TAD CR 199 00273 4442 JMS I Z PRT 200 00274 1350 TAD LF 201 00275 4442 JMS I Z PRT 202 00276 5671 JMP I CRLFP 203 204 /SET MARGIN SUBROUTINE 205 00277 0000 SPCR, 0 206 00300 1351 TAD CN13 207 00301 3035 DCA Z CNTR 208 00302 1032 TAD C240 209 00303 4442 JMS I Z PRT 210 00304 2035 ISZ Z CNTR 211 00305 5302 JMP .-3 212 00306 1353 TAD AST 213 00307 4442 JMS I Z PRT 214 00310 5677 JMP I SPCR 215 216 /PRINT OCTAL SUBROUTINE 217 00311 0000 SOCT, 0 218 00312 3034 DCA Z TEMP 219 00313 1022 TAD Z CN4 220 00314 3035 DCA Z CNTR 221 00315 1034 TAD Z TEMP 222 00316 7104 CLL RAL 223 00317 7006 REP, RTL 224 00320 7004 RAL 225 226 00321 3034 DCA Z TEMP 227 00322 1034 TAD Z TEMP 228 00323 0023 AND Z M7 229 00324 1352 TAD C260 230 00325 4442 JMS I Z PRT 231 00326 1034 TAD Z TEMP 232 00327 2035 ISZ Z CNTR 233 00330 5317 JMP REP 234 00331 7200 CLA 235 00332 1030 TAD Z CN2 236 00333 3035 DCA Z CNTR 237 00334 1032 TAD C240 238 00335 4442 JMS I Z PRT 239 00336 2035 ISZ Z CNTR 240 00337 5334 JMP .-3 241 00340 7200 CLA 242 00341 5711 JMP I SOCT 243 244 /LOOK FOR END OF TAPE ROUTINE 245 00342 7200 ENDT, CLA 246 00343 1360 TAD SET 247 00344 7650 SNA CLA /END OF TAPE? 248 00345 5214 JMP STRT /NO 249 00346 5461 JMP I Z OUT8I /YES 250 251 /CONSTANTS & INTERTIES 252 00347 0215 CR, 215 253 00350 0212 LF, 212 254 00351 7765 CN13, 0-13 255 00352 0260 C260, 260 256 00353 0252 AST, 252 257 00354 7772 CN6, 0-6 258 00355 0400 OP5, OPCR 259 00356 0600 OP71, GRP1 260 00357 0533 OP72, GRP2 261 00360 0000 SET, 0 262 263 END2, /LOC. END PAGE 264 265 *400 266 00400 7200 OPCR, CLA 267 00401 1047 TAD FSWIT 268 00402 7650 SNA CLA 269 00403 5217 JMP OPC2 270 00404 1050 TAD FPSWIT 271 00405 7640 SZA CLA 272 00406 5216 JMP OPC1 273 00407 1020 TAD Z OCT 274 00410 1052 TAD M4407 /ENTRY TO INTERPRETER? 275 00411 7640 SZA CLA 276 00412 5217 JMP OPC2 /NO 277 00413 7001 IAC /YES 278 00414 3050 DCA FPSWIT 279 280 00415 7410 SKP 281 00416 5451 OPC1, JMP I Z FPNTI /GO TO FLOAT. CODE ROUTINE 282 00417 1325 OPC2, TAD CON1 283 00420 3021 DCA Z ADRF 284 00421 7040 CMA 285 00422 1034 TAD Z TEMP 286 00423 7510 SPA 287 00424 5264 JMP ENDO /=0 288 00425 7440 SZA 289 00426 5233 JMP .+5 /=MORE THAN 1 290 00427 1021 TAD Z ADRF /=1 291 00430 1036 TAD C2 292 00431 3021 DCA Z ADRF 293 00432 5264 JMP ENDO 294 00433 7200 CLA 295 00434 1021 TAD Z ADRF 296 00435 1037 TAD Z C4 297 00436 3021 DCA Z ADRF 298 00437 1034 TAD Z TEMP 299 00440 1043 TAD Z CN3 300 00441 7510 SPA 301 00442 5264 JMP ENDO /=2 302 00443 7440 SZA 303 00444 5251 JMP .+5 /=4 OR 5 304 00445 1021 TAD Z ADRF /=3 305 00446 1036 TAD Z C2 306 00447 3021 DCA Z ADRF 307 00450 5264 JMP ENDO 308 00451 7200 CLA 309 00452 1021 TAD Z ADRF 310 00453 1037 TAD Z C4 311 00454 3021 DCA Z ADRF 312 00455 1034 TAD Z TEMP 313 00456 1022 TAD Z CN4 314 00457 7650 SNA CLA 315 00460 5264 JMP ENDO /=4 316 00461 1021 TAD Z ADRF /=5 317 00462 1036 TAD Z C2 318 00463 3021 DCA Z ADRF 319 320 /PRINT OPR. CODE ROUTINE 321 00464 4441 ENDO, JMS I Z PROP 322 00465 1326 TAD CON2 323 00466 3021 DCA Z ADRF 324 00467 1020 TAD Z OCT 325 00470 7106 CLL RTL 326 00471 7006 RTL 327 00472 3034 DCA Z TEMP 328 00473 7420 SNL 329 00474 5277 JMP .+3 330 00475 4441 JMS I Z PROP /PRINT I 331 00476 5302 JMP .+4 332 00477 1021 TAD Z ADRF 333 00500 7001 IAC 334 00501 3021 DCA Z ADRF 335 00502 1034 TAD Z TEMP 336 337 00503 7710 SPA CLA 338 00504 5311 JMP .+5 339 00505 4441 JMS I Z PROP /PRINT Z 340 00506 1020 TAD Z OCT 341 00507 0331 AND M177 342 00510 5317 JMP .+7 343 00511 1020 TAD Z OCT 344 00512 0331 AND M177 345 00513 3034 DCA Z TEMP 346 00514 1026 TAD Z ADC 347 00515 0332 AND M760 348 00516 1034 TAD Z TEMP 349 00517 4433 JMS I Z POCT /PRINT ADDR. 350 00520 7200 CLA 351 00521 1026 TAD Z ADC 352 00522 7001 IAC 353 00523 3026 DCA Z ADC 354 00524 5427 JMP I Z BEG /GO TO OUT 355 356 /CONSTANTS AND INTERTIES 357 00525 0064 CON1, OPC /ADDR. FINDER FOR OPR. CODES 358 00526 0100 CON2, IZC /FIND I AND Z 359 00527 0126 CON5, MIC2 /FIND MICRO GROUP 2 LIST 360 00530 0102 CON6, MIC1 /FIND MICRO GROUP 1 LIST 361 00531 0177 M177, 177 362 00532 7600 M760, 7600 363 364 /MICRO GROUP 2 ROUTINE 365 00533 7300 GRP2, CLA CLL 366 00534 1327 TAD CON5 367 00535 3021 DCA Z ADRF 368 00536 1030 TAD Z CN2 369 00537 3035 DCA Z CNTR 370 00540 1020 TAD Z OCT 371 00541 0025 AND Z M377 372 00542 7012 RTR 373 00543 3034 DCA Z TEMP 374 00544 4444 JMS I Z STI /TEST BITS 10,9 375 00545 7430 SZL /TEST BIT 8 376 00546 5353 JMP .+5 377 00547 1021 TAD Z ADRF 378 00550 1036 TAD Z C2 379 00551 3021 DCA Z ADRF 380 00552 5364 JMP .+12 381 00553 1034 TAD Z TEMP 382 00554 7440 SZA /BIT 8 ONLY? 383 00555 5360 JMP .+3 384 00556 4441 JMS I Z PROP 385 00557 5446 JMP I Z NGRI+1 386 00560 7200 CLA 387 00561 1021 TAD Z ADRF 388 00562 1040 TAD Z C10 389 00563 3021 DCA Z ADRF 390 00564 1034 TAD Z TEMP 391 00565 7010 RAR 392 393 00566 3034 DCA Z TEMP 394 00567 1043 TAD Z CN3 395 00570 3035 DCA Z CNTR 396 00571 4444 JMS I Z STI /TEST BITS 7,6,5 397 00572 7420 SNL /TEST BIT 4 398 00573 5445 JMP I Z NGRI 399 00574 1330 TAD CON6 400 00575 3021 DCA Z ADRF 401 00576 4441 JMS I Z PROP 402 00577 5446 JMP I Z NGRI+1 403 404 END4, /LOC. END PAGE 405 406 /PAUSE 407 408 409 /MICRO GROUP 1 ROUTINE 410 411 *600 412 00600 7300 GRP1, CLA CLL 413 00601 1306 TAD CON3 414 00602 3021 DCA Z ADRF 415 00603 1022 TAD Z CN4 416 00604 3035 DCA Z CNTR 417 00605 1020 TAD Z OCT 418 00606 0025 AND Z M377 419 00607 7006 RTL 420 00610 7006 RTL 421 00611 7004 RAL 422 00612 3034 DCA Z TEMP 423 00613 7420 SNL /TEST BITS 4 TO 7 424 00614 5217 JMP .+3 425 00615 4310 JMS SROP /BIT=1 426 00616 5222 JMP .+4 427 00617 1021 TAD Z ADRF 428 00620 1036 TAD Z C2 429 00621 3021 DCA Z ADRF 430 00622 1034 TAD Z TEMP 431 00623 7004 RAL 432 00624 2035 ISZ Z CNTR 433 00625 5212 JMP .-13 434 00626 7300 CLA CLL 435 00627 1020 TAD Z OCT 436 00630 7010 RAR 437 00631 3034 DCA Z TEMP 438 00632 7420 SNL /TEST BIT 11 439 00633 5236 JMP .+3 440 00634 4310 JMS SROP 441 00635 5241 JMP .+4 442 00636 1021 TAD Z ADRF 443 00637 1036 TAD C2 444 00640 3021 DCA Z ADRF 445 00641 1034 TAD Z TEMP 446 00642 7010 RAR 447 00643 3034 DCA Z TEMP 448 449 00644 7420 SNL /TEST BIT 10 450 00645 5251 JMP .+4 451 00646 1021 TAD Z ADRF 452 00647 1037 TAD C4 453 00650 3021 DCA Z ADRF 454 00651 1034 TAD Z TEMP 455 00652 7010 RAR 456 00653 3034 DCA Z TEMP 457 00654 7420 SNL /TEST BIT 9 458 00655 5260 JMP .+3 459 00656 4310 JMS SROP 460 00657 5263 JMP .+4 461 00660 1021 TAD Z ADRF 462 00661 1036 TAD C2 463 00662 3021 DCA Z ADRF 464 00663 1034 TAD Z TEMP 465 00664 7010 RAR 466 00665 7420 SNL /TEST BIT 8 467 00666 5271 JMP .+3 468 00667 4310 JMS SROP 469 00670 5301 JMP .+11 470 00671 7200 CLA 471 00672 1020 TAD Z OCT 472 00673 0025 AND Z M377 473 00674 7440 SZA 474 00675 5301 JMP .+4 475 00676 1307 TAD CON4 476 00677 3021 DCA Z ADRF 477 00700 4310 JMS SROP 478 00701 7200 CLA 479 00702 1026 TAD Z ADC 480 00703 7001 IAC 481 00704 3026 DCA Z ADC 482 00705 5427 JMP I Z BEG /GO TO STRT 483 484 /INTERTIES 485 00706 0102 CON3, MIC1 486 00707 0124 CON4, NOC 487 488 /PRINT OPR CODES SUBROUTINE 489 00710 0000 SROP, 0 490 00711 7200 CLA 491 00712 1421 AA, TAD I Z ADRF 492 00713 0031 AND Z M77 493 00714 7450 SNA 494 00715 5335 JMP BB 495 00716 1032 TAD Z C240 496 00717 4343 JMS SRT 497 00720 1421 TAD I Z ADRF 498 00721 7012 RTR 499 00722 7012 RTR 500 00723 7012 RTR 501 00724 0031 AND Z M77 502 00725 7450 SNA 503 00726 5335 JMP BB 504 505 00727 1032 TAD Z C240 506 00730 4343 JMS SRT 507 00731 1021 TAD Z ADRF 508 00732 7001 IAC 509 00733 3021 DCA Z ADRF 510 00734 5312 JMP AA 511 00735 1032 BB, TAD Z C240 512 00736 4343 JMS SRT 513 00737 1021 TAD Z ADRF 514 00740 7001 IAC 515 00741 3021 DCA Z ADRF 516 00742 5710 JMP I SROP 517 518 /PRINT SUBROUTINE 519 00743 0000 SRT, 0 520 00744 6041 6041 /SKIP IF FLAG=1 521 00745 5344 JMP .-1 522 00746 6046 6046 /PRINT 523 00747 7200 CLA 524 00750 5743 JMP I SRT 525 526 /NO VALID MICRO-OP ROUTINE 527 00751 1020 NGR, TAD Z OCT 528 00752 7110 CLL RAR 529 00753 7620 SNL CLA 530 00754 5357 JMP .+3 531 00755 1020 TAD Z OCT 532 00756 4433 JMS I Z POCT 533 00757 1026 TAD Z ADC 534 00760 7001 IAC 535 00761 3026 DCA Z ADC 536 00762 5427 JMP I Z BEG /GO TO STRT 537 538 END6, /LOC. END PAGE 539 540 /FLOATING POINT OP. CODES ROUTINE 541 542 *1000 543 01000 1270 FPNT, TAD FCD1I 544 01001 3021 DCA Z ADRF 545 01002 1020 TAD Z OCT 546 01003 7640 SZA CLA 547 01004 5210 JMP .+4 548 01005 4441 JMS I Z PROP /PRINT FEXT 549 01006 3050 DCA Z FPSWIT 550 01007 5240 JMP FPEND 551 01010 4272 JMS STEP3 552 01011 1020 TAD Z OCT 553 01012 0265 AND M1000 554 01013 3034 DCA Z TEMP 555 01014 1034 TAD Z TEMP 556 01015 7640 SZA CLA 557 01016 5244 JMP FPNT1 558 01017 1020 TAD Z OCT 559 01020 7041 CMA IAC 560 561 01021 7001 IAC 562 01022 7440 SZA 563 01023 5226 JMP .+3 564 01024 4441 JMS I Z PROP /PRINT AQ 565 01025 5240 JMP FPEND 566 01026 3034 DCA Z TEMP 567 01027 4272 JMS STEP3 568 01030 1034 TAD Z TEMP 569 01031 7001 IAC 570 01032 7640 SZA CLA 571 01033 5236 JMP .+3 572 01034 4441 JMS I Z PROP /PRINT SQRT 573 01035 5240 JMP FPEND 574 01036 1020 TAD Z OCT 575 01037 4433 JMS I Z POCT /PRINT OCTAL 576 01040 1026 FPEND, TAD Z ADC 577 01041 7001 IAC 578 01042 3026 DCA Z ADC 579 01043 5427 JMP I Z BEG /GO TO STRT 580 01044 1267 FPNT1, TAD N7 581 01045 3035 DCA Z CNTR 582 01046 1271 TAD FCD2I 583 01047 3021 DCA Z ADRF 584 01050 1034 TAD Z TEMP 585 01051 1265 TAD M1000 586 01052 7440 SZA 587 01053 7410 SKP 588 01054 5666 JMP I ENDOI /PRINT F.P. OP. CODE 589 01055 3034 DCA Z TEMP 590 01056 4272 JMS STEP3 591 01057 2035 ISZ Z CNTR 592 01060 5250 JMP FPNT1+4 593 01061 1020 TAD Z OCT 594 01062 4433 JMS I Z POCT /PRINT OCTAL 595 01063 5240 JMP FPEND 596 597 /CONSTANTS AND INTERTIES 598 01064 0003 C3, 3 599 01065 7000 M1000, -1000 600 01066 0464 ENDOI, ENDO 601 01067 7771 N7, -7 602 01070 1077 FCD1I, FCODE 603 01071 1110 FCD2I, FCODE2 604 605 /STEP ADDR. FINDER SUBR. 606 01072 0000 STEP3, 0 607 01073 1021 TAD Z ADRF 608 01074 1264 TAD C3 609 01075 3021 DCA Z ADRF /STEP 3 ADDRESSES 610 01076 5672 JMP I STEP3 611 612 /FLOATING POINT CODES 613 01077 4546 FCODE, 4546 /FEXT 614 01100 6470 6470 615 01101 0000 0 616 01102 6163 6163 /SQ 617 01103 0000 0 618 01104 0000 0 619 01105 6163 6163 /SQRT 620 01106 6462 6462 621 01107 0000 0 622 01110 4146 FCODE2, 4146 /FADD 623 01111 4444 4444 624 01112 0000 0 625 01113 6346 6346 /FSUB 626 01114 4265 4265 627 01115 0000 0 628 01116 5546 5546 /FMPY 629 01117 7160 7160 630 01120 0000 0 631 01121 4446 4446 /FDIV 632 01122 6651 6651 633 01123 0000 0 634 01124 4746 4746 /FGET 635 01125 6445 6445 636 01126 0000 0 637 01127 6046 6046 /FPUT 638 01130 6465 6465 639 01131 0000 0 640 01132 5646 5646 /FNOR 641 01133 6257 6257 642 01134 0000 0 643 644 END10, /LOC. END PAGE 645 646 647 /READ INTO BUFFER AREA AND OUTPUT FROM BUFFER AREA. 648 649 *1200 650 01200 1267 READ, TAD BADD1 /SET INDEXES 651 01201 3016 DCA Z BINDX 652 01202 1270 TAD AADD1 653 01203 3017 DCA Z AINDX 654 01204 4455 JMS I Z READ1I /READ TELE 1 655 01205 6036 6036 /READ TELE. 656 01206 7106 CLL RTL /SHIFT 5 LEFT 657 01207 7006 RTL 658 01210 7004 RAL 659 01211 7430 SZL /LOOK FOR CH. 8 660 01212 5454 JMP I Z ENDTI /YES 661 01213 7104 CLL RAL /NO 662 01214 4455 JMS I Z READ1I 663 01215 6034 6034 /NO CLEAR, READ TELE 664 01216 3416 DCA I BINDX 665 01217 6032 6032 /CLEAR AC & FLAG 666 01220 1036 TAD Z C2 667 668 01221 3460 DCA I Z SETI /SET END TAPE FLAG 669 01222 7420 SNL /LOOK FOR CH. 7 670 01223 5227 JMP .+4 /NO 671 01224 1016 TAD Z BINDX /YES 672 01225 7041 CMA IAC 673 01226 3417 DCA I Z AINDX 674 01227 1016 TAD Z BINDX 675 01230 1273 TAD ENDB 676 01231 7640 SZA CLA /END OF BUFFER? 677 01232 5204 JMP READ+4 /NO 678 01233 1016 OUT8, TAD Z BINDX /YES 679 01234 7041 CMA IAC 680 01235 3271 DCA END 681 01236 1267 TAD BADD1 /RESET INDEXES 682 01237 3016 DCA Z BINDX 683 01240 1270 TAD AADD1 684 01241 3017 DCA Z AINDX 685 01242 1417 TAD I Z AINDX 686 01243 3272 DCA ADDA 687 688 01244 4463 OUT, JMS I Z CRLFPI /PRINT CR & LF 689 01245 1016 TAD Z BINDX 690 01246 1271 TAD END 691 01247 7650 SNA CLA /END OF BUFFER? 692 01250 5200 JMP READ /YES 693 01251 1416 TAD I Z BINDX /NO 694 01252 3020 DCA Z OCT 695 01253 1016 TAD Z BINDX 696 01254 1272 TAD ADDA 697 01255 7640 SZA CLA /ADDRESS ASSIGNMENT? 698 01256 5456 JMP I Z BBBI /NO 699 01257 1020 TAD Z OCT /YES 700 01260 3026 DCA Z ADC /STORE ADDRESS 701 01261 1017 TAD Z AINDX 702 01262 3272 DCA ADDA 703 01263 3672 DCA I ADDA 704 01264 1417 TAD I Z AINDX 705 01265 3272 DCA ADDA 706 01266 5462 JMP I Z AAAI 707 708 /TAGS & CONSTANTS 709 01267 1277 BADD1, 1277 710 01270 1347 AADD1, 1347 711 01271 0000 END, 0 712 01272 0000 ADDA, 0 713 01273 6431 ENDB, -1347 714 715 END12, /END PAGE 716 717 /END OF PROGRAM 718 $ AA 0712 AAA 0215 AAAI 0062 AADD1 1270 ADC 0026 ADDA 1272 ADRF 0021 AINDX 0017 AST 0353 BADD1 1267 BB 0735 BBB 0221 BBBI 0056 BEG 0027 BINDX 0016 C10 0040 C2 0036 C240 0032 C260 0352 C3 1064 C4 0037 CN13 0351 CN2 0030 CN3 0043 CN4 0022 CN6 0354 CNTR 0035 CON1 0525 CON2 0526 CON3 0706 CON4 0707 CON5 0527 CON6 0530 CR 0347 CRLFP 0271 CRLFPI 0063 END 1271 END0 0174 unreferenced END10 1135 unreferenced END12 1274 unreferenced END2 0361 unreferenced END4 0600 unreferenced END6 0763 unreferenced ENDB 1273 ENDO 0464 ENDOI 1066 ENDT 0342 ENDTI 0054 FCD1I 1070 FCD2I 1071 FCODE 1077 FCODE2 1110 FPEND 1040 FPNT 1000 FPNT1 1044 FPNTI 0051 FPSWIT 0050 FSWIT 0047 GRP1 0600 GRP2 0533 IZC 0100 LF 0350 M1000 1065 M177 0531 M377 0025 M4407 0052 M7 0023 M760 0532 M77 0031 M777 0024 unreferenced MIC1 0102 MIC2 0126 N7 1067 NGR 0751 NGRI 0045 NOC 0124 OCT 0020 OP5 0355 OP6 0150 OP71 0356 OP72 0357 OPC 0064 OPC1 0416 OPC2 0417 OPCR 0400 OUT 1244 OUT8 1233 OUT8I 0061 POCT 0033 PROP 0041 PRT 0042 READ 1200 READ1 0265 READ1I 0055 READI 0053 REP 0317 SET 0360 SETI 0060 SOCT 0311 SPCR 0277 SPCRI 0057 unreferenced SROP 0710 SRT 0743 STEP 0156 STEP3 1072 STI 0044 STRT 0214 TEMP 0034