TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-djmsa-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-djmsa-a-pb.bin / Generated 2010 02 19 00:10:27 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 1252 locations used, 0746 code and 0304 data //////////////////////////////////////////////////////////////////////////////// *0010 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 7777 / AUTO-INDEX REGISTER CLA MQA SCA MQL LSR + AI2, 0000 / AUTO-INDEX REGISTER AND L0000 AI3, 0777 / AUTO-INDEX REGISTER AND I C0177 AI4, 0000 / AUTO-INDEX REGISTER AND L0000 AI5, 4000 / AUTO-INDEX REGISTER JMS L0000 AI6, 7776 / AUTO-INDEX REGISTER SPA SNA SZL CLA OSR HLT *0020 C0020, 0000 / AND L0000 C0021, 0000 / AND L0000 C0022, 0000 / AND L0000 D0023, 1777 / TAD I C0177 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0024 / / Called from: / 0245 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0024, 0 / return area L0025, TAD I C0155 / @@0025=1755 DCA D0154 / @@0026=3354 TAD I C0155 / @@0027=1755 TAD AI3 / AUTO INDEX REGISTER @@0030=1213 CMA / @@0031=7040 DCA AI2 / AUTO INDEX REGISTER @@0032=3212 CMA / @@0033=7040 DCA AI1 / AUTO INDEX REGISTER @@0034=3211 L0035, CLA CLL CMA RAL / AC = 7776 (-0002) @@0035=7344 DCA AI6 / AUTO INDEX REGISTER @@0036=3216 L0037, CLL CML RAR / @@0037=7130 DCA AI5 / AUTO INDEX REGISTER @@0040=3215 L0041, TAD AI6 / AUTO INDEX REGISTER @@0041=1216 CLL CMA RAR / @@0042=7150 TAD AI5 / AUTO INDEX REGISTER @@0043=1215 MQL / @@0044=7421 MQA / @@0045=7501 CMA / @@0046=7040 SNL / @@0047=7420 MQA MQL / @@0050=7521 IAC / @@0051=7001 DCA AI0 / AUTO INDEX REGISTER @@0052=3210 MQA / @@0053=7501 DCA AI4 / AUTO INDEX REGISTER @@0054=3214 L0055, TAD AI4 / AUTO INDEX REGISTER @@0055=1214 DCA I D0154 / @@0056=3754 TAD I D0154 / @@0057=1754 TAD AI0 / AUTO INDEX REGISTER @@0060=1210 SNA CLA / @@0061=7650 JMP L0070 / @@0062=5270 TAD AI4 / AUTO INDEX REGISTER @@0063=1214 MQL / @@0064=7421 TAD D0154 / @@0065=1354 JMS I C0160 / long call to S0731 @@0066=4760 JMP L0055 / @@0067=5255 L0070, D0070, 4764 / JMS I C0164 JMP L0025 / @@0071=5225 TAD AI5 / AUTO INDEX REGISTER @@0072=1215 CLL RAR / @@0073=7110 DCA AI5 / AUTO INDEX REGISTER @@0074=3215 SNL / @@0075=7420 JMP L0041 / @@0076=5241 ISZ AI6 / AUTO INDEX REGISTER @@0077=2216 JMP L0037 / @@0100=5237 ISZ D0154 / @@0101=2354 TAD D0154 / @@0102=1354 AND C0177 / @@0103=0377 SNA CLA / @@0104=7650 D0105, 4764 / JMS I C0164 L0106, TAD D0154 / @@0106=1354 TAD AI2 / AUTO INDEX REGISTER @@0107=1212 SZA CLA / @@0110=7640 JMP L0035 / @@0111=5235 ISZ AI1 / AUTO INDEX REGISTER @@0112=2211 JMP L0125 / @@0113=5325 TAD I C0157 / @@0114=1757 SPA / @@0115=7510 CLA / @@0116=7200 TAD D0154 / @@0117=1354 DCA D0154 / @@0120=3354 TAD I C0156 / @@0121=1756 CMA / @@0122=7040 DCA AI2 / AUTO INDEX REGISTER @@0123=3212 JMP L0106 / @@0124=5306 L0125, JMS S0132 / @@0125=4332 C0126, 7006 / RTL SPA CLA / @@0127=7710 JMP L0025 / @@0130=5225 C0131, 5624 / JMP I S0024 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0132 / / Called from: / 0125 0276 0520 0706 0733 0751 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0132, 0 / return area TAD C0021 / @@0133=1221 C0134, 7710 / SPA CLA JMP L0140 / @@0135=5340 TAD C0020 / @@0136=1220 JMP I S0132 / return @@0137=5732 L0140, OSR / @@0140=7404 JMP I S0132 / return @@0141=5732 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0142 / / Called from: / 0614 0634 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0142, 0 / return area STA / AC = 7777 (-0001) @@0143=7240 C0144, 3763 / DCA I C0163 TAD I C0155 / @@0145=1755 TAD AI3 / AUTO INDEX REGISTER @@0146=1213 CMA / @@0147=7040 DCA I C0162 / @@0150=3762 TAD I C0155 / @@0151=1755 DCA I C0161 / @@0152=3761 JMP I S0142 / return @@0153=5742 D0154, 0000 / AND L0000 C0155, 0351 / AND C0151 C0156, 0023 / AND D0023 C0157, 0355 / AND C0155 C0160, C0160, 0731 / AND I C0131 C0161, 0761 / AND I C0161 C0162, 0756 / AND I C0156 C0163, 0757 / AND I C0157 C0164, C0164, 0334 / AND C0134 C0165, 0000 / AND L0000 *0177 C0177, 0377 / AND C0177 C0200, 5206 / JMP L0206 L0201, C0201, 6170 / 6170 C0202, 6173 / 6173 JMP L0201 / @@0203=5201 CLA CLL CMA RAL / AC = 7776 (-0002) @@0204=7344 DCA D0353 / @@0205=3353 L0206, C0206, 4207 / JMS D0207 D0207, 7402 / HLT TAD D0355 / @@0210=1355 AND D0207 / @@0211=0207 DCA D0207 / @@0212=3207 TAD D0207 / @@0213=1207 TAD C0377 / @@0214=1377 DCA D0341 / @@0215=3341 L0216, TAD I D0341 / @@0216=1741 TAD D0207 / @@0217=1207 DCA D0350 / @@0220=3350 L0221, TAD I D0350 / @@0221=1750 SNA / @@0222=7450 JMP L0231 / @@0223=5231 AND D0354 / @@0224=0354 TAD D0207 / @@0225=1207 DCA I D0350 / @@0226=3750 ISZ D0350 / @@0227=2350 JMP L0221 / @@0230=5221 L0231, ISZ D0341 / @@0231=2341 TAD D0341 / @@0232=1341 CIA / @@0233=7041 TAD D0357 / @@0234=1357 SZA CLA / @@0235=7640 JMP L0216 / @@0236=5216 L0237, D0237, 5771 / JMP I C0371 TAD D0355 / @@0240=1355 CIA / @@0241=7041 TAD D0207 / @@0242=1207 DCA D0351 / @@0243=3351 JMS I C0362 / long call to S0400 @@0244=4762 JMS I C0363 / long call to S0024 @@0245=4763 JMS I C0364 / long call to S0600 @@0246=4764 TAD D0355 / @@0247=1355 CIA / @@0250=7041 DCA D0355 / @@0251=3355 TAD D0207 / @@0252=1207 DCA D0352 / @@0253=3352 TAD D0351 / @@0254=1351 DCA D0207 / @@0255=3207 L0256, TAD I D0352 / @@0256=1752 C0257, 3751 / DCA I D0351 TAD I D0352 / @@0260=1752 CIA / @@0261=7041 TAD I D0351 / @@0262=1751 SZA CLA / @@0263=7640 D0264, 7402 / HLT ISZ D0352 / @@0265=2352 ISZ D0351 / @@0266=2351 TAD D0352 / @@0267=1352 AND C0376 / @@0270=0376 SZA CLA / @@0271=7640 JMP L0256 / @@0272=5256 TAD D0355 / @@0273=1355 SMA CLA / @@0274=7700 JMP L0306 / @@0275=5306 JMS I C0360 / long call to S0132 @@0276=4760 AND C0375 / @@0277=0375 SZA CLA / @@0300=7640 HLT / @@0301=7402 D0302, 6170 / 6170 ISZ I C0356 / @@0303=2756 JMP L0306 / @@0304=5306 JMP I D0367 / long jump to L0544 @@0305=5767 L0306, TAD C0374 / @@0306=1374 TAD D0207 / @@0307=1207 DCA D0352 / @@0310=3352 JMP I D0352 / long jump to L0000 @@0311=5752 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0312 / / Called from: / 0445 0500 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0312, 0 / return area DCA D0352 / @@0313=3352 ISZ I C0366 / @@0314=2766 JMP I S0312 / return @@0315=5712 TAD D0355 / @@0316=1355 SPA / @@0317=7510 CLA / @@0320=7200 ISZ D0352 / @@0321=2352 CIA / @@0322=7041 TAD I C0365 / @@0323=1765 DCA I C0365 / @@0324=3765 MQA / @@0325=7501 CIA / @@0326=7041 DCA I C0361 / @@0327=3761 TAD S0312 / @@0330=1312 C0331, 1373 / TAD C0373 DCA D0352 / @@0332=3352 JMP I D0352 / long jump to L0000 @@0333=5752 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0334 / / Never called //////////////////////////////////////////////////////////////////////////////// S0334, 0 / return area C0335, 6171 / 6171 ISZ S0334 / @@0336=2334 JMP I S0334 / return @@0337=5734 JMP I S0334 / return @@0340=5734 D0341, 0000 / AND L0000 AND C0155 / @@0342=0155 D0343, 0356 / AND C0356 AND I C0165 / @@0344=0565 AND I C0366 / @@0345=0766 TAD C0126 / @@0346=1126 TAD C0257 / @@0347=1257 D0350, 0000 / AND L0000 D0351, 0000 / AND L0000 D0352, 0000 / AND L0000 D0353, 0000 / AND L0000 D0354, 1777 / TAD I C0377 D0355, 7000 / NOP C0356, 0353 / AND D0353 D0357, 0350 / AND D0350 C0360, C0360, 0132 / AND S0132 C0361, 0564 / AND I C0164 C0362, C0362, 0400 / AND I L0000 C0363, C0363, 0024 / AND S0024 C0364, C0364, 0600 / AND I C0200 C0365, 0554 / AND I D0154 C0366, 0562 / AND I C0162 C0367, D0367, 0544 / AND I C0144 AND I C0331 / @@0370=0731 C0371, C0371, 1000 / TAD L0000 C0372, 0000 / AND L0000 C0373, 7764 / SMA SZA SNL CLA OSR C0374, 0213 / AND C0213 C0375, 0400 / AND I L0000 C0376, 0777 / AND I C0377 C0377, 0342 / AND C0342 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / Called from: / 0244 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0400, 0 / return area L0401, CLA CLL CMA RAL / AC = 7776 (-0002) @@0401=7344 DCA D0557 / @@0402=3357 TAD C0577 / @@0403=1377 DCA D0426 / @@0404=3226 TAD C0541 / @@0405=1341 DCA D0451 / @@0406=3251 TAD I C0572 / @@0407=1772 DCA D0555 / @@0410=3355 TAD I C0566 / @@0411=1766 DCA D0556 / @@0412=3356 C0413, 7001 / IAC DCA D0560 / @@0414=3360 C0415, 7040 / CMA DCA D0561 / @@0416=3361 L0417, TAD D0426 / @@0417=1226 DCA D0456 / @@0420=3256 TAD D0555 / @@0421=1355 DCA L0554 / @@0422=3354 TAD D0560 / @@0423=1360 JMS S0525 / @@0424=4325 L0425, TAD L0554 / @@0425=1354 D0426, 7402 / HLT DCA I L0554 / @@0427=3754 D0430, 4774 / JMS I C0574 JMP L0401 / @@0431=5201 TAD L0554 / @@0432=1354 TAD D0564 / @@0433=1364 SNA CLA / @@0434=7650 JMP L0442 / @@0435=5242 TAD L0554 / @@0436=1354 TAD D0560 / @@0437=1360 DCA L0554 / @@0440=3354 JMP L0425 / @@0441=5225 L0442, TAD D0556 / @@0442=1356 MQL / @@0443=7421 TAD D0561 / @@0444=1361 JMS I C0571 / long call to S0312 @@0445=4771 TAD D0561 / @@0446=1361 JMS S0525 / @@0447=4325 L0450, TAD I L0554 / @@0450=1754 D0451, 7402 / HLT TAD L0554 / @@0452=1354 SNA CLA / @@0453=7650 JMP L0463 / @@0454=5263 TAD L0554 / @@0455=1354 D0456, 7402 / HLT MQL / @@0457=7421 TAD L0554 / @@0460=1354 JMS I C0567 / long call to S0731 @@0461=4767 JMP L0450 / @@0462=5250 L0463, D0463, 4774 / JMS I C0574 JMP L0401 / @@0464=5201 TAD L0554 / @@0465=1354 TAD D0564 / @@0466=1364 SNA CLA / @@0467=7650 JMP L0475 / @@0470=5275 TAD L0554 / @@0471=1354 TAD D0561 / @@0472=1361 DCA L0554 / @@0473=3354 JMP L0450 / @@0474=5250 L0475, TAD D0555 / @@0475=1355 MQL / @@0476=7421 TAD D0560 / @@0477=1360 JMS I C0571 / long call to S0312 @@0500=4771 CLA IAC / @@0501=7201 DCA D0561 / @@0502=3361 STA / AC = 7777 (-0001) @@0503=7240 DCA D0560 / @@0504=3360 TAD C0415 / @@0505=1215 DCA D0426 / @@0506=3226 TAD C0413 / @@0507=1213 DCA D0451 / @@0510=3251 TAD I C0566 / @@0511=1766 C0512, 3355 / DCA D0555 TAD I C0572 / @@0513=1772 DCA D0556 / @@0514=3356 ISZ D0557 / @@0515=2357 JMP L0417 / @@0516=5217 D0517, 4774 / JMS I C0574 JMS I C0570 / long call to S0132 @@0520=4770 RTL / @@0521=7006 SPA CLA / @@0522=7710 JMP L0401 / @@0523=5201 JMP I S0400 / return @@0524=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0525 / / Called from: / 0424 0447 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0525, 0 / return area DCA D0563 / @@0526=3363 D0527, 7240 / STA DCA D0562 / @@0530=3362 C0531, 2363 / ISZ D0563 JMP L0537 / @@0532=5337 TAD I C0565 / @@0533=1765 C0534, 7510 / SPA CLA / @@0535=7200 IAC / @@0536=7001 L0537, TAD C0553 / @@0537=1353 TAD I C0572 / @@0540=1772 C0541, 7041 / CIA DCA D0564 / @@0542=3364 JMP I S0525 / return @@0543=5725 L0544, TAD I C0576 / @@0544=1776 TAD I C0573 / @@0545=1773 DCA D0563 / @@0546=3363 C0547, 6176 / 6176 C0550, 6173 / 6173 JMP I D0563 / long jump to L0000 @@0551=5763 JMP L0554 / @@0552=5354 C0553, 0777 / AND I C0577 L0554, D0554, 0000 / AND L0000 D0555, 0000 / AND L0000 D0556, 0000 / AND L0000 D0557, 7776 / SPA SNA SZL CLA OSR HLT D0560, 0001 / AND C0001 D0561, 7777 / CLA MQA SCA MQL LSR + D0562, 0000 / AND L0000 D0563, 0000 / AND L0000 D0564, 0000 / AND L0000 C0565, 0355 / AND D0555 C0566, 0023 / AND D0023 C0567, C0567, 0731 / AND I C0531 C0570, C0570, 0132 / AND S0132 C0571, C0571, 0312 / AND C0512 C0572, 0351 / AND C0551 C0573, 0207 / AND C0407 C0574, C0574, 0334 / AND C0534 C0575, 0000 / AND L0000 C0576, 0201 / AND L0401 C0577, 7000 / NOP //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 0246 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0600, 0 / return area L0601, C0601, C0601, 7301 / CLA CLL IAC DCA D0762 / @@0602=3362 L0603, CLA CLL CMA RAL / AC = 7776 (-0002) @@0603=7344 DCA D0760 / @@0604=3360 L0605, TAD D0763 / @@0605=1363 CLL RAL / @@0606=7104 IAC / @@0607=7001 DCA D0764 / @@0610=3364 TAD D0763 / @@0611=1363 CMA / @@0612=7040 DCA D0763 / @@0613=3363 JMS I C0772 / long call to S0142 @@0614=4772 L0615, TAD D0761 / @@0615=1361 AND D0762 / @@0616=0362 SZA CLA / @@0617=7640 TAD D0764 / @@0620=1364 TAD D0763 / @@0621=1363 DCA I D0761 / @@0622=3761 D0623, 4773 / JMS I C0773 JMP I L0601 / long jump to L7301 @@0624=5601 ISZ D0761 / @@0625=2361 L0626, TAD D0761 / @@0626=1361 TAD D0756 / @@0627=1356 SZA CLA / @@0630=7640 JMP L0615 / @@0631=5215 JMS S0713 / @@0632=4313 JMP L0626 / @@0633=5226 JMS I C0772 / long call to S0142 @@0634=4772 L0635, TAD D0761 / @@0635=1361 AND D0762 / @@0636=0362 SZA CLA / @@0637=7640 TAD D0764 / @@0640=1364 TAD D0763 / @@0641=1363 CIA / @@0642=7041 TAD I D0761 / @@0643=1761 SNA CLA / @@0644=7650 JMP L0657 / @@0645=5257 TAD D0761 / @@0646=1361 AND D0762 / @@0647=0362 SZA CLA / @@0650=7640 TAD D0764 / @@0651=1364 TAD D0763 / @@0652=1363 MQL / @@0653=7421 TAD D0761 / @@0654=1361 JMS S0731 / @@0655=4331 JMP L0635 / @@0656=5235 L0657, D0657, 4773 / JMS I C0773 JMP L0601 / @@0660=5201 ISZ D0761 / @@0661=2361 L0662, TAD D0761 / @@0662=1361 TAD D0756 / @@0663=1356 SZA CLA / @@0664=7640 JMP L0635 / @@0665=5235 JMS S0713 / @@0666=4313 JMP L0662 / @@0667=5262 ISZ D0760 / @@0670=2360 JMP L0605 / @@0671=5205 TAD I C0766 / @@0672=1766 CIA / @@0673=7041 TAD I C0767 / @@0674=1767 CLL CMA CML RAR / @@0675=7170 TAD D0762 / @@0676=1362 SMA CLA / @@0677=7700 JMP L0706 / @@0700=5306 TAD D0762 / @@0701=1362 CLL RAL / @@0702=7104 DCA D0762 / @@0703=3362 D0704, 4773 / JMS I C0773 JMP L0603 / @@0705=5203 L0706, JMS I C0770 / long call to S0132 @@0706=4770 RTL / @@0707=7006 SPA CLA / @@0710=7710 JMP L0601 / @@0711=5201 JMP I S0600 / return @@0712=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0713 / / Called from: / 0632 0666 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0713, 0 / return area ISZ D0757 / @@0714=2357 JMP L0727 / @@0715=5327 TAD I C0771 / @@0716=1771 SPA / @@0717=7510 CLA / @@0720=7200 TAD D0761 / @@0721=1361 DCA D0761 / @@0722=3361 TAD I C0767 / @@0723=1767 CMA / @@0724=7040 DCA D0756 / @@0725=3356 JMP I S0713 / return @@0726=5713 L0727, ISZ S0713 / @@0727=2313 JMP I S0713 / return @@0730=5713 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0731 / / Called from: / 0066 0461 0655 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0731, 0 / return area DCA D0765 / @@0732=3365 JMS I C0770 / long call to S0132 @@0733=4770 C0734, 7710 / SPA CLA JMP L0751 / @@0735=5351 TAD S0731 / @@0736=1331 HLT / @@0737=7402 CLA / @@0740=7200 TAD D0765 / @@0741=1365 HLT / @@0742=7402 CLA / @@0743=7200 TAD I D0765 / @@0744=1765 HLT / @@0745=7402 CLA MQA / @@0746=7701 HLT / @@0747=7402 CLA / @@0750=7200 L0751, JMS I C0770 / long call to S0132 @@0751=4770 RAL / @@0752=7004 SMA CLA / @@0753=7700 ISZ S0731 / @@0754=2331 JMP I S0731 / return @@0755=5731 D0756, 0000 / AND L0000 D0757, 7777 / CLA MQA SCA MQL LSR + D0760, 7776 / SPA SNA SZL CLA OSR HLT D0761, 0000 / AND L0000 D0762, 0000 / AND L0000 D0763, 2525 / ISZ I L0125 D0764, 2525 / ISZ I L0125 D0765, 0000 / AND L0000 C0766, 0351 / AND L0751 C0767, 0023 / AND D0023 C0770, C0770, 0132 / AND S0132 C0771, 0355 / AND C0755 C0772, C0772, 0142 / AND S0142 C0773, C0773, 0334 / AND C0734 C0774, 0000 / AND L0000 *1000 L1000, C1000, 1751 / TAD I C1151 SMA CLA / @@1001=7700 JMP L1054 / @@1002=5254 TAD I C1150 / @@1003=1750 AND C1177 / @@1004=0377 DCA D1152 / @@1005=3352 RIF / Same as RDF except reads the instruc @@1006=6224 CLL RAR / @@1007=7110 CIA / @@1010=7041 TAD D1152 / @@1011=1352 DCA D1152 / @@1012=3352 TAD D1152 / @@1013=1352 AND C1176 / @@1014=0376 SNA CLA / @@1015=7650 JMP L1021 / @@1016=5221 CLA CLL CML IAC RAL / AC = 0003 @@1017=7325 SKP / @@1020=7410 L1021, TAD D1152 / @@1021=1352 CLL RAR / @@1022=7110 RTR / @@1023=7012 TAD C1175 / @@1024=1375 DCA I C1146 / @@1025=3746 TAD C1174 / @@1026=1374 DCA I D1140 / @@1027=3740 ISZ D1140 / @@1030=2340 TAD C1173 / @@1031=1373 DCA I D1140 / @@1032=3740 ISZ D1140 / @@1033=2340 TAD C1172 / @@1034=1372 DCA I D1140 / @@1035=3740 TAD C1171 / @@1036=1371 DCA I D1144 / @@1037=3744 ISZ D1144 / @@1040=2344 TAD C1174 / @@1041=1374 DCA I D1144 / @@1042=3744 ISZ D1144 / @@1043=2344 TAD C1170 / @@1044=1370 DCA I D1144 / @@1045=3744 ISZ D1144 / @@1046=2344 TAD C1167 / @@1047=1367 DCA I D1144 / @@1050=3744 TAD C1166 / @@1051=1366 DCA I C1136 / @@1052=3736 JMP L1062 / @@1053=5262 L1054, TAD C1165 / @@1054=1365 DCA I C1126 / @@1055=3726 TAD C1164 / @@1056=1364 DCA I C1127 / @@1057=3727 TAD C1165 / @@1060=1365 DCA I C1130 / @@1061=3730 L1062, TAD I C1147 / @@1062=1747 SZA CLA / @@1063=7640 JMP L1101 / @@1064=5301 TAD C1163 / @@1065=1363 DCA I C1131 / @@1066=3731 TAD C1163 / @@1067=1363 DCA I C1132 / @@1070=3732 TAD C1163 / @@1071=1363 DCA I C1133 / @@1072=3733 TAD C1163 / @@1073=1363 DCA I C1141 / @@1074=3741 TAD C1163 / @@1075=1363 DCA I C1142 / @@1076=3742 TAD C1163 / @@1077=1363 DCA I C1143 / @@1100=3743 L1101, CLA CLL CML IAC RAR / @@1101=7331 AND I C1145 / @@1102=0745 TAD C1175 / @@1103=1375 CIA / @@1104=7041 TAD I C1146 / @@1105=1746 SZA CLA / @@1106=7640 JMP L1125 / @@1107=5325 TAD C1165 / @@1110=1365 DCA I C1134 / @@1111=3734 TAD C1162 / @@1112=1362 DCA I D1135 / @@1113=3735 ISZ D1135 / @@1114=2335 TAD C1161 / @@1115=1361 DCA I D1135 / @@1116=3735 ISZ D1135 / @@1117=2335 TAD C1160 / @@1120=1360 DCA I D1135 / @@1121=3735 ISZ D1135 / @@1122=2335 TAD C1163 / @@1123=1363 DCA I D1135 / @@1124=3735 L1125, JMP I C1137 / long jump to L1200 @@1125=5737 C1126, 0517 / AND I C0117 C1127, 0105 / AND D0105 C1130, 0704 / AND I C1104 C1131, 0302 / AND C1102 C1132, 0070 / AND L0070 C1133, 0430 / AND I C0030 C1134, 0527 / AND I C0127 D1135, 0533 / AND I C0133 C1136, 0264 / AND C1064 C1137, C1137, 1200 / TAD L1000 D1140, 0335 / AND D1135 C1141, 0463 / AND I C0063 C1142, 0623 / AND I C1023 C1143, 0657 / AND I C1057 D1144, 0733 / AND I C1133 C1145, 0351 / AND C1151 C1146, 0023 / AND D0023 C1147, 0353 / AND C1153 C1150, 0021 / AND C0021 C1151, 0022 / AND C0022 D1152, 0000 / AND L0000 *1160 C1160, 3354 / DCA C1154 C1161, 1353 / TAD C1153 C1162, 1772 / TAD I C1172 C1163, 7410 / SKP C1164, 5306 / JMP C1106 C1165, 7000 / NOP C1166, 4770 / JMS I C1170 C1167, 6520 / 6520 C1170, 5736 / JMP I C1136 C1171, 1331 / TAD C1131 C1172, 6500 / 6500 C1173, 4737 / JMS I C1137 C1174, 6272 / CIF0 C1175, 1777 / TAD I C1177 C1176, 0034 / AND C0034 C1177, 0037 / AND L0037 L1200, TAD I C1260 / @@1200=1660 RAL / @@1201=7004 SMA CLA / @@1202=7700 JMP L1233 / @@1203=5233 TAD I C1260 / @@1204=1660 RTL / @@1205=7006 SMA CLA / @@1206=7700 TAD C1377 / @@1207=1377 TAD C1376 / @@1210=1376 DCA I C1261 / @@1211=3661 TAD C1375 / @@1212=1375 DCA I C1263 / @@1213=3663 CMA / @@1214=7040 DCA I C1264 / @@1215=3664 TAD C1270 / @@1216=1270 DCA I C1265 / @@1217=3665 TAD C1374 / @@1220=1374 DCA I C1271 / @@1221=3671 L1222, TAD I D1266 / @@1222=1666 DCA I D1272 / @@1223=3672 ISZ D1272 / @@1224=2272 ISZ D1266 / @@1225=2266 TAD D1266 / @@1226=1266 CIA / @@1227=7041 TAD C1267 / @@1230=1267 SZA CLA / @@1231=7640 JMP L1222 / @@1232=5222 L1233, CLA CLL CMA RAL / AC = 7776 (-0002) @@1233=7344 TAD I C1257 / @@1234=1657 DCA I C1257 / @@1235=3657 TAD C1375 / @@1236=1375 DCA I C1273 / @@1237=3673 TAD C1373 / @@1240=1373 DCA I C1274 / @@1241=3674 ISZ I C1262 / @@1242=2662 JMP I C1273 / long jump to L0237 @@1243=5673 C1244, 6731 / 6731 SKP / @@1245=7410 C1246, 6734 / 6734 STA / AC = 7777 (-0001) @@1247=7240 C1250, 3003 / DCA C0003 STA / AC = 7777 (-0001) @@1251=7240 C1252, 3002 / DCA C0002 C1253, 1344 / TAD C1344 C1254, 3001 / DCA C0001 C1255, 5001 / JMP C0001 C1256, 1256 / TAD C1256 C1257, 0357 / AND C1357 C1260, 0022 / AND C0022 C1261, 0353 / AND C1353 C1262, 0343 / AND C1343 C1263, 0302 / AND C1302 C1264, 0023 / AND D0023 C1265, 0367 / AND C1367 D1266, 1244 / TAD C1244 C1267, 1256 / TAD C1256 C1270, 0735 / AND I C1335 C1271, 0264 / AND C1264 D1272, 0733 / AND I C1333 C1273, C1273, 0237 / AND C1237 C1274, 0354 / AND C1354 AND S0132 / @@1275=0132 C1276, 0000 / AND L0000 *1373 C1373, 0777 / AND I C1377 C1374, 4770 / JMS I C1370 C1375, 7000 / NOP C1376, 7777 / CLA MQA SCA MQL LSR + C1377, 7745 / CLA MQA SCA MUY + $