// // Tank game port to VC8E by V. Slyngstad. VC8E=1 // // This first bit is just the file TANK.SV from // the PDP-12, disassembled. LINC=6141 DIS=0140 // LINC: Display a point STD=0436 // LINC: Skip if tape done COM=0017 // LINC: Complement AC ROLI=0260 // LINK: Rotate left, with link TAC=0003 // LINC: Tape AC (checksum) to AC PDP=0002 // LINC: Switch to PDP-8/12 FIELD 0 *0000 S00000, 0003 P00001, D05001 P00002, D01053 P00003, D03033 P00004, D04500 P00005, D02331 P00006, S00000 D00007, 0000 P00010, S00000 P00011, S00000 P00012, S00000 P00013, S00000 P00014, D07773 D00015, 1714 P00016, D07514 P00017, S00000 P00020, S00000 D00021, 0000 P00022, S00000 P00023, L00024 L00024, AND P00002 P00025, P00001 P00026, P00001 P00027, S00202 D00030, 0234 P00031, S00260 P00032, S00325 P00033, S00306 P00034, S00331 P00035, S01000 P00036, S00000 P00037, S00000 P00040, P00034 P00041, D07610 P00042, D05046 P00043, P00002 D00044, 0034 P00045, D07777 L00046, CDF CIF 0 P00047, L05450 P00050, L01255 P00051, D06600 D00052, 6544 P00053, L07605 P00054, D04000 P00055, P03700 D00056, 2020 D00057, 0070 D00060, 0603 P00061, S00600 P00062, L00434 AND D00067 D00064, 6003 P00065, D00244 AND P00100 D00067, 0336 L00070, 0334 P00071, D07001 P00072, D06670 P00073, D00212 D00074, 0215 P00075, L00403 P00076, P00010 P00077, D07700 P00100, D00330 D00101, 0306 D00102, 0564 1745 P00104, D00527 P00105, D00300 D00106, 1671 OSR D00110, 7600 P00111, D07403 P00112, D07402 D00113, 7401 P00114, P01610 P00115, L07400 P00116, L00526 P00117, D00200 P00120, D00007 P00121, D07757 P00122, L07764 P00123, L07762 P00124, P00033 P00125, D07761 P00126, D07760 P00127, D07756 D00130, 7775 D00131, 7745 P00132, 1665 TAD S00000 P00134, D07744 P00135, D01113 P00136, D00370 P00137, P00120 P00140, D04535 P00141, D07700 P00142, D04157 P00143, D07757 P00144, D07740 P00145, D02613 P00146, S01200 P00147, L07776 P00150, P00002 L00151, SNA SPA SZL CLA P00152, S00600 P00153, S03000 P00154, D02636 D00155, 7777 P00156, D04534 D00157, 7612 L00160, JMS P00156 D00161, 7622 P00162, S03400 D00163, 0230 P00164, P00077 D00165, 2623 P00166, L02600 P00167, P02000 P00170, L05600 P00171, D02603 P00172, L02626 P00173, P00004 P00174, L02602 P00175, D02625 D00176, 6745 P00177, S00356 *0200 D00200, 5601 P00201, P01400 S00202, 0000 CLL SPA CML CIA 7421 TAD I S00202 ISZ S00202 SPA D00212, 7061 DCA D00217 CMA RAL DCA D00233 7405 D00217, 0000 7413 AND S00000 DCA D00217 L00223, 7501 SPA CLA IAC TAD D00217 ISZ D00233 JMP I S00202 CIA JMP I S00202 D00233, 0000 P00234, S00000 CLL SPA CML CIA 7421 CMA RAL DCA D00233 TAD I P00234 D00244, 2234 SNA JMP I P00234 ISZ P00234 D00250, 3252 7407 D00252, 0000 7701 ISZ D00233 JMP I P00234 CIA JMP I P00234 S00260, 0000 DCA P00012 TAD I S00260 ISZ S00260 SNA JMP I S00260 CLL CML RAR DCA P00020 CDF 0 IOF L00272, TAD I P00012 TAD D00377 DCA D00007 TAD I P00012 LINC DIS 7 // LINC Instruction D00300, PDP CLA CLL ISZ P00020 JMP L00272 CDF 0 JMP I S00260 S00306, 0000 DCA D00021 TAD D00021 D00311, 0376 TAD D00377 D00313, 3022 D00314, 1021 AND D00375 CLL SZA CLA CLL CML TAD I P00022 SZL CIA JMP I S00306 S00325, 0000 TAD D00374 JMS S00306 D00330, 5725 S00331, 0000 TAD D00355 7421 7405 JMS P00003 DCA D00353 7501 L00340, DCA D00355 TAD D00354 7421 7405 JMS P00003 CLA 7501 TAD D00353 DCA D00354 TAD D00354 JMP I S00331 D00353, 0000 D00354, 0000 D00355, 0001 S00356, 0000 CLL AND D00373 SPA CLL CML IAC RTR SPA CLL CML RAR P00367, L05756 D00370, 1413 SNA JMP I P00367 D00373, 7770 D00374, 0100 D00375, 0200 D00376, 0177 D00377, 0400 *0400 L00400, AND S00000 AND P00062 AND P00145 L00403, AND D00427 P00404, D00311 AND P00573 AND I P00055 AND I P00136 P00410, L00620 AND I P00501 AND I P00562 D00413, 1042 TAD P00123 TAD L00403 TAD D00462 TAD D00541 P00420, D01420 TAD I P00076 TAD I P00154 TAD I P00431 TAD I P00506 TAD I P00562 ISZ P00035 D00427, 2110 ISZ P00162 P00431, P02233 ISZ D00504 D00433, 2354 L00434, ISZ I P00023 ISZ I P00072 ISZ I P00137 ISZ I P00404 ISZ I P00450 ISZ I P00513 ISZ I P00556 DCA P00017 DCA D00057 DCA P00117 DCA D00155 D00447, 3213 P00450, D03247 DCA D00502 DCA D00535 DCA P00566 DCA I P00016 DCA I P00045 DCA I P00073 DCA I P00120 DCA I P00144 DCA I P00167 D00462, 3610 DCA I P00431 DCA I P00450 DCA I P00466 P00466, D03703 DCA I P00516 DCA I P00531 DCA I P00542 DCA I P00552 DCA I P00561 DCA I P00566 DCA I P00573 DCA I P00576 DCA I P00577 DCA I P00577 P00501, P03777 D00502, 3776 P00503, P03773 D00504, 3766 DCA I P00561 P00506, L03752 DCA I P00542 DCA I P00531 L00511, DCA I P00516 DCA I P00503 P00513, D03666 DCA I P00450 DCA I P00431 P00516, P03610 DCA I P00167 L00520, DCA I P00144 DCA I P00120 D00522, 3473 DCA I P00045 DCA I P00016 DCA P00566 L00526, DCA D00535 D00527, 3302 DCA D00447 P00531, D03213 DCA D00155 DCA P00117 DCA D00057 D00535, 3017 ISZ I P00556 ISZ I P00513 D00540, 2650 D00541, 2604 P00542, D02537 ISZ I P00072 ISZ I P00023 ISZ D00554 ISZ D00504 ISZ D00433 ISZ P00162 ISZ D00110 P00552, D02035 TAD I P00562 D00554, 1706 TAD I P00431 P00556, S01554 TAD I P00076 TAD I P00020 P00561, L01341 P00562, D01262 TAD L00403 TAD P00123 TAD P00042 P00566, D00762 AND I P00501 AND I P00420 AND I P00136 AND I P00055 P00573, D00373 AND L00511 AND D00427 P00576, P00145 P00577, P00062 *0600 S00600, 0000 DCA P00753 TAD P00753 IAC DCA P00757 TAD P00757 TAD P00777 DCA P00760 TAD P00760 TAD P00777 DCA P00756 TAD P00756 TAD D00776 DCA P00751 L00616, TAD P00751 TAD P00777 L00620, DCA P00752 TAD P00752 IAC DCA P00754 TAD I P00752 DCA P00752 TAD I S00600 ISZ S00600 SNA JMP L00705 L00632, CLA TAD I P00756 SNA JMP I S00600 IAC SNA JMP L00700 DCA I P00756 TAD I P00757 CIA TAD I P00760 IAC DCA P00750 TAD I P00754 TAD I P00751 DCA I P00754 TAD I P00754 JMS I P00177 DCA I P00750 TAD I P00750 7421 ISZ P00754 ISZ P00750 ISZ P00751 TAD I P00754 TAD I P00751 DCA I P00754 TAD I P00754 JMS I P00177 DCA I P00750 TAD I P00750 7521 ISZ P00750 DCA I P00750 ISZ P00750 7501 DCA I P00750 JMP I S00600 L00700, ISZ P00751 ISZ P00751 DCA I P00751 DCA I P00756 JMP I S00600 L00705, TAD I P00756 SZA JMP L00632 TAD I P00753 JMS I P00033 CIA DCA D00716 TAD D00755 JMS I P00027 D00716, 0000 DCA I P00751 ISZ P00751 TAD I P00753 JMS I P00032 DCA D00726 TAD D00755 JMS I P00027 D00726, 0000 DCA I P00751 D00730, 2351 TAD D00775 DCA I P00751 TAD D00774 DCA I P00756 TAD I P00752 RTL RAL DCA I P00754 ISZ P00752 ISZ P00754 TAD I P00752 RTL RAL DCA I P00754 JMP L00632 P00750, S00000 P00751, S00000 P00752, S00000 P00753, S00000 P00754, S00000 D00755, 0065 P00756, S00000 P00757, S00000 P00760, S00000 JMS I P00166 D00762, 5756 AND P00077 AND P00037 7477 SZA SMA AND I P00777 AND D00730 7607 AND S00600 SZA SMA CLA OSR HLT D00774, 7710 D00775, 7774 D00776, 0002 P00777, P00003 *1000 S01000, 0000 DCA P01122 TAD I P01122 ISZ P01122 DCA D01116 TAD D01116 JMS I P00033 DCA D01072 TAD D01072 DCA D01102 TAD D01116 JMS I P00032 DCA D01065 TAD D01065 P01016, D03306 TAD I P01122 CLL CML RAR DCA D01115 ISZ P01122 TAD I P01122 CLL AND D01177 SPA CLL CML IAC RTR SPA CLL CML RAR DCA D01120 ISZ P01122 TAD I P01122 CLL AND D01177 SPA CLL CML IAC RTR SPA CLL CML RAR DCA D01121 ISZ P01122 TAD I P01122 D01053, 3324 ISZ P01122 TAD I P01122 DCA P01123 L01057, ISZ P01123 ISZ P01124 TAD I P01123 D01062, 3317 TAD D01117 JMS I P00027 D01065, 0000 DCA D01116 ISZ P01123 TAD I P01123 JMS I P00027 D01072, 0000 CIA TAD D01116 TAD D01120 DCA I P01124 ISZ P01124 TAD D01117 JMS I P00027 D01102, 0000 DCA D01116 TAD I P01123 JMS I P00027 D01106, 0000 TAD D01116 TAD D01121 DCA I P01124 L01112, ISZ D01115 D01113, 5257 JMP I S01000 D01115, 0000 D01116, 0000 D01117, 0000 D01120, 0000 D01121, 0000 P01122, S00000 P01123, S00000 P01124, S00000 TAD P00042 DCA D00021 JMP L01112 TAD P00040 AND P00120 CLL RTL RAL TAD L01161 DCA I P00166 TAD D00021 JMP I P01140 P01140, L00616 P01141, S00000 TAD D00021 CLL RAL D01144, 3021 TAD P00040 RAL DCA P00040 JMP I P01141 TAD P00154 DCA P00014 TAD P00125 DCA P00041 CDF 10 L01156, DCA I P00014 ISZ P00041 JMP L01156 L01161, CDF CIF 0 JMP I P00075 CDF 10 DCA I P00041 JMP L01161 P01166, L01253 TAD D00074 D01170, 3034 JMS I P01176 TAD P00073 JMS I P00023 JMP I P01166 TAD I P00146 P01176, D01262 D01177, 7774 *1200 S01200, 0000 DCA P01364 TAD D01377 TAD P01364 DCA P01356 TAD D01376 TAD P01364 DCA P01360 TAD D01375 TAD P01364 DCA P01361 TAD D01374 TAD P01364 DCA P01362 TAD I P01362 RTR SNL JMP L01341 RAR SNL JMP L01277 CLA TAD I P01362 RTR RTR CLA TAD L00024 SZL CIA TAD I P01356 DCA D01363 TAD D01363 SMA CIA DCA D01357 TAD I P01362 AND D01373 SNA CLA TAD P00023 TAD D01357 TAD P00023 SPA JMP L01345 L01253, CLA TAD D01363 L01255, DCA I P01356 JMP L01277 L01257, CLA TAD I P01356 SMA D01262, 7041 TAD P00025 SMA JMP L01327 CLA TAD I P01356 RAL CLA TAD P00026 SNL CIA TAD I P01356 DCA I P01356 L01277, CLA TAD I P01364 D01301, 4432 DCA D01305 TAD I P01356 JMS I P00027 D01305, 0000 CLL TAD I P01361 DCA I P01361 TAD I P01364 JMS I P00033 CIA DCA D01317 TAD I P01356 JMS I P00027 D01317, 0000 CLL TAD I P01360 DCA I P01360 L01323, CLA TAD P01364 JMS I P01372 JMP I S01200 L01327, CLA DCA I P01356 TAD I P01362 RTR SZL JMP L01323 RAR SZL JMP L01323 JMP L01323 L01341, RAR SNL L01343, JMP L01257 JMP L01277 L01345, TAD I P01356 RAL CLA TAD L00024 SNL CIA TAD I P01356 DCA I P01356 JMP L01277 P01356, S00000 D01357, 0000 P01360, S00000 P01361, S00000 P01362, S00000 D01363, 0000 P01364, S00000 DCA D01375 JMP P01372 TAD P00031 SNA CLA JMP I P00062 P01372, S01000 D01373, 0020 D01374, 0010 D01375, 0003 D01376, 0002 D01377, 0006 *1400 P01400, D01377 CLL CML RAR DCA L01456 TAD P01576 DCA P01457 TAD D01575 DCA P01460 L01407, TAD I P01457 P01410, D03660 ISZ P01460 ISZ P01457 TAD I P01457 TAD D01577 CIA DCA I P01460 ISZ P01460 D01420, 2257 ISZ L01456 JMP L01407 TAD P01576 DCA P01457 TAD D01577 CLL RAL DCA L01456 L01430, TAD I P01457 CIA DCA I P01460 ISZ P01457 ISZ P01460 ISZ L01456 JMP L01430 TAD D00176 DCA P01457 TAD D01574 DCA D01455 TAD D01573 L01444, JMS I P00034 AND D01572 SPA TAD D01571 D01450, 3657 ISZ P01457 ISZ D01455 JMP L01444 JMP I P01570 D01455, 0000 L01456, AND S00000 P01457, S00000 P01460, S00000 S01461, 0000 TAD I P00175 CIA TAD I P00174 SPA CLA JMP L01473 TAD P00173 TAD I P00174 DCA I P00174 JMP L01476 L01473, TAD P00173 TAD I P00175 DCA I P00175 L01476, TAD I P00172 CIA TAD I P00171 SMA CLA JMP L01507 TAD P00173 TAD I P00172 DCA I P00172 JMP I S01461 L01507, TAD P00173 TAD I P00171 DCA I P00171 JMP I S01461 CLL CML RAR DCA D01556 D01515, 4354 CLA CLL CML RTR DCA D01557 TAD D01556 AND P00055 CIA TAD P00041 SMA TAD P00054 DCA D01556 JMS S01554 ISZ I P00061 JMP L01456 JMS I P00162 AND I P01410 P01534, S00000 AND P00013 JMP P00001 CLA CMA CDF 10 DCA I P00077 JMP I P00053 P01543, S00000 ISZ D01550 JMP I P01543 JMS I P00162 TAD P00010 D01550, 7777 AND P00033 JMP P00001 JMP I P01543 S01554, 0000 JMS I P00026 D01556, 4101 D01557, 0600 D01560, 0000 JMP L01567 TAD D01556 JMS I P01576 TAD D01560 DCA D01560 JMP I S01554 L01567, JMS I P00100 P01570, P01600 D01571, 3770 D01572, 4007 D01573, 6571 D01574, 7501 D01575, 5334 P01576, 4734 D01577, 7400 *1600 P01600, L07200 DCA I P01777 P01602, P03776 P01603, D01170 D01604, 3775 TAD P00167 P01606, P03774 TAD P00166 P01610, D04435 D01611, 7200 DCA I P01773 P01613, P03772 TAD P01771 DCA I P01770 TAD D01767 D01617, 3766 TAD D00165 P01621, D04435 L01622, CLA ISZ I P01765 SKP P01625, P04771 P01626, L07200 ISZ I P01764 SKP P01631, D04763 CLA P01633, D02762 SKP JMS I P01761 P01636, L07200 ISZ I P01760 SKP JMS I P01757 KSF JMP L01652 P01644, KRB TAD D01756 SZA JMP P01600 JMP I P01651 P01651, L07600 L01652, CLA OSR CMA AND P00164 DCA I P01755 CLA OSR RTR RTR RTR CMA AND P00164 DCA I P01754 CLA TAD I P01753 SNA JMP L01675 TAD I P01752 SZA JMP L01724 CLA L01675, TAD I P00175 D01676, 7041 D01677, 1574 SMA CIA TAD D00163 SPA JMP L01724 TAD I P00172 CIA TAD I P00171 SMA CIA TAD D00163 SPA JMP L01724 L01715, CLA JMS I P01751 CLA CMA DCA I P01753 D01722, 7040 DCA I P01752 L01724, JMS I P00162 JMP I P01750 DCA D01734 ISZ P01751 TAD I P01751 DCA D01733 JMS I P01755 D01733, 0000 D01734, 0000 D01735, 0000 JMP L01745 TAD D01733 JMS P01765 TAD D01735 DCA D01735 ISZ P01751 JMP L01715 L01745, CIF 10 JMS I P01754 AND D00007 P01750, P02000 P01751, S01461 P01752, D02621 P01753, D02644 P01754, D02610 P01755, D02633 D01756, 7575 P01757, S02476 P01760, D02024 P01761, S02400 P01762, D02023 P01763, S02276 P01764, P02022 P01765, D02021 P01766, L02626 D01767, 5600 P01770, D02625 P01771, S02200 P01772, D02636 P01773, D02631 P01774, D02603 P01775, L02602 P01776, D02613 P01777, D02606 *2000 P02000, L07200 P02001, L01161 D02002, 1777 P02003, D03206 TAD L00160 JMS I P00031 D02006, 7622 TAD D00157 D02010, 1776 DCA D02014 TAD P00156 P02013, D04431 D02014, 7612 TAD D02175 JMS I P00031 IOT P02020, D05774 D02021, 7777 P02022, D07777 D02023, 7777 D02024, 7776 AND I P00001 AND I P02003 TAD P00011 TAD P00177 D02031, 0263 AND D02106 AND D02053 AND D02124 D02035, 0341 P02036, L00400 P02037, L01343 P02040, L00620 D02041, 6213 DCA I P02000 CDF CIF 10 JMP I P02040 ISZ D00057 L02046, ISZ D00057 ISZ D00057 ISZ D00057 ISZ D00057 ISZ D00057 D02053, 7200 CIF 0 JMS I P00175 AND D02010 P02057, P01400 AND D00056 HLT JMP I P02057 D02063, 7330 JMS S02151 JMS P02020 DCA P00041 CIF 0 JMS I P00175 AND I P02001 AND S00000 AND P00051 JMP L02046 TAD D02041 CDF CIF 0 JMS I P00174 DCA D02041 TAD D02041 DCA D02145 JMS S02151 CLL CML JMP I P02037 D02106, 4220 DCA P00041 CIF 0 JMS I P00175 AND D00101 P02113, L07400 AND D00057 JMP L02046 TAD P00041 CDF CIF 0 JMP I P02113 CLA ISZ P02000 TAD P00040 D02124, 7110 L02125, TAD P02000 DCA I P00173 TAD D02041 DCA I P00172 CLA CML IAC CDF 0 P02133, 0571 CDF 10 RAR SPA SZL CLA JMP I P00172 JMP I P00170 D02141, 7120 JMP L02125 P02143, L00223 DCA P02040 D02145, 6213 TAD I P02040 CDF CIF 10 JMP I P02143 S02151, 0000 TAD P02174 DCA D02164 CDF 0 TAD I P00171 CDF 10 RTR SZL CLA JMP I S02151 CIF 0 JMS I P00175 D02164, 0000 AND S00000 AND P00033 JMP L02046 JMP I S02151 CIF 0 JMS I P00175 AND P00111 P02174, L01622 D02175, 4733 P02176, D02613 P02177, D02636 *2200 S02200, 0000 TAD D00155 DCA I P02377 TAD P00154 P02204, L04553 AND P00020 JMP L02211 CLA DCA I P02376 L02211, TAD I P02375 CMA AND D02374 DCA D02217 TAD D00165 JMS I P00152 D02217, 0000 CLA TAD I P02373 SZA P02223, D05243 CLA TAD D00165 JMS I P00153 AND D00110 JMP L02243 P02231, L07200 TAD I P02372 P02233, D07510 TAD L00151 TAD P00173 P02236, D07041 DCA I P02372 D02240, 7040 DCA I P02373 JMP I S02200 L02243, TAD D00165 P02244, L04553 AND P00140 JMP L02250 JMP I S02200 L02250, CLA TAD I P02375 RTR SZL JMP L02266 RAR SNL JMP I S02200 CLA TAD P00150 CIA TAD I P02371 DCA I P02371 JMP I S02200 L02266, RAR SZL JMP L02275 CLA TAD P00150 TAD I P02371 DCA I P02371 L02275, JMP I S02200 S02276, 0000 D02277, 1147 DCA I P02370 D02301, 1165 D02302, 4546 D02303, 7200 TAD I P02373 SNA CLA JMP I S02276 L02307, DCA I P02372 DCA I P02373 JMP I S02276 TAD D02302 CLL CML RAR TAD D02301 SMA CLA DCA I P00041 JMS P02334 CIA TAD D02303 SZA CLA P02323, L05330 TAD I P00042 AND P00153 TAD D02302 DCA I P00041 L02330, ISZ D00044 D02331, 5307 TAD I P00047 JMP I P00152 P02334, L00520 TAD I P00042 CLL RTL RTL D02340, 7006 AND L00151 TAD P00150 JMP I P02334 P02344, L00511 AND L00151 SNA JMP I P00147 DCA D00052 TAD D00052 TAD P00146 DCA P00042 TAD D00052 TAD P00145 DCA P00041 TAD D00052 TAD P00144 DCA P00050 TAD I P00041 JMP I P02344 JMS I P02231 JMP I P02323 AND I P00006 JMP I P02204 P02370, P02022 P02371, D02623 P02372, D02631 P02373, D02644 D02374, 0001 P02375, D02633 P02376, D02636 P02377, D02021 *2400 S02400, 0000 TAD D00155 DCA I P02577 D02403, 1145 JMS I P00153 AND P00020 P02406, D05211 CLA P02410, P03776 L02411, TAD I P02575 CMA P02413, D00374 DCA D02417 TAD P00166 JMS I P00152 D02417, 0000 CLA P02421, P01773 SZA JMP L02443 CLA TAD P00166 JMS I P00153 AND D00110 JMP L02443 CLA TAD I P02572 SPA TAD L00151 TAD P00173 CIA DCA I P02572 CMA DCA I P02573 JMP I S02400 L02443, TAD P00166 JMS I P00153 AND P00140 JMP L02450 JMP I S02400 L02450, CLA L02451, TAD I P02575 RTR SZL JMP L02466 RAR SNL JMP I S02400 CLA TAD P00150 CIA TAD I P02571 DCA I P02571 JMP I S02400 L02466, RAR SZL JMP L02475 CLA TAD P00150 TAD I P02571 DCA I P02571 L02475, JMP I S02400 S02476, 0000 TAD P00147 DCA I P02570 P02501, P01166 L02502, JMS I P00146 CLA TAD I P02573 SNA CLA JMP I S02476 DCA I P02573 DCA I P02572 JMP I S02476 TAD D00044 DCA P00047 L02514, TAD P00047 JMS I P00136 CIA TAD I P00017 SZA CLA JMP L02535 ISZ P00047 ISZ L00046 JMP L02514 JMS S02552 TAD I P00017 SNA JMP L02541 CIA DCA L00046 ISZ P02501 JMP I P02501 L02535, TAD L00046 IAC D02537, 4352 TAD I P00017 L02541, TAD P00045 DCA P00045 ISZ P00053 JMP L02502 DCA P00045 TAD I P00135 SZA JMP L02451 JMP I P02501 S02552, 0000 TAD I P00140 CIA TAD P00017 DCA P00017 JMP I S02552 AND S00000 TAD P00134 DCA D02565 CIF 0 JMS I P00051 D02565, 4210 TAD I S00000 AND P00001 P02570, D02024 P02571, L02600 P02572, D02606 P02573, D02621 D02574, 0001 P02575, D02610 P02576, D02613 P02577, D02023 *2600 L02600, AND P00020 SKP CLA HLT L02602, SZA SMA SNL CLA D02603, 7740 JMS I P00134 JMS 2745 D02606, 0000 D02607, 0000 D02610, 0000 AND S00000 AND S00000 D02613, 0000 JMS I P00175 D02615, 0000 D02616, 0000 D02617, 0000 AND S00000 D02621, 0000 D02622, 0000 D02623, 0000 SNL CLA HLT D02625, 1000 L02626, AND I P00112 JMS P00156 DCA I P02777 D02631, 0000 D02632, 0000 D02633, 0000 AND S00000 AND S00000 D02636, 0000 JMS D02617 L02640, AND S00000 D02641, 0000 AND S00000 AND S00000 D02644, 0000 D02645, 0000 JMP L02663 TAD I P00135 SZA JMP I P00124 TAD D00044 JMS I P00136 SZA CLA TAD L00046 SNA CLA JMP I P00166 TAD P00054 ISZ D00056 JMP I P00124 L02663, TAD P00017 DCA P00041 TAD P00137 JMS I P00125 TAD I P00140 CIA TAD P00017 TAD P00123 SMA CLA JMP I P00122 L02675, TAD I P00041 DCA I P00017 CLA CMA TAD P00041 DCA P00041 CLA CLL CMA RAL TAD P00017 DCA P00017 TAD P00041 CLL CML CIA TAD D00052 SZA CLA JMP L02675 TAD P00137 DCA P00041 TAD D00052 DCA P00017 L02716, TAD D00044 JMS I P00136 DCA I P00017 ISZ D00044 ISZ P00041 JMP L02716 TAD I P00121 DCA I P00017 IAC JMS I P00125 DCA I P00017 TAD P00017 DCA I P00120 CLA CMA TAD I P00141 DCA I P00141 TAD I P00050 TAD P00054 DCA I P00050 JMS I P00117 JMP I P00116 TAD I P00017 CLL CIA DCA P00041 TAD P00043 TAD L00046 CLA TAD P00043 SNA CML TAD P00041 CLA CML TAD P00041 CIA TAD L00046 SNA SZL CLA D02762, 5374 TAD P00041 DCA L00046 CLA CLL CMA RAL TAD P00017 DCA D00052 TAD I P00115 DCA P00054 TAD P00042 DCA P00045 L02774, TAD P00041 CIA JMP L02640 P02777, D04532 *3000 S03000, 0000 TAD D03177 DCA P03073 TAD I P03073 SPA CIA DCA I P03176 ISZ P03073 TAD I P03073 L03011, SPA CIA DCA I P03175 TAD I S03000 ISZ S03000 DCA I P03174 TAD D03173 TAD P03073 DCA P03073 TAD I P03073 RAL CLA ISZ P03073 L03026, TAD I P03073 SPA CML SZL CLA JMP I S03000 D03033, 1775 TAD I P03174 CIA TAD P03172 SMA CLA JMP I S03000 TAD I P03175 CIA TAD I P03174 TAD D03171 SPA CLA D03046, 5600 TAD I P03176 CIA TAD I P03174 TAD D03171 SPA CLA JMP I S03000 TAD I P03176 TAD I P03174 CIA TAD D03170 SMA CLA JMP I P03167 TAD I P03176 CIA TAD I P03174 TAD P03166 SPA CLA JMP I P03165 JMP I P03164 L03072, JMP I S03000 P03073, S00000 JMP I P03172 TAD P00031 DCA D00030 TAD P00033 JMS I P00153 DCA P00014 JMP I P00150 JMS I P00145 DCA P00062 TAD P00022 SPA CLA JMP I P00035 TAD P00040 TAD D03171 SNA JMP L03121 TAD D03170 D03115, 7650 D03116, 5767 D03117, 7330 D03120, 5226 L03121, JMS I P00174 ISZ P00062 JMP L03140 TAD P00027 DCA P00035 JMS I P00143 L03127, TAD P00020 DCA P00014 TAD D00021 D03132, 3015 TAD P00022 DCA P00016 TAD P00035 DCA P00017 JMP L03011 L03140, TAD P00027 CIA TAD P00035 SNA CLA JMP L03127 JMS I P00142 JMP P00144 JMP L03011 CIA JMP I P03166 TAD P00033 JMS I P00166 AND D00157 TAD P00033 CMA AND P00034 JMP I P03166 JMS I P00174 JMP I P03163 P03163, L03332 P03164, P03200 P03165, L03246 P03166, P02000 P03167, L03315 D03170, 0600 D03171, 3400 P03172, L00400 D03173, 7777 P03174, D03320 P03175, D03317 P03176, D03316 D03177, 0002 *3200 P03200, D01317 CIA TAD D03320 TAD D03377 SPA CLA JMP L03231 D03206, 1317 CIA TAD D03320 TAD D03376 SMA CLA D03213, 5313 L03214, TAD D03316 TAD D03320 CIA TAD D03375 SMA CLA JMP I P03374 TAD D03316 CIA TAD D03320 TAD D03377 SPA CLA JMP I P03374 JMP L03313 L03231, TAD D03317 TAD D03320 CIA TAD D03373 SMA CLA JMP I P03374 TAD D03317 TAD D03320 CIA TAD D03372 SMA CLA JMP L03214 JMP L03313 L03246, TAD D03316 D03247, 1320 CIA TAD P03371 SMA CLA JMP I P03374 TAD D03317 CIA TAD D03320 TAD D03376 SMA CLA JMP L03313 TAD D03317 TAD D03320 CIA TAD D03372 SPA CLA JMP L03313 TAD D03316 TAD D03320 CIA TAD D03372 D03274, 7700 JMP I P03374 TAD D03317 D03277, 7041 D03300, 1320 L03301, TAD D03377 SMA CLA D03303, 5313 TAD D03317 TAD D03320 D03306, 7041 TAD D03373 SPA CLA JMP L03313 JMP I P03374 L03313, ISZ I P03370 JMP I P03374 L03315, JMP I P03374 D03316, 0000 D03317, 0000 D03320, 0000 DCA P00043 JMS I P00174 L03323, JMS I P00105 JMP L03301 TAD P00043 L03326, DCA P00035 L03327, TAD P00033 TAD D03361 DCA P00043 L03332, TAD I P00043 DCA P00043 JMP I P00043 JMS I P00146 JMP L03323 JMS I P00174 TAD P00027 JMP L03326 ISZ P00037 TAD I P00037 TAD P00137 SNA CLA JMP P03353 TAD I P00037 DCA P00035 JMS I P00174 JMP L03327 P03353, D04542 JMP P00143 CLA CMA DCA P00040 JMP I P03371 DCA I P03353 D03361, 3556 SMA SNL SPA AND D03274 AND P00002 7753 AND D00064 P03370, S03000 P03371, L02600 D03372, 3200 D03373, 2400 P03374, L03072 D03375, 1200 D03376, 0600 D03377, 1400 *3400 S03400, 0000 L03401, CLA TAD I P03577 SNA CLA JMP L03447 ISZ I P03577 JMP L03414 P03407, D01144 P03410, P03776 TAD P00144 DCA I P03575 P03413, D05774 L03414, DCA I P03573 P03415, P03775 P03416, P03772 TAD I P03571 AND P00147 CMA AND P00143 CMA DCA I P03571 P03425, P01770 P03426, P00147 DCA I P03570 TAD D00161 P03431, D03303 P03432, D01301 P03433, D02301 DCA P03500 TAD P00142 DCA P03502 L03437, TAD I P03500 TAD I P03502 DCA I P03502 ISZ P03500 ISZ P03502 P03444, D02303 P03445, D05237 JMP I P03574 L03447, CLA TAD I P03573 SNA CLA JMP I P03574 TAD I P03567 CIA TAD I P03566 P03456, D07500 CIA TAD D03565 SPA CLA JMP I P03574 TAD I P03564 P03464, D07041 TAD I P03563 SMA CIA TAD D03565 SPA CLA JMP I P03574 TAD D00176 DCA D03501 TAD P00141 DCA I P03577 JMP L03401 P03500, S00000 D03501, 0000 P03502, S00000 D03503, 0000 L03504, JMP I S03400 TAD P00034 JMS I P03576 DCA P00034 TAD D03513 DCA L00070 ISZ P00075 D03513, 0700 SKP JMP I P00047 JMS P03543 L03517, TAD D00176 TAD P00035 DCA P00035 TAD D00056 AND P00175 SNA CLA JMP L03530 JMS I P00142 JMP P00172 L03530, TAD D00056 AND D00157 SZA CLA JMS P03543 TAD P00034 AND D00155 TAD P00035 DCA P00034 TAD I P00010 DCA P00043 JMP I P00043 P03543, L03517 TAD P00035 CMA AND P00127 SZA JMP L03553 JMS I P00142 JMP L00151 L03553, TAD P00035 DCA P00035 JMP I P03543 DCA I S03400 DCA I P03456 JMP I P00035 DCA I P03444 DCA I P03464 P03563, L02626 P03564, D02616 D03565, 0120 P03566, D02625 P03567, D02615 P03570, D02610 P03571, D02633 P03572, D02631 P03573, D02613 P03574, L03600 P03575, D02607 P03576, D02632 P03577, D02645 *3600 L03600, CLA TAD I P03777 P03602, D07650 P03603, D05246 ISZ I P03777 JMP L03613 P03606, D01144 P03607, P03776 P03610, D01144 DCA I P03775 JMP I P03774 L03613, DCA I P03773 D03614, 3776 D03615, 3772 TAD I P03771 AND P00147 CMA AND P00143 P03622, D07040 DCA I P03771 TAD I P03770 AND P00147 DCA I P03770 TAD D00157 DCA D03702 TAD D03701 P03632, D03277 P03633, D02301 TAD P00140 DCA P03700 P03636, D01677 TAD I P03700 P03640, P03700 P03641, D02277 ISZ P03700 ISZ D03702 JMP P03636 JMP I P03774 L03646, CLA TAD I P03773 SNA CLA JMP I P03774 TAD I P03767 CIA TAD I P03766 SMA P03656, D07041 TAD P00137 D03660, 7710 JMP I P03774 TAD I P03765 CIA TAD I P03764 SMA D03666, 7041 TAD P00137 SPA CLA JMP I P03774 TAD D00176 DCA D03701 TAD P00141 DCA I P03777 JMP L03600 P03677, S00000 P03700, S00000 D03701, 0000 D03702, 0000 D03703, 1364 SNA JMP L03736 IAC SNA JMP L03752 ISZ I P03763 TAD D03762 DCA D03733 TAD P00051 SNA SPA CLA JMP L03723 ISZ D03734 JMP L03727 L03721, CLA CMA DCA D03734 L03723, TAD I P03763 DCA P00043 TAD D03733 JMP I P00043 L03727, ISZ P03735 TAD D03733 DCA I P03735 JMP L03723 D03733, 0215 D03734, 7777 P03735, D01450 L03736, TAD D03754 SNA CLA JMP L03747 DCA D03754 ISZ P00042 DCA P00041 TAD P00051 SZA SMA CLA JMS I P00135 L03747, TAD P00134 DCA D03733 JMP L03721 L03752, ISZ D03754 JMP I P03766 D03754, 0001 DCA D00155 JMP I P00034 DCA I P03656 DCA P00145 AND D03614 D03762, 0214 P03763, D05200 P03764, D02603 P03765, D02641 P03766, L02602 P03767, L02640 P03770, D02633 P03771, D02610 P03772, D02606 P03773, D02636 P03774, L03504 P03775, D02607 P03776, D02632 P03777, D02622 *4000 D04000, 7767 D04001, 0001 D04002, 7767 AND P00003 7767 AND P00005 7767 AND D00007 7771 AND D00007 7773 AND D00007 7773 AND P00005 D04016, 7773 AND P00003 SNA SPA SZL CLA OSR AND P00004 SNA SPA SZL CLA OSR HLT AND P00005 7777 AND P00005 7777 AND P00006 7777 AND D00007 7777 AND P00011 7777 AND P00013 SNA SPA SZL CLA OSR HLT AND P00014 AND S00000 AND P00014 AND P00002 AND P00014 AND P00001 AND P00013 AND P00001 AND P00011 AND P00001 AND D00007 AND P00001 AND P00005 AND P00002 AND P00005 AND P00004 AND P00004 AND P00005 AND P00003 AND P00005 AND P00005 AND P00005 AND D00007 AND D00007 AND D00007 AND P00011 AND D00007 AND P00011 AND P00005 AND P00011 AND P00003 AND P00011 AND P00001 AND P00011 7777 AND P00011 7775 AND P00011 7773 AND P00011 7771 AND P00011 SNA SPA SZL CLA AND D00007 SNA SPA SZL CLA AND P00005 SNA SPA SZL CLA AND P00005 SNA SPA SZL CLA HLT D04120, 0005 SNA SPA SZL CLA OSR P04122, P00004 7773 D04124, 0002 SNA SPA SZL CLA HLT AND S00000 D04127, 7772 SNA SPA SZL CLA OSR HLT SNA SPA SZL CLA HLT SNA SPA SZL CLA OSR 7773 7773 SNA SPA SZL CLA OSR 7773 SNA SPA SZL CLA HLT 7773 SNA SPA SZL CLA 7771 SNA SPA SZL CLA 7767 SNA SPA SZL CLA 7767 7771 7767 7773 7767 7775 7767 7777 JMS P00156 D04157, 0000 ISZ D04120 AND D04127 ISZ D04002 JMP I P00023 ISZ P00003 ISZ I P04122 AND I P00054 ISZ D04120 AND D04127 ISZ D04001 JMP I P00022 TAD D04124 ISZ I P00002 TAD I S00000 SZA SMA SNL OSR HLT 7567 *4200 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 7767 AND P00001 7767 AND P00003 7767 AND P00005 7767 AND D00007 7771 AND D00007 7773 AND D00007 7773 AND P00005 7773 AND P00003 SNA SPA SZL CLA OSR AND P00004 SNA SPA SZL CLA OSR HLT AND P00005 7777 AND P00005 7777 AND P00006 7777 AND D00007 *4400 P04400, D07777 P04401, P00011 7777 AND P00013 SNA SPA SZL CLA OSR HLT AND P00014 D04406, 0000 P04407, P00014 AND P00002 AND P00014 AND P00001 AND P00013 AND P00001 AND P00011 AND P00001 AND D00007 AND P00001 AND P00005 AND P00002 AND P00005 AND P00004 AND P00004 AND P00005 AND P00003 AND P00005 D04431, 0005 AND P00005 D04433, 0007 AND D00007 D04435, 0007 D04436, 0011 AND D00007 AND P00011 AND P00005 AND P00011 AND P00003 AND P00011 AND P00001 AND P00011 7777 AND P00011 7775 AND P00011 7773 AND P00011 7771 AND P00011 SNA SPA SZL CLA AND D00007 D04461, 7770 AND P00005 SNA SPA SZL CLA AND P00005 SNA SPA SZL CLA HLT AND P00005 SNA SPA SZL CLA OSR AND P00004 7773 AND P00002 SNA SPA SZL CLA HLT P04474, S00000 SNA SPA SZL CLA HLT SNA SPA SZL CLA OSR HLT SNA SPA SZL CLA HLT D04500, 7774 7773 7773 SNA SPA SZL CLA OSR L04504, 7773 SNA SPA SZL CLA HLT 7773 SNA SPA SZL CLA 7771 SNA SPA SZL CLA 7767 SNA SPA SZL CLA 7767 D04515, 7771 D04516, 7767 L04517, 7773 7767 7775 7767 7777 7777 AND P00001 AND P00001 AND P00001 AND P00001 7777 D04532, 7777 7777 D04534, 4534 D04535, 0000 TAD D04436 DCA I P04407 CDF CIF 0 JMP I P04474 D04542, LINC // This is likely data, but disassembled anyway. STD // LINC Instruction 0436 COM // LINC Instruction ROLI 1 // LINC Instruction Rotate Left w/Link TAC // LINC Instruction Get checksum PDP SNL / Tape ready? JMP L04517 / WTF? CLL IAC L04553, CLA RTL IAC AND D04515 SNA CLA JMP L04504 TAD D04574 AND D04406 TAD D04535 SNA P04563, L05371 DCA D04574 TAD P04407 DCA D04575 ISZ D04516 JMP L04504 L04571, CDF CIF 10 JMP I P04401 ISZ D04433 D04574, 0100 D04575, 1600 CDF 0 JMP I P04563 *4600 JMS P04604 JMS P04604 JMP I P04777 P04603, D05776 P04604, P04603 ISZ P04604 CLA CLL CDF 0 TAD I P04775 AND D04774 TAD D04654 DCA D04700 TAD I P04775 CDF 10 RTL SNL CLA JMP L04630 L04621, TAD D04676 DCA I P04675 ISZ L04621 ISZ P04675 ISZ D04674 JMP L04621 CLA CMA L04630, DCA D04673 L04631, TAD I P04670 CDF 0 DCA I P04671 CDF 10 TAD I P04667 CDF 0 DCA I P04667 CDF 10 ISZ P04667 ISZ P04670 ISZ P04671 ISZ D04672 JMP L04631 TAD P04777 CDF 0 DCA I P04773 TAD D04772 DCA I P04771 CDF 10 D04654, 6202 JMS I P04770 P04656, 1273 TAD P04775 SZA CLA JMP I P04604 TAD D04767 DCA I P04766 TAD D04765 DCA I P04764 JMP I P04604 P04667, P04667 P04670, D05070 P04671, D07271 D04672, 7472 D04673, 0000 D04674, 7774 P04675, D03300 D04676, 7410 7400 D04700, 6202 P04701, P04701 JMS I P04656 TAD D04755 6214 DCA L04750 CDF 0 TAD I P04775 AND D04774 SNA JMP L04716 CLL RTR RAR JMP L04750 L04716, CDF 0 TAD D04754 CLL RTL RAL AND D04733 TAD L04716 DCA D04725 D04725, 7777 TAD I P04752 D04727, 7000 DCA D04725 TAD D04727 DCA I P04752 D04733, 0070 AND D00060 AND D04740 AND D00064 AND D04740 D04740, 0070 AND D04740 AND D00074 AND D04740 AND P00100 AND D04740 AND P00104 AND D04740 L04750, AND D00110 AND D04740 P04752, P00114 AND D04740 D04754, 0120 D04755, 0340 AND P00124 AND D04740 AND D00130 AND D04740 AND P00134 D04763, 0340 P04764, P00140 D04765, 0340 P04766, P00144 D04767, 0340 P04770, P00150 P04771, L00340 D04772, 0154 P04773, L00340 D04774, 0160 P04775, L00340 P04776, P00164 P04777, L00340 *5000 D05000, 0170 D05001, 0340 AND P00174 AND D05140 AND D05000 AND D05140 AND D05000 AND D05134 AND D05000 AND D05130 AND D05000 AND D05124 AND D05000 AND D05120 AND P00140 AND D05120 AND P00144 AND D05120 AND P00150 AND D05120 AND P00154 AND D05120 AND L00160 AND D05120 AND P00164 AND D05120 AND P00170 AND D05120 AND P00174 AND D05120 AND P00140 AND D05040 D05040, 0140 AND D05044 AND P00140 AND D05050 D05044, 0140 AND D05054 D05046, 0140 AND D05060 D05050, 0140 AND D05064 AND P00140 AND D05070 D05054, 0140 AND D05074 AND P00140 AND D05100 D05060, 0140 AND D05104 AND P00140 AND D05110 D05064, 0140 AND D05114 AND P00120 AND D05040 D05070, 0124 AND D05040 AND D00130 AND D05040 D05074, 0134 AND D05040 AND P00120 AND D05120 D05100, 0120 AND D05044 AND P00120 AND D05050 D05104, 0120 AND D05054 AND P00120 AND D05060 D05110, 0120 AND D05064 AND P00120 AND D05070 D05114, 0120 AND D05074 AND P00120 AND D05100 D05120, 0120 AND D05104 AND P00120 AND D05110 D05124, 0120 AND D05114 AND D00060 AND D05120 D05130, 0064 AND D05120 AND L00070 AND D05120 D05134, 0074 AND D05120 AND P00100 AND D05120 D05140, 0104 AND D05120 AND D00110 AND D05120 AND P00114 AND D05120 AND D00060 AND D05124 AND D00060 AND D05130 AND D00060 AND D05134 AND D05060 AND D05120 AND D05060 AND D05124 AND D05060 AND D05130 AND D05060 AND D05134 AND D05060 AND D05140 AND D05064 AND D05120 AND D05070 AND D05120 AND D05074 AND D05120 AND D05100 AND D05120 AND D05104 AND D05120 *5200 D05200, 0310 AND D05320 AND D05314 AND D05320 AND D05320 AND D05320 AND D05320 AND D05240 AND D05320 D05211, 0244 AND D05320 AND D05250 AND D05320 AND D05254 AND D05320 AND D05260 AND D05320 AND D05264 AND D05320 AND D05270 AND D05320 AND D05274 AND D05320 AND D05300 AND D05320 AND D05304 AND D05320 AND D05310 AND D05320 AND D05314 AND D05324 D05237, 0240 D05240, 0330 AND D05240 AND L05334 D05243, 0240 D05244, 0340 AND D05240 D05246, 0340 AND D05244 D05250, 0340 P05251, D00250 AND D05340 AND D05254 D05254, 0340 AND D05260 AND D05340 AND D05264 D05260, 0340 AND D05270 AND D05340 AND D05274 D05264, 0340 AND D05300 AND D05340 AND D05304 D05270, 0340 AND D05310 AND D05340 AND D05314 D05274, 0340 AND D05320 AND D05340 AND D05324 D05300, 0340 AND L05330 P05302, L00340 AND L05334 D05304, 0340 AND D05340 AND D05264 AND D05340 D05310, 0270 AND D05340 AND D05274 AND D05340 D05314, 0300 AND D05340 AND D05304 AND D05340 D05320, 0310 AND D05340 AND D05314 AND D05340 D05324, 0320 D05325, 0340 AND D05324 AND D05340 L05330, AND L05330 AND D05340 AND L05334 AND D05340 L05334, JMP L05334 P05335, S01000 TAD P05335 CML RAL IAC D05340, 7640 DCA P00032 TAD D05325 JMS I P00026 ISZ D05354 DCA P00062 CLA CMA CML RAL CDF CIF 10 ISZ I P00076 JMS I P05335 NOP D05354, 0002 ISZ P00175 JMS D00056 AND I P00004 JMP L00160 JMS I P00043 AND P05251 AND I P05251 DCA P00076 TAD I S00000 DCA P00002 CLA CLL CMA RTR JMS I P05302 L05371, AND I P00032 6403 AND I P00033 AND L00070 AND I P00001 ISZ P00003 6400 L05450=5450 L05600=5600 L05756=5756 D05774=5774 D05776=5776 D06036=6036 D06212=6212 L06247=6247 *6400 CIF 10 JMS I P06577 6621 JMS S06405 JMP I P06576 S06405, 0000 CDF 10 TAD I P06575 CDF 0 AND D06574 SNA CLA JMP I P06573 CIF 10 JMS I P06577 6664 JMP I S06405 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 TAD I P00120 IOT JMS S00000 ISZ S00000 AND P00001 7601 7401 CLA IAC IAC 6437 6437 AND S00000 D06441, 6437 AND S00000 AND S00000 AND S00000 AND S00000 AND S00000 L06447, CLA CLL CIF 10 JMS I P06577 6600 JMP I P06573 P06454, D06212 JMS I P06577 6632 JMP I P06573 CIF 10 JMS I P06577 6672 JMP I P06573 P06464, S00000 TAD I P06572 DCA D06517 TAD I P06571 TAD D06517 DCA D06524 DCA I P06570 TAD I P06567 DCA P06515 JMS I P06515 JMS 6400 6516 AND P00001 JMP L06447 JMS I P06515 P06503, D05001 AND S00000 AND P00002 JMP L06447 JMS I P06515 JMS 6401 ISZ I S00000 AND P00006 JMP L06447 JMP I P06464 P06515, S00000 7777 D06517, 0000 AND S00000 AND S00000 7777 AND S00000 D06524, 0000 7777 TAD I P06566 SNA TAD D06565 AND D06564 DCA D06551 TAD I P06563 SPA CLA TAD D06562 CLL RTL RTL RTL TAD D06551 CDF 0 DCA I P06561 CIF 10 JMS I P06577 CLA CLL CML RAL CIA JMP I P06573 D06551, 0000 6331 TAD I P06503 JMS 6514 JMS I P06454 6306 6311 6305 P06561, D07374 D06562, 0060 P06563, P02000 D06564, 0077 D06565, 0241 P06566, D02031 P06567, D06212 P06570, D02002 P06571, D02403 P06572, P02410 P06573, L07605 D06574, 1000 P06575, D07644 P06576, L06247 P06577, D06710 *6600 D06600, 1001 P06601, D01604 TAD I P00005 P06603, D02240 P06604, D00522 D06605, 2217 ISZ D06600 P06607, D01617 JMS P00020 P06611, P00122 AND P00115 AND I P00124 AND I P00122 JMS P00002 TAD I P00017 P06617, D00313 AND S00000 TAD I P06617 D06622, 4042 DCA D06605 ISZ P06617 JMS P06640 AND P00114 TAD I P00017 ISZ I P06705 AND I S00000 AND I P00011 ISZ D06605 AND D06724 TAD I P06722 DCA P00140 TAD P00001 P06640, D02340 AND D06710 AND P00116 AND I P06705 AND I P00040 ISZ D06711 TAD I P06603 P06647, D00540 TAD I P00001 ISZ D06724 JMS P00032 AND I P00122 TAD I P06740 TAD I P06617 JMS D00057 ISZ P06640 AND P00114 TAD I P00017 ISZ I P06705 AND I S00000 TAD I P06726 AND I P00122 ISZ P06611 AND I P00011 D06670, 1607 AND S00000 AND P06701 TAD I P06647 ISZ I P00040 TAD I P06726 AND I P00122 D06677, 2211 D06700, 0405 P06701, D04016 TAD I P06716 JMP I P00123 ISZ I P00001 P06705, D01604 AND P00122 AND I P00040 D06710, 0405 D06711, 2611 AND P06705 D06713, 2300 D06714, 4305 ISZ D06622 P06716, D01722 D06717, 4011 TAD I P06640 AND D06717 P06722, D01515 AND P00116 D06724, 0400 JMS 6703 P06726, D00314 JMS 0063 TAD P00140 TAD I P06726 AND I P00122 TAD I P00001 DCA P00140 AND P00116 AND I P00040 TAD I P00117 P06740, D01611 ISZ I P00017 ISZ P06640 TAD P00116 AND D06717 AND S00000 AND P00124 TAD D00102 TAD I P00005 AND S00000 TAD I P06617 ISZ I P00040 ISZ I P06701 ISZ D06677 AND S00000 AND I P06611 TAD I P00005 ISZ P06740 AND I P00005 TAD I P00005 ISZ I P00005 AND I P00072 AND S00000 AND I P06611 TAD I P00005 ISZ P06740 ISZ D06605 TAD I P06601 TAD I P00105 AND I P00072 AND S00000 AND I P06611 D07001=7001 D07040=7040 D07041=7041 L07200=7200 D07271=7271 D07374=7374 L07400=7400 D07402=7402 D07403=7403 D07500=7500 D07510=7510 D07514=7514 L07600=7600 L07605=7605 D07610=7610 D07644=7644 D07650=7650 D07700=7700 D07740=7740 D07744=7744 D07756=7756 D07757=7757 D07760=7760 D07761=7761 L07762=7762 L07764=7764 D07773=7773 L07776=7776 D07777=7777 // That's it for the dis-assembly. Next up, a // patch for the VC8E. IFDEF VC8E < *273 NOP *276 JMS VC8EPT *64 VC8EPT, .-. CLL RAL / Scale by 2X 6054 / DILY CLA TAD D00007 / Get X CLL RAL / Scale by 2X 6053 / DILX 6052 / Wait for ready JMP .-1 6055 / DIXY JMP I VC8EPT / Return > $