TITLE "AUTOMATIC DISASSEMBLY OF decus-8-261.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-8-261.bin / Generated 2010 02 19 00:10:21 / 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 / / 2521 locations used, 1565 code and 0734 data //////////////////////////////////////////////////////////////////////////////// *0010 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 0000 / AUTO-INDEX REGISTER AND L0000 AI2, 0000 / AUTO-INDEX REGISTER AND L0000 AI3, 0000 / AUTO-INDEX REGISTER AND L0000 AI4, 0000 / AUTO-INDEX REGISTER AND L0000 AI5, 0000 / AUTO-INDEX REGISTER AND L0000 AI6, 0000 / AUTO-INDEX REGISTER AND L0000 AI7, 0000 / AUTO-INDEX REGISTER AND L0000 C0020, 7777 / CLA MQA SCA MQL LSR + C0021, 7775 / CLA MQA SCA MQL ASR + D0022, 7774 / SPA SNA SZL CLA OSR C0023, 7773 / CLA MQA SCA MQL SHL + C0024, 7754 / SPA SNA CLA OSR D0025, 7763 / CLA MQA SCA MQL SCL + C0026, 7664 / SZA SNL CLA OSR C0027, 7700 / SMA CLA C0030, 7520 / SMA SNL C0031, 7563 / MQA SCA MQL SCL + C0032, 0005 / AND C0005 C0033, 0114 / AND C0114 C0034, 0261 / AND D0061 C0035, 0212 / AND AI2 D0036, 0240 / AND D0040 C0037, 0254 / AND D0054 D0040, 0000 / AND L0000 D0041, 0000 / AND L0000 D0042, 0000 / AND L0000 D0043, 0000 / AND L0000 D0044, 0000 / AND L0000 D0045, 0000 / AND L0000 D0046, 0000 / AND L0000 D0047, 0000 / AND L0000 D0050, 0000 / AND L0000 D0051, 0000 / AND L0000 D0052, 0000 / AND L0000 D0053, 0000 / AND L0000 D0054, 0000 / AND L0000 D0055, 0000 / AND L0000 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 C0067, 1327 / TAD C0127 C0070, 1544 / TAD I C0144 C0071, 1427 / TAD I C0027 D0072, 1567 / TAD I C0167 C0073, 2247 / ISZ D0047 D0074, 1254 / TAD D0054 C0075, C0075, 1200 / TAD L0000 D0076, 0471 / AND I C0071 C0077, C0077, 0456 / AND I D0056 C0100, C0100, 1024 / TAD C0024 D0101, 0537 / AND I C0137 C0102, C0102, 0444 / AND I D0044 C0103, C0103, 0414 / AND I AI4 C0104, C0104, 0406 / AND I C0006 D0105, 0400 / AND I L0000 C0106, C0106, 1002 / TAD C0002 C0107, C0107, 1012 / TAD AI2 C0110, C0110, 1014 / TAD AI4 *0175 L0175, JMS I C0075 / long call to S1200 @@0175=4475 DCA D0076 / @@0176=3076 HLT / @@0177=7402 KCC / Clear AC and clear keyboard flag. @@0200=6032 TLS / Load the TTO from the content of AC4 @@0201=6046 JMS I C0075 / long call to S1200 @@0202=4475 ISZ D0317 / @@0203=2317 JMS I D0074 / long call to S1254 @@0204=4474 JMP L0210 / @@0205=5210 JMS I C0075 / long call to S1200 @@0206=4475 C0207, 2367 / ISZ C0367 L0210, JMS I C0075 / long call to S1200 @@0210=4475 C0211, 3131 / DCA C0131 JMS I D0074 / long call to S1254 @@0212=4474 CMA / @@0213=7040 DCA D0045 / @@0214=3045 L0215, TAD C0070 / @@0215=1070 DCA D0055 / @@0216=3055 TAD C0024 / @@0217=1024 DCA D0056 / @@0220=3056 TAD C0027 / @@0221=1027 DCA D0057 / @@0222=3057 TAD C0067 / @@0223=1067 DCA AI0 / AUTO INDEX REGISTER @@0224=3010 L0225, DCA I AI0 / AUTO INDEX REGISTER @@0225=3410 ISZ D0057 / @@0226=2057 JMP L0225 / @@0227=5225 JMS I C0075 / long call to S1200 @@0230=4475 ISZ I C0304 / @@0231=2704 JMS I D0074 / long call to S1254 @@0232=4474 SKP / @@0233=7410 JMP L0303 / @@0234=5303 L0235, JMS I C0075 / long call to S1200 @@0235=4475 ISZ I C0320 / @@0236=2720 JMS I C0103 / long call to S0414 @@0237=4503 DCA D0040 / @@0240=3040 TAD C0037 / @@0241=1037 JMS I C0104 / long call to S0406 @@0242=4504 JMS I C0103 / long call to S0414 @@0243=4503 DCA D0041 / @@0244=3041 TAD C0037 / @@0245=1037 JMS I C0104 / long call to S0406 @@0246=4504 JMS I C0103 / long call to S0414 @@0247=4503 DCA D0042 / @@0250=3042 TAD D0040 / @@0251=1040 JMS I C0102 / long call to S0444 @@0252=4502 JMP L0352 / @@0253=5352 TAD D0041 / @@0254=1041 JMS I C0102 / long call to S0444 @@0255=4502 JMP L0352 / @@0256=5352 TAD D0042 / @@0257=1042 JMS I C0102 / long call to S0444 @@0260=4502 JMP L0352 / @@0261=5352 TAD D0040 / @@0262=1040 TAD C0030 / @@0263=1030 DCA D0040 / @@0264=3040 TAD D0041 / @@0265=1041 TAD C0030 / @@0266=1030 DCA D0041 / @@0267=3041 TAD D0042 / @@0270=1042 TAD C0030 / @@0271=1030 DCA D0042 / @@0272=3042 JMS I C0077 / long call to S0456 @@0273=4477 TAD C0067 / @@0274=1067 DCA D0043 / @@0275=3043 TAD I D0043 / @@0276=1443 SZA CLA / @@0277=7640 JMP L0352 / @@0300=5352 IAC / @@0301=7001 DCA I D0043 / @@0302=3443 L0303, JMS I D0101 / long call to S0537 @@0303=4501 C0304, 1052 / TAD D0052 SZA CLA / @@0305=7640 JMP L0325 / @@0306=5325 L0307, C0307, 1455 / TAD I D0055 DCA D0052 / @@0310=3052 TAD D0052 / @@0311=1052 TAD C0067 / @@0312=1067 DCA D0044 / @@0313=3044 TAD I D0044 / @@0314=1444 SNA CLA / @@0315=7650 JMP L0340 / @@0316=5340 D0317, 2055 / ISZ D0055 C0320, 2056 / ISZ D0056 JMP L0307 / @@0321=5307 JMS I C0075 / long call to S1200 @@0322=4475 ISZ I C0363 / @@0323=2763 JMP I D0105 / long jump to L0400 @@0324=5505 L0325, STA / AC = 7777 (-0001) @@0325=7240 TAD D0054 / @@0326=1054 SNA CLA / @@0327=7650 JMP L0360 / @@0330=5360 C0331, 7344 / CLA CLL CMA RAL TAD D0054 / @@0332=1054 SNA CLA / @@0333=7650 JMP L0355 / @@0334=5355 TAD C0067 / @@0335=1067 TAD D0052 / @@0336=1052 DCA D0044 / @@0337=3044 L0340, TAD C0032 / @@0340=1032 DCA I D0044 / @@0341=3444 JMS I C0075 / long call to S1200 @@0342=4475 ISZ I L0355 / @@0343=2755 TAD D0052 / @@0344=1052 JMS I D0076 / long call to S0471 @@0345=4476 TAD D0045 / @@0346=1045 SMA CLA / @@0347=7700 JMS I C0100 / long call to S1024 @@0350=4500 JMP L0235 / @@0351=5235 L0352, JMS I C0075 / long call to S1200 @@0352=4475 ISZ I C0331 / @@0353=2731 JMP L0235 / @@0354=5235 L0355, D0355, 4475 / JMS I C0075 DCA AI0 / AUTO INDEX REGISTER @@0356=3010 JMP L0362 / @@0357=5362 L0360, JMS I C0075 / long call to S1200 @@0360=4475 C0361, 3000 / DCA L0000 L0362, JMS I C0365 / long call to S1307 @@0362=4765 C0363, 4500 / JMS I C0100 JMP I D0105 / long jump to L0400 @@0364=5505 C0365, C0365, 1307 / TAD L0307 *0400 C0400, 4475 / JMS I C0075 DCA AI7 / AUTO INDEX REGISTER @@0401=3017 JMS I D0074 / long call to S1254 @@0402=4474 JMP L0175 / @@0403=5175 JMP I C0405 / long jump to L0215 @@0404=5605 C0405, C0405, 0215 / AND L0415 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0406 / / Called from: / 0242 0246 0523 0525 0530 0532 0535 1026 1065 1244 1323 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S0406, 0 / return area L0407, TSF / Skip if teleprinter flag is a 1. @@0407=6041 JMP L0407 / @@0410=5207 TLS / Load the TTO from the content of AC4 @@0411=6046 CLA / @@0412=7200 JMP I S0406 / return @@0413=5606 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0414 / / Called from: / 0237 0243 0247 1255 1264 1300 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0414, 0 / return area L0415, C0415, 6031 / KSF JMP L0415 / @@0416=5215 KRB / Clear AC, clear keyboard flag, and r @@0417=6036 TLS / Load the TTO from the content of AC4 @@0420=6046 DCA D0044 / @@0421=3044 TAD D0044 / @@0422=1044 TAD C0440 / @@0423=1240 SNA CLA / @@0424=7650 JMP I D0105 / long jump to L0400 @@0425=5505 TAD D0044 / @@0426=1044 TAD C0441 / @@0427=1241 SNA CLA / @@0430=7650 JMP I C0443 / long jump to L0235 @@0431=5643 TAD D0044 / @@0432=1044 TAD C0442 / @@0433=1242 SNA CLA / @@0434=7650 C0435, 5175 / JMP L0175 TAD D0044 / @@0436=1044 JMP I S0414 / return @@0437=5614 C0440, 7562 / SMA SZA SNL HLT C0441, 7441 / SCA C0442, 7555 / MQA SCA ASR + C0443, C0443, 0235 / AND C0435 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0444 / / Called from: / 0252 0255 0260 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0444, 0 / return area TAD C0030 / @@0445=1030 SPA SNA / @@0446=7550 JMP L0454 / @@0447=5254 TAD C0023 / @@0450=1023 SMA CLA / @@0451=7700 JMP L0454 / @@0452=5254 ISZ S0444 / @@0453=2244 L0454, CLA / @@0454=7200 JMP I S0444 / return @@0455=5644 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0456 / / Called from: / 0273 1047 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0456, 0 / return area STA / AC = 7777 (-0001) @@0457=7240 TAD D0042 / @@0460=1042 CLL RTL / @@0461=7106 DCA D0044 / @@0462=3044 STA / AC = 7777 (-0001) @@0463=7240 TAD D0041 / @@0464=1041 TAD D0044 / @@0465=1044 CLL RTL / @@0466=7106 TAD D0040 / @@0467=1040 JMP I S0456 / return @@0470=5656 C0471, C0471, 0000 / AND L0000 TAD C0020 / @@0472=1020 DCA D0044 / @@0473=3044 TAD D0044 / @@0474=1044 CLL RAR / @@0475=7110 CLL RAR / @@0476=7110 CLL RAR / @@0477=7110 CLL RAR / @@0500=7110 DCA D0042 / @@0501=3042 TAD D0042 / @@0502=1042 CLL RTL / @@0503=7106 D0504, 7006 / RTL CIA / @@0505=7041 TAD D0044 / @@0506=1044 CLL RAR / @@0507=7110 CLL RAR / @@0510=7110 DCA D0041 / @@0511=3041 TAD D0042 / @@0512=1042 CLL RTL / @@0513=7106 TAD D0041 / @@0514=1041 RTL / @@0515=7006 CIA / @@0516=7041 TAD D0044 / @@0517=1044 DCA D0040 / @@0520=3040 TAD D0040 / @@0521=1040 L0522, TAD C0034 / @@0522=1034 JMS I C0104 / long call to S0406 @@0523=4504 TAD C0037 / @@0524=1037 JMS I C0104 / long call to S0406 @@0525=4504 TAD D0041 / @@0526=1041 TAD C0034 / @@0527=1034 JMS I C0104 / long call to S0406 @@0530=4504 TAD C0037 / @@0531=1037 JMS I C0104 / long call to S0406 @@0532=4504 TAD D0042 / @@0533=1042 TAD C0034 / @@0534=1034 JMS I C0104 / long call to S0406 @@0535=4504 JMP I C0471 / long jump to L0000 @@0536=5671 C0537, 0000 / AND L0000 L0540, D0540, 1071 / TAD C0071 DCA AI0 / AUTO INDEX REGISTER @@0541=3010 TAD D0072 / @@0542=1072 DCA AI1 / AUTO INDEX REGISTER @@0543=3011 TAD C0026 / @@0544=1026 DCA D0057 / @@0545=3057 L0546, DCA D0046 / @@0546=3046 TAD D0022 / @@0547=1022 DCA D0060 / @@0550=3060 L0551, TAD I AI1 / AUTO INDEX REGISTER @@0551=1411 DCA D0044 / @@0552=3044 TAD D0046 / @@0553=1046 TAD I D0044 / @@0554=1444 DCA D0046 / @@0555=3046 ISZ D0060 / @@0556=2060 JMP L0551 / @@0557=5351 TAD D0046 / @@0560=1046 DCA I AI0 / AUTO INDEX REGISTER @@0561=3410 ISZ D0057 / @@0562=2057 JMP L0546 / @@0563=5346 TAD D0025 / @@0564=1025 DCA D0057 / @@0565=3057 TAD C0073 / @@0566=1073 DCA AI0 / AUTO INDEX REGISTER @@0567=3010 DCA D0054 / @@0570=3054 JMP I C0572 / long jump to L0600 @@0571=5772 C0572, C0572, 0600 / AND I C0400 *0600 L0600, ISZ D0054 / @@0600=2054 TAD I AI0 / AUTO INDEX REGISTER @@0601=1410 DCA D0047 / @@0602=3047 TAD I AI0 / AUTO INDEX REGISTER @@0603=1410 DCA D0050 / @@0604=3050 TAD I AI0 / AUTO INDEX REGISTER @@0605=1410 DCA D0051 / @@0606=3051 TAD D0047 / @@0607=1047 SMA SZA CLA / @@0610=7740 JMP L0766 / @@0611=5366 TAD C0071 / @@0612=1071 DCA AI1 / AUTO INDEX REGISTER @@0613=3011 TAD C0026 / @@0614=1026 DCA D0060 / @@0615=3060 L0616, TAD I AI1 / AUTO INDEX REGISTER @@0616=1411 TAD D0047 / @@0617=1047 SZA CLA / @@0620=7640 JMP L0764 / @@0621=5364 CLA CLL CMA RAL / AC = 7776 (-0002) @@0622=7344 TAD D0054 / @@0623=1054 SPA SNA CLA / @@0624=7750 JMP I C0106 / long jump to L1002 @@0625=5506 TAD C0033 / @@0626=1033 TAD D0060 / @@0627=1060 CLL RTL / @@0630=7106 TAD D0072 / @@0631=1072 DCA AI2 / AUTO INDEX REGISTER @@0632=3012 TAD D0022 / @@0633=1022 DCA D0061 / @@0634=3061 L0635, TAD I AI2 / AUTO INDEX REGISTER @@0635=1412 DCA D0052 / @@0636=3052 TAD I D0052 / @@0637=1452 SZA CLA / @@0640=7640 JMP L0762 / @@0641=5362 TAD D0050 / @@0642=1050 SMA SZA CLA / @@0643=7740 JMP I C0107 / long jump to L1012 @@0644=5507 TAD C0071 / @@0645=1071 DCA AI3 / AUTO INDEX REGISTER @@0646=3013 TAD C0026 / @@0647=1026 DCA D0062 / @@0650=3062 L0651, TAD I AI3 / AUTO INDEX REGISTER @@0651=1413 TAD D0050 / @@0652=1050 SZA CLA / @@0653=7640 JMP L0760 / @@0654=5360 TAD AI1 / AUTO INDEX REGISTER @@0655=1011 CIA / @@0656=7041 TAD AI3 / AUTO INDEX REGISTER @@0657=1013 SNA CLA / @@0660=7650 JMP L0760 / @@0661=5360 TAD C0033 / @@0662=1033 TAD D0062 / @@0663=1062 CLL RTL / @@0664=7106 TAD D0072 / @@0665=1072 DCA AI4 / AUTO INDEX REGISTER @@0666=3014 TAD AI4 / AUTO INDEX REGISTER @@0667=1014 DCA AI5 / AUTO INDEX REGISTER @@0670=3015 TAD D0022 / @@0671=1022 DCA D0063 / @@0672=3063 L0673, TAD I AI4 / AUTO INDEX REGISTER @@0673=1414 CIA / @@0674=7041 TAD D0052 / @@0675=1052 SZA CLA / @@0676=7640 JMP L0756 / @@0677=5356 TAD D0051 / @@0700=1051 SMA SZA CLA / @@0701=7740 JMP I C0107 / long jump to L1012 @@0702=5507 TAD D0022 / @@0703=1022 DCA D0064 / @@0704=3064 L0705, TAD I AI5 / AUTO INDEX REGISTER @@0705=1415 DCA D0053 / @@0706=3053 TAD I D0053 / @@0707=1453 SZA CLA / @@0710=7640 JMP L0754 / @@0711=5354 TAD C0071 / @@0712=1071 DCA AI6 / AUTO INDEX REGISTER @@0713=3016 TAD C0026 / @@0714=1026 DCA D0065 / @@0715=3065 L0716, TAD I AI6 / AUTO INDEX REGISTER @@0716=1416 TAD D0051 / @@0717=1051 SZA CLA / @@0720=7640 JMP L0752 / @@0721=5352 TAD AI6 / AUTO INDEX REGISTER @@0722=1016 CIA / @@0723=7041 TAD AI1 / AUTO INDEX REGISTER @@0724=1011 SNA CLA / @@0725=7650 JMP L0752 / @@0726=5352 TAD AI6 / AUTO INDEX REGISTER @@0727=1016 CIA / @@0730=7041 TAD AI3 / AUTO INDEX REGISTER @@0731=1013 SNA CLA / @@0732=7650 JMP L0752 / @@0733=5352 TAD C0033 / @@0734=1033 TAD D0065 / @@0735=1065 CLL RTL / @@0736=7106 TAD D0072 / @@0737=1072 DCA AI7 / AUTO INDEX REGISTER @@0740=3017 TAD D0022 / @@0741=1022 DCA D0066 / @@0742=3066 L0743, TAD I AI7 / AUTO INDEX REGISTER @@0743=1417 CIA / @@0744=7041 TAD D0053 / @@0745=1053 SNA CLA / @@0746=7650 JMP I C0110 / long jump to L1014 @@0747=5510 ISZ D0066 / @@0750=2066 JMP L0743 / @@0751=5343 L0752, ISZ D0065 / @@0752=2065 JMP L0716 / @@0753=5316 L0754, ISZ D0064 / @@0754=2064 JMP L0705 / @@0755=5305 L0756, ISZ D0063 / @@0756=2063 JMP L0673 / @@0757=5273 L0760, ISZ D0062 / @@0760=2062 JMP L0651 / @@0761=5251 L0762, ISZ D0061 / @@0762=2061 JMP L0635 / @@0763=5235 L0764, ISZ D0060 / @@0764=2060 JMP L0616 / @@0765=5216 L0766, ISZ D0057 / @@0766=2057 JMP L0600 / @@0767=5200 JMP L0777 / @@0770=5377 *0777 L0777, DCA D0052 / @@0777=3052 DCA D0053 / @@1000=3053 JMP L1020 / @@1001=5220 L1002, TAD C0033 / @@1002=1033 TAD D0060 / @@1003=1060 CLL RTL / @@1004=7106 TAD D0072 / @@1005=1072 IAC / @@1006=7001 DCA D0052 / @@1007=3052 DCA D0053 / @@1010=3053 JMP L1020 / @@1011=5220 L1012, CLA CLL / AC = 0000 @@1012=7300 DCA D0053 / @@1013=3053 L1014, TAD C0067 / @@1014=1067 CIA / @@1015=7041 TAD D0052 / @@1016=1052 DCA D0052 / @@1017=3052 L1020, TAD I C1023 / @@1020=1623 DCA D0044 / @@1021=3044 JMP I D0044 / long jump to L0000 @@1022=5444 C1023, 0537 / AND I C0137 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1024 / / Called from: / 0350 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1024, 0 / return area TAD C0035 / @@1025=1035 JMS I C0104 / long call to S0406 @@1026=4504 TAD D0022 / @@1027=1022 DCA D0057 / @@1030=3057 CLA IAC / @@1031=7201 DCA D0042 / @@1032=3042 L1033, JMS I C0075 / long call to S1200 @@1033=4475 DCA D0057 / @@1034=3057 TAD D0022 / @@1035=1022 DCA D0060 / @@1036=3060 CLA IAC / @@1037=7201 DCA D0040 / @@1040=3040 L1041, JMS I C0075 / long call to S1200 @@1041=4475 DCA D0072 / @@1042=3072 TAD D0022 / @@1043=1022 DCA D0061 / @@1044=3061 CLA IAC / @@1045=7201 DCA D0041 / @@1046=3041 L1047, JMS I C0077 / long call to S0456 @@1047=4477 TAD C0067 / @@1050=1067 DCA D0044 / @@1051=3044 D1052, 1444 / TAD I D0044 SNA / @@1053=7450 JMP L1064 / @@1054=5264 SPA / @@1055=7510 JMP L1104 / @@1056=5304 TAD C0023 / @@1057=1023 SNA CLA / @@1060=7650 TAD C1107 / @@1061=1307 TAD C1110 / @@1062=1310 SKP / @@1063=7410 L1064, TAD D0036 / @@1064=1036 L1065, JMS I C0104 / long call to S0406 @@1065=4504 JMS I C0075 / long call to S1200 @@1066=4475 DCA D0074 / @@1067=3074 ISZ D0041 / @@1070=2041 ISZ D0061 / @@1071=2061 JMP L1047 / @@1072=5247 JMS I C0075 / long call to S1200 @@1073=4475 DCA D0057 / @@1074=3057 ISZ D0040 / @@1075=2040 ISZ D0060 / @@1076=2060 JMP L1041 / @@1077=5241 ISZ D0042 / @@1100=2042 ISZ D0057 / @@1101=2057 JMP L1033 / @@1102=5233 JMP I S1024 / return @@1103=5624 L1104, CLA / @@1104=7200 TAD C1111 / @@1105=1311 JMP L1065 / @@1106=5265 C1107, 0011 / AND AI1 C1110, 0317 / AND C1117 C1111, 0252 / AND D1052 *1200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 0175 0202 0206 0210 0230 0235 0322 0342 0352 0360 1033 1041 1066 1073 1270 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area STA / AC = 7777 (-0001) @@1201=7240 TAD I S1200 / @@1202=1600 DCA AI0 / AUTO INDEX REGISTER @@1203=3010 ISZ S1200 / @@1204=2200 L1205, TAD I AI0 / AUTO INDEX REGISTER @@1205=1410 DCA D1217 / @@1206=3217 TAD D1217 / @@1207=1217 RTR / @@1210=7012 RTR / @@1211=7012 RTR / @@1212=7012 JMS S1220 / @@1213=4220 TAD D1217 / @@1214=1217 JMS S1220 / @@1215=4220 JMP L1205 / @@1216=5205 D1217, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1220 / / Called from: / 1213 1215 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1220, 0 / return area AND C1247 / @@1221=0247 SNA / @@1222=7450 JMP I S1200 / return @@1223=5600 TAD C1250 / @@1224=1250 SMA / @@1225=7500 JMP L1231 / @@1226=5231 TAD C1251 / @@1227=1251 JMP L1244 / @@1230=5244 L1231, TAD C0021 / @@1231=1021 SZA / @@1232=7440 JMP L1236 / @@1233=5236 TAD C0035 / @@1234=1035 JMP L1244 / @@1235=5244 L1236, TAD C1252 / @@1236=1252 SZA / @@1237=7440 JMP L1243 / @@1240=5243 TAD C1246 / @@1241=1246 JMP L1244 / @@1242=5244 L1243, TAD C1253 / @@1243=1253 L1244, JMS I C0104 / long call to S0406 @@1244=4504 JMP I S1220 / return @@1245=5620 C1246, 0215 / AND C1215 C1247, 0077 / AND C0077 C1250, 7740 / SMA SZA CLA C1251, 0340 / AND C1340 C1252, 7776 / SPA SNA SZL CLA OSR HLT C1253, 0245 / AND C1245 D1254, 0000 / AND L0000 JMS I C0103 / long call to S0414 @@1255=4503 TAD C1305 / @@1256=1305 SNA / @@1257=7450 JMP L1276 / @@1260=5276 TAD C1306 / @@1261=1306 SNA CLA / @@1262=7650 JMP L1277 / @@1263=5277 L1264, JMS I C0103 / long call to S0414 @@1264=4503 TAD C0031 / @@1265=1031 SZA CLA / @@1266=7640 JMP L1264 / @@1267=5264 JMS I C0075 / long call to S1200 @@1270=4475 DCA D0036 / @@1271=3036 TAD D1254 / @@1272=1254 TAD C0021 / @@1273=1021 DCA D1254 / @@1274=3254 JMP I D1254 / long jump to L0000 @@1275=5654 L1276, ISZ D1254 / @@1276=2254 L1277, CLA / @@1277=7200 L1300, JMS I C0103 / long call to S0414 @@1300=4503 TAD C0031 / @@1301=1031 SZA CLA / @@1302=7640 JMP L1300 / @@1303=5300 JMP I D1254 / long jump to L0000 @@1304=5654 C1305, 7447 / SCA DVI + C1306, 0013 / AND AI3 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1307 / / Called from: / 0362 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1307, 0 / return area TAD D0022 / @@1310=1022 DCA D0057 / @@1311=3057 L1312, TAD I D0052 / @@1312=1452 DCA D0044 / @@1313=3044 STA / AC = 7777 (-0001) @@1314=7240 DCA I D0044 / @@1315=3444 TAD C0067 / @@1316=1067 CIA / @@1317=7041 TAD D0044 / @@1320=1044 JMS I D0076 / long call to S0471 @@1321=4476 TAD D0036 / @@1322=1036 JMS I C0104 / long call to S0406 @@1323=4504 ISZ D0052 / @@1324=2052 ISZ D0057 / @@1325=2057 JMP L1312 / @@1326=5312 JMP I S1307 / return @@1327=5707 *1544 AND C0026 / @@1544=0026 AND D0053 / @@1545=0053 AND C0027 / @@1546=0027 AND D0052 / @@1547=0052 AND C0032 / @@1550=0032 AND D0047 / @@1551=0047 AND C0033 / @@1552=0033 AND D0046 / @@1553=0046 C1554, 0001 / AND C0001 C1555, 0100 / AND C0100 C1556, 0015 / AND AI5 AND D0064 / @@1557=0064 C1560, 0004 / AND C0004 AND C0075 / @@1561=0075 AND C0020 / @@1562=0020 AND D0061 / @@1563=0061 AND C0026 / @@1564=0026 AND D0053 / @@1565=0053 AND C0027 / @@1566=0027 AND D0052 / @@1567=0052 TAD C1555 / @@1570=1355 C1571, 1402 / TAD I C0002 TAD I C0027 / @@1572=1427 C1573, 1330 / TAD C1530 TAD C1556 / @@1574=1356 C1575, 1401 / TAD I C0001 TAD I C0024 / @@1576=1424 C1577, 1333 / TAD C1533 TAD C1761 / @@1600=1361 TAD C1776 / @@1601=1376 TAD I AI3 / AUTO INDEX REGISTER @@1602=1413 TAD C1744 / @@1603=1344 TAD C1762 / @@1604=1362 TAD C1775 / @@1605=1375 TAD I AI0 / AUTO INDEX REGISTER @@1606=1410 TAD C1747 / @@1607=1347 TAD C1755 / @@1610=1355 C1611, 1401 / TAD I C0001 TAD I D0025 / @@1612=1425 C1613, 1331 / TAD C1731 TAD C1756 / @@1614=1356 C1615, 1402 / TAD I C0002 TAD I C0026 / @@1616=1426 TAD C1732 / @@1617=1332 TAD C1756 / @@1620=1356 TAD C1775 / @@1621=1375 TAD I AI4 / AUTO INDEX REGISTER @@1622=1414 TAD C1737 / @@1623=1337 TAD C1762 / @@1624=1362 C1625, 1401 / TAD I C0001 TAD I C0020 / @@1626=1420 TAD C1743 / @@1627=1343 TAD C1761 / @@1630=1361 TAD C1775 / @@1631=1375 TAD I AI1 / AUTO INDEX REGISTER @@1632=1411 TAD C1745 / @@1633=1345 TAD C1762 / @@1634=1362 TAD C1776 / @@1635=1376 TAD I AI2 / AUTO INDEX REGISTER @@1636=1412 TAD C1746 / @@1637=1346 TAD C1755 / @@1640=1355 TAD C1776 / @@1641=1376 TAD I AI7 / AUTO INDEX REGISTER @@1642=1417 TAD C1734 / @@1643=1334 TAD C1761 / @@1644=1361 C1645, 1402 / TAD I C0002 TAD I C0023 / @@1646=1423 TAD C1740 / @@1647=1340 TAD C1755 / @@1650=1355 TAD C1775 / @@1651=1375 TAD I AI5 / AUTO INDEX REGISTER @@1652=1415 TAD C1735 / @@1653=1335 TAD C1756 / @@1654=1356 TAD C1776 / @@1655=1376 TAD I AI6 / AUTO INDEX REGISTER @@1656=1416 TAD C1736 / @@1657=1336 TAD C1761 / @@1660=1361 C1661, 1401 / TAD I C0001 TAD I C0021 / @@1662=1421 TAD C1741 / @@1663=1341 TAD C1762 / @@1664=1362 C1665, 1402 / TAD I C0002 TAD I D0022 / @@1666=1422 TAD C1742 / @@1667=1342 TAD C1755 / @@1670=1355 TAD C1756 / @@1671=1356 TAD C1757 / @@1672=1357 TAD C1754 / @@1673=1354 TAD C1761 / @@1674=1361 TAD C1762 / @@1675=1362 TAD C1763 / @@1676=1363 TAD C1760 / @@1677=1360 TAD C1755 / @@1700=1355 C1701, 1361 / TAD C1761 TAD C1765 / @@1702=1365 TAD C1751 / @@1703=1351 TAD C1756 / @@1704=1356 TAD C1762 / @@1705=1362 TAD C1766 / @@1706=1366 TAD C1752 / @@1707=1352 TAD C1755 / @@1710=1355 TAD C1762 / @@1711=1362 TAD C1767 / @@1712=1367 TAD C1750 / @@1713=1350 TAD C1756 / @@1714=1356 TAD C1761 / @@1715=1361 TAD C1764 / @@1716=1364 TAD C1753 / @@1717=1353 TAD C1775 / @@1720=1375 TAD C1776 / @@1721=1376 TAD C1777 / @@1722=1377 TAD C1774 / @@1723=1374 C1724, 1401 / TAD I C0001 C1725, 1402 / TAD I C0002 C1726, 1403 / TAD I C0003 C1727, 1400 / TAD I L0000 TAD C1775 / @@1730=1375 C1731, 1401 / TAD I C0001 C1732, 1405 / TAD I C0005 TAD C1771 / @@1733=1371 C1734, 1376 / TAD C1776 C1735, 1402 / TAD I C0002 C1736, 1406 / TAD I C0006 C1737, 1372 / TAD C1772 C1740, 1375 / TAD C1775 C1741, 1402 / TAD I C0002 C1742, 1407 / TAD I C0007 C1743, 1370 / TAD C1770 C1744, 1376 / TAD C1776 C1745, 1401 / TAD I C0001 C1746, 1404 / TAD I C0004 C1747, 1373 / TAD C1773 C1750, 1424 / TAD I C0024 C1751, 1330 / TAD C1730 C1752, 1354 / TAD C1754 C1753, 1400 / TAD I L0000 C1754, 1427 / TAD I C0027 C1755, 1333 / TAD C1733 C1756, 1357 / TAD C1757 C1757, 1403 / TAD I C0003 C1760, 1410 / TAD I AI0 C1761, 1333 / TAD C1733 C1762, 1352 / TAD C1752 C1763, 1371 / TAD C1771 C1764, 1424 / TAD I C0024 C1765, 1347 / TAD C1747 C1766, 1366 / TAD C1766 C1767, 1405 / TAD I C0005 TAD I AI0 / AUTO INDEX REGISTER @@1770=1410 C1771, 1344 / TAD C1744 TAD C1760 / @@1772=1360 TAD C1774 / @@1773=1374 C1774, 1413 / TAD I AI3 C1775, 1347 / TAD C1747 C1776, 1363 / TAD C1763 C1777, 1377 / TAD C1777 TAD I AI3 / AUTO INDEX REGISTER @@2000=1413 TAD C2130 / @@2001=1330 TAD C2151 / @@2002=1351 TAD C2172 / @@2003=1372 TAD I C0027 / @@2004=1427 TAD C2144 / @@2005=1344 TAD C2165 / @@2006=1365 C2007, 1406 / TAD I C0006 TAD I AI0 / AUTO INDEX REGISTER @@2010=1410 TAD C2130 / @@2011=1330 TAD C2150 / @@2012=1350 TAD C2170 / @@2013=1370 TAD I AI3 / AUTO INDEX REGISTER @@2014=1413 TAD C2133 / @@2015=1333 TAD C2153 / @@2016=1353 TAD C2173 / @@2017=1373 TAD I C0024 / @@2020=1424 TAD C2144 / @@2021=1344 C2022, 1364 / TAD C2164 C2023, 1404 / TAD I C0004 TAD I C0027 / @@2024=1427 TAD C2147 / @@2025=1347 TAD C2167 / @@2026=1367 C2027, 1407 / TAD I C0007 TAD C2133 / @@2030=1333 TAD C2130 / @@2031=1330 TAD C2131 / @@2032=1331 TAD C2132 / @@2033=1332 TAD C2147 / @@2034=1347 TAD C2144 / @@2035=1344 TAD C2145 / @@2036=1345 TAD C2146 / @@2037=1346 TAD C2144 / @@2040=1344 TAD C2130 / @@2041=1330 TAD C2134 / @@2042=1334 TAD C2140 / @@2043=1340 TAD C2147 / @@2044=1347 TAD C2133 / @@2045=1333 TAD C2137 / @@2046=1337 TAD C2143 / @@2047=1343 TAD C2147 / @@2050=1347 TAD C2130 / @@2051=1330 TAD C2135 / @@2052=1335 TAD C2142 / @@2053=1342 TAD C2144 / @@2054=1344 TAD C2133 / @@2055=1333 D2056, 1336 / TAD C2136 TAD C2141 / @@2057=1341 TAD I AI3 / AUTO INDEX REGISTER @@2060=1413 TAD I AI0 / AUTO INDEX REGISTER @@2061=1410 TAD I AI1 / AUTO INDEX REGISTER @@2062=1411 TAD I AI2 / AUTO INDEX REGISTER @@2063=1412 TAD I C0027 / @@2064=1427 TAD I C0024 / @@2065=1424 TAD I D0025 / @@2066=1425 TAD I C0026 / @@2067=1426 TAD I C0024 / @@2070=1424 TAD I AI0 / AUTO INDEX REGISTER @@2071=1410 TAD I AI4 / AUTO INDEX REGISTER @@2072=1414 TAD I C0020 / @@2073=1420 TAD I C0027 / @@2074=1427 TAD I AI3 / AUTO INDEX REGISTER @@2075=1413 TAD I AI7 / AUTO INDEX REGISTER @@2076=1417 TAD I C0023 / @@2077=1423 TAD I C0027 / @@2100=1427 TAD I AI0 / AUTO INDEX REGISTER @@2101=1410 TAD I AI5 / AUTO INDEX REGISTER @@2102=1415 TAD I D0022 / @@2103=1422 TAD I C0024 / @@2104=1424 TAD I AI3 / AUTO INDEX REGISTER @@2105=1413 TAD I AI6 / AUTO INDEX REGISTER @@2106=1416 TAD I C0021 / @@2107=1421 TAD C2151 / @@2110=1351 TAD C2171 / @@2111=1371 TAD I AI1 / AUTO INDEX REGISTER @@2112=1411 TAD C2131 / @@2113=1331 TAD C2152 / @@2114=1352 TAD C2172 / @@2115=1372 TAD I AI2 / AUTO INDEX REGISTER @@2116=1412 TAD C2132 / @@2117=1332 TAD C2154 / @@2120=1354 TAD C2174 / @@2121=1374 TAD I AI4 / AUTO INDEX REGISTER @@2122=1414 TAD C2134 / @@2123=1334 TAD C2157 / @@2124=1357 TAD C2177 / @@2125=1377 TAD I AI7 / AUTO INDEX REGISTER @@2126=1417 TAD C2137 / @@2127=1337 C2130, 1360 / TAD C2160 C2131, 1400 / TAD I L0000 C2132, 1420 / TAD I C0020 C2133, 1340 / TAD C2140 C2134, 1363 / TAD C2163 C2135, 1403 / TAD I C0003 C2136, 1423 / TAD I C0023 C2137, 1343 / TAD C2143 C2140, 1365 / TAD C2165 C2141, 1405 / TAD I C0005 C2142, 1425 / TAD I D0025 C2143, 1345 / TAD C2145 C2144, 1366 / TAD C2166 C2145, 1406 / TAD I C0006 C2146, 1426 / TAD I C0026 C2147, 1346 / TAD C2146 C2150, 1335 / TAD C2135 C2151, 1336 / TAD C2136 C2152, 1337 / TAD C2137 C2153, 1334 / TAD C2134 C2154, 1341 / TAD C2141 TAD C2142 / @@2155=1342 TAD C2143 / @@2156=1343 C2157, 1340 / TAD C2140 TAD C2135 / @@2160=1335 TAD C2141 / @@2161=1341 TAD C2145 / @@2162=1345 TAD C2131 / @@2163=1331 C2164, 1336 / TAD C2136 C2165, 1342 / TAD C2142 C2166, 1346 / TAD C2146 C2167, 1332 / TAD C2132 C2170, 1351 / TAD C2151 C2171, 1352 / TAD C2152 C2172, 1353 / TAD C2153 C2173, 1350 / TAD C2150 C2174, 1365 / TAD C2165 TAD C2166 / @@2175=1366 TAD C2167 / @@2176=1367 C2177, 1364 / TAD C2164 TAD C2354 / @@2200=1354 D2201, 1360 / TAD C2360 TAD C2364 / @@2202=1364 TAD C2350 / @@2203=1350 TAD C2357 / @@2204=1357 TAD C2363 / @@2205=1363 TAD C2367 / @@2206=1367 TAD C2353 / @@2207=1353 TAD C2371 / @@2210=1371 C2211, 1372 / TAD C2372 TAD C2373 / @@2212=1373 TAD C2370 / @@2213=1370 C2214, 1405 / TAD I C0005 C2215, 1406 / TAD I C0006 C2216, 1407 / TAD I C0007 D2217, 1404 / TAD I C0004 TAD C2374 / @@2220=1374 C2221, 1400 / TAD I L0000 C2222, 1404 / TAD I C0004 TAD C2370 / @@2223=1370 TAD C2377 / @@2224=1377 C2225, 1403 / TAD I C0003 C2226, 1407 / TAD I C0007 TAD C2373 / @@2227=1373 TAD I AI5 / AUTO INDEX REGISTER @@2230=1415 TAD I AI6 / AUTO INDEX REGISTER @@2231=1416 TAD I AI7 / AUTO INDEX REGISTER @@2232=1417 TAD I AI4 / AUTO INDEX REGISTER @@2233=1414 TAD I C0021 / @@2234=1421 TAD I D0022 / @@2235=1422 TAD I C0023 / @@2236=1423 TAD I C0020 / @@2237=1420 C2240, 1415 / TAD I AI5 TAD I C0021 / @@2241=1421 TAD I D0025 / @@2242=1425 TAD I AI1 / AUTO INDEX REGISTER @@2243=1411 TAD I AI6 / AUTO INDEX REGISTER @@2244=1416 TAD I D0022 / @@2245=1422 TAD I C0026 / @@2246=1426 TAD I AI2 / AUTO INDEX REGISTER @@2247=1412 SPA SNA SZL CLA OSR / @@2250=7774 C2251, 0001 / AND C0001 C2252, 0001 / AND C0001 C2253, 7761 / CLA MQA SCA MQL C2254, 0001 / AND C0001 C2255, 0001 / AND C0001 C2256, 7775 / CLA MQA SCA MQL ASR + C2257, 0001 / AND C0001 C2260, 0001 / AND C0001 SMA SZA SNL CLA OSR HLT / @@2261=7766 SMA SZA SNL CLA OSR HLT / @@2262=7766 C2263, 0001 / AND C0001 SMA SZA SNL CLA OSR HLT / @@2264=7766 C2265, 7773 / CLA MQA SCA MQL SHL + SMA SZA SNL CLA OSR HLT / @@2266=7766 SPA SNA SZL CLA OSR HLT / @@2267=7776 SPA SNA SZL CLA OSR HLT / @@2270=7776 C2271, 0001 / AND C0001 SPA SNA SZL CLA OSR HLT / @@2272=7776 C2273, 7777 / CLA MQA SCA MQL LSR + SPA SNA SZL CLA OSR HLT / @@2274=7776 SPA SNA SZL CLA OSR HLT / @@2275=7776 C2276, 7777 / CLA MQA SCA MQL LSR + C2277, 7777 / CLA MQA SCA MQL LSR + SPA SNA SZL CLA OSR HLT / @@2300=7776 C2301, 0000 / AND L0000 SPA SNA SZL CLA OSR HLT / @@2302=7776 C2303, 7773 / CLA MQA SCA MQL SHL + C2304, 7773 / CLA MQA SCA MQL SHL + SMA SZA SNL CLA OSR HLT / @@2305=7766 C2306, 7773 / CLA MQA SCA MQL SHL + C2307, 7773 / CLA MQA SCA MQL SHL + C2310, 7773 / CLA MQA SCA MQL SHL + C2311, 7773 / CLA MQA SCA MQL SHL + C2312, 0000 / AND L0000 SMA SZA SNL CLA OSR HLT / @@2313=7766 C2314, 7773 / CLA MQA SCA MQL SHL + C2315, 0000 / AND L0000 C2316, 7773 / CLA MQA SCA MQL SHL + C2317, 4543 / JMS I C0143 ISZ I AI0 / AUTO INDEX REGISTER @@2320=2410 C2321, 1123 / TAD C0123 JMS AI1 / AUTO INDEX REGISTER @@2322=4011 ISZ D2340 / @@2323=2340 C2324, 2125 / ISZ C0125 C2325, 0211 / AND C2211 AND C2354 / @@2326=0354 JMS D0063 / @@2327=4063 AND I D0040 / @@2330=0440 ISZ I AI1 / AUTO INDEX REGISTER @@2331=2411 AND C2355 / @@2332=0355 C2333, 2401 / ISZ I C0001 AND C2355 / @@2334=0355 ISZ I AI7 / AUTO INDEX REGISTER @@2335=2417 C2336, 0545 / AND I C0145 C2337, 4343 / JMS C2343 D2340, 0417 / AND I AI7 C2341, 4031 / JMS C0031 TAD I C2325 / @@2342=1725 C2343, 4027 / JMS C0027 C2344, 0116 / AND C0116 ISZ I D0040 / @@2345=2440 C2346, 0116 / AND C0116 C2347, 4005 / JMS C0005 C2350, 3020 / DCA C0020 C2351, 1401 / TAD I C0001 TAD I D2201 / @@2352=1601 C2353, 2411 / ISZ I AI1 C2354, 1716 / TAD I C2316 C2355, 4017 / JMS AI7 AND I C2240 / @@2356=0640 C2357, 1017 / TAD AI7 C2360, 2740 / ISZ I D2340 ISZ I AI7 / AUTO INDEX REGISTER @@2361=2417 C2362, 4020 / JMS C0020 C2363, 1401 / TAD I C0001 C2364, 3140 / DCA C0140 SMA SZA CLA / @@2365=7740 C2366, 0000 / AND L0000 C2367, 4543 / JMS I C0143 C2370, 4324 / JMS C2324 C2371, 1011 / TAD AI1 C2372, 2340 / ISZ D2340 C2373, 2022 / ISZ D0022 C2374, 1707 / TAD I C2307 ISZ D2201 / @@2375=2201 C2376, 1540 / TAD I C0140 C2377, 2014 / ISZ AI4 C2400, 0131 / AND C0131 C2401, 2340 / ISZ D2540 ISZ I AI1 / AUTO INDEX REGISTER @@2402=2411 AND C2555 / @@2403=0355 D2404, 2401 / ISZ I C0001 C2405, 0355 / AND C2555 ISZ I AI7 / AUTO INDEX REGISTER @@2406=2417 C2407, 0540 / AND I C0140 TAD I C2516 / @@2410=1716 D2411, 4001 / JMS C0001 JMS D0064 / @@2412=4064 C2413, 4002 / JMS C0002 C2414, 3140 / DCA C0140 C2415, 6440 / 6440 AND C2431 / @@2416=0231 D2417, 4064 / JMS D0064 C2420, 4003 / JMS C0003 ISZ I C0102 / @@2421=2502 C2422, 0556 / AND I C0156 C2423, 4543 / JMS I C0143 D2424, 2410 / ISZ I AI0 C2425, 0540 / AND I C0140 TAD I C2502 / @@2426=1702 TAD C2405 / @@2427=1205 AND D2524 / @@2430=0324 C2431, 4011 / JMS AI1 ISZ D2540 / @@2432=2340 ISZ I AI7 / AUTO INDEX REGISTER @@2433=2417 C2434, 4007 / JMS C0007 C2435, 0524 / AND I C0124 JMS D0064 / @@2436=4064 C2437, 4023 / JMS C0023 D2440, 2125 / ISZ C0125 C2441, 0122 / AND C0122 C2442, 0523 / AND I C0123 JMS AI1 / AUTO INDEX REGISTER @@2443=4011 TAD I D2440 / @@2444=1640 C2445, 0140 / AND C0140 ISZ D2417 / @@2446=2217 ISZ I C2554 / @@2447=2754 C2450, 4005 / JMS C0005 C2451, 1124 / TAD C0124 C2452, 1005 / TAD C0005 ISZ D2440 / @@2453=2240 C2454, 2605 / ISZ I C2405 ISZ D2424 / @@2455=2224 TAD C0103 / @@2456=1103 C2457, 0114 / AND C0114 TAD I C0031 / @@2460=1431 JMP I D0045 / long jump to L0000 @@2461=5445 C2462, 4304 / JMS C2504 TAD D0101 / @@2463=1101 AND I C2517 / @@2464=0717 TAD I C2401 / @@2465=1601 TAD I AI4 / AUTO INDEX REGISTER @@2466=1414 C2467, 3140 / DCA C0140 TAD I C2522 / @@2470=1722 JMS AI0 / AUTO INDEX REGISTER @@2471=4010 TAD I C2522 / @@2472=1722 C2473, 1132 / TAD C0132 TAD I C2516 / @@2474=1716 C2475, 2401 / ISZ I C0001 TAD I AI4 / AUTO INDEX REGISTER @@2476=1414 C2477, 3140 / DCA C0140 ISZ I AI0 / AUTO INDEX REGISTER @@2500=2410 C2501, 2217 / ISZ D2417 C2502, 2507 / ISZ I C0107 TAD D0040 / @@2503=1040 ISZ I AI0 / AUTO INDEX REGISTER @@2504=2410 C2505, 0540 / AND I C0140 AND C2525 / @@2506=0325 C2507, 0205 / AND C2405 JMP I D2440 / long jump to L2125 @@2510=5640 C2511, 1116 / TAD C0116 ISZ D0025 / @@2512=2025 ISZ I D0040 / @@2513=2440 C2514, 1517 / TAD I C0117 C2515, 2605 / ISZ I C2405 C2516, 2340 / ISZ D2540 C2517, 0123 / AND C0123 C2520, 4022 / JMS D0022 TAD I C2527 / @@2521=1727 C2522, 5445 / JMP I D0045 C2523, 4303 / JMS C2503 D2524, 1714 / TAD I C2514 C2525, 2515 / ISZ I C0115 TAD I C2454 / @@2526=1654 C2527, 4020 / JMS C0020 C2530, 1401 / TAD I C0001 TAD I C2405 / @@2531=1605 JMP I D2440 / long jump to L2125 @@2532=5640 TAD C0106 / @@2533=1106 C2534, 4031 / JMS C0031 TAD I C2525 / @@2535=1725 C2536, 4004 / JMS C0004 TAD I D2540 / @@2537=1740 D2540, 1617 / TAD I D2417 ISZ I D0040 / @@2541=2440 ISZ I C2501 / @@2542=2701 TAD I D2424 / @@2543=1624 C2544, 4024 / JMS C0024 C2545, 1005 / TAD C0005 C2546, 4002 / JMS C0002 C2547, 1701 / TAD I C2501 ISZ D2404 / @@2550=2204 C2551, 4020 / JMS C0020 ISZ D2411 / @@2552=2211 TAD I D2424 / @@2553=1624 C2554, 0504 / AND I C0104 C2555, 4017 / JMS AI7 C2556, 2524 / ISZ I C0124 C2557, 4001 / JMS C0001 ISZ I D0040 / @@2560=2440 C2561, 0526 / AND I C0126 C2562, 0522 / AND I C0122 C2563, 3140 / DCA C0140 ISZ D2524 / @@2564=2324 C2565, 0520 / AND I C0120 JMP I D0045 / long jump to L0000 @@2566=5445 C2567, 4301 / JMS C2501 TAD I C2423 / @@2570=1623 ISZ I C2505 / @@2571=2705 ISZ D2440 / @@2572=2240 C2573, 4716 / JMS I C2516 TAD I C2547 / @@2574=1747 C2575, 4024 / JMS C0024 TAD I D2540 / @@2576=1740 ISZ I AI0 / AUTO INDEX REGISTER @@2577=2410 C2600, C2600, 0540 / AND I C0140 C2601, 2125 / ISZ C0125 C2602, 0523 / AND I C0123 ISZ I AI1 / AUTO INDEX REGISTER @@2603=2411 D2604, 1716 / TAD I C2716 C2605, 4047 / JMS D0047 AND C2617 / @@2606=0217 C2607, 0122 / AND C0122 AND I D0040 / @@2610=0440 C2611, 2022 / ISZ D0022 C2612, 1116 / TAD C0116 ISZ I AI7 / AUTO INDEX REGISTER @@2613=2417 C2614, 2524 / ISZ I C0124 C2615, 4077 / JMS C0077 C2616, 4756 / JMS I C2756 C2617, 4017 / JMS AI7 ISZ I AI0 / AUTO INDEX REGISTER @@2620=2410 C2621, 0522 / AND I C0122 ISZ I C2711 / @@2622=2711 D2623, 2305 / ISZ D2705 JMP I D0045 / long jump to L0000 @@2624=5445 C2625, 4324 / JMS C2724 C2626, 1005 / TAD C0005 C2627, 4002 / JMS C0002 TAD I C2701 / @@2630=1701 D2631, 2204 / ISZ D2604 JMS AI1 / AUTO INDEX REGISTER @@2632=4011 ISZ D2740 / @@2633=2340 ISZ D0022 / @@2634=2022 C2635, 1116 / TAD C0116 C2636, 2405 / ISZ I C0005 AND I D0040 / @@2637=0440 D2640, 2711 / ISZ I C2711 ISZ I AI0 / AUTO INDEX REGISTER @@2641=2410 C2642, 4031 / JMS C0031 TAD I C2725 / @@2643=1725 C2644, 4001 / JMS C0001 D2645, 2340 / ISZ D2740 C2646, 4717 / JMS I C2717 C2647, 4754 / JMS I C2754 C2650, 4024 / JMS C0024 C2651, 1005 / TAD C0005 C2652, 4003 / JMS C0003 TAD I C2715 / @@2653=1715 ISZ D0025 / @@2654=2025 C2655, 2405 / ISZ I C0005 ISZ D2645 / @@2656=2245 C2657, 4301 / JMS C2701 ISZ D2740 / @@2660=2340 C2661, 4730 / JMS I C2730 C2662, 4754 / JMS I C2754 C2663, 4001 / JMS C0001 TAD I D2604 / @@2664=1604 C2665, 4024 / JMS C0024 C2666, 1005 / TAD C0005 C2667, 4027 / JMS C0027 C2670, 1116 / TAD C0116 TAD I C2611 / @@2671=1611 TAD I C2607 / @@2672=1607 C2673, 4022 / JMS D0022 TAD I C2727 / @@2674=1727 C2675, 4001 / JMS C0001 ISZ D2740 / @@2676=2340 C2677, 4752 / JMS I C2752 JMS I D2740 / long call to S2340 @@2700=4740 C2701, 5645 / JMP I D2645 C2702, 4343 / JMS C2743 C2703, 4300 / JMS C2700 C2704, 4543 / JMS I C0143 D2705, 4323 / JMS C2723 C2706, 1001 / TAD C0001 TAD I AI4 / AUTO INDEX REGISTER @@2707=1414 JMS AI1 / AUTO INDEX REGISTER @@2710=4011 C2711, 4007 / JMS C0007 TAD I D2740 / @@2712=1740 AND I C2611 / @@2713=0611 ISZ D2623 / @@2714=2223 C2715, 2440 / ISZ I D0040 C2716, 7740 / SMA SZA CLA C2717, 0000 / AND L0000 C2720, 4543 / JMS I C0143 C2721, 4331 / JMS C2731 TAD I C2725 / @@2722=1725 ISZ D2640 / @@2723=2240 C2724, 1517 / TAD I C0117 C2725, 2605 / ISZ I C2605 C2726, 4011 / JMS AI1 C2727, 2340 / ISZ D2740 C2730, 0000 / AND L0000 C2731, 4543 / JMS I C0143 C2732, 4324 / JMS C2724 C2733, 1001 / TAD C0001 ISZ I D0040 / @@2734=2440 C2735, 1517 / TAD I C0117 ISZ I C2605 / @@2736=2605 JMS AI1 / AUTO INDEX REGISTER @@2737=4011 D2740, 2340 / ISZ D2740 C2741, 1114 / TAD C0114 C2742, 1405 / TAD I C0005 AND I C2701 / @@2743=0701 TAD I D0056 / @@2744=1456 C2745, 4024 / JMS C0024 ISZ D2631 / @@2746=2231 C2747, 4001 / JMS C0001 AND I C2701 / @@2750=0701 C2751, 1116 / TAD C0116 JMP I D2645 / long jump to L2340 @@2752=5645 C2753, 4343 / JMS C2743 C2754, 0000 / AND L0000 C2755, 4543 / JMS I C0143 C2756, 4311 / JMS C2711 JMS AI5 / AUTO INDEX REGISTER @@2757=4015 TAD I C2726 / @@2760=1726 C2761, 0540 / AND I C0140 C2762, 0000 / AND L0000 C2763, 4543 / JMS I C0143 C2764, 4314 / JMS C2714 C2765, 0524 / AND I C0124 C2766, 4723 / JMS I C2723 C2767, 4003 / JMS C0003 C2770, 0114 / AND C0114 TAD I D0040 / @@2771=1440 ISZ I AI0 / AUTO INDEX REGISTER @@2772=2410 C2773, 1123 / TAD C0123 C2774, 4001 / JMS C0001 C2775, 4024 / JMS C0024 TAD D0105 / @@2776=1105 JMP I C2600 / long jump to L0540 @@2777=5600 C3000, 4543 / JMS I C0143 C3001, 4331 / JMS C3131 TAD I C3125 / @@3002=1725 C3003, 4027 / JMS C0027 D3004, 1116 / TAD C0116 JMS AI7 / AUTO INDEX REGISTER @@3005=4017 TAD I D3040 / @@3006=1640 C3007, 0000 / AND L0000 C3010, 4543 / JMS I C0143 D3011, 4311 / JMS C3111 C3012, 4027 / JMS C0027 C3013, 1116 / TAD C0116 C3014, 4017 / JMS AI7 TAD I D3040 / @@3015=1640 C3016, 0000 / AND L0000 C3017, 4543 / JMS I C0143 C3020, 4310 / JMS C3110 TAD I D3127 / @@3021=1727 C3022, 4001 / JMS C0001 AND C3017 / @@3023=0217 C3024, 2524 / ISZ I C0124 C3025, 4001 / JMS C0001 TAD I C3017 / @@3026=1617 ISZ I AI0 / AUTO INDEX REGISTER @@3027=2410 C3030, 0522 / AND I C0122 C3031, 4007 / JMS C0007 C3032, 0115 / AND C0115 C3033, 0540 / AND I C0140 SMA SZA CLA / @@3034=7740 C3035, 0000 / AND L0000 C3036, 4543 / JMS I C0143 C3037, 4320 / JMS C3120 D3040, 1405 / TAD I C0005 C3041, 0123 / AND C0123 C3042, 0540 / AND I C0140 C3043, 0116 / AND C0116 ISZ D3127 / @@3044=2327 C3045, C3045, 0522 / AND I C0122 JMS D0047 / @@3046=4047 DCA D0105 / @@3047=3105 C3050, 2347 / ISZ C3147 JMS AI7 / AUTO INDEX REGISTER @@3051=4017 ISZ D3040 / @@3052=2240 C3053, 4716 / JMS I C3116 C3054, 1747 / TAD I C3147 JMP I C3045 / long jump to L0522 @@3055=5645 C3056, C3056, 4300 / JMS C3100 C3057, 4543 / JMS I C0143 JMP I C3056 / long jump to L4300 @@3060=5656 JMP I C3056 / long jump to L4300 @@3061=5656 JMP I C3056 / long jump to L4300 @@3062=5656 JMP I C3056 / long jump to L4300 @@3063=5656 JMP I C3056 / long jump to L4300 @@3064=5656 JMP I C3056 / long jump to L4300 @@3065=5656 JMP I C3056 / long jump to L4300 @@3066=5656 JMP I C3056 / long jump to L4300 @@3067=5656 JMP I C3045 / long jump to L0522 @@3070=5645 C3071, 4300 / JMS C3100 JMP I D3040 / long jump to L1405 @@3072=5640 C3073, 0000 / AND L0000 JMS D0056 / @@3074=4056 C3075, 4000 / JMS L0000 C3076, 4543 / JMS I C0143 C3077, 4324 / JMS C3124 C3100, 1001 / TAD C0001 C3101, 1613 / TAD I C3013 C3102, 4031 / JMS C0031 TAD I C3125 / @@3103=1725 C3104, 4006 / JMS C0006 TAD I C3122 / @@3105=1722 C3106, 4001 / JMS C0001 TAD I D3040 / @@3107=1640 C3110, 0516 / AND I C0116 TAD C3017 / @@3111=1217 DCA D0101 / @@3112=3101 AND C3014 / @@3113=0214 C3114, 0540 / AND I C0140 AND I C3101 / @@3115=0701 TAD I D0105 / @@3116=1505 JMP I C3045 / long jump to L0522 @@3117=5645 JMS D3143 / @@3120=4343 JMS D3143 / @@3121=4343 C3122, 4343 / JMS D3143 JMS D3143 / @@3123=4343 JMS D3143 / @@3124=4343 C3125, 4343 / JMS D3143 JMS D3143 / @@3126=4343 D3127, 4343 / JMS D3143 C3130, 0000 / AND L0000 C3131, 4543 / JMS I C0143 C3132, 4302 / JMS C3102 TAD I C3101 / @@3133=1701 ISZ D3004 / @@3134=2204 C3135, 4020 / JMS C0020 ISZ D3011 / @@3136=2211 TAD I C3024 / @@3137=1624 TAD I C3125 / @@3140=1725 ISZ I D0040 / @@3141=2440 SMA SZA CLA / @@3142=7740 D3143, 0000 / AND L0000 $