TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhlaa-b-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhlaa-b-pb.bin / Generated 2010 02 19 00:10:25 / 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 / / 5217 locations used, 3747 code and 1250 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 D0003, 0003 / AND D0003 *0020 L0020, D0020, 0001 / AND L0001 C0021, 0002 / AND D0002 D0022, 0007 / AND C0007 L0023, C0023, 0010 / AND AI0 D0024, 0012 / AND AI2 D0025, 0017 / AND AI7 C0026, C0026, 0077 / AND L0077 C0027, 0212 / AND AI2 C0030, 0215 / AND AI5 D0031, 0240 / AND D0040 C0032, 0260 / AND D0060 C0033, 0330 / AND C0130 C0034, 0334 / AND C0134 JMS L0000 / @@0035=4000 L0036, C0036, 4600 / JMS I L0000 C0037, 7700 / SMA CLA D0040, 7774 / SPA SNA SZL CLA OSR C0041, 7730 / SPA SZL CLA C0042, 7660 / SZA SNL CLA C0043, 7634 / SZL CLA OSR C0044, 7014 / RAR RAL C0045, C0045, 7743 / CLA MQA SCA SCL + D0046, 0000 / AND L0000 D0047, 0000 / AND L0000 D0050, 0000 / AND L0000 D0051, 0000 / AND L0000 D0052, 0000 / AND L0000 C0053, C0053, 0256 / AND L0056 D0054, 0000 / AND L0000 D0055, 0000 / AND L0000 L0056, D0056, 0000 / AND L0000 D0057, 0000 / AND L0000 D0060, 0000 / AND L0000 D0061, 0000 / AND L0000 D0062, 0000 / AND L0000 D0063, 0000 / AND L0000 D0064, 0000 / AND L0000 D0065, 0000 / AND L0000 D0066, 0000 / AND L0000 D0067, 0000 / AND L0000 D0070, 0000 / AND L0000 D0071, 0000 / AND L0000 C0072, 0000 / AND L0000 D0073, 0000 / AND L0000 C0074, 0000 / AND L0000 D0075, 0000 / AND L0000 C0076, 0000 / AND L0000 L0077, D0077, 0000 / AND L0000 L0100, D0100, 0000 / AND L0000 D0101, 0000 / AND L0000 D0102, 0000 / AND L0000 D0103, 0000 / AND L0000 D0104, 0000 / AND L0000 D0105, 0000 / AND L0000 C0106, C0106, 2305 / ISZ D0105 C0107, C0107, 3507 / DCA I C0107 C0110, C0110, 3535 / DCA I C0135 L0111, C0111, C0111, 3521 / DCA I C0121 C0112, C0112, 3527 / DCA I C0127 D0113, 0000 / AND L0000 D0114, 7701 / CLA MQA C0115, 7653 / CLA SCA SHL + D0116, 0000 / AND L0000 *0134 C0134, C0134, 1606 / TAD I C0006 C0135, C0135, 1600 / TAD I L0000 C0136, C0136, 1564 / TAD I C0164 C0137, C0137, 1200 / TAD L0000 D0140, 3114 / DCA D0114 C0141, C0141, 3000 / DCA L0000 C0142, C0142, 2471 / ISZ I D0071 C0143, C0143, 1034 / TAD C0034 L0144, C0144, C0144, 1614 / TAD I AI4 C0145, C0145, 0600 / AND I L0000 C0146, C0146, 1214 / TAD AI4 C0147, C0147, 1052 / TAD D0052 C0150, C0150, 0302 / AND D0102 C0151, C0151, 0715 / AND I C0115 C0152, C0152, 1015 / TAD AI5 C0153, C0153, 1400 / TAD I L0000 C0154, C0154, 1000 / TAD L0000 C0155, C0155, 1006 / TAD C0006 AND C0136 / @@0156=0336 C0157, C0157, 0736 / AND I C0136 AND L0000 / @@0160=0200 C0161, C0161, 0253 / AND C0053 L0162, C0162, C0162, 0244 / AND C0044 C0163, C0163, 0240 / AND D0040 C0164, C0164, 0234 / AND C0034 C0165, C0165, 0311 / AND L0111 C0166, C0166, 0266 / AND D0066 C0167, 1126 / TAD C0126 C0170, C0170, 1105 / TAD D0105 C0171, C0171, 3326 / DCA C0126 TAD C0150 / @@0172=1150 C0173, C0173, 1144 / TAD L0144 C0174, C0174, 1137 / TAD C0137 L0175, C0175, C0175, 1133 / TAD C0133 C0176, C0176, 1116 / TAD D0116 C0177, C0177, 1111 / TAD L0111 D0200, 7040 / CMA DCA D0113 / @@0201=3113 DCA D0066 / @@0202=3066 JMS I D0140 / long call to S3114 @@0203=4540 JMS I C0377 / long call to S0400 @@0204=4777 TAD D0113 / @@0205=1113 SZA CLA / @@0206=7640 JMP L0211 / @@0207=5211 TAD C0376 / @@0210=1376 L0211, DCA D0105 / @@0211=3105 D0212, 1066 / TAD D0066 MTON / Transfer AC0-3 to selection register @@0213=6117 JMS I C0153 / long call to S1400 @@0214=4553 JMS I C0155 / long call to S1006 @@0215=4555 L0216, JMS I C0157 / long call to S0736 @@0216=4557 JMP I C0376 / long jump to L7767 @@0217=5776 JMS I C0155 / long call to S1006 @@0220=4555 JMS I C0166 / long call to S0266 @@0221=4566 TAD D0031 / @@0222=1031 C0223, 7445 / SCA MUY + DCA D0071 / @@0224=3071 L0225, LAS / @@0225=7604 AND C0375 / @@0226=0375 TAD C0374 / @@0227=1374 SZA CLA / @@0230=7640 JMP L0234 / @@0231=5234 HLT / @@0232=7402 JMP L0225 / @@0233=5225 L0234, LAS / @@0234=7604 AND L0023 / @@0235=0023 SNA CLA / @@0236=7650 JMP I C0362 / long jump to L1241 @@0237=5762 L0240, LAS / @@0240=7604 C0241, 0277 / AND C0277 SNA CLA / @@0242=7650 JMP I C0363 / long jump to L1522 @@0243=5763 L0244, TAD D0104 / @@0244=1104 SZA CLA / @@0245=7640 JMP L0253 / @@0246=5253 LAS / @@0247=7604 AND C0021 / @@0250=0021 SNA CLA / @@0251=7650 JMP I C0364 / long jump to L3200 @@0252=5764 L0253, LAS / @@0253=7604 AND L0020 / @@0254=0020 SNA CLA / @@0255=7650 L0256, JMP I C0365 / long jump to L3662 @@0256=5765 L0257, JMS I C0155 / long call to S1006 @@0257=4555 JMS I C0157 / long call to S0736 @@0260=4557 JMP I C0312 / long jump to L7300 @@0261=5712 C0262, 4555 / JMS I C0155 JMS I C0155 / long call to S1006 @@0263=4555 JMS I C0155 / long call to S1006 @@0264=4555 JMP L0216 / @@0265=5216 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0266 / / Called from: / 0221 0343 1265 1313 1320 1346 1366 1434 1440 1475 1516 2326 2332 2353 2412 / 2603 2722 2725 3037 3042 3057 3062 3133 3136 3204 3225 3230 3240 3243 3264 / 3267 3472 3511 3523 3527 3535 3604 / Total 0045 (37) calls //////////////////////////////////////////////////////////////////////////////// S0266, 0 / return area CLA / @@0267=7200 TAD I S0266 / @@0270=1666 DCA D0301 / @@0271=3301 ISZ S0266 / @@0272=2266 TAD I S0266 / @@0273=1666 DCA I D0301 / @@0274=3701 ISZ S0266 / @@0275=2266 JMP I S0266 / return @@0276=5666 C0277, 0004 / AND C0004 C0300, 0400 / AND I L0000 D0301, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0302 / / Called from: / 1505 2350 3647 4133 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0302, 0 / return area LAS / @@0303=7604 AND C0300 / @@0304=0300 SZA CLA / @@0305=7640 JMP I S0302 / return @@0306=5702 ISZ S0302 / @@0307=2302 JMP I S0302 / return @@0310=5702 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0311 / / Called from: / 0467 1255 1307 1342 1362 1430 1503 1557 1667 1754 2014 2102 2143 2220 2257 / 2323 2346 2646 3215 3274 3645 3657 3712 4062 4131 / Total 0031 (25) calls //////////////////////////////////////////////////////////////////////////////// S0311, 0 / return area C0312, C0312, 7300 / CLA CLL TAD D0071 / @@0313=1071 SNA CLA / @@0314=7650 JMP L0326 / @@0315=5326 DCA D0071 / @@0316=3071 LAS / @@0317=7604 SMA CLA / @@0320=7700 JMP L0333 / @@0321=5333 L0322, LAS / @@0322=7604 RAL / @@0323=7004 C0324, 7700 / SMA CLA JMS S0336 / @@0325=4336 L0326, LAS / @@0326=7604 RTL / @@0327=7006 SMA CLA / @@0330=7700 ISZ S0311 / @@0331=2311 JMP I S0311 / return @@0332=5711 L0333, JMS S0347 / @@0333=4347 HLT / @@0334=7402 JMP L0322 / @@0335=5322 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0336 / / Called from: / 0325 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0336, 0 / return area JMS I C0155 / long call to S1006 @@0337=4555 JMS I C0157 / long call to S0736 @@0340=4557 C0341, 5754 / JMP I C0354 JMS I C0155 / long call to S1006 @@0342=4555 JMS I C0166 / long call to S0266 @@0343=4566 AND C0341 / @@0344=0341 JMP I C0354 / long jump to L0361 @@0345=5754 JMP I S0336 / return @@0346=5736 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0347 / / Called from: / 0333 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0347, 0 / return area TAD S0311 / @@0350=1311 AND C0360 / @@0351=0360 DCA D0357 / @@0352=3357 TAD I S0311 / @@0353=1711 C0354, C0354, 0361 / AND L0361 TAD D0357 / @@0355=1357 JMP I S0347 / return @@0356=5747 D0357, 0000 / AND L0000 C0360, 7600 / 7600 L0361, C0361, 0177 / AND C0177 C0362, C0362, 1241 / TAD C0241 C0363, C0363, 1522 / TAD I C0122 C0364, C0364, 3200 / DCA D0200 C0365, C0365, 3662 / DCA I C0262 *0374 C0374, 7761 / CLA MQA SCA MQL C0375, 0017 / AND AI7 C0376, C0376, 7767 / CLA MQA SCA MQL DVI + C0377, C0377, 0400 / AND I L0000 C0400, 0000 / AND L0000 HLT / @@0401=7402 LAS / @@0402=7604 AND C0577 / @@0403=0377 DCA D0104 / @@0404=3104 LAS / @@0405=7604 AND C0576 / @@0406=0376 CLL RTL / @@0407=7106 RTL / @@0410=7006 RTL / @@0411=7006 SZL / @@0412=7430 JMP L0417 / @@0413=5217 SMA CLA / @@0414=7700 JMP I C0107 / long jump to L3507 @@0415=5507 JMP I L0111 / long jump to L3521 @@0416=5511 L0417, SMA CLA / @@0417=7700 JMP I C0112 / long jump to L3527 @@0420=5512 JMP I C0110 / long jump to L3535 @@0421=5510 C0422, 0020 / AND L0020 D0423, 0000 / AND L0000 D0424, 0000 / AND L0000 D0425, 0000 / AND L0000 L0426, JMS I C0155 / long call to S1006 @@0426=4555 JMS I C0157 / long call to S0736 @@0427=4557 AND I C0141 / @@0430=0541 JMS I C0155 / long call to S1006 @@0431=4555 DCA D0105 / @@0432=3105 TAD C0575 / @@0433=1375 DCA D0424 / @@0434=3224 DCA D0425 / @@0435=3225 TAD C0422 / @@0436=1222 DCA D0423 / @@0437=3223 L0440, C0440, 4555 / JMS I C0155 TAD D0423 / @@0441=1223 CIA / @@0442=7041 DCA D0445 / @@0443=3245 JMS I C0152 / long call to S1015 @@0444=4552 D0445, 0000 / AND L0000 JMS S0476 / @@0446=4276 C0447, 7615 / CLA ASR + JMS S0520 / @@0450=4320 SZL CLA OSR / @@0451=7634 CLA IAC / @@0452=7201 AND D0425 / @@0453=0225 ISZ D0425 / @@0454=2225 NOP / @@0455=7000 SNA CLA / @@0456=7650 TAD C0574 / @@0457=1374 TAD C0573 / @@0460=1373 JMS I C0154 / long call to S1000 @@0461=4554 JMS I L0144 / long call to S1614 @@0462=4544 JMP L0467 / @@0463=5267 ISZ D0424 / @@0464=2224 JMP L0440 / @@0465=5240 JMS I C0155 / long call to S1006 @@0466=4555 L0467, JMS I C0165 / long call to S0311 @@0467=4565 JMP L0426 / @@0470=5226 TAD D0113 / @@0471=1113 SNA CLA / @@0472=7650 TAD C0572 / @@0473=1372 DCA D0105 / @@0474=3105 JMP I C0571 / long jump to L1757 @@0475=5771 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0476 / / Called from: / 0446 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0476, 0 / return area TAD I S0476 / @@0477=1676 ISZ S0476 / @@0500=2276 DCA S0520 / @@0501=3320 DCA D0516 / @@0502=3316 DCA D0517 / @@0503=3317 L0504, CLL / @@0504=7100 TAD D0516 / @@0505=1316 TAD D0423 / @@0506=1223 DCA D0516 / @@0507=3316 RAL / @@0510=7004 TAD D0517 / @@0511=1317 DCA D0517 / @@0512=3317 ISZ S0520 / @@0513=2320 JMP L0504 / @@0514=5304 JMP I S0476 / return @@0515=5676 D0516, 0000 / AND L0000 D0517, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0520 / / Called from: / 0450 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0520, 0 / return area DCA D0423 / @@0521=3223 L0522, CLL / @@0522=7100 TAD I S0520 / @@0523=1720 C0524, 1316 / TAD D0516 DCA D0516 / @@0525=3316 RAL / @@0526=7004 TAD C0570 / @@0527=1370 TAD D0517 / @@0530=1317 SPA / @@0531=7510 JMP L0536 / @@0532=5336 DCA D0517 / @@0533=3317 ISZ D0423 / @@0534=2223 JMP L0522 / @@0535=5322 L0536, ISZ S0520 / @@0536=2320 CLA CLL / AC = 0000 @@0537=7300 JMP I S0520 / return @@0540=5720 JMP L0020 / @@0541=5020 C0542, 0122 / AND C0122 ISZ I D0040 / @@0543=2440 CDF0 / Change to data field 5. The data fie @@0544=6251 AND L0000 / @@0545=0000 *0570 C0570, 7777 / CLA MQA SCA MQL LSR + C0571, C0571, 1757 / TAD I C0557 C0572, 7767 / CLA MQA SCA MQL DVI + C0573, 0257 / AND C0457 C0574, 0055 / AND D0055 C0575, 7732 / SPA SZL CLA HLT C0576, 0140 / AND D0140 C0577, 0200 / AND C0400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 0661 3545 3634 3656 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0600, 0 / return area DCA D0610 / @@0601=3210 TAD C0656 / @@0602=1256 DCA D0615 / @@0603=3215 TAD C0777 / @@0604=1377 C0605, 3016 / DCA AI6 L0606, TAD D0615 / @@0606=1215 JMS S0627 / @@0607=4227 D0610, 0000 / AND L0000 TAD C0032 / @@0611=1032 C0612, 3416 / DCA I AI6 TAD D0024 / @@0613=1024 JMS S0627 / @@0614=4227 D0615, 1750 / TAD I C0750 SNL / @@0616=7420 JMP L0625 / @@0617=5225 CLA / @@0620=7200 TAD D0610 / @@0621=1210 TAD C0032 / @@0622=1032 DCA L0077 / @@0623=3077 JMP I S0600 / return @@0624=5600 L0625, DCA D0615 / @@0625=3215 JMP L0606 / @@0626=5206 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0627 / / Called from: / 0607 0614 3254 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0627, 0 / return area CIA / @@0630=7041 DCA D0654 / @@0631=3254 DCA D0655 / @@0632=3255 TAD I S0627 / @@0633=1627 L0634, CLL / @@0634=7100 TAD D0654 / @@0635=1254 SNL / @@0636=7420 JMP L0642 / @@0637=5242 C0640, 2255 / ISZ D0655 JMP L0634 / @@0641=5234 L0642, CIA / @@0642=7041 TAD D0654 / @@0643=1254 CIA / @@0644=7041 DCA I S0627 / @@0645=3627 TAD D0655 / @@0646=1255 TAD C0657 / @@0647=1257 CLL / @@0650=7100 TAD C0021 / @@0651=1021 ISZ S0627 / @@0652=2227 JMP I S0627 / return @@0653=5627 D0654, 0000 / AND L0000 D0655, 0000 / AND L0000 C0656, 1750 / TAD I C0750 C0657, 7776 / SPA SNA SZL CLA OSR HLT //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0660 / / Called from: / 2717 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0660, 0 / return area JMS S0600 / @@0661=4200 JMS I C0157 / long call to S0736 @@0662=4557 JMP L0740 / @@0663=5340 JMS S0671 / @@0664=4271 JMS I C0157 / long call to S0736 @@0665=4557 JMP I C0045 / long jump to L7743 @@0666=5445 JMS I C0155 / long call to S1006 @@0667=4555 JMP I S0660 / return @@0670=5660 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0671 / / Called from: / 0664 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0671, 0 / return area JMS S0705 / @@0672=4305 TAD C0053 / @@0673=1053 JMS I C0154 / long call to S1000 @@0674=4554 TAD L0077 / @@0675=1077 JMS I C0154 / long call to S1000 @@0676=4554 JMP I S0671 / return @@0677=5671 C0700, C0700, 0000 / AND L0000 CLA / @@0701=7200 TAD C0030 / @@0702=1030 JMS I C0154 / long call to S1000 @@0703=4554 JMP I C0700 / long jump to L0000 @@0704=5700 L0705, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0705 / / Called from: / 0672 3546 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0705, 0 / return area TAD C0074 / @@0706=1074 JMS I C0154 / long call to S1000 @@0707=4554 TAD D0075 / @@0710=1075 JMS I C0154 / long call to S1000 @@0711=4554 TAD C0076 / @@0712=1076 JMS I C0154 / long call to S1000 @@0713=4554 JMP I S0705 / return @@0714=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0715 / / Called from: / 3705 4173 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0715, 0 / return area RTL / @@0716=7006 RTL / @@0717=7006 DCA D0060 / @@0720=3060 TAD D0040 / @@0721=1040 DCA D0061 / @@0722=3061 L0723, TAD D0060 / @@0723=1060 AND D0022 / @@0724=0022 TAD C0032 / @@0725=1032 JMS I C0154 / long call to S1000 @@0726=4554 TAD D0060 / @@0727=1060 RTL / @@0730=7006 RAL / @@0731=7004 DCA D0060 / @@0732=3060 ISZ D0061 / @@0733=2061 JMP L0723 / @@0734=5323 JMP I S0715 / return @@0735=5715 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0736 / / Called from: / 0216 0260 0340 0427 0662 0665 1242 1325 1523 1627 1665 1674 1677 1705 1736 / 1760 2022 2125 2202 2226 2627 2651 3201 3210 3222 3261 3461 3465 3551 3601 / 3631 3641 3664 3670 4067 4117 4123 4155 4161 4167 / Total 0050 (40) calls //////////////////////////////////////////////////////////////////////////////// S0736, 0 / return area CLA CLL / AC = 0000 @@0737=7300 L0740, TAD I S0736 / @@0740=1736 ISZ S0736 / @@0741=2336 DCA D0774 / @@0742=3374 L0743, TAD I D0774 / @@0743=1774 AND C0037 / @@0744=0037 SNA / @@0745=7450 JMP I S0736 / return @@0746=5736 SMA / @@0747=7500 CML / @@0750=7020 IAC / @@0751=7001 RTR / @@0752=7012 RTR / @@0753=7012 RTR / @@0754=7012 JMS I C0154 / long call to S1000 @@0755=4554 TAD I D0774 / @@0756=1774 AND C0026 / @@0757=0026 SNA / @@0760=7450 JMP I S0736 / return @@0761=5736 TAD C0772 / @@0762=1372 SMA / @@0763=7500 TAD C0773 / @@0764=1373 TAD D0031 / @@0765=1031 JMS I C0154 / long call to S1000 @@0766=4554 CLL / @@0767=7100 ISZ D0774 / @@0770=2374 JMP L0743 / @@0771=5343 C0772, 3740 / DCA I L0740 C0773, 4100 / JMS L0100 D0774, 0000 / AND L0000 *0777 C0777, 0073 / AND D0073 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0461 0674 0676 0703 0707 0711 0713 0726 0755 0766 1013 1046 1050 1217 1234 / 1532 1537 1552 1554 1713 1726 1744 1746 2004 2043 2134 2237 2241 2250 2275 / 2303 2745 2747 2751 2753 3435 3550 3636 3640 3677 3701 3703 4034 4060 4122 / 4126 4160 4164 4232 4237 4253 4260 / Total 0064 (52) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area C1001, 4575 / JMS I L0175 L1002, JMS I C0177 / long call to S1111 @@1002=4577 JMP L1002 / @@1003=5202 CLA / @@1004=7200 JMP I S1000 / return @@1005=5600 L1006, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1006 / / Called from: / 0215 0220 0257 0263 0264 0337 0342 0426 0431 0466 0667 1241 1244 1324 1327 / 1522 1525 1626 1631 1664 1673 1701 1704 1735 1740 1753 1757 1762 2011 2020 / 2021 2024 2100 2123 2124 2127 2200 2201 2204 2225 2230 2256 2626 2631 2650 / 2653 2673 2735 3203 3207 3212 3221 3224 3237 3260 3464 3467 3553 3600 3603 / 3630 3662 3663 3666 3667 3672 3706 4000 4003 4031 4047 4066 4071 4110 4116 / 4127 4154 4165 4174 4175 4204 4207 / Total 0122 (82) calls //////////////////////////////////////////////////////////////////////////////// S1006, 0 / return area SKP / @@1007=7410 C1010, C1010, 1214 / TAD C1014 JMS I C1010 / long call to S1214 @@1011=4610 TAD C0027 / @@1012=1027 JMS I C0154 / long call to S1000 @@1013=4554 C1014, 5606 / JMP I S1006 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1015 / / Called from: / 0444 1276 1334 1406 1455 1471 2120 2137 2245 3407 3617 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S1015, 0 / return area CLA CLL / AC = 0000 @@1016=7300 TAD I S1015 / @@1017=1615 ISZ S1015 / @@1020=2215 L1021, DCA D1032 / @@1021=3232 L1022, TAD C1031 / @@1022=1231 DCA D1033 / @@1023=3233 L1024, ISZ D1033 / @@1024=2233 JMP L1024 / @@1025=5224 ISZ D1032 / @@1026=2232 JMP L1022 / @@1027=5222 JMP I S1015 / return @@1030=5615 C1031, 0000 / AND L0000 D1032, 0000 / AND L0000 D1033, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1034 / / Called from: / 2620 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1034, 0 / return area CLA CLL / AC = 0000 @@1035=7300 L1036, TAD C1043 / @@1036=1243 DCA D1033 / @@1037=3233 L1040, ISZ D1033 / @@1040=2233 JMP L1040 / @@1041=5240 JMP I S1034 / return @@1042=5634 C1043, 7712 / SPA CLA HLT //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1044 / / Called from: / 1676 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1044, 0 / return area TAD C0076 / @@1045=1076 JMS I C0154 / long call to S1000 @@1046=4554 TAD L0077 / @@1047=1077 JMS I C0154 / long call to S1000 @@1050=4554 JMP I S1044 / return @@1051=5644 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1052 / / Called from: / 1656 4103 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1052, 0 / return area CLA / @@1053=7200 TAD I S1052 / @@1054=1652 DCA D0057 / @@1055=3057 ISZ S1052 / @@1056=2252 TAD I S1052 / @@1057=1652 CIA / @@1060=7041 TAD I D0057 / @@1061=1457 SMA / @@1062=7500 JMP L1074 / @@1063=5274 DCA D0057 / @@1064=3057 TAD C0021 / @@1065=1021 TAD S1052 / @@1066=1252 DCA S1052 / @@1067=3252 TAD D0057 / @@1070=1057 CIA / @@1071=7041 DCA L0100 / @@1072=3100 JMP I S1052 / return @@1073=5652 L1074, SNA / @@1074=7450 JMP L1101 / @@1075=5301 DCA L0100 / @@1076=3100 ISZ S1052 / @@1077=2252 JMP I S1052 / return @@1100=5652 L1101, TAD C1177 / @@1101=1377 TAD S1052 / @@1102=1252 DCA S1052 / @@1103=3252 JMP I S1052 / return @@1104=5652 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1105 / / Called from: / 2315 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1105, 0 / return area AND L0000 / @@1106=0000 JMP I S1105 / return @@1107=5705 HLT / @@1110=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1111 / / Called from: / 1002 1210 1336 1355 1403 1410 1420 1423 1451 1465 1512 1644 1650 2212 2317 / 2614 2634 3242 3266 3411 3621 / Total 0025 (21) calls //////////////////////////////////////////////////////////////////////////////// S1111, 0 / return area AND L0000 / @@1112=0000 JMP I S1111 / return @@1113=5711 ISZ S1111 / @@1114=2311 JMP I S1111 / return @@1115=5711 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1116 / / Called from: / 1354 1422 1453 2602 3611 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S1116, 0 / return area AND L0000 / @@1117=0000 JMP I S1116 / return @@1120=5716 HLT / @@1121=7402 C1122, C1122, 0000 / AND L0000 AND L0000 / @@1123=0000 JMP I C1122 / long jump to L0000 @@1124=5722 HLT / @@1125=7402 D1126, 0000 / AND L0000 AND L0000 / @@1127=0000 JMP I D1126 / long jump to L0000 @@1130=5726 ISZ D1126 / @@1131=2326 JMP I D1126 / long jump to L0000 @@1132=5726 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1133 / / Called from: / 1207 1333 1402 1417 1450 1464 1470 1641 2210 2211 2337 2613 2616 3406 3613 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S1133, 0 / return area AND L0000 / @@1134=0000 JMP I S1133 / return @@1135=5733 HLT / @@1136=7402 L1137, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1137 / / Called from: / 1202 1300 1510 1615 2655 3353 4035 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S1137, 0 / return area AND L0000 / @@1140=0000 JMP I S1137 / return @@1141=5737 ISZ S1137 / @@1142=2337 JMP I S1137 / return @@1143=5737 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1144 / / Called from: / 1201 1250 1262 1275 1447 1624 2601 3610 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1144, 0 / return area AND L0000 / @@1145=0000 JMP I S1144 / return @@1146=5744 HLT / @@1147=7402 C1150, C1150, 0000 / AND L0000 AND L0000 / @@1151=0000 JMP I C1150 / long jump to L0000 @@1152=5750 HLT / @@1153=7402 C1154, C1154, 0000 / AND L0000 AND L0000 / @@1155=0000 JMP I C1154 / long jump to L0000 @@1156=5754 HLT / @@1157=7402 C1160, C1160, 0000 / AND L0000 AND L0000 / @@1161=0000 JMP I C1160 / long jump to L0000 @@1162=5760 HLT / @@1163=7402 C1164, 6000 / 6000 ION / Enable Interrupts @@1165=6001 IOF / Disable Interrupts @@1166=6002 C1167, 6004 / 6004 C1170, 6005 / 6005 C1171, 6006 / 6006 *1177 C1177, 0003 / AND D0003 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 3673 4011 4050 4073 4100 4136 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area JMS I C0173 / long call to S1144 @@1201=4573 L1202, JMS I C0174 / long call to S1137 @@1202=4574 JMP L1202 / @@1203=5202 JMS I C0171 / long call to S3326 @@1204=4571 DCA D0116 / @@1205=3116 TAD D0116 / @@1206=1116 JMS I L0175 / long call to S1133 @@1207=4575 L1210, JMS I C0177 / long call to S1111 @@1210=4577 JMP L1210 / @@1211=5210 CLA CLL / AC = 0000 @@1212=7300 JMP I S1200 / return @@1213=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1214 / / Called from: / 1011 1550 2244 2265 3316 3404 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1214, 0 / return area CLA / @@1215=7200 TAD C0030 / @@1216=1030 JMS I C0154 / long call to S1000 @@1217=4554 CLA / @@1220=7200 TAD D0104 / @@1221=1104 SNA CLA / @@1222=7650 JMP I S1214 / return @@1223=5614 TAD D0105 / @@1224=1105 DCA D1227 / @@1225=3227 L1226, SKP CLA / @@1226=7610 D1227, 7000 / NOP TAD D1227 / @@1230=1227 SNA CLA / @@1231=7650 JMP I S1214 / return @@1232=5614 TAD C1240 / @@1233=1240 JMS I C0154 / long call to S1000 @@1234=4554 ISZ D1227 / @@1235=2227 JMP L1226 / @@1236=5226 JMP I S1214 / return @@1237=5614 C1240, 0377 / AND C1377 L1241, JMS I C0155 / long call to S1006 @@1241=4555 JMS I C0157 / long call to S0736 @@1242=4557 JMP L0162 / @@1243=5162 JMS I C0155 / long call to S1006 @@1244=4555 L1245, TAD C0043 / @@1245=1043 DCA D0047 / @@1246=3047 L1247, STA / AC = 7777 (-0001) @@1247=7240 JMS I C0173 / long call to S1144 @@1250=4573 SZA / @@1251=7440 JMP L1260 / @@1252=5260 ISZ D0047 / @@1253=2047 JMP L1247 / @@1254=5247 L1255, JMS I C0165 / long call to S0311 @@1255=4565 JMP L1245 / @@1256=5245 JMP L1271 / @@1257=5271 L1260, ISZ D0071 / @@1260=2071 STA / AC = 7777 (-0001) @@1261=7240 JMS I C0173 / long call to S1144 @@1262=4573 SNA / @@1263=7450 JMP L1245 / @@1264=5245 JMS I C0166 / long call to S0266 @@1265=4566 AND C1341 / @@1266=0341 JMP L0111 / @@1267=5111 JMP L1255 / @@1270=5255 L1271, CLA CLL / AC = 0000 @@1271=7300 TAD C0043 / @@1272=1043 DCA D0047 / @@1273=3047 L1274, CMA / @@1274=7040 JMS I C0173 / long call to S1144 @@1275=4573 JMS I C0152 / long call to S1015 @@1276=4552 SPA SNA HLT / @@1277=7552 JMS I C0174 / long call to S1137 @@1300=4574 SKP / @@1301=7410 JMP L1312 / @@1302=5312 SZA / @@1303=7440 JMP L1317 / @@1304=5317 ISZ D0047 / @@1305=2047 JMP L1274 / @@1306=5274 L1307, JMS I C0165 / long call to S0311 @@1307=4565 JMP L1271 / @@1310=5271 JMP L1324 / @@1311=5324 L1312, ISZ D0071 / @@1312=2071 JMS I C0166 / long call to S0266 @@1313=4566 AND C1341 / @@1314=0341 C1315, 5124 / JMP C0124 JMP L1307 / @@1316=5307 L1317, ISZ D0071 / @@1317=2071 JMS I C0166 / long call to S0266 @@1320=4566 AND C1341 / @@1321=0341 JMP L0111 / @@1322=5111 JMP L1307 / @@1323=5307 L1324, JMS I C0155 / long call to S1006 @@1324=4555 JMS I C0157 / long call to S0736 @@1325=4557 JMP L0175 / @@1326=5175 JMS I C0155 / long call to S1006 @@1327=4555 TAD C0044 / @@1330=1044 DCA D0047 / @@1331=3047 STA / AC = 7777 (-0001) @@1332=7240 JMS I L0175 / long call to S1133 @@1333=4575 JMS I C0152 / long call to S1015 @@1334=4552 SPA SNA HLT / @@1335=7552 JMS I C0177 / long call to S1111 @@1336=4577 JMP L1345 / @@1337=5345 ISZ D0047 / @@1340=2047 C1341, 5336 / JMP C1336 L1342, JMS I C0165 / long call to S0311 @@1342=4565 JMP L1324 / @@1343=5324 JMP L1352 / @@1344=5352 L1345, ISZ D0071 / @@1345=2071 JMS I C0166 / long call to S0266 @@1346=4566 AND C1341 / @@1347=0341 JMP L0000 / @@1350=5000 JMP L1342 / @@1351=5342 L1352, TAD C0044 / @@1352=1044 DCA D0047 / @@1353=3047 JMS I C0176 / long call to S1116 @@1354=4576 L1355, JMS I C0177 / long call to S1111 @@1355=4577 SKP / @@1356=7410 JMP L1365 / @@1357=5365 ISZ D0047 / @@1360=2047 JMP L1355 / @@1361=5355 L1362, JMS I C0165 / long call to S0311 @@1362=4565 JMP L1352 / @@1363=5352 JMP I C1372 / long jump to L1414 @@1364=5772 L1365, ISZ D0071 / @@1365=2071 JMS I C0166 / long call to S0266 @@1366=4566 AND C1341 / @@1367=0341 C1370, 5016 / JMP AI6 JMP L1362 / @@1371=5362 C1372, C1372, 1414 / TAD I AI4 *1400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / Called from: / 0214 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1400, 0 / return area C1401, 7240 / STA JMS I L0175 / long call to S1133 @@1402=4575 JMS I C0177 / long call to S1111 @@1403=4577 SKP / @@1404=7410 JMP I S1400 / return @@1405=5600 JMS I C0152 / long call to S1015 @@1406=4552 SPA SNA HLT / @@1407=7552 JMS I C0177 / long call to S1111 @@1410=4577 D1411, 7402 / HLT CLA / @@1412=7200 JMP I S1400 / return @@1413=5600 L1414, TAD C0043 / @@1414=1043 DCA D0047 / @@1415=3047 L1416, CLA / @@1416=7200 JMS I L0175 / long call to S1133 @@1417=4575 L1420, JMS I C0177 / long call to S1111 @@1420=4577 JMP L1420 / @@1421=5220 JMS I C0176 / long call to S1116 @@1422=4576 JMS I C0177 / long call to S1111 @@1423=4577 SKP / @@1424=7410 JMP L1433 / @@1425=5233 C1426, 2047 / ISZ D0047 JMP L1416 / @@1427=5216 L1430, JMS I C0165 / long call to S0311 @@1430=4565 JMP L1414 / @@1431=5214 JMP L1440 / @@1432=5240 L1433, ISZ D0071 / @@1433=2071 JMS I C0166 / long call to S0266 @@1434=4566 AND C1541 / @@1435=0341 C1436, 5016 / JMP AI6 JMP L1430 / @@1437=5230 L1440, JMS I C0166 / long call to S0266 @@1440=4566 AND L0001 / @@1441=0001 JMP I D0002 / long jump to L0002 @@1442=5402 TAD C0044 / @@1443=1044 DCA D0047 / @@1444=3047 L1445, TAD C1577 / @@1445=1377 DCA D0002 / @@1446=3002 JMS I C0173 / long call to S1144 @@1447=4573 JMS I L0175 / long call to S1133 @@1450=4575 L1451, JMS I C0177 / long call to S1111 @@1451=4577 JMP L1451 / @@1452=5251 JMS I C0176 / long call to S1116 @@1453=4576 ION / Enable Interrupts @@1454=6001 JMS I C0152 / long call to S1015 @@1455=4552 C1456, 7737 / CLA MQA MQL LSR + IOF / Disable Interrupts @@1457=6002 TAD C1576 / @@1460=1376 DCA D0002 / @@1461=3002 IAC / @@1462=7001 MINT / (DC02A) Interrupt on if AC 11 is set @@1463=6115 JMS I L0175 / long call to S1133 @@1464=4575 L1465, JMS I C0177 / long call to S1111 @@1465=4577 JMP L1465 / @@1466=5265 ION / Enable Interrupts @@1467=6001 JMS I L0175 / long call to S1133 @@1470=4575 JMS I C0152 / long call to S1015 @@1471=4552 SPA SNA HLT / @@1472=7552 IOF / Disable Interrupts @@1473=6002 ISZ D0071 / @@1474=2071 JMS I C0166 / long call to S0266 @@1475=4566 AND C1541 / @@1476=0341 JMP L0144 / @@1477=5144 JMP L1503 / @@1500=5303 L1501, ISZ D0047 / @@1501=2047 JMP L1445 / @@1502=5245 L1503, JMS I C0165 / long call to S0311 @@1503=4565 JMP L1440 / @@1504=5240 JMS I C0150 / long call to S0302 @@1505=4550 JMP I C0164 / long jump to L0234 @@1506=5564 JMP I C0106 / long jump to L2305 @@1507=5506 JMS I C0174 / long call to S1137 @@1510=4574 SKP / @@1511=7410 JMS I C0177 / long call to S1111 @@1512=4577 SKP / @@1513=7410 JMP L1501 / @@1514=5301 ISZ D0071 / @@1515=2071 JMS I C0166 / long call to S0266 @@1516=4566 AND C1541 / @@1517=0341 JMP I C0026 / long jump to L0077 @@1520=5426 JMP L1503 / @@1521=5303 L1522, JMS I C0155 / long call to S1006 @@1522=4555 JMS I C0157 / long call to S0736 @@1523=4557 JMP I C0053 / long jump to L0256 @@1524=5453 JMS I C0155 / long call to S1006 @@1525=4555 TAD C1575 / @@1526=1375 DCA D0051 / @@1527=3051 DCA D0050 / @@1530=3050 TAD D0031 / @@1531=1031 JMS I C0154 / long call to S1000 @@1532=4554 L1533, TAD D0050 / @@1533=1050 CMA / @@1534=7040 DCA D0047 / @@1535=3047 L1536, TAD C0033 / @@1536=1033 JMS I C0154 / long call to S1000 @@1537=4554 JMS I L0144 / long call to S1614 @@1540=4544 C1541, 5357 / JMP C1557 ISZ D0047 / @@1542=2047 JMP L1536 / @@1543=5336 CLL IAC / @@1544=7101 RAL / @@1545=7004 TAD D0050 / @@1546=1050 DCA D0050 / @@1547=3050 JMS I C0146 / long call to S1214 @@1550=4546 TAD C1563 / @@1551=1363 JMS I C0154 / long call to S1000 @@1552=4554 TAD C0027 / @@1553=1027 JMS I C0154 / long call to S1000 @@1554=4554 ISZ D0051 / @@1555=2051 JMP L1533 / @@1556=5333 JMS I C0165 / long call to S0311 @@1557=4565 JMP L1522 / @@1560=5322 JMP I C1562 / long jump to L1626 @@1561=5762 C1562, C1562, 1626 / TAD I C1426 C1563, 0315 / AND C1515 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1564 / / Called from: / 1621 3674 4014 4043 4055 4074 4137 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S1564, 0 / return area TAD D0116 / @@1565=1116 TAD C1574 / @@1566=1374 SZA CLA / @@1567=7640 ISZ S1564 / @@1570=2364 JMP I S1564 / return @@1571=5764 *1574 C1574, 7401 / NOP C1575, 7731 / CLA MQA MQL NMI C1576, 1501 / TAD I D0101 C1577, 1510 / TAD I C0110 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1600 / / Called from: / 4012 4053 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1600, 0 / return area TAD D0116 / @@1601=1116 TAD C1777 / @@1602=1377 SZA CLA / @@1603=7640 C1604, 2200 / ISZ S1600 JMP I S1600 / return @@1605=5600 L1606, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1606 / / Called from: / 4041 4051 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1606, 0 / return area TAD D0116 / @@1607=1116 TAD C1776 / @@1610=1376 L1611, SZA CLA / @@1611=7640 ISZ S1606 / @@1612=2206 JMP I S1606 / return @@1613=5606 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1614 / / Called from: / 0462 1540 1714 1747 2005 2045 2135 2214 2234 2276 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S1614, 0 / return area JMS I C0174 / long call to S1137 @@1615=4574 JMP L1623 / @@1616=5223 JMS I C0171 / long call to S3326 @@1617=4571 DCA D0116 / @@1620=3116 JMS I C0136 / long call to S1564 @@1621=4536 SKP / @@1622=7410 L1623, ISZ S1614 / @@1623=2214 JMS I C0173 / long call to S1144 @@1624=4573 JMP I S1614 / return @@1625=5614 L1626, JMS I C0155 / long call to S1006 @@1626=4555 JMS I C0157 / long call to S0736 @@1627=4557 JMP I D0066 / long jump to L0000 @@1630=5466 JMS I C0155 / long call to S1006 @@1631=4555 TAD C0115 / @@1632=1115 DCA D0051 / @@1633=3051 DCA D0047 / @@1634=3047 L1635, TAD D0104 / @@1635=1104 SZA CLA / @@1636=7640 JMP L1712 / @@1637=5312 TAD C0033 / @@1640=1033 JMS I L0175 / long call to S1133 @@1641=4575 L1642, ISZ L0000 / @@1642=2000 JMP L1642 / @@1643=5242 JMS I C0177 / long call to S1111 @@1644=4577 SKP CLA / @@1645=7610 JMP L1656 / @@1646=5256 ISZ D0047 / @@1647=2047 L1650, JMS I C0177 / long call to S1111 @@1650=4577 JMP L1650 / @@1651=5250 C1652, 4544 / JMS I L0144 JMP L1667 / @@1653=5267 ISZ D0051 / @@1654=2051 JMP L1635 / @@1655=5235 L1656, JMS I C0147 / long call to S1052 @@1656=4547 AND D0047 / @@1657=0047 C1660, 0120 / AND C0120 JMP L1703 / @@1661=5303 JMP L1672 / @@1662=5272 JMP L1664 / @@1663=5264 L1664, JMS I C0155 / long call to S1006 @@1664=4555 JMS I C0157 / long call to S0736 @@1665=4557 JMP L1611 / @@1666=5211 L1667, JMS I C0165 / long call to S0311 @@1667=4565 JMP L1626 / @@1670=5226 JMP L1735 / @@1671=5335 L1672, JMS I C1710 / long call to S3652 @@1672=4710 JMS I C0155 / long call to S1006 @@1673=4555 JMS I C0157 / long call to S0736 @@1674=4557 JMP I L0100 / long jump to L0000 @@1675=5500 L1676, JMS I C1711 / long call to S1044 @@1676=4711 JMS I C0157 / long call to S0736 @@1677=4557 JMP I C0134 / long jump to L1606 @@1700=5534 JMS I C0155 / long call to S1006 @@1701=4555 JMP L1667 / @@1702=5267 L1703, JMS I C1710 / long call to S3652 @@1703=4710 JMS I C0155 / long call to S1006 @@1704=4555 JMS I C0157 / long call to S0736 @@1705=4557 JMP I D0116 / long jump to L0000 @@1706=5516 JMP L1676 / @@1707=5276 C1710, C1710, 3652 / DCA I C1652 C1711, C1711, 1044 / TAD C0044 L1712, TAD C0033 / @@1712=1033 JMS I C0154 / long call to S1000 @@1713=4554 JMS I L0144 / long call to S1614 @@1714=4544 JMP L1667 / @@1715=5267 ISZ D0047 / @@1716=2047 TAD D0047 / @@1717=1047 TAD C1775 / @@1720=1375 SZA CLA / @@1721=7640 C1722, 5312 / JMP L1712 TAD C1774 / @@1723=1374 DCA D0047 / @@1724=3047 L1725, TAD D0047 / @@1725=1047 L1726, JMS I C0154 / long call to S1000 @@1726=4554 TAD D0047 / @@1727=1047 TAD C1773 / @@1730=1373 SNA CLA / @@1731=7650 JMP L1664 / @@1732=5264 ISZ D0047 / @@1733=2047 JMP L1725 / @@1734=5325 L1735, JMS I C0155 / long call to S1006 @@1735=4555 JMS I C0157 / long call to S0736 @@1736=4557 JMP I C0141 / long jump to L3000 @@1737=5541 JMS I C0155 / long call to S1006 @@1740=4555 TAD C0042 / @@1741=1042 DCA D0047 / @@1742=3047 L1743, TAD C0034 / @@1743=1034 JMS I C0154 / long call to S1000 @@1744=4554 TAD C0027 / @@1745=1027 JMS I C0154 / long call to S1000 @@1746=4554 JMS I L0144 / long call to S1614 @@1747=4544 JMP L1754 / @@1750=5354 ISZ D0047 / @@1751=2047 JMP L1743 / @@1752=5343 JMS I C0155 / long call to S1006 @@1753=4555 L1754, JMS I C0165 / long call to S0311 @@1754=4565 JMP L1735 / @@1755=5335 JMP I C1772 / long jump to L0426 @@1756=5772 L1757, JMS I C0155 / long call to S1006 @@1757=4555 JMS I C0157 / long call to S0736 @@1760=4557 JMP I C0161 / long jump to L0253 @@1761=5561 JMS I C0155 / long call to S1006 @@1762=4555 TAD D0114 / @@1763=1114 DCA D0047 / @@1764=3047 TAD D0031 / @@1765=1031 DCA D0050 / @@1766=3050 JMP I C1770 / long jump to L2000 @@1767=5770 C1770, C1770, 2000 / ISZ L0000 *1772 C1772, C1772, 0426 / AND I C0026 C1773, 7507 / MQA DVI + C1774, 0260 / AND C1660 C1775, 7672 / SNA SZL CLA HLT C1776, 7575 / MQA SCA MQL ASR + C1777, 7563 / MQA SCA MQL SCL + L2000, D2000, 1042 / TAD C0042 DCA D0051 / @@2001=3051 ISZ D0050 / @@2002=2050 L2003, TAD D0050 / @@2003=1050 JMS I C0154 / long call to S1000 @@2004=4554 JMS I L0144 / long call to S1614 @@2005=4544 JMP L2014 / @@2006=5214 ISZ D0051 / @@2007=2051 JMP L2003 / @@2010=5203 JMS I C0155 / long call to S1006 @@2011=4555 ISZ D0047 / @@2012=2047 JMP L2000 / @@2013=5200 L2014, JMS I C0165 / long call to S0311 @@2014=4565 JMP I C2177 / long jump to L1757 @@2015=5777 JMP I C2017 / long jump to L2020 @@2016=5617 C2017, C2017, 2020 / ISZ L0020 L2020, JMS I C0155 / long call to S1006 @@2020=4555 JMS I C0155 / long call to S1006 @@2021=4555 JMS I C0157 / long call to S0736 @@2022=4557 JMP I L2051 / long jump to L1036 @@2023=5651 JMS I C0155 / long call to S1006 @@2024=4555 JMP L2054 / @@2025=5254 L2026, ISZ D0055 / @@2026=2055 L2027, TAD D0055 / @@2027=1055 DCA D0046 / @@2030=3046 TAD C2176 / @@2031=1376 C2032, C2032, 3047 / DCA D0047 L2033, ISZ D0047 / @@2033=2047 SKP / @@2034=7410 JMP L2075 / @@2035=5275 L2036, TAD I D0046 / @@2036=1446 TAD C2106 / @@2037=1306 SNA CLA / @@2040=7650 JMP L2051 / @@2041=5251 TAD I D0046 / @@2042=1446 JMS I C0154 / long call to S1000 @@2043=4554 JMS S2107 / @@2044=4307 JMS I L0144 / long call to S1614 @@2045=4544 JMP L2102 / @@2046=5302 ISZ D0046 / @@2047=2046 JMP L2033 / @@2050=5233 L2051, C2051, C2051, 1036 / TAD L0036 DCA D0046 / @@2052=3046 JMP L2036 / @@2053=5236 L2054, TAD L0036 / @@2054=1036 DCA D0046 / @@2055=3046 TAD L0036 / @@2056=1036 DCA D0055 / @@2057=3055 TAD C0037 / @@2060=1037 DCA D0047 / @@2061=3047 TAD D0031 / @@2062=1031 DCA D0054 / @@2063=3054 L2064, TAD D0054 / @@2064=1054 DCA I D0046 / @@2065=3446 ISZ D0054 / @@2066=2054 ISZ D0046 / @@2067=2046 ISZ D0047 / @@2070=2047 JMP L2064 / @@2071=5264 TAD C0037 / @@2072=1037 DCA D0051 / @@2073=3051 JMP L2027 / @@2074=5227 L2075, ISZ D0051 / @@2075=2051 SKP / @@2076=7410 JMP L2102 / @@2077=5302 JMS I C0155 / long call to S1006 @@2100=4555 JMP L2026 / @@2101=5226 L2102, JMS I C0165 / long call to S0311 @@2102=4565 JMP L2020 / @@2103=5220 JMP I C2105 / long jump to L2123 @@2104=5705 C2105, C2105, 2123 / ISZ C0123 C2106, 7441 / SCA //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2107 / / Called from: / 2044 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2107, 0 / return area C2110, 1410 / TAD I AI0 SZA / @@2111=7440 RAL / @@2112=7004 IAC / @@2113=7001 C2114, 1010 / TAD AI0 AND C0026 / @@2115=0026 CMA / @@2116=7040 DCA D2121 / @@2117=3321 JMS I C0152 / long call to S1015 @@2120=4552 D2121, 0000 / AND L0000 JMP I S2107 / return @@2122=5707 L2123, JMS I C0155 / long call to S1006 @@2123=4555 JMS I C0155 / long call to S1006 @@2124=4555 JMS I C0157 / long call to S0736 @@2125=4557 JMP I C2032 / long jump to L3047 @@2126=5632 JMS I C0155 / long call to S1006 @@2127=4555 DCA D0105 / @@2130=3105 TAD C2175 / @@2131=1375 DCA D0047 / @@2132=3047 L2133, TAD C0033 / @@2133=1033 JMS I C0154 / long call to S1000 @@2134=4554 JMS I L0144 / long call to S1614 @@2135=4544 JMP L2143 / @@2136=5343 JMS I C0152 / long call to S1015 @@2137=4552 JMS D0060 / @@2140=4060 ISZ D0047 / @@2141=2047 JMP L2133 / @@2142=5333 L2143, JMS I C0165 / long call to S0311 @@2143=4565 JMP L2123 / @@2144=5323 TAD D0113 / @@2145=1113 SNA CLA / @@2146=7650 TAD C2174 / @@2147=1374 DCA D0105 / @@2150=3105 JMP I C2173 / long jump to L2200 @@2151=5773 *2173 C2173, C2173, 2200 / ISZ L2000 C2174, 7767 / CLA MQA SCA MQL DVI + C2175, 7662 / SZA SNL CLA HLT C2176, 7657 / CLA SCA LSR + C2177, C2177, 1757 / TAD I C2157 L2200, JMS I C0155 / long call to S1006 @@2200=4555 JMS I C0155 / long call to S1006 @@2201=4555 JMS I C0157 / long call to S0736 @@2202=4557 JMP I C0174 / long jump to L1137 @@2203=5574 JMS I C0155 / long call to S1006 @@2204=4555 TAD C0042 / @@2205=1042 DCA D0047 / @@2206=3047 L2207, TAD C0033 / @@2207=1033 JMS I L0175 / long call to S1133 @@2210=4575 JMS I L0175 / long call to S1133 @@2211=4575 L2212, JMS I C0177 / long call to S1111 @@2212=4577 JMP L2212 / @@2213=5212 JMS I L0144 / long call to S1614 @@2214=4544 JMP L2220 / @@2215=5220 ISZ D0047 / @@2216=2047 JMP L2207 / @@2217=5207 L2220, JMS I C0165 / long call to S0311 @@2220=4565 JMP L2200 / @@2221=5200 JMP I C2223 / long jump to L2224 @@2222=5623 C2223, C2223, 2224 / ISZ L2224 L2224, D2224, 4555 / JMS I C0155 JMS I C0155 / long call to S1006 @@2225=4555 JMS I C0157 / long call to S0736 @@2226=4557 JMP I C2266 / long jump to L1021 @@2227=5666 JMS I C0155 / long call to S1006 @@2230=4555 TAD C0041 / @@2231=1041 DCA D0047 / @@2232=3047 DCA D0051 / @@2233=3051 L2234, JMS I L0144 / long call to S1614 @@2234=4544 JMP L2257 / @@2235=5257 TAD D0031 / @@2236=1031 JMS I C0154 / long call to S1000 @@2237=4554 TAD C2263 / @@2240=1263 JMS I C0154 / long call to S1000 @@2241=4554 ISZ D0047 / @@2242=2047 JMP L2234 / @@2243=5234 JMS I C0146 / long call to S1214 @@2244=4546 JMS I C0152 / long call to S1015 @@2245=4552 SNA SZL / @@2246=7470 TAD C0033 / @@2247=1033 JMS I C0154 / long call to S1000 @@2250=4554 TAD C0041 / @@2251=1041 DCA D0047 / @@2252=3047 L2253, JMS S2264 / @@2253=4264 ISZ D0047 / @@2254=2047 JMP L2253 / @@2255=5253 JMS I C0155 / long call to S1006 @@2256=4555 L2257, JMS I C0165 / long call to S0311 @@2257=4565 JMP L2224 / @@2260=5224 JMP I C2262 / long jump to L2400 @@2261=5662 C2262, C2262, 2400 / ISZ I L0000 C2263, 0317 / AND C2317 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2264 / / Called from: / 2253 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2264, 0 / return area JMS I C0146 / long call to S1214 @@2265=4546 C2266, C2266, 1021 / TAD C0021 TAD D0051 / @@2267=1051 DCA D0051 / @@2270=3051 TAD D0051 / @@2271=1051 CIA / @@2272=7041 DCA D0052 / @@2273=3052 L2274, TAD D0031 / @@2274=1031 JMS I C0154 / long call to S1000 @@2275=4554 JMS I L0144 / long call to S1614 @@2276=4544 JMP L2257 / @@2277=5257 ISZ D0052 / @@2300=2052 JMP L2274 / @@2301=5274 TAD C0033 / @@2302=1033 JMS I C0154 / long call to S1000 @@2303=4554 JMP I S2264 / return @@2304=5664 L2305, LAS / @@2305=7604 AND C2377 / @@2306=0377 TAD C2376 / @@2307=1376 SZA CLA / @@2310=7640 JMP I C0163 / long jump to L0240 @@2311=5563 L2312, TAD C0044 / @@2312=1044 DCA D0047 / @@2313=3047 L2314, CLA / @@2314=7200 JMS I C0170 / long call to S1105 @@2315=4570 NOP / @@2316=7000 JMS I C0177 / long call to S1111 @@2317=4577 JMP L2326 / @@2320=5326 ISZ D0047 / @@2321=2047 JMP L2314 / @@2322=5314 L2323, JMS I C0165 / long call to S0311 @@2323=4565 JMP L2312 / @@2324=5312 JMP L2332 / @@2325=5332 L2326, JMS I C0166 / long call to S0266 @@2326=4566 AND C2341 / @@2327=0341 JMP L0036 / @@2330=5036 JMP L2323 / @@2331=5323 L2332, JMS I C0166 / long call to S0266 @@2332=4566 AND D0002 / @@2333=0002 ISZ D2342 / @@2334=2342 TAD C0044 / @@2335=1044 DCA D0047 / @@2336=3047 L2337, JMS I L0175 / long call to S1133 @@2337=4575 ION / Enable Interrupts @@2340=6001 C2341, 5341 / JMP C2341 D2342, 4567 / JMS I C0167 JMP L2353 / @@2343=5353 ISZ D0047 / @@2344=2047 JMP L2337 / @@2345=5337 L2346, JMS I C0165 / long call to S0311 @@2346=4565 JMP L2332 / @@2347=5332 JMS I C0150 / long call to S0302 @@2350=4550 JMP I C0164 / long jump to L0234 @@2351=5564 JMP I C0163 / long jump to L0240 @@2352=5563 L2353, JMS I C0166 / long call to S0266 @@2353=4566 AND C2341 / @@2354=0341 JMP L0056 / @@2355=5056 JMP L2346 / @@2356=5346 *2376 C2376, 7700 / SMA CLA C2377, 0140 / AND D0140 L2400, C2400, 4555 / JMS I C0155 C2401, 4557 / JMS I C0157 C2402, 5674 / JMP I C2474 C2403, 4555 / JMS I C0155 C2404, 4566 / JMS I C0166 L2405, C2405, 0051 / AND D0051 C2406, 7742 / SMA SZA CLA HLT C2407, 4566 / JMS I C0166 C2410, 0052 / AND D0052 C2411, 2433 / ISZ I C0033 L2412, JMS I C0166 / long call to S0266 @@2412=4566 C2413, 0047 / AND D0047 C2414, 7760 / SMA SZA SNL CLA L2415, TAD I D0052 / @@2415=1452 C2416, 4554 / JMS I C0154 C2417, 4544 / JMS I L0144 C2420, 5226 / JMP L2426 C2421, 2047 / ISZ D0047 C2422, 5215 / JMP L2415 C2423, 2052 / ISZ D0052 C2424, 2051 / ISZ D0051 C2425, 5212 / JMP L2412 L2426, C2426, 4565 / JMS I C0165 C2427, 5200 / JMP L2400 C2430, 4550 / JMS I C0150 C2431, 5563 / JMP I C0163 C2432, 5562 / JMP I L0162 C2433, 0200 / AND L2400 C2434, 0201 / AND C2401 C2435, 0202 / AND C2402 C2436, 0203 / AND C2403 C2437, 0204 / AND C2404 C2440, 0205 / AND L2405 AND C2406 / @@2441=0206 AND C2407 / @@2442=0207 AND C2410 / @@2443=0210 AND C2411 / @@2444=0211 AND C2413 / @@2445=0213 AND C2414 / @@2446=0214 AND C2416 / @@2447=0216 AND C2417 / @@2450=0217 AND C2420 / @@2451=0220 AND C2421 / @@2452=0221 AND C2422 / @@2453=0222 AND C2423 / @@2454=0223 AND C2424 / @@2455=0224 AND C2425 / @@2456=0225 AND L2426 / @@2457=0226 AND C2427 / @@2460=0227 AND C2430 / @@2461=0230 AND C2431 / @@2462=0231 AND C2432 / @@2463=0232 AND C2433 / @@2464=0233 AND C2434 / @@2465=0234 AND C2435 / @@2466=0235 AND C2436 / @@2467=0236 AND C2437 / @@2470=0237 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2471 / / Called from: / 2714 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2471, 0 / return area CLA CLL / AC = 0000 @@2472=7300 TAD I S2471 / @@2473=1671 ISZ S2471 / @@2474=2271 DCA D0067 / @@2475=3067 TAD I S2471 / @@2476=1671 ISZ S2471 / @@2477=2271 DCA D0070 / @@2500=3070 TAD I D0067 / @@2501=1467 DCA D0062 / @@2502=3062 ISZ D0067 / @@2503=2067 TAD I D0067 / @@2504=1467 DCA D0063 / @@2505=3063 TAD I D0070 / @@2506=1470 DCA D0064 / @@2507=3064 ISZ D0070 / @@2510=2070 TAD I D0070 / @@2511=1470 DCA D0065 / @@2512=3065 DCA D0101 / @@2513=3101 TAD D0064 / @@2514=1064 CMA / @@2515=7040 DCA D0064 / @@2516=3064 CLA CLL / AC = 0000 @@2517=7300 TAD D0065 / @@2520=1065 CIA / @@2521=7041 DCA D0065 / @@2522=3065 SZL / @@2523=7430 ISZ D0064 / @@2524=2064 L2525, CLA CLL / AC = 0000 @@2525=7300 TAD D0063 / @@2526=1063 TAD D0065 / @@2527=1065 DCA D0063 / @@2530=3063 TAD D0062 / @@2531=1062 SZL / @@2532=7430 IAC / @@2533=7001 CLL / @@2534=7100 TAD D0064 / @@2535=1064 DCA D0062 / @@2536=3062 SNL / @@2537=7420 JMP L2543 / @@2540=5343 ISZ D0101 / @@2541=2101 JMP L2525 / @@2542=5325 L2543, CLA / @@2543=7200 TAD D0101 / @@2544=1101 JMP I S2471 / return @@2545=5671 *2600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Called from: / 2730 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area JMS I C0173 / long call to S1144 @@2601=4573 JMS I C0176 / long call to S1116 @@2602=4576 JMS I C0166 / long call to S0266 @@2603=4566 AND L0001 / @@2604=0001 JMP I D0002 / long jump to L0002 @@2605=5402 TAD C2777 / @@2606=1377 DCA D0002 / @@2607=3002 DCA D2662 / @@2610=3262 DCA D2661 / @@2611=3261 TAD C0033 / @@2612=1033 L2613, JMS I L0175 / long call to S1133 @@2613=4575 L2614, JMS I C0177 / long call to S1111 @@2614=4577 JMP L2614 / @@2615=5214 JMS I L0175 / long call to S1133 @@2616=4575 L2617, ION / Enable Interrupts @@2617=6001 L2620, JMS I C0143 / long call to S1034 @@2620=4543 ISZ D2662 / @@2621=2262 JMP L2620 / @@2622=5220 ISZ D2661 / @@2623=2261 JMP L2620 / @@2624=5220 IOF / Disable Interrupts @@2625=6002 JMS I C0155 / long call to S1006 @@2626=4555 JMS I C0157 / long call to S0736 @@2627=4557 JMP L0144 / @@2630=5144 JMS I C0155 / long call to S1006 @@2631=4555 JMP I C2633 / long jump to L1241 @@2632=5633 C2633, C2633, 1241 / TAD C2641 JMS I C0177 / long call to S1111 @@2634=4577 JMP L2655 / @@2635=5255 JMS I C0141 / long call to S3000 @@2636=4541 AND I C2656 / @@2637=0656 ISZ I D2662 / @@2640=2662 C2641, 4542 / JMS I C0142 DCA D0031 / @@2642=3031 AND C0072 / @@2643=0072 JMP I S2600 / return @@2644=5600 ISZ D0071 / @@2645=2071 JMS I C0165 / long call to S0311 @@2646=4565 NOP / @@2647=7000 JMS I C0155 / long call to S1006 @@2650=4555 JMS I C0157 / long call to S0736 @@2651=4557 C2652, 5373 / JMP C2773 JMS I C0155 / long call to S1006 @@2653=4555 JMP L2613 / @@2654=5213 L2655, JMS I C0174 / long call to S1137 @@2655=4574 C2656, 5245 / JMP C2645 ISZ D2662 / @@2657=2262 C2660, 5217 / JMP L2617 D2661, 0000 / AND L0000 D2662, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2663 / / Called from: / 3213 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2663, 0 / return area CLA CLL / AC = 0000 @@2664=7300 IAC / @@2665=7001 MINT / (DC02A) Interrupt on if AC 11 is set @@2666=6115 CLA / @@2667=7200 TAD L0036 / @@2670=1036 DCA D0046 / @@2671=3046 JMS S2721 / @@2672=4321 JMS I C0155 / long call to S1006 @@2673=4555 TAD L0036 / @@2674=1036 DCA D0046 / @@2675=3046 TAD C0043 / @@2676=1043 DCA D0051 / @@2677=3051 DCA D0054 / @@2700=3054 L2701, CLL / @@2701=7100 TAD I D0046 / @@2702=1446 ISZ D0046 / @@2703=2046 SZL / @@2704=7430 ISZ D0054 / @@2705=2054 ISZ D0051 / @@2706=2051 JMP L2701 / @@2707=5301 DCA D0055 / @@2710=3055 DCA D0057 / @@2711=3057 TAD C2741 / @@2712=1341 DCA D0060 / @@2713=3060 JMS I C0142 / long call to S2471 @@2714=4542 AND D0054 / @@2715=0054 AND D0057 / @@2716=0057 JMS I C2742 / long call to S0660 @@2717=4742 JMP I S2663 / return @@2720=5663 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2721 / / Called from: / 2672 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2721, 0 / return area JMS I C0166 / long call to S0266 @@2722=4566 AND D0047 / @@2723=0047 C2724, 7773 / CLA MQA SCA MQL SHL + L2725, JMS I C0166 / long call to S0266 @@2725=4566 AND D0051 / @@2726=0051 SPA SNA CLA OSR / @@2727=7754 L2730, JMS S2600 / @@2730=4200 DCA I D0046 / @@2731=3446 ISZ D0046 / @@2732=2046 ISZ D0051 / @@2733=2051 JMP L2730 / @@2734=5330 JMS I C0155 / long call to S1006 @@2735=4555 ISZ D0047 / @@2736=2047 JMP L2725 / @@2737=5325 JMP I S2721 / return @@2740=5721 C2741, 0144 / AND L0144 C2742, C2742, 0660 / AND I C2660 C2743, C2743, 0000 / AND L0000 TAD D0075 / @@2744=1075 JMS I C0154 / long call to S1000 @@2745=4554 TAD C0076 / @@2746=1076 JMS I C0154 / long call to S1000 @@2747=4554 TAD C0053 / @@2750=1053 JMS I C0154 / long call to S1000 @@2751=4554 TAD L0077 / @@2752=1077 JMS I C0154 / long call to S1000 @@2753=4554 JMP I C2743 / long jump to L0000 @@2754=5743 *2777 C2777, 2634 / ISZ I C2634 L3000, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 2636 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3000, 0 / return area CLA CLL / AC = 0000 @@3001=7300 TAD I S3000 / @@3002=1600 DCA D0067 / @@3003=3067 ISZ S3000 / @@3004=2200 TAD I S3000 / @@3005=1600 ISZ S3000 / @@3006=2200 DCA D0070 / @@3007=3070 TAD I D0067 / @@3010=1467 DCA D3034 / @@3011=3234 TAD I D0070 / @@3012=1470 DCA D3035 / @@3013=3235 DCA D3031 / @@3014=3231 DCA D3032 / @@3015=3232 TAD D3034 / @@3016=1234 CIA / @@3017=7041 DCA D3033 / @@3020=3233 L3021, CLL / @@3021=7100 TAD D3035 / @@3022=1235 SZL / @@3023=7430 ISZ D3031 / @@3024=2231 ISZ D3033 / @@3025=2233 JMP L3021 / @@3026=5221 DCA D3032 / @@3027=3232 JMP I S3000 / return @@3030=5600 D3031, 0000 / AND L0000 D3032, 0000 / AND L0000 D3033, 0000 / AND L0000 D3034, 0000 / AND L0000 D3035, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3036 / / Called from: / 3141 3164 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3036, 0 / return area JMS I C0166 / long call to S0266 @@3037=4566 AND D0047 / @@3040=0047 SPA SNA SZL CLA HLT / @@3041=7772 JMS I C0166 / long call to S0266 @@3042=4566 C3043, 0010 / AND AI0 TAD C0163 / @@3044=1163 TAD C3177 / @@3045=1377 DCA D0054 / @@3046=3054 L3047, TAD I D0054 / @@3047=1454 L3050, DCA D0055 / @@3050=3055 TAD D0102 / @@3051=1102 C3052, 1410 / TAD I AI0 DCA I D0055 / @@3053=3455 ISZ D0054 / @@3054=2054 ISZ D0047 / @@3055=2047 JMP L3047 / @@3056=5247 JMS I C0166 / long call to S0266 @@3057=4566 C3060, 0010 / AND AI0 TAD C0163 / @@3061=1163 JMS I C0166 / long call to S0266 @@3062=4566 AND D0047 / @@3063=0047 SPA SNA SZL CLA HLT / @@3064=7772 TAD C3176 / @@3065=1376 DCA D0054 / @@3066=3054 L3067, TAD I D0054 / @@3067=1454 DCA D0055 / @@3070=3055 TAD D0103 / @@3071=1103 C3072, 1410 / TAD I AI0 DCA I D0055 / @@3073=3455 ISZ D0054 / @@3074=2054 ISZ D0047 / @@3075=2047 JMP L3067 / @@3076=5267 JMP I S3036 / return @@3077=5636 TAD C0155 / @@3100=1155 TAD D0140 / @@3101=1140 TAD C0145 / @@3102=1145 TAD C0151 / @@3103=1151 TAD C0161 / @@3104=1161 DCA D3155 / @@3105=3355 TAD C0106 / @@3106=1106 TAD C0112 / @@3107=1112 C3110, 1117 / TAD C0117 C3111, 1123 / TAD C0123 C3112, 1127 / TAD C0127 TAD C0134 / @@3113=1134 C3114, C3114, 0000 / AND L0000 STA / AC = 7777 (-0001) @@3115=7240 HLT / @@3116=7402 LAS / @@3117=7604 AND C3175 / @@3120=0375 CIA / @@3121=7041 TAD C3175 / @@3122=1375 SNA CLA / @@3123=7650 JMP L3150 / @@3124=5350 LAS / @@3125=7604 AND D0025 / @@3126=0025 SNA / @@3127=7450 JMP L3146 / @@3130=5346 LAS / @@3131=7604 DCA D0066 / @@3132=3066 JMS I C0166 / long call to S0266 @@3133=4566 AND D0103 / @@3134=0103 C3135, 0120 / AND C0120 JMS I C0166 / long call to S0266 @@3136=4566 AND D0102 / @@3137=0102 AND C0110 / @@3140=0110 JMS S3036 / @@3141=4236 TAD D0066 / @@3142=1066 MTON / Transfer AC0-3 to selection register @@3143=6117 CLA / @@3144=7200 JMP I C3114 / long jump to L0000 @@3145=5714 L3146, CLA / @@3146=7200 HLT / @@3147=7402 L3150, LAS / @@3150=7604 DCA D0052 / @@3151=3052 TAD D0052 / @@3152=1052 RTR / @@3153=7012 RAR / @@3154=7010 D3155, 0366 / AND C3166 DCA D0102 / @@3156=3102 TAD D0052 / @@3157=1052 RTL / @@3160=7006 RAL / @@3161=7004 AND C3166 / @@3162=0366 DCA D0103 / @@3163=3103 JMS S3036 / @@3164=4236 JMP I C3114 / long jump to L0000 @@3165=5714 C3166, 0770 / AND I C3170 *3175 C3175, 0304 / AND C3104 C3176, 3106 / DCA C0106 C3177, 3100 / DCA L0100 L3200, C3200, 4555 / JMS I C0155 JMS I C0157 / long call to S0736 @@3201=4557 JMP L3252 / @@3202=5252 JMS I C0155 / long call to S1006 @@3203=4555 JMS I C0166 / long call to S0266 @@3204=4566 AND C3341 / @@3205=0341 JMP I C3354 / long jump to L5337 @@3206=5754 L3207, JMS I C0155 / long call to S1006 @@3207=4555 JMS I C0157 / long call to S0736 @@3210=4557 JMP L3234 / @@3211=5234 JMS I C0155 / long call to S1006 @@3212=4555 JMS I C3220 / long call to S2663 @@3213=4620 JMP L3215 / @@3214=5215 L3215, JMS I C0165 / long call to S0311 @@3215=4565 JMP L3207 / @@3216=5207 JMP L3221 / @@3217=5221 C3220, C3220, 2663 / ISZ I C3263 L3221, JMS I C0155 / long call to S1006 @@3221=4555 JMS I C0157 / long call to S0736 @@3222=4557 JMP I C3315 / long jump to L3050 @@3223=5715 JMS I C0155 / long call to S1006 @@3224=4555 JMS I C0166 / long call to S0266 @@3225=4566 AND D0046 / @@3226=0046 C3227, 4600 / JMS I L3200 JMS I C0166 / long call to S0266 @@3230=4566 AND D0047 / @@3231=0047 C3232, 7767 / CLA MQA SCA MQL DVI + DCA D0050 / @@3233=3050 L3234, DCA D0062 / @@3234=3062 JMS S3305 / @@3235=4305 JMS S3312 / @@3236=4312 JMS I C0155 / long call to S1006 @@3237=4555 JMS I C0166 / long call to S0266 @@3240=4566 AND D0046 / @@3241=0046 JMS I C0177 / long call to S1111 @@3242=4577 JMS I C0166 / long call to S0266 @@3243=4566 AND D0047 / @@3244=0047 SMA SZA SNL CLA OSR HLT / @@3245=7766 L3246, ISZ D0046 / @@3246=2046 TAD I D0046 / @@3247=1446 ISZ D0047 / @@3250=2047 JMP L3246 / @@3251=5246 L3252, DCA D3255 / @@3252=3255 TAD D0024 / @@3253=1024 JMS I C3302 / long call to S0627 @@3254=4702 D3255, 0000 / AND L0000 TAD D3255 / @@3256=1255 DCA D0052 / @@3257=3052 JMS I C0155 / long call to S1006 @@3260=4555 JMS I C0157 / long call to S0736 @@3261=4557 JMP I C3333 / long jump to L3364 @@3262=5733 C3263, 4703 / JMS I C3303 JMS I C0166 / long call to S0266 @@3264=4566 AND D0046 / @@3265=0046 JMS I C0177 / long call to S1111 @@3266=4577 JMS I C0166 / long call to S0266 @@3267=4566 AND D0047 / @@3270=0047 SMA SZA SNL CLA OSR HLT / @@3271=7766 ISZ D0046 / @@3272=2046 JMP I C3325 / long jump to L3441 @@3273=5725 L3274, JMS I C0165 / long call to S0311 @@3274=4565 JMP L3221 / @@3275=5221 JMP I C3304 / long jump to L3600 @@3276=5704 C3277, C3277, 3424 / DCA I D0024 C3300, C3300, 3402 / DCA I D0002 C3301, C3301, 3414 / DCA I AI4 C3302, C3302, 0627 / AND I C3227 DCA I C0143 / @@3303=3543 C3304, C3304, 3600 / DCA I L3200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3305 / / Called from: / 3235 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3305, 0 / return area L3306, JMS I C3277 / long call to S3424 @@3306=4677 JMS I C3300 / long call to S3402 @@3307=4700 JMS I C3301 / long call to S3414 @@3310=4701 JMP I S3305 / return @@3311=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3312 / / Called from: / 3236 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3312, 0 / return area TAD C3377 / @@3313=1377 TAD D0050 / @@3314=1050 C3315, C3315, 3050 / DCA D0050 JMS I C0146 / long call to S1214 @@3316=4546 JMS I C3277 / long call to S3424 @@3317=4677 JMS I C3300 / long call to S3402 @@3320=4700 TAD C0045 / @@3321=1045 TAD D0052 / @@3322=1052 DCA I D0046 / @@3323=3446 JMP I S3312 / return @@3324=5712 C3325, C3325, 3441 / DCA I C0041 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3326 / / Called from: / 1204 1617 4037 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S3326, 0 / return area TAD D0066 / @@3327=1066 SNA CLA / @@3330=7650 JMP L3355 / @@3331=5355 TAD C3376 / @@3332=1376 C3333, C3333, 3364 / DCA L3364 DCA D3365 / @@3334=3365 STL / @@3335=7120 SKP / @@3336=7410 L3337, CLL / @@3337=7100 TAD D3365 / @@3340=1365 C3341, 7010 / RAR DCA D3365 / @@3342=3365 ISZ L3364 / @@3343=2364 SKP / @@3344=7410 HLT / @@3345=7402 TAD C3375 / @@3346=1375 AND D0066 / @@3347=0066 TAD D3365 / @@3350=1365 MTON / Transfer AC0-3 to selection register @@3351=6117 CLA / @@3352=7200 JMS I C0174 / long call to S1137 @@3353=4574 C3354, C3354, 5337 / JMP L3337 L3355, AND L0000 / @@3355=0000 DCA D0116 / @@3356=3116 TAD D0066 / @@3357=1066 MTON / Transfer AC0-3 to selection register @@3360=6117 CLA / @@3361=7200 TAD D0116 / @@3362=1116 JMP I S3326 / return @@3363=5726 L3364, D3364, 0000 / AND L0000 D3365, 0000 / AND L0000 *3375 C3375, 0017 / AND AI7 C3376, 7767 / CLA MQA SCA MQL DVI + C3377, 7776 / SPA SNA SZL CLA OSR HLT L3400, ISZ D0052 / @@3400=2052 JMP L3407 / @@3401=5207 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3402 / / Called from: / 3307 3320 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3402, 0 / return area DCA D0052 / @@3403=3052 JMS I C0146 / long call to S1214 @@3404=4546 TAD C0033 / @@3405=1033 JMS I L0175 / long call to S1133 @@3406=4575 L3407, JMS I C0152 / long call to S1015 @@3407=4552 C3410, 7777 / CLA MQA SCA MQL LSR + JMS I C0177 / long call to S1111 @@3411=4577 JMP L3400 / @@3412=5200 JMP I S3402 / return @@3413=5602 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3414 / / Called from: / 3310 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3414, 0 / return area TAD D0052 / @@3415=1052 TAD C0045 / @@3416=1045 DCA I D0046 / @@3417=3446 ISZ D0046 / @@3420=2046 ISZ D0047 / @@3421=2047 JMP I C3577 / long jump to L3306 @@3422=5777 C3423, 5614 / JMP I S3414 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3424 / / Called from: / 3306 3317 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3424, 0 / return area CLA CLL / AC = 0000 @@3425=7300 TAD D0050 / @@3426=1050 TAD L0023 / @@3427=1023 DCA D0050 / @@3430=3050 TAD D0050 / @@3431=1050 CIA / @@3432=7041 DCA D0051 / @@3433=3051 L3434, TAD D0031 / @@3434=1031 JMS I C0154 / long call to S1000 @@3435=4554 ISZ D0051 / @@3436=2051 JMP L3434 / @@3437=5234 JMP I S3424 / return @@3440=5624 L3441, TAD I D0046 / @@3441=1446 L3442, CIA / @@3442=7041 DCA D0061 / @@3443=3061 L3444, ISZ D0047 / @@3444=2047 SKP / @@3445=7410 JMP L3456 / @@3446=5256 ISZ D0046 / @@3447=2046 TAD I D0046 / @@3450=1446 TAD D0061 / @@3451=1061 C3452, 7750 / SPA SNA CLA JMP L3444 / @@3453=5244 TAD I D0046 / @@3454=1446 JMP L3442 / @@3455=5242 L3456, TAD D0061 / @@3456=1061 CIA / @@3457=7041 DCA D0052 / @@3460=3052 JMS I C0157 / long call to S0736 @@3461=4557 JMP I C3555 / long jump to L0705 @@3462=5755 JMS S3543 / @@3463=4343 JMS I C0155 / long call to S1006 @@3464=4555 JMS I C0157 / long call to S0736 @@3465=4557 C3466, 6205 / 6205 JMS I C0155 / long call to S1006 @@3467=4555 TAD L0036 / @@3470=1036 DCA D0046 / @@3471=3046 JMS I C0166 / long call to S0266 @@3472=4566 AND D0047 / @@3473=0047 D3474, 7766 / SMA SZA SNL CLA OSR HLT L3475, TAD I D0046 / @@3475=1446 ISZ D0046 / @@3476=2046 DCA D0052 / @@3477=3052 JMS S3543 / @@3500=4343 ISZ D0047 / @@3501=2047 JMP L3475 / @@3502=5275 JMP I C3504 / long jump to L3274 @@3503=5704 C3504, C3504, 3274 / DCA D3474 C3505, 1044 / TAD C0044 D3506, 3652 / DCA I C3452 L3507, TAD C3576 / @@3507=1376 DCA D0073 / @@3510=3073 JMS I C0166 / long call to S0266 @@3511=4566 AND C3423 / @@3512=0223 C3513, 7441 / SCA L3514, TAD I C3520 / @@3514=1720 DCA D3517 / @@3515=3317 JMP I D3517 / long jump to L0000 @@3516=5717 D3517, 0000 / AND L0000 C3520, 0400 / AND I L0000 L3521, C3521, 1375 / TAD C3575 DCA D0073 / @@3522=3073 JMS I C0166 / long call to S0266 @@3523=4566 AND C3423 / @@3524=0223 C3525, 7473 / SCA MQL SHL + JMP L3514 / @@3526=5314 L3527, JMS I C0166 / long call to S0266 @@3527=4566 AND C3423 / @@3530=0223 CLA CLL CMA CML IAC RAR / @@3531=7371 TAD C3574 / @@3532=1374 DCA D0073 / @@3533=3073 JMP L3514 / @@3534=5314 L3535, JMS I C0166 / long call to S0266 @@3535=4566 AND C3423 / @@3536=0223 C3537, 7765 / CLA MQA SCA MQL MUY + TAD C3573 / @@3540=1373 DCA D0073 / @@3541=3073 JMP L3514 / @@3542=5314 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3543 / / Called from: / 3463 3500 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3543, 0 / return area TAD D0052 / @@3544=1052 JMS I C0145 / long call to S0600 @@3545=4545 JMS I C3555 / long call to S0705 @@3546=4755 TAD L0077 / @@3547=1077 JMS I C0154 / long call to S1000 @@3550=4554 JMS I C0157 / long call to S0736 @@3551=4557 JMP I C0045 / long jump to L7743 @@3552=5445 JMS I C0155 / long call to S1006 @@3553=4555 JMP I S3543 / return @@3554=5743 C3555, C3555, 0705 / AND I C3505 *3573 C3573, 0100 / AND L0100 C3574, 0705 / AND I C3505 C3575, 0522 / AND I C0122 C3576, 0606 / AND I C3406 C3577, C3577, 3306 / DCA D3506 L3600, JMS I C0155 / long call to S1006 @@3600=4555 JMS I C0157 / long call to S0736 @@3601=4557 JMP L3702 / @@3602=5302 JMS I C0155 / long call to S1006 @@3603=4555 JMS I C0166 / long call to S0266 @@3604=4566 AND D0047 / @@3605=0047 C3606, 6030 / 6030 DCA D0051 / @@3607=3051 JMS I C0173 / long call to S1144 @@3610=4573 JMS I C0176 / long call to S1116 @@3611=4576 L3612, TAD C0027 / @@3612=1027 JMS I L0175 / long call to S1133 @@3613=4575 JMP L3617 / @@3614=5217 L3615, ISZ D0051 / @@3615=2051 JMP L3612 / @@3616=5212 L3617, JMS I C0152 / long call to S1015 @@3617=4552 C3620, 7777 / CLA MQA SCA MQL LSR + JMS I C0177 / long call to S1111 @@3621=4577 SKP / @@3622=7410 JMP L3615 / @@3623=5215 ISZ D0047 / @@3624=2047 JMP L3617 / @@3625=5217 JMP L3644 / @@3626=5244 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3627 / / Called from: / 3644 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3627, 0 / return area JMS I C0155 / long call to S1006 @@3630=4555 JMS I C0157 / long call to S0736 @@3631=4557 C3632, 5327 / JMP C3727 TAD D0051 / @@3633=1051 JMS I C0145 / long call to S0600 @@3634=4545 TAD C0076 / @@3635=1076 JMS I C0154 / long call to S1000 @@3636=4554 TAD L0077 / @@3637=1077 JMS I C0154 / long call to S1000 @@3640=4554 JMS I C0157 / long call to S0736 @@3641=4557 C3642, 5315 / JMP C3715 JMP I S3627 / return @@3643=5627 L3644, JMS S3627 / @@3644=4227 JMS I C0165 / long call to S0311 @@3645=4565 JMP L3600 / @@3646=5200 JMS I C0150 / long call to S0302 @@3647=4550 JMP I L0162 / long jump to L0244 @@3650=5562 JMP I C0161 / long jump to L0253 @@3651=5561 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3652 / / Called from: / 1672 1703 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3652, 0 / return area ISZ D0071 / @@3653=2071 CLA CLL / AC = 0000 @@3654=7300 TAD L0100 / @@3655=1100 JMS I C0145 / long call to S0600 @@3656=4545 JMS I C0165 / long call to S0311 @@3657=4565 NOP / @@3660=7000 JMP I S3652 / return @@3661=5652 L3662, JMS I C0155 / long call to S1006 @@3662=4555 JMS I C0155 / long call to S1006 @@3663=4555 JMS I C0157 / long call to S0736 @@3664=4557 PCF / Clear punch flag and punch buffer. @@3665=6022 JMS I C0155 / long call to S1006 @@3666=4555 L3667, JMS I C0155 / long call to S1006 @@3667=4555 JMS I C0157 / long call to S0736 @@3670=4557 C3671, 6033 / 6033 JMS I C0155 / long call to S1006 @@3672=4555 L3673, JMS I C0137 / long call to S1200 @@3673=4537 JMS I C0136 / long call to S1564 @@3674=4536 JMP L3712 / @@3675=5312 TAD D0031 / @@3676=1031 JMS I C0154 / long call to S1000 @@3677=4554 TAD C3710 / @@3700=1310 JMS I C0154 / long call to S1000 @@3701=4554 L3702, TAD D0031 / @@3702=1031 JMS I C0154 / long call to S1000 @@3703=4554 TAD D0116 / @@3704=1116 JMS I C0151 / long call to S0715 @@3705=4551 JMS I C0155 / long call to S1006 @@3706=4555 JMP L3673 / @@3707=5273 C3710, 0275 / AND C3675 C3711, C3711, 4000 / JMS L0000 L3712, JMS I C0165 / long call to S0311 @@3712=4565 JMP L3667 / @@3713=5267 JMP I C3711 / long jump to L4000 @@3714=5711 *4000 L4000, JMS I C0155 / long call to S1006 @@4000=4555 C4001, 4557 / JMS I C0157 JMP I C4005 / long jump to L3047 @@4002=5605 L4003, JMS I C0155 / long call to S1006 @@4003=4555 TAD C0042 / @@4004=1042 C4005, C4005, 3047 / DCA D0047 DCA D0051 / @@4006=3051 TAD L0036 / @@4007=1036 DCA D0046 / @@4010=3046 L4011, JMS I C0137 / long call to S1200 @@4011=4537 JMS I C0135 / long call to S1600 @@4012=4535 JMP L4024 / @@4013=5224 JMS I C0136 / long call to S1564 @@4014=4536 JMP L4062 / @@4015=5262 TAD D0116 / @@4016=1116 DCA I D0046 / @@4017=3446 ISZ D0046 / @@4020=2046 ISZ D0051 / @@4021=2051 ISZ D0047 / @@4022=2047 JMP L4011 / @@4023=5211 L4024, TAD D0051 / @@4024=1051 C4025, 7041 / CIA DCA D0047 / @@4026=3047 TAD L0036 / @@4027=1036 DCA D0046 / @@4030=3046 JMS I C0155 / long call to S1006 @@4031=4555 L4032, TAD I D0046 / @@4032=1446 ISZ D0046 / @@4033=2046 JMS I C0154 / long call to S1000 @@4034=4554 JMS I C0174 / long call to S1137 @@4035=4574 JMP L4045 / @@4036=5245 JMS I C0171 / long call to S3326 @@4037=4571 C4040, 3116 / DCA D0116 JMS I C0134 / long call to S1606 @@4041=4534 JMP L4003 / @@4042=5203 JMS I C0136 / long call to S1564 @@4043=4536 JMP L4062 / @@4044=5262 L4045, ISZ D0047 / @@4045=2047 JMP L4032 / @@4046=5232 L4047, JMS I C0155 / long call to S1006 @@4047=4555 JMS I C0137 / long call to S1200 @@4050=4537 JMS I C0134 / long call to S1606 @@4051=4534 JMP L4003 / @@4052=5203 JMS I C0135 / long call to S1600 @@4053=4535 JMP L4024 / @@4054=5224 JMS I C0136 / long call to S1564 @@4055=4536 JMP L4062 / @@4056=5262 C4057, 1265 / TAD C4065 JMS I C0154 / long call to S1000 @@4060=4554 JMP L4047 / @@4061=5247 L4062, JMS I C0165 / long call to S0311 @@4062=4565 JMP L4000 / @@4063=5200 JMP L4066 / @@4064=5266 C4065, 0277 / AND C4077 L4066, JMS I C0155 / long call to S1006 @@4066=4555 JMS I C0157 / long call to S0736 @@4067=4557 DXL / Clear and load X coordinate buffer. @@4070=6053 JMS I C0155 / long call to S1006 @@4071=4555 DCA D0055 / @@4072=3055 JMS I C0137 / long call to S1200 @@4073=4537 JMS I C0136 / long call to S1564 @@4074=4536 JMP L4131 / @@4075=5331 TAD D0116 / @@4076=1116 DCA D0054 / @@4077=3054 L4100, JMS I C0137 / long call to S1200 @@4100=4537 TAD D0116 / @@4101=1116 DCA D4105 / @@4102=3305 JMS I C0147 / long call to S1052 @@4103=4547 AND D0054 / @@4104=0054 D4105, 0000 / AND L0000 NOP / @@4106=7000 JMP L4112 / @@4107=5312 JMS I C0155 / long call to S1006 @@4110=4555 JMP L4100 / @@4111=5300 L4112, TAD D4105 / @@4112=1305 DCA D0055 / @@4113=3055 TAD D0054 / @@4114=1054 DCA L0056 / @@4115=3056 JMS I C0155 / long call to S1006 @@4116=4555 JMS I C0157 / long call to S0736 @@4117=4557 C4120, 6156 / 6156 TAD D0054 / @@4121=1054 JMS I C0154 / long call to S1000 @@4122=4554 JMS I C0157 / long call to S0736 @@4123=4557 MTLS / Clear the teleprinter flag and load @@4124=6126 TAD D0055 / @@4125=1055 JMS I C0154 / long call to S1000 @@4126=4554 JMS I C0155 / long call to S1006 @@4127=4555 JMP L4136 / @@4130=5336 L4131, JMS I C0165 / long call to S0311 @@4131=4565 JMP L4066 / @@4132=5266 JMS I C0150 / long call to S0302 @@4133=4550 JMP I C0161 / long jump to L0253 @@4134=5561 JMP I C4177 / long jump to L0257 @@4135=5777 L4136, JMS I C0137 / long call to S1200 @@4136=4537 JMS I C0136 / long call to S1564 @@4137=4536 JMP L4131 / @@4140=5331 TAD D0116 / @@4141=1116 CIA / @@4142=7041 DCA D0054 / @@4143=3054 TAD L0056 / @@4144=1056 TAD D0054 / @@4145=1054 SNA CLA / @@4146=7650 JMP L4136 / @@4147=5336 TAD D0055 / @@4150=1055 TAD D0054 / @@4151=1054 SNA CLA / @@4152=7650 JMP L4136 / @@4153=5336 JMS I C0155 / long call to S1006 @@4154=4555 JMS I C0157 / long call to S0736 @@4155=4557 DSB / Set medium brightness @@4156=6076 TAD L0056 / @@4157=1056 JMS I C0154 / long call to S1000 @@4160=4554 JMS I C0157 / long call to S0736 @@4161=4557 MTLS / Clear the teleprinter flag and load @@4162=6126 TAD D0055 / @@4163=1055 JMS I C0154 / long call to S1000 @@4164=4554 JMS I C0155 / long call to S1006 @@4165=4555 ISZ D0071 / @@4166=2071 JMS I C0157 / long call to S0736 @@4167=4557 C4170, 6131 / 6131 TAD D0054 / @@4171=1054 CIA / @@4172=7041 JMS I C0151 / long call to S0715 @@4173=4551 JMS I C0155 / long call to S1006 @@4174=4555 JMS I C0155 / long call to S1006 @@4175=4555 JMP L4131 / @@4176=5331 C4177, C4177, 0257 / AND C4057 TAD C4377 / @@4200=1377 DCA D0105 / @@4201=3105 TAD D0066 / @@4202=1066 D4203, 6117 / MTON JMS I C0155 / long call to S1006 @@4204=4555 D4205, 4557 / JMS I C0157 C4206, 4262 / JMS C4262 JMS I C0155 / long call to S1006 @@4207=4555 L4210, HLT / @@4210=7402 L4211, D4211, 7604 / LAS AND C4376 / @@4212=0376 DCA D0050 / @@4213=3050 TAD D0050 / @@4214=1050 SNA CLA / @@4215=7650 D4216, 5210 / JMP L4210 TAD C4375 / @@4217=1375 CMA / @@4220=7040 TAD D0050 / @@4221=1050 SPA CLA / @@4222=7710 JMP L4226 / @@4223=5226 TAD C4375 / @@4224=1375 DCA D0050 / @@4225=3050 L4226, TAD D0050 / @@4226=1050 CIA / @@4227=7041 DCA D0047 / @@4230=3047 L4231, TAD C0033 / @@4231=1033 JMS I C0154 / long call to S1000 @@4232=4554 ISZ D0047 / @@4233=2047 JMP L4231 / @@4234=5231 CLA / @@4235=7200 TAD C4374 / @@4236=1374 JMS I C0154 / long call to S1000 @@4237=4554 LAS / @@4240=7604 AND C4373 / @@4241=0373 SNA / @@4242=7450 JMP L4256 / @@4243=5256 CLL RAL / @@4244=7104 RTL / @@4245=7006 RTL / @@4246=7006 CIA / @@4247=7041 DCA D0105 / @@4250=3105 L4251, CLA / @@4251=7200 TAD C4372 / @@4252=1372 JMS I C0154 / long call to S1000 @@4253=4554 ISZ D0105 / @@4254=2105 JMP L4251 / @@4255=5251 L4256, CLA / @@4256=7200 TAD C4371 / @@4257=1371 JMS I C0154 / long call to S1000 @@4260=4554 JMP L4211 / @@4261=5211 TAD I L0001 / @@4262=1401 C4263, 6360 / 6360 C4264, 4023 / JMS L0023 C4265, 0522 / AND I C0122 TAD D0101 / @@4266=1101 TAD I D0040 / @@4267=1440 C4270, 1411 / TAD I AI1 TAD I D4205 / @@4271=1605 JMS D0003 / @@4272=4003 C4273, 0122 / AND C0122 ISZ L4211 / @@4274=2211 AND C0107 / @@4275=0107 AND I D0140 / @@4276=0540 ISZ D4205 / @@4277=2205 ISZ I D0025 / @@4300=2425 ISZ D4216 / @@4301=2216 C4302, 4005 / JMS C0005 C4303, 3005 / DCA C0005 ISZ D4203 / @@4304=2203 C4305, 1123 / TAD C0123 AND I L0100 / @@4306=0500 *4371 C4371, 0215 / AND C4215 C4372, 0377 / AND C4377 C4373, 7400 / C4374, 0212 / AND C4212 C4375, 0120 / AND C0120 C4376, 0177 / AND C0177 C4377, 7767 / CLA MQA SCA MQL DVI + *5000 D5000, 2423 / ISZ I L0023 C5001, 0640 / AND I D5040 AND I C5001 / @@5002=0601 TAD D0114 / @@5003=1114 D5004, 2522 / ISZ I C0122 AND I D0140 / @@5005=0540 TAD I C5122 / @@5006=1722 C5007, 4006 / JMS C0006 TAD I L0001 / @@5010=1401 D5011, 0740 / AND I C5140 TAD I D5017 / @@5012=1617 ISZ I D0040 / @@5013=2440 C5014, 7540 / SMA SZA C5015, 6100 / 6100 ISZ I D0003 / @@5016=2403 D5017, 0640 / AND I D5040 AND I C5001 / @@5020=0601 TAD D0114 / @@5021=1114 C5022, 2522 / ISZ I C0122 AND I D0140 / @@5023=0540 C5024, 1722 / TAD I C5122 D5025, 4006 / JMS C0006 TAD I L0001 / @@5026=1401 AND I C5140 / @@5027=0740 ISZ I C5117 / @@5030=2717 TAD I C5047 / @@5031=1647 ISZ I D0040 / @@5032=2440 AND C5114 / @@5033=0314 AND I D0101 / @@5034=0501 ISZ D5000 / @@5035=2200 ISZ D0022 / @@5036=2022 TAD D0116 / @@5037=1116 D5040, 2440 / ISZ I D0040 AND I C5014 / @@5041=0614 AND C0107 / @@5042=0107 C5043, 4027 / JMS C0027 TAD I C5116 / @@5044=1716 JMS I D5124 / long call to S1323 @@5045=4724 C5046, 4023 / JMS L0023 C5047, 0524 / AND I C0124 C5050, 4027 / JMS C0027 C5051, 1124 / TAD C0124 TAD D0040 / @@5052=1040 C5053, 4223 / JMS C5023 C5054, 2006 / ISZ C0006 C5055, 4200 / JMS D5000 ISZ D5120 / @@5056=2320 TAD D0140 / @@5057=1140 AND I C5001 / @@5060=0601 TAD D0114 / @@5061=1114 C5062, 2522 / ISZ I C0122 AND I D0140 / @@5063=0540 JMP L0023 / @@5064=5023 TAD D5111 / @@5065=1311 ISZ D0040 / @@5066=2040 TAD I C5116 / @@5067=1716 C5070, 4001 / JMS L0001 C5071, 4020 / JMS L0020 ISZ D5011 / @@5072=2211 TAD I C5024 / @@5073=1624 C5074, 0522 / AND I C0122 C5075, 4017 / JMS AI7 ISZ D5040 / @@5076=2240 TAD C5105 / @@5077=1305 D5100, 3102 / DCA D0102 C5101, 1701 / TAD I C5101 ISZ D5004 / @@5102=2204 C5103, 4011 / JMS AI1 TAD I C5024 / @@5104=1624 C5105, 0522 / AND I C0122 ISZ D5025 / @@5106=2225 ISZ D0024 / @@5107=2024 JMP L0100 / @@5110=5100 D5111, 1303 / TAD C5103 AND C5140 / @@5112=0340 AND I C5001 / @@5113=0601 C5114, 1114 / TAD D0114 C5115, 2522 / ISZ I C0122 C5116, 0555 / AND I C0155 C5117, 5501 / JMP I D0101 D5120, 0340 / AND C5140 TAD I D5017 / @@5121=1617 C5122, 2440 / ISZ I D0040 C5123, 6000 / 6000 D5124, 1323 / TAD C5123 AND I D5040 / @@5125=0640 AND I C5001 / @@5126=0601 TAD D0114 / @@5127=1114 C5130, 2522 / ISZ I C0122 AND I D0140 / @@5131=0540 TAD I C5122 / @@5132=1722 C5133, 4006 / JMS C0006 TAD I L0001 / @@5134=1401 AND I C5140 / @@5135=0740 ISZ I C5117 / @@5136=2717 TAD I C5047 / @@5137=1647 C5140, 2440 / ISZ I D0040 AND C5114 / @@5141=0314 AND I D0101 / @@5142=0501 ISZ D5000 / @@5143=2200 TAD I D5017 / @@5144=1617 C5145, 4011 / JMS AI1 TAD I C5024 / @@5146=1624 C5147, 0522 / AND I C0122 ISZ D5025 / @@5150=2225 ISZ D0024 / @@5151=2024 C5152, 4017 / JMS AI7 AND C5103 / @@5153=0303 C5154, 2522 / ISZ I C0122 AND I D0104 / @@5155=0504 JMP I C0155 / long jump to L1006 @@5156=5555 C5157, 0522 / AND I C0122 ISZ D5017 / @@5160=2217 ISZ D5000 / @@5161=2200 AND C5001 / @@5162=0201 ISZ D5111 / @@5163=2311 AND C5140 / @@5164=0340 TAD D0116 / @@5165=1116 ISZ D0025 / @@5166=2025 ISZ I D0040 / @@5167=2440 C5170, 1117 / TAD C0117 ISZ I D0040 / @@5171=2440 C5172, 2405 / ISZ I C0005 ISZ D5124 / @@5173=2324 ISZ D5100 / @@5174=2300 AND C5001 / @@5175=0201 ISZ D5111 / @@5176=2311 AND C5140 / @@5177=0340 TAD I C5325 / @@5200=1725 D5201, 2420 / ISZ I L0020 C5202, 2524 / ISZ I C0124 C5203, 4011 / JMS AI1 TAD I D5324 / @@5204=1724 D5205, 4024 / JMS D0024 C5206, 0523 / AND I C0123 ISZ I L0023 / @@5207=2423 AND L0000 / @@5210=0000 D5211, 1501 / TAD I D0101 C5212, 3011 / DCA AI1 C5213, 1525 / TAD I C0125 TAD I D0140 / @@5214=1540 AND C5317 / @@5215=0317 TAD I D0025 / @@5216=1425 TAD I D0116 / @@5217=1516 ISZ D5340 / @@5220=2340 ISZ D0022 / @@5221=2022 TAD D0116 / @@5222=1116 C5223, 2405 / ISZ I C0005 C5224, 0440 / AND I D0040 TAD D0116 / @@5225=1116 C5226, 4014 / JMS AI4 TAD D0116 / @@5227=1116 AND I D0140 / @@5230=0540 SMA SZA / @@5231=7540 CMA CML / @@5232=7060 AND L0000 / @@5233=0000 AND C5310 / @@5234=0310 C5235, 0122 / AND C0122 AND D0103 / @@5236=0103 C5237, 2405 / ISZ I C0005 D5240, 2240 / ISZ D5240 ISZ D0022 / @@5241=2022 TAD D0116 / @@5242=1116 ISZ I D0040 / @@5243=2440 ISZ D5201 / @@5244=2201 C5245, 2405 / ISZ I C0005 C5246, 4024 / JMS D0024 C5247, 0523 / AND I C0123 ISZ I D0040 / @@5250=2440 AND L0000 / @@5251=0000 TAD I L0001 / @@5252=1401 C5253, 6360 / 6360 C5254, 4024 / JMS D0024 TAD C0115 / @@5255=1115 D5256, 1116 / TAD D0116 AND I D5340 / @@5257=0740 C5260, 2405 / ISZ I C0005 ISZ D5324 / @@5261=2324 ISZ D5355 / @@5262=2355 C5263, 5520 / JMP I C0120 ISZ D5211 / @@5264=2211 TAD I C5224 / @@5265=1624 C5266, 4022 / JMS D0022 C5267, 0124 / AND C0124 AND I C0154 / @@5270=0554 JMS D0003 / @@5271=4003 C5272, 0122 / AND C0122 ISZ D5256 / @@5273=2256 ISZ D5205 / @@5274=2205 ISZ I L0056 / @@5275=2456 JMP I D0040 / long jump to L7774 @@5276=5440 JMS I D5240 / long call to S2240 @@5277=4640 C5300, 1406 / TAD I C0006 AND L0000 / @@5301=0000 C5302, 1411 / TAD I AI1 TAD I D5205 / @@5303=1605 C5304, 4006 / JMS C0006 D5305, 0505 / AND I D0105 AND I D0040 / @@5306=0440 ISZ D5201 / @@5307=2201 C5310, 2405 / ISZ I C0005 C5311, 4024 / JMS D0024 C5312, 0523 / AND I C0123 ISZ I D0040 / @@5313=2440 AND L0000 / @@5314=0000 C5315, 4014 / JMS AI4 TAD D0116 / @@5316=1116 C5317, 0540 / AND I D0140 AND I D5205 / @@5320=0605 AND I D0104 / @@5321=0504 ISZ D5357 / @@5322=2357 ISZ D5305 / @@5323=2305 D5324, 0317 / AND C5317 C5325, 1604 / TAD I C5204 AND L0000 / @@5326=0000 C5327, 1411 / TAD I AI1 TAD I D5205 / @@5330=1605 C5331, 4006 / JMS C0006 AND I D0105 / @@5332=0505 AND I D0040 / @@5333=0440 ISZ D5201 / @@5334=2201 C5335, 2405 / ISZ I C0005 JMS D0075 / @@5336=4075 L5337, JMS L0000 / @@5337=4000 D5340, 1401 / TAD I L0001 C5341, 6360 / 6360 C5342, 4020 / JMS L0020 ISZ D5211 / @@5343=2211 TAD I C5224 / @@5344=1624 C5345, 4022 / JMS D0022 C5346, 0124 / AND C0124 AND I C0155 / @@5347=0555 JMP I C0155 / long jump to L1006 @@5350=5555 C5351, 2411 / ISZ I AI1 TAD I D0105 / @@5352=1505 JMS D0002 / @@5353=4002 C5354, 0524 / AND I C0124 D5355, 2705 / ISZ I D5305 C5356, 0516 / AND I D0116 D5357, 4003 / JMS D0003 TAD L0001 / @@5360=1001 ISZ D5256 / @@5361=2256 C5362, 4011 / JMS AI1 TAD I D5240 / @@5363=1640 TAD I L0111 / @@5364=1511 C5365, 1414 / TAD I AI4 TAD C0155 / @@5366=1155 ISZ D5305 / @@5367=2305 AND C5356 / @@5370=0356 JMS D0075 / @@5371=4075 JMS L0000 / @@5372=4000 AND D0116 / @@5373=0116 C5374, 4025 / JMS D0025 TAD I D5205 / @@5375=1605 DCA L0020 / @@5376=3020 AND I D0103 / @@5377=0503 C5400, C5400, 2405 / ISZ I C0005 AND I D0040 / @@5401=0440 TAD D0116 / @@5402=1116 C5403, 2405 / ISZ I C0005 ISZ D5422 / @@5404=2222 D5405, 2520 / ISZ I C0120 ISZ I D0040 / @@5406=2440 TAD I C5503 / @@5407=1703 AND C5525 / @@5410=0325 ISZ D5405 / @@5411=2205 AND I D0055 / @@5412=0455 C5413, 5517 / JMP I C0117 C5414, 2410 / ISZ I AI0 C5415, 0522 / AND I C0122 C5416, 4024 / JMS D0024 TAD L0001 / @@5417=1001 TAD I D5440 / @@5420=1640 C5421, 2410 / ISZ I AI0 D5422, 0540 / AND I D0140 C5423, 1401 / TAD I L0001 D5424, 6360 / 6360 AND L0000 / @@5425=0000 AND D0116 / @@5426=0116 C5427, 4025 / JMS D0025 TAD I C5427 / @@5430=1627 C5431, 0116 / AND D0116 C5432, 2405 / ISZ I C0005 AND I D0040 / @@5433=0440 TAD D0116 / @@5434=1116 C5435, 2405 / ISZ I C0005 ISZ D5422 / @@5436=2222 C5437, 2520 / ISZ I C0120 D5440, 2440 / ISZ I D0040 TAD I C5503 / @@5441=1703 AND C5525 / @@5442=0325 ISZ D5405 / @@5443=2205 AND I L0000 / @@5444=0400 C5445, 4015 / JMS AI5 TAD D0114 / @@5446=1114 C5447, 1411 / TAD I AI1 C5450, 5523 / JMP I C0123 AND I D0103 / @@5451=0503 JMP I C5400 / long jump to L2405 @@5452=5600 AND D5501 / @@5453=0301 ISZ D5422 / @@5454=2222 D5455, 1101 / TAD D0101 AND I C5505 / @@5456=0705 C5457, 4022 / JMS D0022 C5460, 0524 / AND I C0124 C5461, 2522 / ISZ I C0122 TAD I D5440 / @@5462=1640 C5463, 2405 / ISZ I C0005 ISZ D5524 / @@5464=2324 AND L0000 / @@5465=0000 CMA CML / @@5466=7060 JMS D0003 / @@5467=4003 TAD I C5514 / @@5470=1714 ISZ I C0115 / @@5471=2515 TAD I D5440 / @@5472=1640 C5473, 1411 / TAD I AI1 TAD I D5405 / @@5474=1605 C5475, 4024 / JMS D0024 C5476, 0523 / AND I C0123 ISZ I L0000 / @@5477=2400 C5500, 1405 / TAD I C0005 D5501, 2323 / ISZ C5523 C5502, 4024 / JMS D0024 C5503, 1001 / TAD L0001 TAD I D5440 / @@5504=1640 C5505, 7060 / CMA CML JMS D0003 / @@5506=4003 TAD I C5514 / @@5507=1714 C5510, 2515 / ISZ I C0115 TAD I C5423 / @@5511=1623 JMP I C0155 / long jump to L1006 @@5512=5555 AND C5431 / @@5513=0231 C5514, 4040 / JMS D0040 AND L0000 / @@5515=0000 C5516, 1517 / TAD I C0117 ISZ D5405 / @@5517=2205 C5520, 4024 / JMS D0024 TAD L0001 / @@5521=1001 TAD I D5440 / @@5522=1640 CMA CML / @@5523=7060 D5524, 4003 / JMS D0003 C5525, 1714 / TAD I C5514 ISZ I C0115 / @@5526=2515 TAD I C5423 / @@5527=1623 JMP I C0155 / long jump to L1006 @@5530=5555 AND C5431 / @@5531=0231 C5532, 4040 / JMS D0040 AND L0000 / @@5533=0000 JMS D0003 / @@5534=4003 TAD I C5514 / @@5535=1714 ISZ I C0115 / @@5536=2515 TAD I C5423 / @@5537=1623 AND L0000 / @@5540=0000 C5541, 1411 / TAD I AI1 TAD I D5405 / @@5542=1605 C5543, 4006 / JMS C0006 AND I D0105 / @@5544=0505 AND I D0040 / @@5545=0440 C5546, 2125 / ISZ C0125 AND D0114 / @@5547=0114 C5550, 1124 / TAD C0124 DCA D0140 / @@5551=3140 C5552, 2405 / ISZ I C0005 ISZ D5524 / @@5553=2324 JMS D0050 / @@5554=4050 ISZ L0001 / @@5555=2001 ISZ D5424 / @@5556=2224 JMS D0061 / @@5557=4061 JMP L0100 / @@5560=5100 AND C5510 / @@5561=0310 C5562, 0122 / AND C0122 AND D0103 / @@5563=0103 C5564, 2405 / ISZ I C0005 ISZ D5440 / @@5565=2240 ISZ D0022 / @@5566=2022 TAD D0116 / @@5567=1116 ISZ I D0040 / @@5570=2440 C5571, 2405 / ISZ I C0005 ISZ D5524 / @@5572=2324 AND L0000 / @@5573=0000 C5574, 4217 / JMS C5417 ISZ I D5405 / @@5575=2605 ISZ D5455 / @@5576=2255 ISZ D0022 / @@5577=2022 TAD D0116 / @@5600=1116 D5601, 2442 / ISZ I C0042 C5602, 4024 / JMS D0024 C5603, 0523 / AND I C0123 ISZ I L0000 / @@5604=2400 C5605, 1411 / TAD I AI1 TAD I C5605 / @@5606=1605 C5607, 4005 / JMS C0005 AND C5710 / @@5610=0310 TAD I D5740 / @@5611=1740 C5612, 2405 / ISZ I C0005 ISZ D5724 / @@5613=2324 JMS D0050 / @@5614=4050 ISZ I D0031 / @@5615=2431 C5616, 2005 / ISZ C0005 C5617, 4025 / JMS D0025 ISZ D0040 / @@5620=2040 C5621, 2417 / ISZ I AI7 D5622, 4070 / JMS D0070 D5623, 6040 / 6040 AND C5710 / @@5624=0310 C5625, 0122 / AND C0122 AND D0103 / @@5626=0103 C5627, 2405 / ISZ I C0005 ISZ D5623 / @@5630=2223 JMP L0100 / @@5631=5100 ISZ D0022 / @@5632=2022 TAD D0116 / @@5633=1116 C5634, 2405 / ISZ I C0005 ISZ D5640 / @@5635=2240 C5636, 1005 / TAD C0005 AND D0104 / @@5637=0104 D5640, 4042 / JMS C0042 ISZ D5724 / @@5641=2324 D5642, 0520 / AND I C0120 C5643, 5517 / JMP I C0117 ISZ I C5605 / @@5644=2605 ISZ D5642 / @@5645=2242 C5646, 4024 / JMS D0024 C5647, 0523 / AND I C0123 ISZ I L0000 / @@5650=2400 ISZ D5727 / @@5651=2327 C5652, 1122 / TAD C0122 TAD I D0040 / @@5653=1440 ISZ D0022 / @@5654=2022 C5655, 1116 / TAD D0116 ISZ I D0040 / @@5656=2440 ISZ L0001 / @@5657=2001 ISZ I D0024 / @@5660=2424 C5661, 0522 / AND I C0122 TAD I D5640 / @@5662=1640 C5663, 2405 / ISZ I C0005 ISZ D5724 / @@5664=2324 AND L0000 / @@5665=0000 ISZ D5720 / @@5666=2320 AND D0103 / @@5667=0103 AND I D0140 / @@5670=0540 C5671, 2405 / ISZ I C0005 ISZ D5724 / @@5672=2324 AND L0000 / @@5673=0000 TAD I C5617 / @@5674=1617 TAD I C5655 / @@5675=1655 ISZ D0022 / @@5676=2022 TAD D0116 / @@5677=1116 C5700, 2411 / ISZ I AI1 C5701, 1607 / TAD I C5607 JMS D0003 / @@5702=4003 TAD L0001 / @@5703=1001 ISZ D5601 / @@5704=2201 C5705, 0324 / AND D5724 C5706, 0522 / AND I C0122 C5707, 4024 / JMS D0024 C5710, 0523 / AND I C0123 ISZ I L0000 / @@5711=2400 C5712, 0417 / AND I AI7 TAD I C5605 / @@5713=1605 AND L0000 / @@5714=0000 AND C5701 / @@5715=0301 ISZ D5622 / @@5716=2222 TAD D0101 / @@5717=1101 D5720, 0705 / AND I C5705 C5721, 4022 / JMS D0022 C5722, 0524 / AND I C0124 C5723, 2522 / ISZ I C0122 D5724, 1640 / TAD I D5640 C5725, 2411 / ISZ I AI1 TAD I D0105 / @@5726=1505 D5727, 4024 / JMS D0024 C5730, 0523 / AND I C0123 ISZ I D0040 / @@5731=2440 AND L0000 / @@5732=0000 C5733, 0126 / AND C0126 C5734, 0522 / AND I C0122 AND C0107 / @@5735=0107 AND I D0140 / @@5736=0540 AND C5701 / @@5737=0301 D5740, 2222 / ISZ D5622 TAD D0101 / @@5741=1101 AND I C5705 / @@5742=0705 C5743, 4022 / JMS D0022 C5744, 0524 / AND I C0124 C5745, 2522 / ISZ I C0122 TAD I D5640 / @@5746=1640 C5747, 2411 / ISZ I AI1 TAD I D0105 / @@5750=1505 C5751, 4011 / JMS AI1 ISZ D5740 / @@5752=2340 AND L0000 / @@5753=0000 JMS L0000 / @@5754=4000 TAD I D0101 / @@5755=1501 C5756, 3011 / DCA AI1 C5757, 1525 / TAD I C0125 TAD I D0140 / @@5760=1540 AND C5701 / @@5761=0301 ISZ D5622 / @@5762=2222 TAD D0101 / @@5763=1101 AND I C5705 / @@5764=0705 C5765, 4022 / JMS D0022 C5766, 0524 / AND I C0124 C5767, 2522 / ISZ I C0122 TAD I D5640 / @@5770=1640 C5771, 2411 / ISZ I AI1 TAD I D0105 / @@5772=1505 C5773, 4011 / JMS AI1 ISZ D5740 / @@5774=2340 AND L0000 / @@5775=0000 TAD I L0001 / @@5776=1401 C5777, 6360 / 6360 JMS D0050 / @@6000=4050 D6001, 0405 / AND I C0005 AND C6127 / @@6002=0327 D6003, 2211 / ISZ D6011 C6004, 2405 / ISZ I C0005 D6005, 2251 / ISZ D6051 JMS D0003 / @@6006=4003 TAD I C6116 / @@6007=1716 ISZ I D0022 / @@6010=2422 D6011, 1714 / TAD I C6114 JMP I C6105 / long jump to L1726 @@6012=5705 C6013, 3005 / DCA C0005 ISZ D6003 / @@6014=2203 C6015, 1123 / TAD C0123 C6016, 0522 / AND I C0122 D6017, 4024 / JMS D0024 C6020, 0523 / AND I C0123 ISZ I L0000 / @@6021=2400 TAD I C6120 / @@6022=1720 D6023, 0522 / AND I C0122 C6024, 0124 / AND C0124 TAD I C6122 / @@6025=1722 ISZ D6147 / @@6026=2347 C6027, 4024 / JMS D0024 C6030, 0523 / AND I C0123 ISZ I L0023 / @@6031=2423 AND L0000 / @@6032=0000 AND C6110 / @@6033=0310 C6034, 0122 / AND C0122 AND D0103 / @@6035=0103 C6036, 2405 / ISZ I C0005 ISZ D6040 / @@6037=2240 D6040, 0503 / AND I D0103 C6041, 1017 / TAD AI7 C6042, 4024 / JMS D0024 C6043, 0523 / AND I C0123 ISZ I D0055 / @@6044=2455 C6045, 5517 / JMP I C0117 C6046, 2005 / ISZ C0005 ISZ D6001 / @@6047=2201 C6050, 2417 / ISZ I AI7 D6051, 2223 / ISZ D6023 C6052, 4700 / JMS I C6100 AND C6110 / @@6053=0310 C6054, 0122 / AND C0122 D6055, 0103 / AND D0103 C6056, 2405 / ISZ I C0005 ISZ D6040 / @@6057=2240 ISZ D6017 / @@6060=2217 C6061, 1414 / TAD I AI4 C6062, 5517 / JMP I C0117 ISZ I D6005 / @@6063=2605 ISZ D6040 / @@6064=2240 C6065, 2405 / ISZ I C0005 ISZ D6124 / @@6066=2324 JMP I C0155 / long jump to L1006 @@6067=5555 TAD I C6120 / @@6070=1720 C6071, 0522 / AND I C0122 C6072, 0124 / AND C0124 TAD I C6122 / @@6073=1722 ISZ D6147 / @@6074=2347 AND L0000 / @@6075=0000 C6076, 0522 / AND I C0122 ISZ D6017 / @@6077=2217 ISZ D6040 / @@6100=2240 TAD I C6116 / @@6101=1716 C6102, 4022 / JMS D0022 TAD I C6114 / @@6103=1714 TAD I D0055 / @@6104=1455 C6105, C6105, 1726 / TAD I C6126 C6106, 0522 / AND I C0122 C6107, 4024 / JMS D0024 C6110, 0523 / AND I C0123 ISZ I D0054 / @@6111=2454 C6112, 4007 / JMS C0007 TAD I C6117 / @@6113=1717 C6114, 0440 / AND I D0040 AND C6110 / @@6115=0310 C6116, 0122 / AND C0122 C6117, 0103 / AND D0103 C6120, 2405 / ISZ I C0005 ISZ D6023 / @@6121=2223 C6122, 4001 / JMS L0001 ISZ D6005 / @@6123=2205 D6124, 4040 / JMS D0040 AND L0000 / @@6125=0000 C6126, 4001 / JMS L0001 C6127, 1604 / TAD I C6004 JMS L0000 / @@6130=4000 JMP I C0155 / long jump to L1006 @@6131=5555 C6132, 2410 / ISZ I AI0 AND I D0140 / @@6133=0540 C6134, 0522 / AND I C0122 ISZ D6017 / @@6135=2217 ISZ D6040 / @@6136=2240 AND C6110 / @@6137=0310 C6140, 0122 / AND C0122 AND D0103 / @@6141=0103 C6142, 2405 / ISZ I C0005 ISZ D6040 / @@6143=2240 C6144, 1123 / TAD C0123 C6145, 4017 / JMS AI7 AND D6124 / @@6146=0324 D6147, 0114 / AND D0114 C6150, 4016 / JMS AI6 ISZ I C0115 / @@6151=2515 AND D6005 / @@6152=0205 ISZ D6055 / @@6153=2255 JMP I D0140 / long jump to L3114 @@6154=5540 AND L0000 / @@6155=0000 ISZ D6017 / @@6156=2217 C6157, 1414 / TAD I AI4 C6160, 4001 / JMS L0001 TAD I C6004 / @@6161=1604 C6162, 4010 / JMS AI0 TAD I C6114 / @@6163=1714 AND I D0040 / @@6164=0440 AND D6005 / @@6165=0205 ISZ I C0027 / @@6166=2427 AND I D0105 / @@6167=0505 TAD I D6040 / @@6170=1640 C6171, 2410 / ISZ I AI0 AND I D0140 / @@6172=0540 ISZ I C0027 / @@6173=2427 TAD I C6140 / @@6174=1740 AND C6110 / @@6175=0310 C6176, 0122 / AND C0122 AND D0103 / @@6177=0103 C6200, 2405 / ISZ I C0005 ISZ D6223 / @@6201=2223 JMS D0055 / @@6202=4055 JMP I D0140 / long jump to L3114 @@6203=5540 AND L0000 / @@6204=0000 D6205, 2410 / ISZ I AI0 AND I D0140 / @@6206=0540 C6207, 2405 / ISZ I C0005 C6210, 1640 / TAD I C6240 D6211, 1505 / TAD I D0105 C6212, 0123 / AND C0123 C6213, 2522 / ISZ I C0122 AND I D0104 / @@6214=0504 JMS D0003 / @@6215=4003 C6216, 0122 / AND C0122 ISZ D6211 / @@6217=2211 AND C0107 / @@6220=0107 AND I D0140 / @@6221=0540 ISZ D6205 / @@6222=2205 D6223, 2456 / ISZ I L0056 C6224, 4024 / JMS D0024 TAD C0115 / @@6225=1115 C6226, 0523 / AND I C0123 C6227, 4001 / JMS L0001 ISZ D6205 / @@6230=2205 CLA / @@6231=7200 $