1 // 2 // Tank game port to VC8E by V. Slyngstad. 3 VC8E=1 4 // 5 // This first bit is just the file TANK.SV from 6 // the PDP-12, disassembled. 7 LINC=6141 8 DIS=0140 // LINC: Display a point 9 STD=0436 // LINC: Skip if tape done 10 COM=0017 // LINC: Complement AC 11 ROLI=0260 // LINK: Rotate left, with link 12 TAC=0003 // LINC: Tape AC (checksum) to AC 13 PDP=0002 // LINC: Switch to PDP-8/12 14 15 FIELD 0 16 17 *0000 18 00000 0003 S00000, 0003 19 00001 5001 P00001, D05001 20 00002 1053 P00002, D01053 21 00003 3033 P00003, D03033 22 00004 4500 P00004, D04500 23 00005 2331 P00005, D02331 24 00006 0000 P00006, S00000 25 00007 0000 D00007, 0000 26 00010 0000 P00010, S00000 27 00011 0000 P00011, S00000 28 00012 0000 P00012, S00000 29 00013 0000 P00013, S00000 30 00014 7773 P00014, D07773 31 00015 1714 D00015, 1714 32 00016 7514 P00016, D07514 33 00017 0000 P00017, S00000 34 00020 0000 P00020, S00000 35 00021 0000 D00021, 0000 36 00022 0000 P00022, S00000 37 00023 0024 P00023, L00024 38 00024 0002 L00024, AND P00002 39 00025 0001 P00025, P00001 40 00026 0001 P00026, P00001 41 00027 0202 P00027, S00202 42 00030 0234 D00030, 0234 43 00031 0260 P00031, S00260 44 00032 0325 P00032, S00325 45 00033 0306 P00033, S00306 46 00034 0331 P00034, S00331 47 00035 1000 P00035, S01000 48 00036 0000 P00036, S00000 49 00037 0000 P00037, S00000 50 00040 0034 P00040, P00034 51 00041 7610 P00041, D07610 52 00042 5046 P00042, D05046 53 00043 0002 P00043, P00002 54 00044 0034 D00044, 0034 55 00045 7777 P00045, D07777 56 00046 6203 L00046, CDF CIF 0 57 00047 5450 P00047, L05450 58 00050 1255 P00050, L01255 59 00051 6600 P00051, D06600 60 00052 6544 D00052, 6544 61 00053 7605 P00053, L07605 62 00054 4000 P00054, D04000 63 00055 3700 P00055, P03700 64 00056 2020 D00056, 2020 65 00057 0070 D00057, 0070 66 00060 0603 D00060, 0603 67 00061 0600 P00061, S00600 68 00062 0434 P00062, L00434 69 00063 0067 AND D00067 70 00064 6003 D00064, 6003 71 00065 0244 P00065, D00244 72 00066 0100 AND P00100 73 00067 0336 D00067, 0336 74 00070 0334 L00070, 0334 75 00071 7001 P00071, D07001 76 00072 6670 P00072, D06670 77 00073 0212 P00073, D00212 78 00074 0215 D00074, 0215 79 00075 0403 P00075, L00403 80 00076 0010 P00076, P00010 81 00077 7700 P00077, D07700 82 00100 0330 P00100, D00330 83 00101 0306 D00101, 0306 84 00102 0564 D00102, 0564 85 00103 1745 1745 86 00104 0527 P00104, D00527 87 00105 0300 P00105, D00300 88 00106 1671 D00106, 1671 89 00107 7404 OSR 90 00110 7600 D00110, 7600 91 00111 7403 P00111, D07403 92 00112 7402 P00112, D07402 93 00113 7401 D00113, 7401 94 00114 1610 P00114, P01610 95 00115 7400 P00115, L07400 96 00116 0526 P00116, L00526 97 00117 0200 P00117, D00200 98 00120 0007 P00120, D00007 99 00121 7757 P00121, D07757 100 00122 7764 P00122, L07764 101 00123 7762 P00123, L07762 102 00124 0033 P00124, P00033 103 00125 7761 P00125, D07761 104 00126 7760 P00126, D07760 105 00127 7756 P00127, D07756 106 00130 7775 D00130, 7775 107 00131 7745 D00131, 7745 108 00132 1665 P00132, 1665 109 00133 1000 TAD S00000 110 00134 7744 P00134, D07744 111 00135 1113 P00135, D01113 112 00136 0370 P00136, D00370 113 00137 0120 P00137, P00120 114 00140 4535 P00140, D04535 115 00141 7700 P00141, D07700 116 00142 4157 P00142, D04157 117 00143 7757 P00143, D07757 118 00144 7740 P00144, D07740 119 00145 2613 P00145, D02613 120 00146 1200 P00146, S01200 121 00147 7776 P00147, L07776 122 00150 0002 P00150, P00002 123 00151 7770 L00151, SNA SPA SZL CLA 124 00152 0600 P00152, S00600 125 00153 3000 P00153, S03000 126 00154 2636 P00154, D02636 127 00155 7777 D00155, 7777 128 00156 4534 P00156, D04534 129 00157 7612 D00157, 7612 130 00160 4156 L00160, JMS P00156 131 00161 7622 D00161, 7622 132 00162 3400 P00162, S03400 133 00163 0230 D00163, 0230 134 00164 0077 P00164, P00077 135 00165 2623 D00165, 2623 136 00166 2600 P00166, L02600 137 00167 2000 P00167, P02000 138 00170 5600 P00170, L05600 139 00171 2603 P00171, D02603 140 00172 2626 P00172, L02626 141 00173 0004 P00173, P00004 142 00174 2602 P00174, L02602 143 00175 2625 P00175, D02625 144 00176 6745 D00176, 6745 145 00177 0356 P00177, S00356 146 147 *0200 148 00200 5601 D00200, 5601 149 00201 1400 P00201, P01400 150 00202 0000 S00202, 0000 151 00203 7100 CLL 152 00204 7510 SPA 153 00205 7061 CML CIA 154 00206 7421 7421 155 00207 1602 TAD I S00202 156 00210 2202 ISZ S00202 157 00211 7510 SPA 158 00212 7061 D00212, 7061 159 00213 3217 DCA D00217 160 00214 7044 CMA RAL 161 00215 3233 DCA D00233 162 00216 7405 7405 163 00217 0000 D00217, 0000 164 00220 7413 7413 165 00221 0000 AND S00000 166 00222 3217 DCA D00217 167 00223 7501 L00223, 7501 168 00224 7710 SPA CLA 169 00225 7001 IAC 170 00226 1217 TAD D00217 171 00227 2233 ISZ D00233 172 00230 5602 JMP I S00202 173 00231 7041 CIA 174 00232 5602 JMP I S00202 175 00233 0000 D00233, 0000 176 00234 0000 P00234, S00000 177 00235 7100 CLL 178 00236 7510 SPA 179 00237 7061 CML CIA 180 00240 7421 7421 181 00241 7044 CMA RAL 182 00242 3233 DCA D00233 183 00243 1634 TAD I P00234 184 00244 2234 D00244, 2234 185 00245 7450 SNA 186 00246 5634 JMP I P00234 187 00247 2234 ISZ P00234 188 00250 3252 D00250, 3252 189 00251 7407 7407 190 00252 0000 D00252, 0000 191 00253 7701 7701 192 00254 2233 ISZ D00233 193 00255 5634 JMP I P00234 194 00256 7041 CIA 195 00257 5634 JMP I P00234 196 00260 0000 S00260, 0000 197 00261 3012 DCA P00012 198 00262 1660 TAD I S00260 199 00263 2260 ISZ S00260 200 00264 7450 SNA 201 00265 5660 JMP I S00260 202 00266 7130 CLL CML RAR 203 00267 3020 DCA P00020 204 00270 6201 CDF 0 205 00271 6002 IOF 206 00272 1412 L00272, TAD I P00012 207 00273 1377 TAD D00377 208 00274 3007 DCA D00007 209 00275 1412 TAD I P00012 210 00276 6141 LINC 211 00277 0147 DIS 7 // LINC Instruction 212 00300 0002 D00300, PDP 213 00301 7300 CLA CLL 214 00302 2020 ISZ P00020 215 00303 5272 JMP L00272 216 00304 6201 CDF 0 217 00305 5660 JMP I S00260 218 00306 0000 S00306, 0000 219 00307 3021 DCA D00021 220 00310 1021 TAD D00021 221 00311 0376 D00311, 0376 222 00312 1377 TAD D00377 223 00313 3022 D00313, 3022 224 00314 1021 D00314, 1021 225 00315 0375 AND D00375 226 00316 7100 CLL 227 00317 7640 SZA CLA 228 00320 7120 CLL CML 229 00321 1422 TAD I P00022 230 00322 7430 SZL 231 00323 7041 CIA 232 00324 5706 JMP I S00306 233 00325 0000 S00325, 0000 234 00326 1374 TAD D00374 235 00327 4306 JMS S00306 236 00330 5725 D00330, 5725 237 00331 0000 S00331, 0000 238 00332 1355 TAD D00355 239 00333 7421 7421 240 00334 7405 7405 241 00335 4003 JMS P00003 242 00336 3353 DCA D00353 243 00337 7501 7501 244 00340 3355 L00340, DCA D00355 245 00341 1354 TAD D00354 246 00342 7421 7421 247 00343 7405 7405 248 00344 4003 JMS P00003 249 00345 7200 CLA 250 00346 7501 7501 251 00347 1353 TAD D00353 252 00350 3354 DCA D00354 253 00351 1354 TAD D00354 254 00352 5731 JMP I S00331 255 00353 0000 D00353, 0000 256 00354 0000 D00354, 0000 257 00355 0001 D00355, 0001 258 00356 0000 S00356, 0000 259 00357 7100 CLL 260 00360 0373 AND D00373 261 00361 7510 SPA 262 00362 7121 CLL CML IAC 263 00363 7012 RTR 264 00364 7510 SPA 265 00365 7120 CLL CML 266 00366 7010 RAR 267 00367 5756 P00367, L05756 268 00370 1413 D00370, 1413 269 00371 7450 SNA 270 00372 5767 JMP I P00367 271 00373 7770 D00373, 7770 272 00374 0100 D00374, 0100 273 00375 0200 D00375, 0200 274 00376 0177 D00376, 0177 275 00377 0400 D00377, 0400 276 277 *0400 278 00400 0000 L00400, AND S00000 279 00401 0062 AND P00062 280 00402 0145 AND P00145 281 00403 0227 L00403, AND D00427 282 00404 0311 P00404, D00311 283 00405 0373 AND P00573 284 00406 0455 AND I P00055 285 00407 0536 AND I P00136 286 00410 0620 P00410, L00620 287 00411 0701 AND I P00501 288 00412 0762 AND I P00562 289 00413 1042 D00413, 1042 290 00414 1123 TAD P00123 291 00415 1203 TAD L00403 292 00416 1262 TAD D00462 293 00417 1341 TAD D00541 294 00420 1420 P00420, D01420 295 00421 1476 TAD I P00076 296 00422 1554 TAD I P00154 297 00423 1631 TAD I P00431 298 00424 1706 TAD I P00506 299 00425 1762 TAD I P00562 300 00426 2035 ISZ P00035 301 00427 2110 D00427, 2110 302 00430 2162 ISZ P00162 303 00431 2233 P00431, P02233 304 00432 2304 ISZ D00504 305 00433 2354 D00433, 2354 306 00434 2423 L00434, ISZ I P00023 307 00435 2472 ISZ I P00072 308 00436 2537 ISZ I P00137 309 00437 2604 ISZ I P00404 310 00440 2650 ISZ I P00450 311 00441 2713 ISZ I P00513 312 00442 2756 ISZ I P00556 313 00443 3017 DCA P00017 314 00444 3057 DCA D00057 315 00445 3117 DCA P00117 316 00446 3155 DCA D00155 317 00447 3213 D00447, 3213 318 00450 3247 P00450, D03247 319 00451 3302 DCA D00502 320 00452 3335 DCA D00535 321 00453 3366 DCA P00566 322 00454 3416 DCA I P00016 323 00455 3445 DCA I P00045 324 00456 3473 DCA I P00073 325 00457 3520 DCA I P00120 326 00460 3544 DCA I P00144 327 00461 3567 DCA I P00167 328 00462 3610 D00462, 3610 329 00463 3631 DCA I P00431 330 00464 3650 DCA I P00450 331 00465 3666 DCA I P00466 332 00466 3703 P00466, D03703 333 00467 3716 DCA I P00516 334 00470 3731 DCA I P00531 335 00471 3742 DCA I P00542 336 00472 3752 DCA I P00552 337 00473 3761 DCA I P00561 338 00474 3766 DCA I P00566 339 00475 3773 DCA I P00573 340 00476 3776 DCA I P00576 341 00477 3777 DCA I P00577 342 00500 3777 DCA I P00577 343 00501 3777 P00501, P03777 344 00502 3776 D00502, 3776 345 00503 3773 P00503, P03773 346 00504 3766 D00504, 3766 347 00505 3761 DCA I P00561 348 00506 3752 P00506, L03752 349 00507 3742 DCA I P00542 350 00510 3731 DCA I P00531 351 00511 3716 L00511, DCA I P00516 352 00512 3703 DCA I P00503 353 00513 3666 P00513, D03666 354 00514 3650 DCA I P00450 355 00515 3631 DCA I P00431 356 00516 3610 P00516, P03610 357 00517 3567 DCA I P00167 358 00520 3544 L00520, DCA I P00144 359 00521 3520 DCA I P00120 360 00522 3473 D00522, 3473 361 00523 3445 DCA I P00045 362 00524 3416 DCA I P00016 363 00525 3366 DCA P00566 364 00526 3335 L00526, DCA D00535 365 00527 3302 D00527, 3302 366 00530 3247 DCA D00447 367 00531 3213 P00531, D03213 368 00532 3155 DCA D00155 369 00533 3117 DCA P00117 370 00534 3057 DCA D00057 371 00535 3017 D00535, 3017 372 00536 2756 ISZ I P00556 373 00537 2713 ISZ I P00513 374 00540 2650 D00540, 2650 375 00541 2604 D00541, 2604 376 00542 2537 P00542, D02537 377 00543 2472 ISZ I P00072 378 00544 2423 ISZ I P00023 379 00545 2354 ISZ D00554 380 00546 2304 ISZ D00504 381 00547 2233 ISZ D00433 382 00550 2162 ISZ P00162 383 00551 2110 ISZ D00110 384 00552 2035 P00552, D02035 385 00553 1762 TAD I P00562 386 00554 1706 D00554, 1706 387 00555 1631 TAD I P00431 388 00556 1554 P00556, S01554 389 00557 1476 TAD I P00076 390 00560 1420 TAD I P00020 391 00561 1341 P00561, L01341 392 00562 1262 P00562, D01262 393 00563 1203 TAD L00403 394 00564 1123 TAD P00123 395 00565 1042 TAD P00042 396 00566 0762 P00566, D00762 397 00567 0701 AND I P00501 398 00570 0620 AND I P00420 399 00571 0536 AND I P00136 400 00572 0455 AND I P00055 401 00573 0373 P00573, D00373 402 00574 0311 AND L00511 403 00575 0227 AND D00427 404 00576 0145 P00576, P00145 405 00577 0062 P00577, P00062 406 407 *0600 408 00600 0000 S00600, 0000 409 00601 3353 DCA P00753 410 00602 1353 TAD P00753 411 00603 7001 IAC 412 00604 3357 DCA P00757 413 00605 1357 TAD P00757 414 00606 1377 TAD P00777 415 00607 3360 DCA P00760 416 00610 1360 TAD P00760 417 00611 1377 TAD P00777 418 00612 3356 DCA P00756 419 00613 1356 TAD P00756 420 00614 1376 TAD D00776 421 00615 3351 DCA P00751 422 00616 1351 L00616, TAD P00751 423 00617 1377 TAD P00777 424 00620 3352 L00620, DCA P00752 425 00621 1352 TAD P00752 426 00622 7001 IAC 427 00623 3354 DCA P00754 428 00624 1752 TAD I P00752 429 00625 3352 DCA P00752 430 00626 1600 TAD I S00600 431 00627 2200 ISZ S00600 432 00630 7450 SNA 433 00631 5305 JMP L00705 434 00632 7200 L00632, CLA 435 00633 1756 TAD I P00756 436 00634 7450 SNA 437 00635 5600 JMP I S00600 438 00636 7001 IAC 439 00637 7450 SNA 440 00640 5300 JMP L00700 441 00641 3756 DCA I P00756 442 00642 1757 TAD I P00757 443 00643 7041 CIA 444 00644 1760 TAD I P00760 445 00645 7001 IAC 446 00646 3350 DCA P00750 447 00647 1754 TAD I P00754 448 00650 1751 TAD I P00751 449 00651 3754 DCA I P00754 450 00652 1754 TAD I P00754 451 00653 4577 JMS I P00177 452 00654 3750 DCA I P00750 453 00655 1750 TAD I P00750 454 00656 7421 7421 455 00657 2354 ISZ P00754 456 00660 2350 ISZ P00750 457 00661 2351 ISZ P00751 458 00662 1754 TAD I P00754 459 00663 1751 TAD I P00751 460 00664 3754 DCA I P00754 461 00665 1754 TAD I P00754 462 00666 4577 JMS I P00177 463 00667 3750 DCA I P00750 464 00670 1750 TAD I P00750 465 00671 7521 7521 466 00672 2350 ISZ P00750 467 00673 3750 DCA I P00750 468 00674 2350 ISZ P00750 469 00675 7501 7501 470 00676 3750 DCA I P00750 471 00677 5600 JMP I S00600 472 00700 2351 L00700, ISZ P00751 473 00701 2351 ISZ P00751 474 00702 3751 DCA I P00751 475 00703 3756 DCA I P00756 476 00704 5600 JMP I S00600 477 00705 1756 L00705, TAD I P00756 478 00706 7440 SZA 479 00707 5232 JMP L00632 480 00710 1753 TAD I P00753 481 00711 4433 JMS I P00033 482 00712 7041 CIA 483 00713 3316 DCA D00716 484 00714 1355 TAD D00755 485 00715 4427 JMS I P00027 486 00716 0000 D00716, 0000 487 00717 3751 DCA I P00751 488 00720 2351 ISZ P00751 489 00721 1753 TAD I P00753 490 00722 4432 JMS I P00032 491 00723 3326 DCA D00726 492 00724 1355 TAD D00755 493 00725 4427 JMS I P00027 494 00726 0000 D00726, 0000 495 00727 3751 DCA I P00751 496 00730 2351 D00730, 2351 497 00731 1375 TAD D00775 498 00732 3751 DCA I P00751 499 00733 1374 TAD D00774 500 00734 3756 DCA I P00756 501 00735 1752 TAD I P00752 502 00736 7006 RTL 503 00737 7004 RAL 504 00740 3754 DCA I P00754 505 00741 2352 ISZ P00752 506 00742 2354 ISZ P00754 507 00743 1752 TAD I P00752 508 00744 7006 RTL 509 00745 7004 RAL 510 00746 3754 DCA I P00754 511 00747 5232 JMP L00632 512 00750 0000 P00750, S00000 513 00751 0000 P00751, S00000 514 00752 0000 P00752, S00000 515 00753 0000 P00753, S00000 516 00754 0000 P00754, S00000 517 00755 0065 D00755, 0065 518 00756 0000 P00756, S00000 519 00757 0000 P00757, S00000 520 00760 0000 P00760, S00000 521 00761 4566 JMS I P00166 522 00762 5756 D00762, 5756 523 00763 0077 AND P00077 524 00764 0037 AND P00037 525 00765 7477 7477 526 00766 7540 SZA SMA 527 00767 0777 AND I P00777 528 00770 0330 AND D00730 529 00771 7607 7607 530 00772 0200 AND S00600 531 00773 7746 SZA SMA CLA OSR HLT 532 00774 7710 D00774, 7710 533 00775 7774 D00775, 7774 534 00776 0002 D00776, 0002 535 00777 0003 P00777, P00003 536 537 *1000 538 01000 0000 S01000, 0000 539 01001 3322 DCA P01122 540 01002 1722 TAD I P01122 541 01003 2322 ISZ P01122 542 01004 3316 DCA D01116 543 01005 1316 TAD D01116 544 01006 4433 JMS I P00033 545 01007 3272 DCA D01072 546 01010 1272 TAD D01072 547 01011 3302 DCA D01102 548 01012 1316 TAD D01116 549 01013 4432 JMS I P00032 550 01014 3265 DCA D01065 551 01015 1265 TAD D01065 552 01016 3306 P01016, D03306 553 01017 1722 TAD I P01122 554 01020 7120 CLL CML 555 01021 7010 RAR 556 01022 3315 DCA D01115 557 01023 2322 ISZ P01122 558 01024 1722 TAD I P01122 559 01025 7100 CLL 560 01026 0377 AND D01177 561 01027 7510 SPA 562 01030 7121 CLL CML IAC 563 01031 7012 RTR 564 01032 7510 SPA 565 01033 7120 CLL CML 566 01034 7010 RAR 567 01035 3320 DCA D01120 568 01036 2322 ISZ P01122 569 01037 1722 TAD I P01122 570 01040 7100 CLL 571 01041 0377 AND D01177 572 01042 7510 SPA 573 01043 7121 CLL CML IAC 574 01044 7012 RTR 575 01045 7510 SPA 576 01046 7120 CLL CML 577 01047 7010 RAR 578 01050 3321 DCA D01121 579 01051 2322 ISZ P01122 580 01052 1722 TAD I P01122 581 01053 3324 D01053, 3324 582 01054 2322 ISZ P01122 583 01055 1722 TAD I P01122 584 01056 3323 DCA P01123 585 01057 2323 L01057, ISZ P01123 586 01060 2324 ISZ P01124 587 01061 1723 TAD I P01123 588 01062 3317 D01062, 3317 589 01063 1317 TAD D01117 590 01064 4427 JMS I P00027 591 01065 0000 D01065, 0000 592 01066 3316 DCA D01116 593 01067 2323 ISZ P01123 594 01070 1723 TAD I P01123 595 01071 4427 JMS I P00027 596 01072 0000 D01072, 0000 597 01073 7041 CIA 598 01074 1316 TAD D01116 599 01075 1320 TAD D01120 600 01076 3724 DCA I P01124 601 01077 2324 ISZ P01124 602 01100 1317 TAD D01117 603 01101 4427 JMS I P00027 604 01102 0000 D01102, 0000 605 01103 3316 DCA D01116 606 01104 1723 TAD I P01123 607 01105 4427 JMS I P00027 608 01106 0000 D01106, 0000 609 01107 1316 TAD D01116 610 01110 1321 TAD D01121 611 01111 3724 DCA I P01124 612 01112 2315 L01112, ISZ D01115 613 01113 5257 D01113, 5257 614 01114 5600 JMP I S01000 615 01115 0000 D01115, 0000 616 01116 0000 D01116, 0000 617 01117 0000 D01117, 0000 618 01120 0000 D01120, 0000 619 01121 0000 D01121, 0000 620 01122 0000 P01122, S00000 621 01123 0000 P01123, S00000 622 01124 0000 P01124, S00000 623 01125 1042 TAD P00042 624 01126 3021 DCA D00021 625 01127 5312 JMP L01112 626 01130 1040 TAD P00040 627 01131 0120 AND P00120 628 01132 7106 CLL RTL 629 01133 7004 RAL 630 01134 1361 TAD L01161 631 01135 3566 DCA I P00166 632 01136 1021 TAD D00021 633 01137 5740 JMP I P01140 634 01140 0616 P01140, L00616 635 01141 0000 P01141, S00000 636 01142 1021 TAD D00021 637 01143 7104 CLL RAL 638 01144 3021 D01144, 3021 639 01145 1040 TAD P00040 640 01146 7004 RAL 641 01147 3040 DCA P00040 642 01150 5741 JMP I P01141 643 01151 1154 TAD P00154 644 01152 3014 DCA P00014 645 01153 1125 TAD P00125 646 01154 3041 DCA P00041 647 01155 6211 CDF 10 648 01156 3414 L01156, DCA I P00014 649 01157 2041 ISZ P00041 650 01160 5356 JMP L01156 651 01161 6203 L01161, CDF CIF 0 652 01162 5475 JMP I P00075 653 01163 6211 CDF 10 654 01164 3441 DCA I P00041 655 01165 5361 JMP L01161 656 01166 1253 P01166, L01253 657 01167 1074 TAD D00074 658 01170 3034 D01170, 3034 659 01171 4776 JMS I P01176 660 01172 1073 TAD P00073 661 01173 4423 JMS I P00023 662 01174 5766 JMP I P01166 663 01175 1546 TAD I P00146 664 01176 1262 P01176, D01262 665 01177 7774 D01177, 7774 666 667 *1200 668 01200 0000 S01200, 0000 669 01201 3364 DCA P01364 670 01202 1377 TAD D01377 671 01203 1364 TAD P01364 672 01204 3356 DCA P01356 673 01205 1376 TAD D01376 674 01206 1364 TAD P01364 675 01207 3360 DCA P01360 676 01210 1375 TAD D01375 677 01211 1364 TAD P01364 678 01212 3361 DCA P01361 679 01213 1374 TAD D01374 680 01214 1364 TAD P01364 681 01215 3362 DCA P01362 682 01216 1762 TAD I P01362 683 01217 7012 RTR 684 01220 7420 SNL 685 01221 5341 JMP L01341 686 01222 7010 RAR 687 01223 7420 SNL 688 01224 5277 JMP L01277 689 01225 7200 CLA 690 01226 1762 TAD I P01362 691 01227 7012 RTR 692 01230 7012 RTR 693 01231 7200 CLA 694 01232 1024 TAD L00024 695 01233 7430 SZL 696 01234 7041 CIA 697 01235 1756 TAD I P01356 698 01236 3363 DCA D01363 699 01237 1363 TAD D01363 700 01240 7500 SMA 701 01241 7041 CIA 702 01242 3357 DCA D01357 703 01243 1762 TAD I P01362 704 01244 0373 AND D01373 705 01245 7650 SNA CLA 706 01246 1023 TAD P00023 707 01247 1357 TAD D01357 708 01250 1023 TAD P00023 709 01251 7510 SPA 710 01252 5345 JMP L01345 711 01253 7200 L01253, CLA 712 01254 1363 TAD D01363 713 01255 3756 L01255, DCA I P01356 714 01256 5277 JMP L01277 715 01257 7200 L01257, CLA 716 01260 1756 TAD I P01356 717 01261 7500 SMA 718 01262 7041 D01262, 7041 719 01263 1025 TAD P00025 720 01264 7500 SMA 721 01265 5327 JMP L01327 722 01266 7200 CLA 723 01267 1756 TAD I P01356 724 01270 7004 RAL 725 01271 7200 CLA 726 01272 1026 TAD P00026 727 01273 7420 SNL 728 01274 7041 CIA 729 01275 1756 TAD I P01356 730 01276 3756 DCA I P01356 731 01277 7200 L01277, CLA 732 01300 1764 TAD I P01364 733 01301 4432 D01301, 4432 734 01302 3305 DCA D01305 735 01303 1756 TAD I P01356 736 01304 4427 JMS I P00027 737 01305 0000 D01305, 0000 738 01306 7100 CLL 739 01307 1761 TAD I P01361 740 01310 3761 DCA I P01361 741 01311 1764 TAD I P01364 742 01312 4433 JMS I P00033 743 01313 7041 CIA 744 01314 3317 DCA D01317 745 01315 1756 TAD I P01356 746 01316 4427 JMS I P00027 747 01317 0000 D01317, 0000 748 01320 7100 CLL 749 01321 1760 TAD I P01360 750 01322 3760 DCA I P01360 751 01323 7200 L01323, CLA 752 01324 1364 TAD P01364 753 01325 4772 JMS I P01372 754 01326 5600 JMP I S01200 755 01327 7200 L01327, CLA 756 01330 3756 DCA I P01356 757 01331 1762 TAD I P01362 758 01332 7012 RTR 759 01333 7430 SZL 760 01334 5323 JMP L01323 761 01335 7010 RAR 762 01336 7430 SZL 763 01337 5323 JMP L01323 764 01340 5323 JMP L01323 765 01341 7010 L01341, RAR 766 01342 7420 SNL 767 01343 5257 L01343, JMP L01257 768 01344 5277 JMP L01277 769 01345 1756 L01345, TAD I P01356 770 01346 7004 RAL 771 01347 7200 CLA 772 01350 1024 TAD L00024 773 01351 7420 SNL 774 01352 7041 CIA 775 01353 1756 TAD I P01356 776 01354 3756 DCA I P01356 777 01355 5277 JMP L01277 778 01356 0000 P01356, S00000 779 01357 0000 D01357, 0000 780 01360 0000 P01360, S00000 781 01361 0000 P01361, S00000 782 01362 0000 P01362, S00000 783 01363 0000 D01363, 0000 784 01364 0000 P01364, S00000 785 01365 3375 DCA D01375 786 01366 5372 JMP P01372 787 01367 1031 TAD P00031 788 01370 7650 SNA CLA 789 01371 5462 JMP I P00062 790 01372 1000 P01372, S01000 791 01373 0020 D01373, 0020 792 01374 0010 D01374, 0010 793 01375 0003 D01375, 0003 794 01376 0002 D01376, 0002 795 01377 0006 D01377, 0006 796 797 *1400 798 01400 1377 P01400, D01377 799 01401 7130 CLL CML RAR 800 01402 3256 DCA L01456 801 01403 1376 TAD P01576 802 01404 3257 DCA P01457 803 01405 1375 TAD D01575 804 01406 3260 DCA P01460 805 01407 1657 L01407, TAD I P01457 806 01410 3660 P01410, D03660 807 01411 2260 ISZ P01460 808 01412 2257 ISZ P01457 809 01413 1657 TAD I P01457 810 01414 1377 TAD D01577 811 01415 7041 CIA 812 01416 3660 DCA I P01460 813 01417 2260 ISZ P01460 814 01420 2257 D01420, 2257 815 01421 2256 ISZ L01456 816 01422 5207 JMP L01407 817 01423 1376 TAD P01576 818 01424 3257 DCA P01457 819 01425 1377 TAD D01577 820 01426 7104 CLL RAL 821 01427 3256 DCA L01456 822 01430 1657 L01430, TAD I P01457 823 01431 7041 CIA 824 01432 3660 DCA I P01460 825 01433 2257 ISZ P01457 826 01434 2260 ISZ P01460 827 01435 2256 ISZ L01456 828 01436 5230 JMP L01430 829 01437 1176 TAD D00176 830 01440 3257 DCA P01457 831 01441 1374 TAD D01574 832 01442 3255 DCA D01455 833 01443 1373 TAD D01573 834 01444 4434 L01444, JMS I P00034 835 01445 0372 AND D01572 836 01446 7510 SPA 837 01447 1371 TAD D01571 838 01450 3657 D01450, 3657 839 01451 2257 ISZ P01457 840 01452 2255 ISZ D01455 841 01453 5244 JMP L01444 842 01454 5770 JMP I P01570 843 01455 0000 D01455, 0000 844 01456 0000 L01456, AND S00000 845 01457 0000 P01457, S00000 846 01460 0000 P01460, S00000 847 01461 0000 S01461, 0000 848 01462 1575 TAD I P00175 849 01463 7041 CIA 850 01464 1574 TAD I P00174 851 01465 7710 SPA CLA 852 01466 5273 JMP L01473 853 01467 1173 TAD P00173 854 01470 1574 TAD I P00174 855 01471 3574 DCA I P00174 856 01472 5276 JMP L01476 857 01473 1173 L01473, TAD P00173 858 01474 1575 TAD I P00175 859 01475 3575 DCA I P00175 860 01476 1572 L01476, TAD I P00172 861 01477 7041 CIA 862 01500 1571 TAD I P00171 863 01501 7700 SMA CLA 864 01502 5307 JMP L01507 865 01503 1173 TAD P00173 866 01504 1572 TAD I P00172 867 01505 3572 DCA I P00172 868 01506 5661 JMP I S01461 869 01507 1173 L01507, TAD P00173 870 01510 1571 TAD I P00171 871 01511 3571 DCA I P00171 872 01512 5661 JMP I S01461 873 01513 7130 CLL CML RAR 874 01514 3356 DCA D01556 875 01515 4354 D01515, 4354 876 01516 7332 CLA CLL CML RTR 877 01517 3357 DCA D01557 878 01520 1356 TAD D01556 879 01521 0055 AND P00055 880 01522 7041 CIA 881 01523 1041 TAD P00041 882 01524 7500 SMA 883 01525 1054 TAD P00054 884 01526 3356 DCA D01556 885 01527 4354 JMS S01554 886 01530 2461 ISZ I P00061 887 01531 5256 JMP L01456 888 01532 4562 JMS I P00162 889 01533 0610 AND I P01410 890 01534 0000 P01534, S00000 891 01535 0013 AND P00013 892 01536 5001 JMP P00001 893 01537 7240 CLA CMA 894 01540 6211 CDF 10 895 01541 3477 DCA I P00077 896 01542 5453 JMP I P00053 897 01543 0000 P01543, S00000 898 01544 2350 ISZ D01550 899 01545 5743 JMP I P01543 900 01546 4562 JMS I P00162 901 01547 1010 TAD P00010 902 01550 7777 D01550, 7777 903 01551 0033 AND P00033 904 01552 5001 JMP P00001 905 01553 5743 JMP I P01543 906 01554 0000 S01554, 0000 907 01555 4426 JMS I P00026 908 01556 4101 D01556, 4101 909 01557 0600 D01557, 0600 910 01560 0000 D01560, 0000 911 01561 5367 JMP L01567 912 01562 1356 TAD D01556 913 01563 4776 JMS I P01576 914 01564 1360 TAD D01560 915 01565 3360 DCA D01560 916 01566 5754 JMP I S01554 917 01567 4500 L01567, JMS I P00100 918 01570 1600 P01570, P01600 919 01571 3770 D01571, 3770 920 01572 4007 D01572, 4007 921 01573 6571 D01573, 6571 922 01574 7501 D01574, 7501 923 01575 5334 D01575, 5334 924 01576 4734 P01576, 4734 925 01577 7400 D01577, 7400 926 927 *1600 928 01600 7200 P01600, L07200 929 01601 3777 DCA I P01777 930 01602 3776 P01602, P03776 931 01603 1170 P01603, D01170 932 01604 3775 D01604, 3775 933 01605 1167 TAD P00167 934 01606 3774 P01606, P03774 935 01607 1166 TAD P00166 936 01610 4435 P01610, D04435 937 01611 7200 D01611, 7200 938 01612 3773 DCA I P01773 939 01613 3772 P01613, P03772 940 01614 1371 TAD P01771 941 01615 3770 DCA I P01770 942 01616 1367 TAD D01767 943 01617 3766 D01617, 3766 944 01620 1165 TAD D00165 945 01621 4435 P01621, D04435 946 01622 7200 L01622, CLA 947 01623 2765 ISZ I P01765 948 01624 7410 SKP 949 01625 4771 P01625, P04771 950 01626 7200 P01626, L07200 951 01627 2764 ISZ I P01764 952 01630 7410 SKP 953 01631 4763 P01631, D04763 954 01632 7200 CLA 955 01633 2762 P01633, D02762 956 01634 7410 SKP 957 01635 4761 JMS I P01761 958 01636 7200 P01636, L07200 959 01637 2760 ISZ I P01760 960 01640 7410 SKP 961 01641 4757 JMS I P01757 962 01642 6031 KSF 963 01643 5252 JMP L01652 964 01644 6036 P01644, KRB 965 01645 1356 TAD D01756 966 01646 7440 SZA 967 01647 5200 JMP P01600 968 01650 5651 JMP I P01651 969 01651 7600 P01651, L07600 970 01652 7604 L01652, CLA OSR 971 01653 7040 CMA 972 01654 0164 AND P00164 973 01655 3755 DCA I P01755 974 01656 7604 CLA OSR 975 01657 7012 RTR 976 01660 7012 RTR 977 01661 7012 RTR 978 01662 7040 CMA 979 01663 0164 AND P00164 980 01664 3754 DCA I P01754 981 01665 7200 CLA 982 01666 1753 TAD I P01753 983 01667 7450 SNA 984 01670 5275 JMP L01675 985 01671 1752 TAD I P01752 986 01672 7440 SZA 987 01673 5324 JMP L01724 988 01674 7200 CLA 989 01675 1575 L01675, TAD I P00175 990 01676 7041 D01676, 7041 991 01677 1574 D01677, 1574 992 01700 7500 SMA 993 01701 7041 CIA 994 01702 1163 TAD D00163 995 01703 7510 SPA 996 01704 5324 JMP L01724 997 01705 1572 TAD I P00172 998 01706 7041 CIA 999 01707 1571 TAD I P00171 1000 01710 7500 SMA 1001 01711 7041 CIA 1002 01712 1163 TAD D00163 1003 01713 7510 SPA 1004 01714 5324 JMP L01724 1005 01715 7200 L01715, CLA 1006 01716 4751 JMS I P01751 1007 01717 7200 CLA 1008 01720 7040 CMA 1009 01721 3753 DCA I P01753 1010 01722 7040 D01722, 7040 1011 01723 3752 DCA I P01752 1012 01724 4562 L01724, JMS I P00162 1013 01725 5750 JMP I P01750 1014 01726 3334 DCA D01734 1015 01727 2351 ISZ P01751 1016 01730 1751 TAD I P01751 1017 01731 3333 DCA D01733 1018 01732 4755 JMS I P01755 1019 01733 0000 D01733, 0000 1020 01734 0000 D01734, 0000 1021 01735 0000 D01735, 0000 1022 01736 5345 JMP L01745 1023 01737 1333 TAD D01733 1024 01740 4365 JMS P01765 1025 01741 1335 TAD D01735 1026 01742 3335 DCA D01735 1027 01743 2351 ISZ P01751 1028 01744 5315 JMP L01715 1029 01745 6212 L01745, CIF 10 1030 01746 4754 JMS I P01754 1031 01747 0007 AND D00007 1032 01750 2000 P01750, P02000 1033 01751 1461 P01751, S01461 1034 01752 2621 P01752, D02621 1035 01753 2644 P01753, D02644 1036 01754 2610 P01754, D02610 1037 01755 2633 P01755, D02633 1038 01756 7575 D01756, 7575 1039 01757 2476 P01757, S02476 1040 01760 2024 P01760, D02024 1041 01761 2400 P01761, S02400 1042 01762 2023 P01762, D02023 1043 01763 2276 P01763, S02276 1044 01764 2022 P01764, P02022 1045 01765 2021 P01765, D02021 1046 01766 2626 P01766, L02626 1047 01767 5600 D01767, 5600 1048 01770 2625 P01770, D02625 1049 01771 2200 P01771, S02200 1050 01772 2636 P01772, D02636 1051 01773 2631 P01773, D02631 1052 01774 2603 P01774, D02603 1053 01775 2602 P01775, L02602 1054 01776 2613 P01776, D02613 1055 01777 2606 P01777, D02606 1056 1057 *2000 1058 02000 7200 P02000, L07200 1059 02001 1161 P02001, L01161 1060 02002 1777 D02002, 1777 1061 02003 3206 P02003, D03206 1062 02004 1160 TAD L00160 1063 02005 4431 JMS I P00031 1064 02006 7622 D02006, 7622 1065 02007 1157 TAD D00157 1066 02010 1776 D02010, 1776 1067 02011 3214 DCA D02014 1068 02012 1156 TAD P00156 1069 02013 4431 P02013, D04431 1070 02014 7612 D02014, 7612 1071 02015 1375 TAD D02175 1072 02016 4431 JMS I P00031 1073 02017 6000 IOT 1074 02020 5774 P02020, D05774 1075 02021 7777 D02021, 7777 1076 02022 7777 P02022, D07777 1077 02023 7777 D02023, 7777 1078 02024 7776 D02024, 7776 1079 02025 0401 AND I P00001 1080 02026 0603 AND I P02003 1081 02027 1011 TAD P00011 1082 02030 1177 TAD P00177 1083 02031 0263 D02031, 0263 1084 02032 0306 AND D02106 1085 02033 0253 AND D02053 1086 02034 0324 AND D02124 1087 02035 0341 D02035, 0341 1088 02036 0400 P02036, L00400 1089 02037 1343 P02037, L01343 1090 02040 0620 P02040, L00620 1091 02041 6213 D02041, 6213 1092 02042 3600 DCA I P02000 1093 02043 6213 CDF CIF 10 1094 02044 5640 JMP I P02040 1095 02045 2057 ISZ D00057 1096 02046 2057 L02046, ISZ D00057 1097 02047 2057 ISZ D00057 1098 02050 2057 ISZ D00057 1099 02051 2057 ISZ D00057 1100 02052 2057 ISZ D00057 1101 02053 7200 D02053, 7200 1102 02054 6202 CIF 0 1103 02055 4575 JMS I P00175 1104 02056 0210 AND D02010 1105 02057 1400 P02057, P01400 1106 02060 0056 AND D00056 1107 02061 7402 HLT 1108 02062 5657 JMP I P02057 1109 02063 7330 D02063, 7330 1110 02064 4351 JMS S02151 1111 02065 4220 JMS P02020 1112 02066 3041 DCA P00041 1113 02067 6202 CIF 0 1114 02070 4575 JMS I P00175 1115 02071 0601 AND I P02001 1116 02072 0000 AND S00000 1117 02073 0051 AND P00051 1118 02074 5246 JMP L02046 1119 02075 1241 TAD D02041 1120 02076 6203 CDF CIF 0 1121 02077 4574 JMS I P00174 1122 02100 3241 DCA D02041 1123 02101 1241 TAD D02041 1124 02102 3345 DCA D02145 1125 02103 4351 JMS S02151 1126 02104 7120 CLL CML 1127 02105 5637 JMP I P02037 1128 02106 4220 D02106, 4220 1129 02107 3041 DCA P00041 1130 02110 6202 CIF 0 1131 02111 4575 JMS I P00175 1132 02112 0101 AND D00101 1133 02113 7400 P02113, L07400 1134 02114 0057 AND D00057 1135 02115 5246 JMP L02046 1136 02116 1041 TAD P00041 1137 02117 6203 CDF CIF 0 1138 02120 5713 JMP I P02113 1139 02121 7200 CLA 1140 02122 2200 ISZ P02000 1141 02123 1040 TAD P00040 1142 02124 7110 D02124, 7110 1143 02125 1200 L02125, TAD P02000 1144 02126 3573 DCA I P00173 1145 02127 1241 TAD D02041 1146 02130 3572 DCA I P00172 1147 02131 7221 CLA CML IAC 1148 02132 6201 CDF 0 1149 02133 0571 P02133, 0571 1150 02134 6211 CDF 10 1151 02135 7010 RAR 1152 02136 7730 SPA SZL CLA 1153 02137 5572 JMP I P00172 1154 02140 5570 JMP I P00170 1155 02141 7120 D02141, 7120 1156 02142 5325 JMP L02125 1157 02143 0223 P02143, L00223 1158 02144 3240 DCA P02040 1159 02145 6213 D02145, 6213 1160 02146 1640 TAD I P02040 1161 02147 6213 CDF CIF 10 1162 02150 5743 JMP I P02143 1163 02151 0000 S02151, 0000 1164 02152 1374 TAD P02174 1165 02153 3364 DCA D02164 1166 02154 6201 CDF 0 1167 02155 1571 TAD I P00171 1168 02156 6211 CDF 10 1169 02157 7012 RTR 1170 02160 7630 SZL CLA 1171 02161 5751 JMP I S02151 1172 02162 6202 CIF 0 1173 02163 4575 JMS I P00175 1174 02164 0000 D02164, 0000 1175 02165 0000 AND S00000 1176 02166 0033 AND P00033 1177 02167 5246 JMP L02046 1178 02170 5751 JMP I S02151 1179 02171 6202 CIF 0 1180 02172 4575 JMS I P00175 1181 02173 0111 AND P00111 1182 02174 1622 P02174, L01622 1183 02175 4733 D02175, 4733 1184 02176 2613 P02176, D02613 1185 02177 2636 P02177, D02636 1186 1187 *2200 1188 02200 0000 S02200, 0000 1189 02201 1155 TAD D00155 1190 02202 3777 DCA I P02377 1191 02203 1154 TAD P00154 1192 02204 4553 P02204, L04553 1193 02205 0020 AND P00020 1194 02206 5211 JMP L02211 1195 02207 7200 CLA 1196 02210 3776 DCA I P02376 1197 02211 1775 L02211, TAD I P02375 1198 02212 7040 CMA 1199 02213 0374 AND D02374 1200 02214 3217 DCA D02217 1201 02215 1165 TAD D00165 1202 02216 4552 JMS I P00152 1203 02217 0000 D02217, 0000 1204 02220 7200 CLA 1205 02221 1773 TAD I P02373 1206 02222 7440 SZA 1207 02223 5243 P02223, D05243 1208 02224 7200 CLA 1209 02225 1165 TAD D00165 1210 02226 4553 JMS I P00153 1211 02227 0110 AND D00110 1212 02230 5243 JMP L02243 1213 02231 7200 P02231, L07200 1214 02232 1772 TAD I P02372 1215 02233 7510 P02233, D07510 1216 02234 1151 TAD L00151 1217 02235 1173 TAD P00173 1218 02236 7041 P02236, D07041 1219 02237 3772 DCA I P02372 1220 02240 7040 D02240, 7040 1221 02241 3773 DCA I P02373 1222 02242 5600 JMP I S02200 1223 02243 1165 L02243, TAD D00165 1224 02244 4553 P02244, L04553 1225 02245 0140 AND P00140 1226 02246 5250 JMP L02250 1227 02247 5600 JMP I S02200 1228 02250 7200 L02250, CLA 1229 02251 1775 TAD I P02375 1230 02252 7012 RTR 1231 02253 7430 SZL 1232 02254 5266 JMP L02266 1233 02255 7010 RAR 1234 02256 7420 SNL 1235 02257 5600 JMP I S02200 1236 02260 7200 CLA 1237 02261 1150 TAD P00150 1238 02262 7041 CIA 1239 02263 1771 TAD I P02371 1240 02264 3771 DCA I P02371 1241 02265 5600 JMP I S02200 1242 02266 7010 L02266, RAR 1243 02267 7430 SZL 1244 02270 5275 JMP L02275 1245 02271 7200 CLA 1246 02272 1150 TAD P00150 1247 02273 1771 TAD I P02371 1248 02274 3771 DCA I P02371 1249 02275 5600 L02275, JMP I S02200 1250 02276 0000 S02276, 0000 1251 02277 1147 D02277, 1147 1252 02300 3770 DCA I P02370 1253 02301 1165 D02301, 1165 1254 02302 4546 D02302, 4546 1255 02303 7200 D02303, 7200 1256 02304 1773 TAD I P02373 1257 02305 7650 SNA CLA 1258 02306 5676 JMP I S02276 1259 02307 3772 L02307, DCA I P02372 1260 02310 3773 DCA I P02373 1261 02311 5676 JMP I S02276 1262 02312 1302 TAD D02302 1263 02313 7130 CLL CML RAR 1264 02314 1301 TAD D02301 1265 02315 7700 SMA CLA 1266 02316 3441 DCA I P00041 1267 02317 4334 JMS P02334 1268 02320 7041 CIA 1269 02321 1303 TAD D02303 1270 02322 7640 SZA CLA 1271 02323 5330 P02323, L05330 1272 02324 1442 TAD I P00042 1273 02325 0153 AND P00153 1274 02326 1302 TAD D02302 1275 02327 3441 DCA I P00041 1276 02330 2044 L02330, ISZ D00044 1277 02331 5307 D02331, 5307 1278 02332 1447 TAD I P00047 1279 02333 5552 JMP I P00152 1280 02334 0520 P02334, L00520 1281 02335 1442 TAD I P00042 1282 02336 7106 CLL RTL 1283 02337 7006 RTL 1284 02340 7006 D02340, 7006 1285 02341 0151 AND L00151 1286 02342 1150 TAD P00150 1287 02343 5734 JMP I P02334 1288 02344 0511 P02344, L00511 1289 02345 0151 AND L00151 1290 02346 7450 SNA 1291 02347 5547 JMP I P00147 1292 02350 3052 DCA D00052 1293 02351 1052 TAD D00052 1294 02352 1146 TAD P00146 1295 02353 3042 DCA P00042 1296 02354 1052 TAD D00052 1297 02355 1145 TAD P00145 1298 02356 3041 DCA P00041 1299 02357 1052 TAD D00052 1300 02360 1144 TAD P00144 1301 02361 3050 DCA P00050 1302 02362 1441 TAD I P00041 1303 02363 5744 JMP I P02344 1304 02364 4631 JMS I P02231 1305 02365 5723 JMP I P02323 1306 02366 0406 AND I P00006 1307 02367 5604 JMP I P02204 1308 02370 2022 P02370, P02022 1309 02371 2623 P02371, D02623 1310 02372 2631 P02372, D02631 1311 02373 2644 P02373, D02644 1312 02374 0001 D02374, 0001 1313 02375 2633 P02375, D02633 1314 02376 2636 P02376, D02636 1315 02377 2021 P02377, D02021 1316 1317 *2400 1318 02400 0000 S02400, 0000 1319 02401 1155 TAD D00155 1320 02402 3777 DCA I P02577 1321 02403 1145 D02403, 1145 1322 02404 4553 JMS I P00153 1323 02405 0020 AND P00020 1324 02406 5211 P02406, D05211 1325 02407 7200 CLA 1326 02410 3776 P02410, P03776 1327 02411 1775 L02411, TAD I P02575 1328 02412 7040 CMA 1329 02413 0374 P02413, D00374 1330 02414 3217 DCA D02417 1331 02415 1166 TAD P00166 1332 02416 4552 JMS I P00152 1333 02417 0000 D02417, 0000 1334 02420 7200 CLA 1335 02421 1773 P02421, P01773 1336 02422 7440 SZA 1337 02423 5243 JMP L02443 1338 02424 7200 CLA 1339 02425 1166 TAD P00166 1340 02426 4553 JMS I P00153 1341 02427 0110 AND D00110 1342 02430 5243 JMP L02443 1343 02431 7200 CLA 1344 02432 1772 TAD I P02572 1345 02433 7510 SPA 1346 02434 1151 TAD L00151 1347 02435 1173 TAD P00173 1348 02436 7041 CIA 1349 02437 3772 DCA I P02572 1350 02440 7040 CMA 1351 02441 3773 DCA I P02573 1352 02442 5600 JMP I S02400 1353 02443 1166 L02443, TAD P00166 1354 02444 4553 JMS I P00153 1355 02445 0140 AND P00140 1356 02446 5250 JMP L02450 1357 02447 5600 JMP I S02400 1358 02450 7200 L02450, CLA 1359 02451 1775 L02451, TAD I P02575 1360 02452 7012 RTR 1361 02453 7430 SZL 1362 02454 5266 JMP L02466 1363 02455 7010 RAR 1364 02456 7420 SNL 1365 02457 5600 JMP I S02400 1366 02460 7200 CLA 1367 02461 1150 TAD P00150 1368 02462 7041 CIA 1369 02463 1771 TAD I P02571 1370 02464 3771 DCA I P02571 1371 02465 5600 JMP I S02400 1372 02466 7010 L02466, RAR 1373 02467 7430 SZL 1374 02470 5275 JMP L02475 1375 02471 7200 CLA 1376 02472 1150 TAD P00150 1377 02473 1771 TAD I P02571 1378 02474 3771 DCA I P02571 1379 02475 5600 L02475, JMP I S02400 1380 02476 0000 S02476, 0000 1381 02477 1147 TAD P00147 1382 02500 3770 DCA I P02570 1383 02501 1166 P02501, P01166 1384 02502 4546 L02502, JMS I P00146 1385 02503 7200 CLA 1386 02504 1773 TAD I P02573 1387 02505 7650 SNA CLA 1388 02506 5676 JMP I S02476 1389 02507 3773 DCA I P02573 1390 02510 3772 DCA I P02572 1391 02511 5676 JMP I S02476 1392 02512 1044 TAD D00044 1393 02513 3047 DCA P00047 1394 02514 1047 L02514, TAD P00047 1395 02515 4536 JMS I P00136 1396 02516 7041 CIA 1397 02517 1417 TAD I P00017 1398 02520 7640 SZA CLA 1399 02521 5335 JMP L02535 1400 02522 2047 ISZ P00047 1401 02523 2046 ISZ L00046 1402 02524 5314 JMP L02514 1403 02525 4352 JMS S02552 1404 02526 1417 TAD I P00017 1405 02527 7450 SNA 1406 02530 5341 JMP L02541 1407 02531 7041 CIA 1408 02532 3046 DCA L00046 1409 02533 2301 ISZ P02501 1410 02534 5701 JMP I P02501 1411 02535 1046 L02535, TAD L00046 1412 02536 7001 IAC 1413 02537 4352 D02537, 4352 1414 02540 1417 TAD I P00017 1415 02541 1045 L02541, TAD P00045 1416 02542 3045 DCA P00045 1417 02543 2053 ISZ P00053 1418 02544 5302 JMP L02502 1419 02545 3045 DCA P00045 1420 02546 1535 TAD I P00135 1421 02547 7440 SZA 1422 02550 5251 JMP L02451 1423 02551 5701 JMP I P02501 1424 02552 0000 S02552, 0000 1425 02553 1540 TAD I P00140 1426 02554 7041 CIA 1427 02555 1017 TAD P00017 1428 02556 3017 DCA P00017 1429 02557 5752 JMP I S02552 1430 02560 0000 AND S00000 1431 02561 1134 TAD P00134 1432 02562 3365 DCA D02565 1433 02563 6202 CIF 0 1434 02564 4451 JMS I P00051 1435 02565 4210 D02565, 4210 1436 02566 1400 TAD I S00000 1437 02567 0001 AND P00001 1438 02570 2024 P02570, D02024 1439 02571 2600 P02571, L02600 1440 02572 2606 P02572, D02606 1441 02573 2621 P02573, D02621 1442 02574 0001 D02574, 0001 1443 02575 2610 P02575, D02610 1444 02576 2613 P02576, D02613 1445 02577 2023 P02577, D02023 1446 1447 *2600 1448 02600 0020 L02600, AND P00020 1449 02601 7612 SKP CLA HLT 1450 02602 7760 L02602, SZA SMA SNL CLA 1451 02603 7740 D02603, 7740 1452 02604 4534 JMS I P00134 1453 02605 4345 JMS 2745 1454 02606 0000 D02606, 0000 1455 02607 0000 D02607, 0000 1456 02610 0000 D02610, 0000 1457 02611 0000 AND S00000 1458 02612 0000 AND S00000 1459 02613 0000 D02613, 0000 1460 02614 4575 JMS I P00175 1461 02615 0000 D02615, 0000 1462 02616 0000 D02616, 0000 1463 02617 0000 D02617, 0000 1464 02620 0000 AND S00000 1465 02621 0000 D02621, 0000 1466 02622 0000 D02622, 0000 1467 02623 0000 D02623, 0000 1468 02624 7622 SNL CLA HLT 1469 02625 1000 D02625, 1000 1470 02626 0512 L02626, AND I P00112 1471 02627 4156 JMS P00156 1472 02630 3777 DCA I P02777 1473 02631 0000 D02631, 0000 1474 02632 0000 D02632, 0000 1475 02633 0000 D02633, 0000 1476 02634 0000 AND S00000 1477 02635 0000 AND S00000 1478 02636 0000 D02636, 0000 1479 02637 4217 JMS D02617 1480 02640 0000 L02640, AND S00000 1481 02641 0000 D02641, 0000 1482 02642 0000 AND S00000 1483 02643 0000 AND S00000 1484 02644 0000 D02644, 0000 1485 02645 0000 D02645, 0000 1486 02646 5263 JMP L02663 1487 02647 1535 TAD I P00135 1488 02650 7440 SZA 1489 02651 5524 JMP I P00124 1490 02652 1044 TAD D00044 1491 02653 4536 JMS I P00136 1492 02654 7640 SZA CLA 1493 02655 1046 TAD L00046 1494 02656 7650 SNA CLA 1495 02657 5566 JMP I P00166 1496 02660 1054 TAD P00054 1497 02661 2056 ISZ D00056 1498 02662 5524 JMP I P00124 1499 02663 1017 L02663, TAD P00017 1500 02664 3041 DCA P00041 1501 02665 1137 TAD P00137 1502 02666 4525 JMS I P00125 1503 02667 1540 TAD I P00140 1504 02670 7041 CIA 1505 02671 1017 TAD P00017 1506 02672 1123 TAD P00123 1507 02673 7700 SMA CLA 1508 02674 5522 JMP I P00122 1509 02675 1441 L02675, TAD I P00041 1510 02676 3417 DCA I P00017 1511 02677 7240 CLA CMA 1512 02700 1041 TAD P00041 1513 02701 3041 DCA P00041 1514 02702 7344 CLA CLL CMA RAL 1515 02703 1017 TAD P00017 1516 02704 3017 DCA P00017 1517 02705 1041 TAD P00041 1518 02706 7161 CLL CML CIA 1519 02707 1052 TAD D00052 1520 02710 7640 SZA CLA 1521 02711 5275 JMP L02675 1522 02712 1137 TAD P00137 1523 02713 3041 DCA P00041 1524 02714 1052 TAD D00052 1525 02715 3017 DCA P00017 1526 02716 1044 L02716, TAD D00044 1527 02717 4536 JMS I P00136 1528 02720 3417 DCA I P00017 1529 02721 2044 ISZ D00044 1530 02722 2041 ISZ P00041 1531 02723 5316 JMP L02716 1532 02724 1521 TAD I P00121 1533 02725 3417 DCA I P00017 1534 02726 7001 IAC 1535 02727 4525 JMS I P00125 1536 02730 3417 DCA I P00017 1537 02731 1017 TAD P00017 1538 02732 3520 DCA I P00120 1539 02733 7240 CLA CMA 1540 02734 1541 TAD I P00141 1541 02735 3541 DCA I P00141 1542 02736 1450 TAD I P00050 1543 02737 1054 TAD P00054 1544 02740 3450 DCA I P00050 1545 02741 4517 JMS I P00117 1546 02742 5516 JMP I P00116 1547 02743 1417 TAD I P00017 1548 02744 7141 CLL CIA 1549 02745 3041 DCA P00041 1550 02746 1043 TAD P00043 1551 02747 1046 TAD L00046 1552 02750 7200 CLA 1553 02751 1043 TAD P00043 1554 02752 7450 SNA 1555 02753 7020 CML 1556 02754 1041 TAD P00041 1557 02755 7220 CLA CML 1558 02756 1041 TAD P00041 1559 02757 7041 CIA 1560 02760 1046 TAD L00046 1561 02761 7670 SNA SZL CLA 1562 02762 5374 D02762, 5374 1563 02763 1041 TAD P00041 1564 02764 3046 DCA L00046 1565 02765 7344 CLA CLL CMA RAL 1566 02766 1017 TAD P00017 1567 02767 3052 DCA D00052 1568 02770 1515 TAD I P00115 1569 02771 3054 DCA P00054 1570 02772 1042 TAD P00042 1571 02773 3045 DCA P00045 1572 02774 1041 L02774, TAD P00041 1573 02775 7041 CIA 1574 02776 5240 JMP L02640 1575 02777 4532 P02777, D04532 1576 1577 *3000 1578 03000 0000 S03000, 0000 1579 03001 1377 TAD D03177 1580 03002 3273 DCA P03073 1581 03003 1673 TAD I P03073 1582 03004 7510 SPA 1583 03005 7041 CIA 1584 03006 3776 DCA I P03176 1585 03007 2273 ISZ P03073 1586 03010 1673 TAD I P03073 1587 03011 7510 L03011, SPA 1588 03012 7041 CIA 1589 03013 3775 DCA I P03175 1590 03014 1600 TAD I S03000 1591 03015 2200 ISZ S03000 1592 03016 3774 DCA I P03174 1593 03017 1373 TAD D03173 1594 03020 1273 TAD P03073 1595 03021 3273 DCA P03073 1596 03022 1673 TAD I P03073 1597 03023 7004 RAL 1598 03024 7200 CLA 1599 03025 2273 ISZ P03073 1600 03026 1673 L03026, TAD I P03073 1601 03027 7510 SPA 1602 03030 7020 CML 1603 03031 7630 SZL CLA 1604 03032 5600 JMP I S03000 1605 03033 1775 D03033, 1775 1606 03034 1774 TAD I P03174 1607 03035 7041 CIA 1608 03036 1372 TAD P03172 1609 03037 7700 SMA CLA 1610 03040 5600 JMP I S03000 1611 03041 1775 TAD I P03175 1612 03042 7041 CIA 1613 03043 1774 TAD I P03174 1614 03044 1371 TAD D03171 1615 03045 7710 SPA CLA 1616 03046 5600 D03046, 5600 1617 03047 1776 TAD I P03176 1618 03050 7041 CIA 1619 03051 1774 TAD I P03174 1620 03052 1371 TAD D03171 1621 03053 7710 SPA CLA 1622 03054 5600 JMP I S03000 1623 03055 1776 TAD I P03176 1624 03056 1774 TAD I P03174 1625 03057 7041 CIA 1626 03060 1370 TAD D03170 1627 03061 7700 SMA CLA 1628 03062 5767 JMP I P03167 1629 03063 1776 TAD I P03176 1630 03064 7041 CIA 1631 03065 1774 TAD I P03174 1632 03066 1366 TAD P03166 1633 03067 7710 SPA CLA 1634 03070 5765 JMP I P03165 1635 03071 5764 JMP I P03164 1636 03072 5600 L03072, JMP I S03000 1637 03073 0000 P03073, S00000 1638 03074 5772 JMP I P03172 1639 03075 1031 TAD P00031 1640 03076 3030 DCA D00030 1641 03077 1033 TAD P00033 1642 03100 4553 JMS I P00153 1643 03101 3014 DCA P00014 1644 03102 5550 JMP I P00150 1645 03103 4545 JMS I P00145 1646 03104 3062 DCA P00062 1647 03105 1022 TAD P00022 1648 03106 7710 SPA CLA 1649 03107 5435 JMP I P00035 1650 03110 1040 TAD P00040 1651 03111 1371 TAD D03171 1652 03112 7450 SNA 1653 03113 5321 JMP L03121 1654 03114 1370 TAD D03170 1655 03115 7650 D03115, 7650 1656 03116 5767 D03116, 5767 1657 03117 7330 D03117, 7330 1658 03120 5226 D03120, 5226 1659 03121 4574 L03121, JMS I P00174 1660 03122 2062 ISZ P00062 1661 03123 5340 JMP L03140 1662 03124 1027 TAD P00027 1663 03125 3035 DCA P00035 1664 03126 4543 JMS I P00143 1665 03127 1020 L03127, TAD P00020 1666 03130 3014 DCA P00014 1667 03131 1021 TAD D00021 1668 03132 3015 D03132, 3015 1669 03133 1022 TAD P00022 1670 03134 3016 DCA P00016 1671 03135 1035 TAD P00035 1672 03136 3017 DCA P00017 1673 03137 5211 JMP L03011 1674 03140 1027 L03140, TAD P00027 1675 03141 7041 CIA 1676 03142 1035 TAD P00035 1677 03143 7650 SNA CLA 1678 03144 5327 JMP L03127 1679 03145 4542 JMS I P00142 1680 03146 5144 JMP P00144 1681 03147 5211 JMP L03011 1682 03150 7041 CIA 1683 03151 5766 JMP I P03166 1684 03152 1033 TAD P00033 1685 03153 4566 JMS I P00166 1686 03154 0157 AND D00157 1687 03155 1033 TAD P00033 1688 03156 7040 CMA 1689 03157 0034 AND P00034 1690 03160 5766 JMP I P03166 1691 03161 4574 JMS I P00174 1692 03162 5763 JMP I P03163 1693 03163 3332 P03163, L03332 1694 03164 3200 P03164, P03200 1695 03165 3246 P03165, L03246 1696 03166 2000 P03166, P02000 1697 03167 3315 P03167, L03315 1698 03170 0600 D03170, 0600 1699 03171 3400 D03171, 3400 1700 03172 0400 P03172, L00400 1701 03173 7777 D03173, 7777 1702 03174 3320 P03174, D03320 1703 03175 3317 P03175, D03317 1704 03176 3316 P03176, D03316 1705 03177 0002 D03177, 0002 1706 1707 *3200 1708 03200 1317 P03200, D01317 1709 03201 7041 CIA 1710 03202 1320 TAD D03320 1711 03203 1377 TAD D03377 1712 03204 7710 SPA CLA 1713 03205 5231 JMP L03231 1714 03206 1317 D03206, 1317 1715 03207 7041 CIA 1716 03210 1320 TAD D03320 1717 03211 1376 TAD D03376 1718 03212 7700 SMA CLA 1719 03213 5313 D03213, 5313 1720 03214 1316 L03214, TAD D03316 1721 03215 1320 TAD D03320 1722 03216 7041 CIA 1723 03217 1375 TAD D03375 1724 03220 7700 SMA CLA 1725 03221 5774 JMP I P03374 1726 03222 1316 TAD D03316 1727 03223 7041 CIA 1728 03224 1320 TAD D03320 1729 03225 1377 TAD D03377 1730 03226 7710 SPA CLA 1731 03227 5774 JMP I P03374 1732 03230 5313 JMP L03313 1733 03231 1317 L03231, TAD D03317 1734 03232 1320 TAD D03320 1735 03233 7041 CIA 1736 03234 1373 TAD D03373 1737 03235 7700 SMA CLA 1738 03236 5774 JMP I P03374 1739 03237 1317 TAD D03317 1740 03240 1320 TAD D03320 1741 03241 7041 CIA 1742 03242 1372 TAD D03372 1743 03243 7700 SMA CLA 1744 03244 5214 JMP L03214 1745 03245 5313 JMP L03313 1746 03246 1316 L03246, TAD D03316 1747 03247 1320 D03247, 1320 1748 03250 7041 CIA 1749 03251 1371 TAD P03371 1750 03252 7700 SMA CLA 1751 03253 5774 JMP I P03374 1752 03254 1317 TAD D03317 1753 03255 7041 CIA 1754 03256 1320 TAD D03320 1755 03257 1376 TAD D03376 1756 03260 7700 SMA CLA 1757 03261 5313 JMP L03313 1758 03262 1317 TAD D03317 1759 03263 1320 TAD D03320 1760 03264 7041 CIA 1761 03265 1372 TAD D03372 1762 03266 7710 SPA CLA 1763 03267 5313 JMP L03313 1764 03270 1316 TAD D03316 1765 03271 1320 TAD D03320 1766 03272 7041 CIA 1767 03273 1372 TAD D03372 1768 03274 7700 D03274, 7700 1769 03275 5774 JMP I P03374 1770 03276 1317 TAD D03317 1771 03277 7041 D03277, 7041 1772 03300 1320 D03300, 1320 1773 03301 1377 L03301, TAD D03377 1774 03302 7700 SMA CLA 1775 03303 5313 D03303, 5313 1776 03304 1317 TAD D03317 1777 03305 1320 TAD D03320 1778 03306 7041 D03306, 7041 1779 03307 1373 TAD D03373 1780 03310 7710 SPA CLA 1781 03311 5313 JMP L03313 1782 03312 5774 JMP I P03374 1783 03313 2770 L03313, ISZ I P03370 1784 03314 5774 JMP I P03374 1785 03315 5774 L03315, JMP I P03374 1786 03316 0000 D03316, 0000 1787 03317 0000 D03317, 0000 1788 03320 0000 D03320, 0000 1789 03321 3043 DCA P00043 1790 03322 4574 JMS I P00174 1791 03323 4505 L03323, JMS I P00105 1792 03324 5301 JMP L03301 1793 03325 1043 TAD P00043 1794 03326 3035 L03326, DCA P00035 1795 03327 1033 L03327, TAD P00033 1796 03330 1361 TAD D03361 1797 03331 3043 DCA P00043 1798 03332 1443 L03332, TAD I P00043 1799 03333 3043 DCA P00043 1800 03334 5443 JMP I P00043 1801 03335 4546 JMS I P00146 1802 03336 5323 JMP L03323 1803 03337 4574 JMS I P00174 1804 03340 1027 TAD P00027 1805 03341 5326 JMP L03326 1806 03342 2037 ISZ P00037 1807 03343 1437 TAD I P00037 1808 03344 1137 TAD P00137 1809 03345 7650 SNA CLA 1810 03346 5353 JMP P03353 1811 03347 1437 TAD I P00037 1812 03350 3035 DCA P00035 1813 03351 4574 JMS I P00174 1814 03352 5327 JMP L03327 1815 03353 4542 P03353, D04542 1816 03354 5143 JMP P00143 1817 03355 7240 CLA CMA 1818 03356 3040 DCA P00040 1819 03357 5771 JMP I P03371 1820 03360 3753 DCA I P03353 1821 03361 3556 D03361, 3556 1822 03362 7520 SMA SNL 1823 03363 7510 SPA 1824 03364 0274 AND D03274 1825 03365 0002 AND P00002 1826 03366 7753 7753 1827 03367 0064 AND D00064 1828 03370 3000 P03370, S03000 1829 03371 2600 P03371, L02600 1830 03372 3200 D03372, 3200 1831 03373 2400 D03373, 2400 1832 03374 3072 P03374, L03072 1833 03375 1200 D03375, 1200 1834 03376 0600 D03376, 0600 1835 03377 1400 D03377, 1400 1836 1837 *3400 1838 03400 0000 S03400, 0000 1839 03401 7200 L03401, CLA 1840 03402 1777 TAD I P03577 1841 03403 7650 SNA CLA 1842 03404 5247 JMP L03447 1843 03405 2777 ISZ I P03577 1844 03406 5214 JMP L03414 1845 03407 1144 P03407, D01144 1846 03410 3776 P03410, P03776 1847 03411 1144 TAD P00144 1848 03412 3775 DCA I P03575 1849 03413 5774 P03413, D05774 1850 03414 3773 L03414, DCA I P03573 1851 03415 3775 P03415, P03775 1852 03416 3772 P03416, P03772 1853 03417 1771 TAD I P03571 1854 03420 0147 AND P00147 1855 03421 7040 CMA 1856 03422 0143 AND P00143 1857 03423 7040 CMA 1858 03424 3771 DCA I P03571 1859 03425 1770 P03425, P01770 1860 03426 0147 P03426, P00147 1861 03427 3770 DCA I P03570 1862 03430 1161 TAD D00161 1863 03431 3303 P03431, D03303 1864 03432 1301 P03432, D01301 1865 03433 2301 P03433, D02301 1866 03434 3300 DCA P03500 1867 03435 1142 TAD P00142 1868 03436 3302 DCA P03502 1869 03437 1700 L03437, TAD I P03500 1870 03440 1702 TAD I P03502 1871 03441 3702 DCA I P03502 1872 03442 2300 ISZ P03500 1873 03443 2302 ISZ P03502 1874 03444 2303 P03444, D02303 1875 03445 5237 P03445, D05237 1876 03446 5774 JMP I P03574 1877 03447 7200 L03447, CLA 1878 03450 1773 TAD I P03573 1879 03451 7650 SNA CLA 1880 03452 5774 JMP I P03574 1881 03453 1767 TAD I P03567 1882 03454 7041 CIA 1883 03455 1766 TAD I P03566 1884 03456 7500 P03456, D07500 1885 03457 7041 CIA 1886 03460 1365 TAD D03565 1887 03461 7710 SPA CLA 1888 03462 5774 JMP I P03574 1889 03463 1764 TAD I P03564 1890 03464 7041 P03464, D07041 1891 03465 1763 TAD I P03563 1892 03466 7500 SMA 1893 03467 7041 CIA 1894 03470 1365 TAD D03565 1895 03471 7710 SPA CLA 1896 03472 5774 JMP I P03574 1897 03473 1176 TAD D00176 1898 03474 3301 DCA D03501 1899 03475 1141 TAD P00141 1900 03476 3777 DCA I P03577 1901 03477 5201 JMP L03401 1902 03500 0000 P03500, S00000 1903 03501 0000 D03501, 0000 1904 03502 0000 P03502, S00000 1905 03503 0000 D03503, 0000 1906 03504 5600 L03504, JMP I S03400 1907 03505 1034 TAD P00034 1908 03506 4776 JMS I P03576 1909 03507 3034 DCA P00034 1910 03510 1313 TAD D03513 1911 03511 3070 DCA L00070 1912 03512 2075 ISZ P00075 1913 03513 0700 D03513, 0700 1914 03514 7410 SKP 1915 03515 5447 JMP I P00047 1916 03516 4343 JMS P03543 1917 03517 1176 L03517, TAD D00176 1918 03520 1035 TAD P00035 1919 03521 3035 DCA P00035 1920 03522 1056 TAD D00056 1921 03523 0175 AND P00175 1922 03524 7650 SNA CLA 1923 03525 5330 JMP L03530 1924 03526 4542 JMS I P00142 1925 03527 5172 JMP P00172 1926 03530 1056 L03530, TAD D00056 1927 03531 0157 AND D00157 1928 03532 7640 SZA CLA 1929 03533 4343 JMS P03543 1930 03534 1034 TAD P00034 1931 03535 0155 AND D00155 1932 03536 1035 TAD P00035 1933 03537 3034 DCA P00034 1934 03540 1410 TAD I P00010 1935 03541 3043 DCA P00043 1936 03542 5443 JMP I P00043 1937 03543 3517 P03543, L03517 1938 03544 1035 TAD P00035 1939 03545 7040 CMA 1940 03546 0127 AND P00127 1941 03547 7440 SZA 1942 03550 5353 JMP L03553 1943 03551 4542 JMS I P00142 1944 03552 5151 JMP L00151 1945 03553 1035 L03553, TAD P00035 1946 03554 3035 DCA P00035 1947 03555 5743 JMP I P03543 1948 03556 3600 DCA I S03400 1949 03557 3656 DCA I P03456 1950 03560 5435 JMP I P00035 1951 03561 3644 DCA I P03444 1952 03562 3664 DCA I P03464 1953 03563 2626 P03563, L02626 1954 03564 2616 P03564, D02616 1955 03565 0120 D03565, 0120 1956 03566 2625 P03566, D02625 1957 03567 2615 P03567, D02615 1958 03570 2610 P03570, D02610 1959 03571 2633 P03571, D02633 1960 03572 2631 P03572, D02631 1961 03573 2613 P03573, D02613 1962 03574 3600 P03574, L03600 1963 03575 2607 P03575, D02607 1964 03576 2632 P03576, D02632 1965 03577 2645 P03577, D02645 1966 1967 *3600 1968 03600 7200 L03600, CLA 1969 03601 1777 TAD I P03777 1970 03602 7650 P03602, D07650 1971 03603 5246 P03603, D05246 1972 03604 2777 ISZ I P03777 1973 03605 5213 JMP L03613 1974 03606 1144 P03606, D01144 1975 03607 3776 P03607, P03776 1976 03610 1144 P03610, D01144 1977 03611 3775 DCA I P03775 1978 03612 5774 JMP I P03774 1979 03613 3773 L03613, DCA I P03773 1980 03614 3776 D03614, 3776 1981 03615 3772 D03615, 3772 1982 03616 1771 TAD I P03771 1983 03617 0147 AND P00147 1984 03620 7040 CMA 1985 03621 0143 AND P00143 1986 03622 7040 P03622, D07040 1987 03623 3771 DCA I P03771 1988 03624 1770 TAD I P03770 1989 03625 0147 AND P00147 1990 03626 3770 DCA I P03770 1991 03627 1157 TAD D00157 1992 03630 3302 DCA D03702 1993 03631 1301 TAD D03701 1994 03632 3277 P03632, D03277 1995 03633 2301 P03633, D02301 1996 03634 1140 TAD P00140 1997 03635 3300 DCA P03700 1998 03636 1677 P03636, D01677 1999 03637 1700 TAD I P03700 2000 03640 3700 P03640, P03700 2001 03641 2277 P03641, D02277 2002 03642 2300 ISZ P03700 2003 03643 2302 ISZ D03702 2004 03644 5236 JMP P03636 2005 03645 5774 JMP I P03774 2006 03646 7200 L03646, CLA 2007 03647 1773 TAD I P03773 2008 03650 7650 SNA CLA 2009 03651 5774 JMP I P03774 2010 03652 1767 TAD I P03767 2011 03653 7041 CIA 2012 03654 1766 TAD I P03766 2013 03655 7500 SMA 2014 03656 7041 P03656, D07041 2015 03657 1137 TAD P00137 2016 03660 7710 D03660, 7710 2017 03661 5774 JMP I P03774 2018 03662 1765 TAD I P03765 2019 03663 7041 CIA 2020 03664 1764 TAD I P03764 2021 03665 7500 SMA 2022 03666 7041 D03666, 7041 2023 03667 1137 TAD P00137 2024 03670 7710 SPA CLA 2025 03671 5774 JMP I P03774 2026 03672 1176 TAD D00176 2027 03673 3301 DCA D03701 2028 03674 1141 TAD P00141 2029 03675 3777 DCA I P03777 2030 03676 5200 JMP L03600 2031 03677 0000 P03677, S00000 2032 03700 0000 P03700, S00000 2033 03701 0000 D03701, 0000 2034 03702 0000 D03702, 0000 2035 03703 1364 D03703, 1364 2036 03704 7450 SNA 2037 03705 5336 JMP L03736 2038 03706 7001 IAC 2039 03707 7450 SNA 2040 03710 5352 JMP L03752 2041 03711 2763 ISZ I P03763 2042 03712 1362 TAD D03762 2043 03713 3333 DCA D03733 2044 03714 1051 TAD P00051 2045 03715 7750 SNA SPA CLA 2046 03716 5323 JMP L03723 2047 03717 2334 ISZ D03734 2048 03720 5327 JMP L03727 2049 03721 7240 L03721, CLA CMA 2050 03722 3334 DCA D03734 2051 03723 1763 L03723, TAD I P03763 2052 03724 3043 DCA P00043 2053 03725 1333 TAD D03733 2054 03726 5443 JMP I P00043 2055 03727 2335 L03727, ISZ P03735 2056 03730 1333 TAD D03733 2057 03731 3735 DCA I P03735 2058 03732 5323 JMP L03723 2059 03733 0215 D03733, 0215 2060 03734 7777 D03734, 7777 2061 03735 1450 P03735, D01450 2062 03736 1354 L03736, TAD D03754 2063 03737 7650 SNA CLA 2064 03740 5347 JMP L03747 2065 03741 3354 DCA D03754 2066 03742 2042 ISZ P00042 2067 03743 3041 DCA P00041 2068 03744 1051 TAD P00051 2069 03745 7740 SZA SMA CLA 2070 03746 4535 JMS I P00135 2071 03747 1134 L03747, TAD P00134 2072 03750 3333 DCA D03733 2073 03751 5321 JMP L03721 2074 03752 2354 L03752, ISZ D03754 2075 03753 5766 JMP I P03766 2076 03754 0001 D03754, 0001 2077 03755 3155 DCA D00155 2078 03756 5434 JMP I P00034 2079 03757 3656 DCA I P03656 2080 03760 3145 DCA P00145 2081 03761 0214 AND D03614 2082 03762 0214 D03762, 0214 2083 03763 5200 P03763, D05200 2084 03764 2603 P03764, D02603 2085 03765 2641 P03765, D02641 2086 03766 2602 P03766, L02602 2087 03767 2640 P03767, L02640 2088 03770 2633 P03770, D02633 2089 03771 2610 P03771, D02610 2090 03772 2606 P03772, D02606 2091 03773 2636 P03773, D02636 2092 03774 3504 P03774, L03504 2093 03775 2607 P03775, D02607 2094 03776 2632 P03776, D02632 2095 03777 2622 P03777, D02622 2096 2097 *4000 2098 04000 7767 D04000, 7767 2099 04001 0001 D04001, 0001 2100 04002 7767 D04002, 7767 2101 04003 0003 AND P00003 2102 04004 7767 7767 2103 04005 0005 AND P00005 2104 04006 7767 7767 2105 04007 0007 AND D00007 2106 04010 7771 7771 2107 04011 0007 AND D00007 2108 04012 7773 7773 2109 04013 0007 AND D00007 2110 04014 7773 7773 2111 04015 0005 AND P00005 2112 04016 7773 D04016, 7773 2113 04017 0003 AND P00003 2114 04020 7774 SNA SPA SZL CLA OSR 2115 04021 0004 AND P00004 2116 04022 7776 SNA SPA SZL CLA OSR HLT 2117 04023 0005 AND P00005 2118 04024 7777 7777 2119 04025 0005 AND P00005 2120 04026 7777 7777 2121 04027 0006 AND P00006 2122 04030 7777 7777 2123 04031 0007 AND D00007 2124 04032 7777 7777 2125 04033 0011 AND P00011 2126 04034 7777 7777 2127 04035 0013 AND P00013 2128 04036 7776 SNA SPA SZL CLA OSR HLT 2129 04037 0014 AND P00014 2130 04040 0000 AND S00000 2131 04041 0014 AND P00014 2132 04042 0002 AND P00002 2133 04043 0014 AND P00014 2134 04044 0001 AND P00001 2135 04045 0013 AND P00013 2136 04046 0001 AND P00001 2137 04047 0011 AND P00011 2138 04050 0001 AND P00001 2139 04051 0007 AND D00007 2140 04052 0001 AND P00001 2141 04053 0005 AND P00005 2142 04054 0002 AND P00002 2143 04055 0005 AND P00005 2144 04056 0004 AND P00004 2145 04057 0004 AND P00004 2146 04060 0005 AND P00005 2147 04061 0003 AND P00003 2148 04062 0005 AND P00005 2149 04063 0005 AND P00005 2150 04064 0005 AND P00005 2151 04065 0007 AND D00007 2152 04066 0007 AND D00007 2153 04067 0007 AND D00007 2154 04070 0011 AND P00011 2155 04071 0007 AND D00007 2156 04072 0011 AND P00011 2157 04073 0005 AND P00005 2158 04074 0011 AND P00011 2159 04075 0003 AND P00003 2160 04076 0011 AND P00011 2161 04077 0001 AND P00001 2162 04100 0011 AND P00011 2163 04101 7777 7777 2164 04102 0011 AND P00011 2165 04103 7775 7775 2166 04104 0011 AND P00011 2167 04105 7773 7773 2168 04106 0011 AND P00011 2169 04107 7771 7771 2170 04110 0011 AND P00011 2171 04111 7770 SNA SPA SZL CLA 2172 04112 0007 AND D00007 2173 04113 7770 SNA SPA SZL CLA 2174 04114 0005 AND P00005 2175 04115 7770 SNA SPA SZL CLA 2176 04116 0005 AND P00005 2177 04117 7772 SNA SPA SZL CLA HLT 2178 04120 0005 D04120, 0005 2179 04121 7774 SNA SPA SZL CLA OSR 2180 04122 0004 P04122, P00004 2181 04123 7773 7773 2182 04124 0002 D04124, 0002 2183 04125 7772 SNA SPA SZL CLA HLT 2184 04126 0000 AND S00000 2185 04127 7772 D04127, 7772 2186 04130 7776 SNA SPA SZL CLA OSR HLT 2187 04131 7772 SNA SPA SZL CLA HLT 2188 04132 7774 SNA SPA SZL CLA OSR 2189 04133 7773 7773 2190 04134 7773 7773 2191 04135 7774 SNA SPA SZL CLA OSR 2192 04136 7773 7773 2193 04137 7772 SNA SPA SZL CLA HLT 2194 04140 7773 7773 2195 04141 7770 SNA SPA SZL CLA 2196 04142 7771 7771 2197 04143 7770 SNA SPA SZL CLA 2198 04144 7767 7767 2199 04145 7770 SNA SPA SZL CLA 2200 04146 7767 7767 2201 04147 7771 7771 2202 04150 7767 7767 2203 04151 7773 7773 2204 04152 7767 7767 2205 04153 7775 7775 2206 04154 7767 7767 2207 04155 7777 7777 2208 04156 4156 JMS P00156 2209 04157 0000 D04157, 0000 2210 04160 2320 ISZ D04120 2211 04161 0327 AND D04127 2212 04162 2202 ISZ D04002 2213 04163 5423 JMP I P00023 2214 04164 2003 ISZ P00003 2215 04165 2722 ISZ I P04122 2216 04166 0454 AND I P00054 2217 04167 2320 ISZ D04120 2218 04170 0327 AND D04127 2219 04171 2201 ISZ D04001 2220 04172 5422 JMP I P00022 2221 04173 1324 TAD D04124 2222 04174 2402 ISZ I P00002 2223 04175 1400 TAD I S00000 2224 04176 7566 SZA SMA SNL OSR HLT 2225 04177 7567 7567 2226 2227 *4200 2228 04200 0000 AND S00000 2229 04201 0000 AND S00000 2230 04202 0000 AND S00000 2231 04203 0000 AND S00000 2232 04204 0000 AND S00000 2233 04205 0000 AND S00000 2234 04206 0000 AND S00000 2235 04207 0000 AND S00000 2236 04210 0000 AND S00000 2237 04211 0000 AND S00000 2238 04212 0000 AND S00000 2239 04213 0000 AND S00000 2240 04214 0000 AND S00000 2241 04215 0000 AND S00000 2242 04216 0000 AND S00000 2243 04217 0000 AND S00000 2244 04220 0000 AND S00000 2245 04221 0000 AND S00000 2246 04222 0000 AND S00000 2247 04223 0000 AND S00000 2248 04224 0000 AND S00000 2249 04225 0000 AND S00000 2250 04226 0000 AND S00000 2251 04227 0000 AND S00000 2252 04230 0000 AND S00000 2253 04231 0000 AND S00000 2254 04232 0000 AND S00000 2255 04233 0000 AND S00000 2256 04234 0000 AND S00000 2257 04235 0000 AND S00000 2258 04236 0000 AND S00000 2259 04237 0000 AND S00000 2260 04240 0000 AND S00000 2261 04241 0000 AND S00000 2262 04242 0000 AND S00000 2263 04243 0000 AND S00000 2264 04244 0000 AND S00000 2265 04245 0000 AND S00000 2266 04246 0000 AND S00000 2267 04247 0000 AND S00000 2268 04250 0000 AND S00000 2269 04251 0000 AND S00000 2270 04252 0000 AND S00000 2271 04253 0000 AND S00000 2272 04254 0000 AND S00000 2273 04255 0000 AND S00000 2274 04256 0000 AND S00000 2275 04257 0000 AND S00000 2276 04260 0000 AND S00000 2277 04261 0000 AND S00000 2278 04262 0000 AND S00000 2279 04263 0000 AND S00000 2280 04264 0000 AND S00000 2281 04265 0000 AND S00000 2282 04266 0000 AND S00000 2283 04267 0000 AND S00000 2284 04270 0000 AND S00000 2285 04271 0000 AND S00000 2286 04272 0000 AND S00000 2287 04273 0000 AND S00000 2288 04274 0000 AND S00000 2289 04275 0000 AND S00000 2290 04276 0000 AND S00000 2291 04277 0000 AND S00000 2292 04300 0000 AND S00000 2293 04301 0000 AND S00000 2294 04302 0000 AND S00000 2295 04303 0000 AND S00000 2296 04304 0000 AND S00000 2297 04305 0000 AND S00000 2298 04306 0000 AND S00000 2299 04307 0000 AND S00000 2300 04310 0000 AND S00000 2301 04311 0000 AND S00000 2302 04312 0000 AND S00000 2303 04313 0000 AND S00000 2304 04314 0000 AND S00000 2305 04315 0000 AND S00000 2306 04316 0000 AND S00000 2307 04317 0000 AND S00000 2308 04320 0000 AND S00000 2309 04321 0000 AND S00000 2310 04322 0000 AND S00000 2311 04323 0000 AND S00000 2312 04324 0000 AND S00000 2313 04325 0000 AND S00000 2314 04326 0000 AND S00000 2315 04327 0000 AND S00000 2316 04330 0000 AND S00000 2317 04331 0000 AND S00000 2318 04332 0000 AND S00000 2319 04333 0000 AND S00000 2320 04334 0000 AND S00000 2321 04335 0000 AND S00000 2322 04336 0000 AND S00000 2323 04337 0000 AND S00000 2324 04340 0000 AND S00000 2325 04341 0000 AND S00000 2326 04342 0000 AND S00000 2327 04343 0000 AND S00000 2328 04344 0000 AND S00000 2329 04345 0000 AND S00000 2330 04346 7767 7767 2331 04347 0001 AND P00001 2332 04350 7767 7767 2333 04351 0003 AND P00003 2334 04352 7767 7767 2335 04353 0005 AND P00005 2336 04354 7767 7767 2337 04355 0007 AND D00007 2338 04356 7771 7771 2339 04357 0007 AND D00007 2340 04360 7773 7773 2341 04361 0007 AND D00007 2342 04362 7773 7773 2343 04363 0005 AND P00005 2344 04364 7773 7773 2345 04365 0003 AND P00003 2346 04366 7774 SNA SPA SZL CLA OSR 2347 04367 0004 AND P00004 2348 04370 7776 SNA SPA SZL CLA OSR HLT 2349 04371 0005 AND P00005 2350 04372 7777 7777 2351 04373 0005 AND P00005 2352 04374 7777 7777 2353 04375 0006 AND P00006 2354 04376 7777 7777 2355 04377 0007 AND D00007 2356 2357 *4400 2358 04400 7777 P04400, D07777 2359 04401 0011 P04401, P00011 2360 04402 7777 7777 2361 04403 0013 AND P00013 2362 04404 7776 SNA SPA SZL CLA OSR HLT 2363 04405 0014 AND P00014 2364 04406 0000 D04406, 0000 2365 04407 0014 P04407, P00014 2366 04410 0002 AND P00002 2367 04411 0014 AND P00014 2368 04412 0001 AND P00001 2369 04413 0013 AND P00013 2370 04414 0001 AND P00001 2371 04415 0011 AND P00011 2372 04416 0001 AND P00001 2373 04417 0007 AND D00007 2374 04420 0001 AND P00001 2375 04421 0005 AND P00005 2376 04422 0002 AND P00002 2377 04423 0005 AND P00005 2378 04424 0004 AND P00004 2379 04425 0004 AND P00004 2380 04426 0005 AND P00005 2381 04427 0003 AND P00003 2382 04430 0005 AND P00005 2383 04431 0005 D04431, 0005 2384 04432 0005 AND P00005 2385 04433 0007 D04433, 0007 2386 04434 0007 AND D00007 2387 04435 0007 D04435, 0007 2388 04436 0011 D04436, 0011 2389 04437 0007 AND D00007 2390 04440 0011 AND P00011 2391 04441 0005 AND P00005 2392 04442 0011 AND P00011 2393 04443 0003 AND P00003 2394 04444 0011 AND P00011 2395 04445 0001 AND P00001 2396 04446 0011 AND P00011 2397 04447 7777 7777 2398 04450 0011 AND P00011 2399 04451 7775 7775 2400 04452 0011 AND P00011 2401 04453 7773 7773 2402 04454 0011 AND P00011 2403 04455 7771 7771 2404 04456 0011 AND P00011 2405 04457 7770 SNA SPA SZL CLA 2406 04460 0007 AND D00007 2407 04461 7770 D04461, 7770 2408 04462 0005 AND P00005 2409 04463 7770 SNA SPA SZL CLA 2410 04464 0005 AND P00005 2411 04465 7772 SNA SPA SZL CLA HLT 2412 04466 0005 AND P00005 2413 04467 7774 SNA SPA SZL CLA OSR 2414 04470 0004 AND P00004 2415 04471 7773 7773 2416 04472 0002 AND P00002 2417 04473 7772 SNA SPA SZL CLA HLT 2418 04474 0000 P04474, S00000 2419 04475 7772 SNA SPA SZL CLA HLT 2420 04476 7776 SNA SPA SZL CLA OSR HLT 2421 04477 7772 SNA SPA SZL CLA HLT 2422 04500 7774 D04500, 7774 2423 04501 7773 7773 2424 04502 7773 7773 2425 04503 7774 SNA SPA SZL CLA OSR 2426 04504 7773 L04504, 7773 2427 04505 7772 SNA SPA SZL CLA HLT 2428 04506 7773 7773 2429 04507 7770 SNA SPA SZL CLA 2430 04510 7771 7771 2431 04511 7770 SNA SPA SZL CLA 2432 04512 7767 7767 2433 04513 7770 SNA SPA SZL CLA 2434 04514 7767 7767 2435 04515 7771 D04515, 7771 2436 04516 7767 D04516, 7767 2437 04517 7773 L04517, 7773 2438 04520 7767 7767 2439 04521 7775 7775 2440 04522 7767 7767 2441 04523 7777 7777 2442 04524 7777 7777 2443 04525 0001 AND P00001 2444 04526 0001 AND P00001 2445 04527 0001 AND P00001 2446 04530 0001 AND P00001 2447 04531 7777 7777 2448 04532 7777 D04532, 7777 2449 04533 7777 7777 2450 04534 4534 D04534, 4534 2451 04535 0000 D04535, 0000 2452 04536 1236 TAD D04436 2453 04537 3607 DCA I P04407 2454 04540 6203 CDF CIF 0 2455 04541 5674 JMP I P04474 2456 04542 6141 D04542, LINC // This is likely data, but disassembled anyway. 2457 04543 0436 STD // LINC Instruction 0436 2458 04544 0017 COM // LINC Instruction 2459 04545 0261 ROLI 1 // LINC Instruction Rotate Left w/Link 2460 04546 0003 TAC // LINC Instruction Get checksum 2461 04547 0002 PDP 2462 04550 7420 SNL / Tape ready? 2463 04551 5317 JMP L04517 / WTF? 2464 04552 7101 CLL IAC 2465 04553 7207 L04553, CLA RTL IAC 2466 04554 0315 AND D04515 2467 04555 7650 SNA CLA 2468 04556 5304 JMP L04504 2469 04557 1374 TAD D04574 2470 04560 0206 AND D04406 2471 04561 1335 TAD D04535 2472 04562 7450 SNA 2473 04563 5371 P04563, L05371 2474 04564 3374 DCA D04574 2475 04565 1207 TAD P04407 2476 04566 3375 DCA D04575 2477 04567 2316 ISZ D04516 2478 04570 5304 JMP L04504 2479 04571 6213 L04571, CDF CIF 10 2480 04572 5601 JMP I P04401 2481 04573 2233 ISZ D04433 2482 04574 0100 D04574, 0100 2483 04575 1600 D04575, 1600 2484 04576 6201 CDF 0 2485 04577 5763 JMP I P04563 2486 2487 *4600 2488 04600 4204 JMS P04604 2489 04601 4204 JMS P04604 2490 04602 5777 JMP I P04777 2491 04603 5776 P04603, D05776 2492 04604 4603 P04604, P04603 2493 04605 2204 ISZ P04604 2494 04606 7300 CLA CLL 2495 04607 6201 CDF 0 2496 04610 1775 TAD I P04775 2497 04611 0374 AND D04774 2498 04612 1254 TAD D04654 2499 04613 3300 DCA D04700 2500 04614 1775 TAD I P04775 2501 04615 6211 CDF 10 2502 04616 7006 RTL 2503 04617 7620 SNL CLA 2504 04620 5230 JMP L04630 2505 04621 1276 L04621, TAD D04676 2506 04622 3675 DCA I P04675 2507 04623 2221 ISZ L04621 2508 04624 2275 ISZ P04675 2509 04625 2274 ISZ D04674 2510 04626 5221 JMP L04621 2511 04627 7240 CLA CMA 2512 04630 3273 L04630, DCA D04673 2513 04631 1670 L04631, TAD I P04670 2514 04632 6201 CDF 0 2515 04633 3671 DCA I P04671 2516 04634 6211 CDF 10 2517 04635 1667 TAD I P04667 2518 04636 6201 CDF 0 2519 04637 3667 DCA I P04667 2520 04640 6211 CDF 10 2521 04641 2267 ISZ P04667 2522 04642 2270 ISZ P04670 2523 04643 2271 ISZ P04671 2524 04644 2272 ISZ D04672 2525 04645 5231 JMP L04631 2526 04646 1377 TAD P04777 2527 04647 6201 CDF 0 2528 04650 3773 DCA I P04773 2529 04651 1372 TAD D04772 2530 04652 3771 DCA I P04771 2531 04653 6211 CDF 10 2532 04654 6202 D04654, 6202 2533 04655 4770 JMS I P04770 2534 04656 1273 P04656, 1273 2535 04657 1375 TAD P04775 2536 04660 7640 SZA CLA 2537 04661 5604 JMP I P04604 2538 04662 1367 TAD D04767 2539 04663 3766 DCA I P04766 2540 04664 1365 TAD D04765 2541 04665 3764 DCA I P04764 2542 04666 5604 JMP I P04604 2543 04667 4667 P04667, P04667 2544 04670 5070 P04670, D05070 2545 04671 7271 P04671, D07271 2546 04672 7472 D04672, 7472 2547 04673 0000 D04673, 0000 2548 04674 7774 D04674, 7774 2549 04675 3300 P04675, D03300 2550 04676 7410 D04676, 7410 2551 04677 7400 7400 2552 04700 6202 D04700, 6202 2553 04701 4701 P04701, P04701 2554 04702 4656 JMS I P04656 2555 04703 1355 TAD D04755 2556 04704 6214 6214 2557 04705 3350 DCA L04750 2558 04706 6201 CDF 0 2559 04707 1775 TAD I P04775 2560 04710 0374 AND D04774 2561 04711 7450 SNA 2562 04712 5316 JMP L04716 2563 04713 7112 CLL RTR 2564 04714 7010 RAR 2565 04715 5350 JMP L04750 2566 04716 6201 L04716, CDF 0 2567 04717 1354 TAD D04754 2568 04720 7106 CLL RTL 2569 04721 7004 RAL 2570 04722 0333 AND D04733 2571 04723 1316 TAD L04716 2572 04724 3325 DCA D04725 2573 04725 7777 D04725, 7777 2574 04726 1752 TAD I P04752 2575 04727 7000 D04727, 7000 2576 04730 3325 DCA D04725 2577 04731 1327 TAD D04727 2578 04732 3752 DCA I P04752 2579 04733 0070 D04733, 0070 2580 04734 0060 AND D00060 2581 04735 0340 AND D04740 2582 04736 0064 AND D00064 2583 04737 0340 AND D04740 2584 04740 0070 D04740, 0070 2585 04741 0340 AND D04740 2586 04742 0074 AND D00074 2587 04743 0340 AND D04740 2588 04744 0100 AND P00100 2589 04745 0340 AND D04740 2590 04746 0104 AND P00104 2591 04747 0340 AND D04740 2592 04750 0110 L04750, AND D00110 2593 04751 0340 AND D04740 2594 04752 0114 P04752, P00114 2595 04753 0340 AND D04740 2596 04754 0120 D04754, 0120 2597 04755 0340 D04755, 0340 2598 04756 0124 AND P00124 2599 04757 0340 AND D04740 2600 04760 0130 AND D00130 2601 04761 0340 AND D04740 2602 04762 0134 AND P00134 2603 04763 0340 D04763, 0340 2604 04764 0140 P04764, P00140 2605 04765 0340 D04765, 0340 2606 04766 0144 P04766, P00144 2607 04767 0340 D04767, 0340 2608 04770 0150 P04770, P00150 2609 04771 0340 P04771, L00340 2610 04772 0154 D04772, 0154 2611 04773 0340 P04773, L00340 2612 04774 0160 D04774, 0160 2613 04775 0340 P04775, L00340 2614 04776 0164 P04776, P00164 2615 04777 0340 P04777, L00340 2616 2617 *5000 2618 05000 0170 D05000, 0170 2619 05001 0340 D05001, 0340 2620 05002 0174 AND P00174 2621 05003 0340 AND D05140 2622 05004 0200 AND D05000 2623 05005 0340 AND D05140 2624 05006 0200 AND D05000 2625 05007 0334 AND D05134 2626 05010 0200 AND D05000 2627 05011 0330 AND D05130 2628 05012 0200 AND D05000 2629 05013 0324 AND D05124 2630 05014 0200 AND D05000 2631 05015 0320 AND D05120 2632 05016 0140 AND P00140 2633 05017 0320 AND D05120 2634 05020 0144 AND P00144 2635 05021 0320 AND D05120 2636 05022 0150 AND P00150 2637 05023 0320 AND D05120 2638 05024 0154 AND P00154 2639 05025 0320 AND D05120 2640 05026 0160 AND L00160 2641 05027 0320 AND D05120 2642 05030 0164 AND P00164 2643 05031 0320 AND D05120 2644 05032 0170 AND P00170 2645 05033 0320 AND D05120 2646 05034 0174 AND P00174 2647 05035 0320 AND D05120 2648 05036 0140 AND P00140 2649 05037 0240 AND D05040 2650 05040 0140 D05040, 0140 2651 05041 0244 AND D05044 2652 05042 0140 AND P00140 2653 05043 0250 AND D05050 2654 05044 0140 D05044, 0140 2655 05045 0254 AND D05054 2656 05046 0140 D05046, 0140 2657 05047 0260 AND D05060 2658 05050 0140 D05050, 0140 2659 05051 0264 AND D05064 2660 05052 0140 AND P00140 2661 05053 0270 AND D05070 2662 05054 0140 D05054, 0140 2663 05055 0274 AND D05074 2664 05056 0140 AND P00140 2665 05057 0300 AND D05100 2666 05060 0140 D05060, 0140 2667 05061 0304 AND D05104 2668 05062 0140 AND P00140 2669 05063 0310 AND D05110 2670 05064 0140 D05064, 0140 2671 05065 0314 AND D05114 2672 05066 0120 AND P00120 2673 05067 0240 AND D05040 2674 05070 0124 D05070, 0124 2675 05071 0240 AND D05040 2676 05072 0130 AND D00130 2677 05073 0240 AND D05040 2678 05074 0134 D05074, 0134 2679 05075 0240 AND D05040 2680 05076 0120 AND P00120 2681 05077 0320 AND D05120 2682 05100 0120 D05100, 0120 2683 05101 0244 AND D05044 2684 05102 0120 AND P00120 2685 05103 0250 AND D05050 2686 05104 0120 D05104, 0120 2687 05105 0254 AND D05054 2688 05106 0120 AND P00120 2689 05107 0260 AND D05060 2690 05110 0120 D05110, 0120 2691 05111 0264 AND D05064 2692 05112 0120 AND P00120 2693 05113 0270 AND D05070 2694 05114 0120 D05114, 0120 2695 05115 0274 AND D05074 2696 05116 0120 AND P00120 2697 05117 0300 AND D05100 2698 05120 0120 D05120, 0120 2699 05121 0304 AND D05104 2700 05122 0120 AND P00120 2701 05123 0310 AND D05110 2702 05124 0120 D05124, 0120 2703 05125 0314 AND D05114 2704 05126 0060 AND D00060 2705 05127 0320 AND D05120 2706 05130 0064 D05130, 0064 2707 05131 0320 AND D05120 2708 05132 0070 AND L00070 2709 05133 0320 AND D05120 2710 05134 0074 D05134, 0074 2711 05135 0320 AND D05120 2712 05136 0100 AND P00100 2713 05137 0320 AND D05120 2714 05140 0104 D05140, 0104 2715 05141 0320 AND D05120 2716 05142 0110 AND D00110 2717 05143 0320 AND D05120 2718 05144 0114 AND P00114 2719 05145 0320 AND D05120 2720 05146 0060 AND D00060 2721 05147 0324 AND D05124 2722 05150 0060 AND D00060 2723 05151 0330 AND D05130 2724 05152 0060 AND D00060 2725 05153 0334 AND D05134 2726 05154 0260 AND D05060 2727 05155 0320 AND D05120 2728 05156 0260 AND D05060 2729 05157 0324 AND D05124 2730 05160 0260 AND D05060 2731 05161 0330 AND D05130 2732 05162 0260 AND D05060 2733 05163 0334 AND D05134 2734 05164 0260 AND D05060 2735 05165 0340 AND D05140 2736 05166 0264 AND D05064 2737 05167 0320 AND D05120 2738 05170 0270 AND D05070 2739 05171 0320 AND D05120 2740 05172 0274 AND D05074 2741 05173 0320 AND D05120 2742 05174 0300 AND D05100 2743 05175 0320 AND D05120 2744 05176 0304 AND D05104 2745 05177 0320 AND D05120 2746 2747 *5200 2748 05200 0310 D05200, 0310 2749 05201 0320 AND D05320 2750 05202 0314 AND D05314 2751 05203 0320 AND D05320 2752 05204 0320 AND D05320 2753 05205 0320 AND D05320 2754 05206 0320 AND D05320 2755 05207 0240 AND D05240 2756 05210 0320 AND D05320 2757 05211 0244 D05211, 0244 2758 05212 0320 AND D05320 2759 05213 0250 AND D05250 2760 05214 0320 AND D05320 2761 05215 0254 AND D05254 2762 05216 0320 AND D05320 2763 05217 0260 AND D05260 2764 05220 0320 AND D05320 2765 05221 0264 AND D05264 2766 05222 0320 AND D05320 2767 05223 0270 AND D05270 2768 05224 0320 AND D05320 2769 05225 0274 AND D05274 2770 05226 0320 AND D05320 2771 05227 0300 AND D05300 2772 05230 0320 AND D05320 2773 05231 0304 AND D05304 2774 05232 0320 AND D05320 2775 05233 0310 AND D05310 2776 05234 0320 AND D05320 2777 05235 0314 AND D05314 2778 05236 0324 AND D05324 2779 05237 0240 D05237, 0240 2780 05240 0330 D05240, 0330 2781 05241 0240 AND D05240 2782 05242 0334 AND L05334 2783 05243 0240 D05243, 0240 2784 05244 0340 D05244, 0340 2785 05245 0240 AND D05240 2786 05246 0340 D05246, 0340 2787 05247 0244 AND D05244 2788 05250 0340 D05250, 0340 2789 05251 0250 P05251, D00250 2790 05252 0340 AND D05340 2791 05253 0254 AND D05254 2792 05254 0340 D05254, 0340 2793 05255 0260 AND D05260 2794 05256 0340 AND D05340 2795 05257 0264 AND D05264 2796 05260 0340 D05260, 0340 2797 05261 0270 AND D05270 2798 05262 0340 AND D05340 2799 05263 0274 AND D05274 2800 05264 0340 D05264, 0340 2801 05265 0300 AND D05300 2802 05266 0340 AND D05340 2803 05267 0304 AND D05304 2804 05270 0340 D05270, 0340 2805 05271 0310 AND D05310 2806 05272 0340 AND D05340 2807 05273 0314 AND D05314 2808 05274 0340 D05274, 0340 2809 05275 0320 AND D05320 2810 05276 0340 AND D05340 2811 05277 0324 AND D05324 2812 05300 0340 D05300, 0340 2813 05301 0330 AND L05330 2814 05302 0340 P05302, L00340 2815 05303 0334 AND L05334 2816 05304 0340 D05304, 0340 2817 05305 0340 AND D05340 2818 05306 0264 AND D05264 2819 05307 0340 AND D05340 2820 05310 0270 D05310, 0270 2821 05311 0340 AND D05340 2822 05312 0274 AND D05274 2823 05313 0340 AND D05340 2824 05314 0300 D05314, 0300 2825 05315 0340 AND D05340 2826 05316 0304 AND D05304 2827 05317 0340 AND D05340 2828 05320 0310 D05320, 0310 2829 05321 0340 AND D05340 2830 05322 0314 AND D05314 2831 05323 0340 AND D05340 2832 05324 0320 D05324, 0320 2833 05325 0340 D05325, 0340 2834 05326 0324 AND D05324 2835 05327 0340 AND D05340 2836 05330 0330 L05330, AND L05330 2837 05331 0340 AND D05340 2838 05332 0334 AND L05334 2839 05333 0340 AND D05340 2840 05334 5334 L05334, JMP L05334 2841 05335 1000 P05335, S01000 2842 05336 1335 TAD P05335 2843 05337 7025 CML RAL IAC 2844 05340 7640 D05340, 7640 2845 05341 3032 DCA P00032 2846 05342 1325 TAD D05325 2847 05343 4426 JMS I P00026 2848 05344 2354 ISZ D05354 2849 05345 3062 DCA P00062 2850 05346 7240 CLA CMA 2851 05347 7024 CML RAL 2852 05350 6213 CDF CIF 10 2853 05351 2476 ISZ I P00076 2854 05352 4735 JMS I P05335 2855 05353 7000 NOP 2856 05354 0002 D05354, 0002 2857 05355 2175 ISZ P00175 2858 05356 4056 JMS D00056 2859 05357 0404 AND I P00004 2860 05360 5160 JMP L00160 2861 05361 4443 JMS I P00043 2862 05362 0251 AND P05251 2863 05363 0651 AND I P05251 2864 05364 3076 DCA P00076 2865 05365 1400 TAD I S00000 2866 05366 3002 DCA P00002 2867 05367 7352 CLA CLL CMA RTR 2868 05370 4702 JMS I P05302 2869 05371 0432 L05371, AND I P00032 2870 05372 6403 6403 2871 05373 0433 AND I P00033 2872 05374 0070 AND L00070 2873 05375 0401 AND I P00001 2874 05376 2003 ISZ P00003 2875 05377 6400 6400 2876 L05450=5450 2877 L05600=5600 2878 L05756=5756 2879 D05774=5774 2880 D05776=5776 2881 D06036=6036 2882 D06212=6212 2883 L06247=6247 2884 2885 *6400 2886 06400 6212 CIF 10 2887 06401 4777 JMS I P06577 2888 06402 6621 6621 2889 06403 4205 JMS S06405 2890 06404 5776 JMP I P06576 2891 06405 0000 S06405, 0000 2892 06406 6211 CDF 10 2893 06407 1775 TAD I P06575 2894 06410 6201 CDF 0 2895 06411 0374 AND D06574 2896 06412 7650 SNA CLA 2897 06413 5773 JMP I P06573 2898 06414 6212 CIF 10 2899 06415 4777 JMS I P06577 2900 06416 6664 6664 2901 06417 5605 JMP I S06405 2902 06420 0000 AND S00000 2903 06421 0000 AND S00000 2904 06422 0000 AND S00000 2905 06423 0000 AND S00000 2906 06424 0000 AND S00000 2907 06425 1520 TAD I P00120 2908 06426 6000 IOT 2909 06427 4000 JMS S00000 2910 06430 2000 ISZ S00000 2911 06431 0001 AND P00001 2912 06432 7601 7601 2913 06433 7401 7401 2914 06434 7201 CLA IAC 2915 06435 7001 IAC 2916 06436 6437 6437 2917 06437 6437 6437 2918 06440 0000 AND S00000 2919 06441 6437 D06441, 6437 2920 06442 0000 AND S00000 2921 06443 0000 AND S00000 2922 06444 0000 AND S00000 2923 06445 0000 AND S00000 2924 06446 0000 AND S00000 2925 06447 7300 L06447, CLA CLL 2926 06450 6212 CIF 10 2927 06451 4777 JMS I P06577 2928 06452 6600 6600 2929 06453 5773 JMP I P06573 2930 06454 6212 P06454, D06212 2931 06455 4777 JMS I P06577 2932 06456 6632 6632 2933 06457 5773 JMP I P06573 2934 06460 6212 CIF 10 2935 06461 4777 JMS I P06577 2936 06462 6672 6672 2937 06463 5773 JMP I P06573 2938 06464 0000 P06464, S00000 2939 06465 1772 TAD I P06572 2940 06466 3317 DCA D06517 2941 06467 1771 TAD I P06571 2942 06470 1317 TAD D06517 2943 06471 3324 DCA D06524 2944 06472 3770 DCA I P06570 2945 06473 1767 TAD I P06567 2946 06474 3315 DCA P06515 2947 06475 4715 JMS I P06515 2948 06476 4200 JMS 6400 2949 06477 6516 6516 2950 06500 0001 AND P00001 2951 06501 5247 JMP L06447 2952 06502 4715 JMS I P06515 2953 06503 5001 P06503, D05001 2954 06504 0000 AND S00000 2955 06505 0002 AND P00002 2956 06506 5247 JMP L06447 2957 06507 4715 JMS I P06515 2958 06510 4201 JMS 6401 2959 06511 2400 ISZ I S00000 2960 06512 0006 AND P00006 2961 06513 5247 JMP L06447 2962 06514 5664 JMP I P06464 2963 06515 0000 P06515, S00000 2964 06516 7777 7777 2965 06517 0000 D06517, 0000 2966 06520 0000 AND S00000 2967 06521 0000 AND S00000 2968 06522 7777 7777 2969 06523 0000 AND S00000 2970 06524 0000 D06524, 0000 2971 06525 7777 7777 2972 06526 1766 TAD I P06566 2973 06527 7450 SNA 2974 06530 1365 TAD D06565 2975 06531 0364 AND D06564 2976 06532 3351 DCA D06551 2977 06533 1763 TAD I P06563 2978 06534 7510 SPA 2979 06535 7200 CLA 2980 06536 1362 TAD D06562 2981 06537 7106 CLL RTL 2982 06540 7006 RTL 2983 06541 7006 RTL 2984 06542 1351 TAD D06551 2985 06543 6201 CDF 0 2986 06544 3761 DCA I P06561 2987 06545 6212 CIF 10 2988 06546 4777 JMS I P06577 2989 06547 7365 CLA CLL CML RAL CIA 2990 06550 5773 JMP I P06573 2991 06551 0000 D06551, 0000 2992 06552 6331 6331 2993 06553 1703 TAD I P06503 2994 06554 4314 JMS 6514 2995 06555 4654 JMS I P06454 2996 06556 6306 6306 2997 06557 6311 6311 2998 06560 6305 6305 2999 06561 7374 P06561, D07374 3000 06562 0060 D06562, 0060 3001 06563 2000 P06563, P02000 3002 06564 0077 D06564, 0077 3003 06565 0241 D06565, 0241 3004 06566 2031 P06566, D02031 3005 06567 6212 P06567, D06212 3006 06570 2002 P06570, D02002 3007 06571 2403 P06571, D02403 3008 06572 2410 P06572, P02410 3009 06573 7605 P06573, L07605 3010 06574 1000 D06574, 1000 3011 06575 7644 P06575, D07644 3012 06576 6247 P06576, L06247 3013 06577 6710 P06577, D06710 3014 3015 *6600 3016 06600 1001 D06600, 1001 3017 06601 1604 P06601, D01604 3018 06602 1405 TAD I P00005 3019 06603 2240 P06603, D02240 3020 06604 0522 P06604, D00522 3021 06605 2217 D06605, 2217 3022 06606 2200 ISZ D06600 3023 06607 1617 P06607, D01617 3024 06610 4020 JMS P00020 3025 06611 0122 P06611, P00122 3026 06612 0115 AND P00115 3027 06613 0524 AND I P00124 3028 06614 0522 AND I P00122 3029 06615 4002 JMS P00002 3030 06616 1417 TAD I P00017 3031 06617 0313 P06617, D00313 3032 06620 0000 AND S00000 3033 06621 1617 TAD I P06617 3034 06622 4042 D06622, 4042 3035 06623 3205 DCA D06605 3036 06624 2217 ISZ P06617 3037 06625 4240 JMS P06640 3038 06626 0114 AND P00114 3039 06627 1417 TAD I P00017 3040 06630 2705 ISZ I P06705 3041 06631 0400 AND I S00000 3042 06632 0411 AND I P00011 3043 06633 2205 ISZ D06605 3044 06634 0324 AND D06724 3045 06635 1722 TAD I P06722 3046 06636 3140 DCA P00140 3047 06637 1001 TAD P00001 3048 06640 2340 P06640, D02340 3049 06641 0310 AND D06710 3050 06642 0116 AND P00116 3051 06643 0705 AND I P06705 3052 06644 0440 AND I P00040 3053 06645 2311 ISZ D06711 3054 06646 1603 TAD I P06603 3055 06647 0540 P06647, D00540 3056 06650 1401 TAD I P00001 3057 06651 2324 ISZ D06724 3058 06652 4032 JMS P00032 3059 06653 0522 AND I P00122 3060 06654 1740 TAD I P06740 3061 06655 1617 TAD I P06617 3062 06656 4057 JMS D00057 3063 06657 2240 ISZ P06640 3064 06660 0114 AND P00114 3065 06661 1417 TAD I P00017 3066 06662 2705 ISZ I P06705 3067 06663 0400 AND I S00000 3068 06664 1726 TAD I P06726 3069 06665 0522 AND I P00122 3070 06666 2211 ISZ P06611 3071 06667 0411 AND I P00011 3072 06670 1607 D06670, 1607 3073 06671 0000 AND S00000 3074 06672 0301 AND P06701 3075 06673 1647 TAD I P06647 3076 06674 2440 ISZ I P00040 3077 06675 1726 TAD I P06726 3078 06676 0522 AND I P00122 3079 06677 2211 D06677, 2211 3080 06700 0405 D06700, 0405 3081 06701 4016 P06701, D04016 3082 06702 1716 TAD I P06716 3083 06703 5523 JMP I P00123 3084 06704 2401 ISZ I P00001 3085 06705 1604 P06705, D01604 3086 06706 0122 AND P00122 3087 06707 0440 AND I P00040 3088 06710 0405 D06710, 0405 3089 06711 2611 D06711, 2611 3090 06712 0305 AND P06705 3091 06713 2300 D06713, 2300 3092 06714 4305 D06714, 4305 3093 06715 2222 ISZ D06622 3094 06716 1722 P06716, D01722 3095 06717 4011 D06717, 4011 3096 06720 1640 TAD I P06640 3097 06721 0317 AND D06717 3098 06722 1515 P06722, D01515 3099 06723 0116 AND P00116 3100 06724 0400 D06724, 0400 3101 06725 4303 JMS 6703 3102 06726 0314 P06726, D00314 3103 06727 4063 JMS 0063 3104 06730 1140 TAD P00140 3105 06731 1726 TAD I P06726 3106 06732 0522 AND I P00122 3107 06733 1401 TAD I P00001 3108 06734 3140 DCA P00140 3109 06735 0116 AND P00116 3110 06736 0440 AND I P00040 3111 06737 1517 TAD I P00117 3112 06740 1611 P06740, D01611 3113 06741 2417 ISZ I P00017 3114 06742 2240 ISZ P06640 3115 06743 1116 TAD P00116 3116 06744 0317 AND D06717 3117 06745 0000 AND S00000 3118 06746 0124 AND P00124 3119 06747 1102 TAD D00102 3120 06750 1405 TAD I P00005 3121 06751 0000 AND S00000 3122 06752 1617 TAD I P06617 3123 06753 2440 ISZ I P00040 3124 06754 2701 ISZ I P06701 3125 06755 2277 ISZ D06677 3126 06756 0000 AND S00000 3127 06757 0611 AND I P06611 3128 06760 1405 TAD I P00005 3129 06761 2340 ISZ P06740 3130 06762 0405 AND I P00005 3131 06763 1405 TAD I P00005 3132 06764 2405 ISZ I P00005 3133 06765 0472 AND I P00072 3134 06766 0000 AND S00000 3135 06767 0611 AND I P06611 3136 06770 1405 TAD I P00005 3137 06771 2340 ISZ P06740 3138 06772 2205 ISZ D06605 3139 06773 1601 TAD I P06601 3140 06774 1505 TAD I P00105 3141 06775 0472 AND I P00072 3142 06776 0000 AND S00000 3143 06777 0611 AND I P06611 3144 D07001=7001 3145 D07040=7040 3146 D07041=7041 3147 L07200=7200 3148 D07271=7271 3149 D07374=7374 3150 L07400=7400 3151 D07402=7402 3152 D07403=7403 3153 D07500=7500 3154 D07510=7510 3155 D07514=7514 3156 L07600=7600 3157 L07605=7605 3158 D07610=7610 3159 D07644=7644 3160 D07650=7650 3161 D07700=7700 3162 D07740=7740 3163 D07744=7744 3164 D07756=7756 3165 D07757=7757 3166 D07760=7760 3167 D07761=7761 3168 L07762=7762 3169 L07764=7764 3170 D07773=7773 3171 L07776=7776 3172 D07777=7777 3173 3174 // That's it for the dis-assembly. Next up, a 3175 // patch for the VC8E. 3176 IFDEF VC8E < 3177 *273 3178 00273 7000 NOP 3179 *276 3180 00276 4064 JMS VC8EPT 3181 *64 3182 00064 0000 VC8EPT, .-. 3183 00065 7104 CLL RAL / Scale by 2X 3184 00066 6054 6054 / DILY 3185 00067 7200 CLA 3186 00070 1007 TAD D00007 / Get X 3187 00071 7104 CLL RAL / Scale by 2X 3188 00072 6053 6053 / DILX 3189 00073 6052 6052 / Wait for ready 3190 00074 5073 JMP .-1 3191 00075 6055 6055 / DIXY 3192 00076 5464 JMP I VC8EPT / Return 3193 > 3194 $