TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-dafpb-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-dafpb-a-pb.bin / Generated 2010 02 19 00:10:29 / 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 / / 4630 locations used, 3356 code and 1252 data //////////////////////////////////////////////////////////////////////////////// *0020 D0020, 0000 / AND L0000 D0021, 0000 / AND L0000 D0022, 0030 / AND D0030 D0023, 7000 / NOP D0024, 0000 / AND L0000 D0025, 0000 / AND L0000 D0026, 0000 / AND L0000 D0027, 0000 / AND L0000 D0030, 0000 / AND L0000 D0031, 0000 / AND L0000 D0032, 0000 / AND L0000 D0033, 0000 / AND L0000 D0034, 0000 / AND L0000 D0035, 0000 / AND L0000 D0036, 0000 / AND L0000 D0037, 0000 / AND L0000 L0040, C0040, 0000 / AND L0000 C0041, 0000 / AND L0000 C0042, 0000 / AND L0000 C0043, 0000 / AND L0000 C0044, 0000 / AND L0000 C0045, 0000 / AND L0000 C0046, 0000 / AND L0000 C0047, 0000 / AND L0000 *0076 C0076, 0000 / AND L0000 C0077, 0000 / AND L0000 L0100, D0100, 5000 / JMP L0000 C0101, 0000 / AND L0000 C0102, 0000 / AND L0000 C0103, 5100 / JMP L0100 C0104, 7777 / CLA MQA SCA MQL LSR + C0105, C0105, 4200 / JMS L0000 D0106, 0000 / AND L0000 D0107, 0000 / AND L0000 D0110, 0000 / AND L0000 D0111, 0000 / AND L0000 D0112, 0000 / AND L0000 D0113, 0000 / AND L0000 D0114, 0000 / AND L0000 D0115, 0000 / AND L0000 D0116, 0000 / AND L0000 D0117, 0000 / AND L0000 D0120, 0000 / AND L0000 *0176 C0176, 0020 / AND D0020 C0177, 0030 / AND D0030 L0200, LDAD / (AA05/AA07) The address register in @@0200=6552 CLA / @@0201=7200 TAD C0177 / @@0202=1177 DCA D0022 / @@0203=3022 DCA I C0377 / @@0204=3777 L0205, CLA / @@0205=7200 TAD C0104 / @@0206=1104 DCA D0106 / @@0207=3106 L0210, JMS I C0105 / long call to S4200 @@0210=4505 STA / AC = 7777 (-0001) @@0211=7240 DCA D0030 / @@0212=3030 TAD C0376 / @@0213=1376 DCA D0021 / @@0214=3021 C0215, 6553 / 6553 TAD C0176 / @@0216=1176 C0217, 6555 / 6555 HLT / @@0220=7402 L0221, C0221, 6557 / 6557 JMP L0221 / @@0222=5221 CLA / @@0223=7200 TAD D0030 / @@0224=1030 CIA / @@0225=7041 TAD I C0377 / @@0226=1777 SZA CLA / @@0227=7640 HLT / @@0230=7402 NOP / @@0231=7000 TAD D0031 / @@0232=1031 SZA CLA / @@0233=7640 HLT / @@0234=7402 NOP / @@0235=7000 TAD D0032 / @@0236=1032 SZA CLA / @@0237=7640 HLT / @@0240=7402 NOP / @@0241=7000 TAD D0033 / @@0242=1033 SZA CLA / @@0243=7640 HLT / @@0244=7402 NOP / @@0245=7000 TAD D0034 / @@0246=1034 SZA CLA / @@0247=7640 HLT / @@0250=7402 NOP / @@0251=7000 TAD D0035 / @@0252=1035 SZA CLA / @@0253=7640 HLT / @@0254=7402 NOP / @@0255=7000 TAD D0036 / @@0256=1036 SZA CLA / @@0257=7640 HLT / @@0260=7402 NOP / @@0261=7000 TAD D0037 / @@0262=1037 SZA CLA / @@0263=7640 HLT / @@0264=7402 NOP / @@0265=7000 ISZ D0106 / @@0266=2106 JMP L0210 / @@0267=5210 ISZ I C0377 / @@0270=2777 JMP L0205 / @@0271=5205 NOP / @@0272=7000 NOP / @@0273=7000 CLA / @@0274=7200 TAD C0177 / @@0275=1177 DCA D0022 / @@0276=3022 DCA I C0375 / @@0277=3775 L0300, CLA / @@0300=7200 TAD C0104 / @@0301=1104 DCA D0106 / @@0302=3106 L0303, JMS I C0105 / long call to S4200 @@0303=4505 STA / AC = 7777 (-0001) @@0304=7240 DCA D0031 / @@0305=3031 TAD C0374 / @@0306=1374 DCA D0021 / @@0307=3021 C0310, 6553 / 6553 TAD C0176 / @@0311=1176 C0312, 6555 / 6555 HLT / @@0313=7402 L0314, C0314, 6557 / 6557 JMP L0314 / @@0315=5314 CLA / @@0316=7200 TAD D0031 / @@0317=1031 CIA / @@0320=7041 TAD I C0375 / @@0321=1775 SZA CLA / @@0322=7640 HLT / @@0323=7402 NOP / @@0324=7000 TAD D0030 / @@0325=1030 SZA CLA / @@0326=7640 HLT / @@0327=7402 NOP / @@0330=7000 TAD D0032 / @@0331=1032 SZA CLA / @@0332=7640 HLT / @@0333=7402 NOP / @@0334=7000 TAD D0033 / @@0335=1033 SZA CLA / @@0336=7640 HLT / @@0337=7402 NOP / @@0340=7000 TAD D0034 / @@0341=1034 SZA CLA / @@0342=7640 HLT / @@0343=7402 NOP / @@0344=7000 TAD D0035 / @@0345=1035 SZA CLA / @@0346=7640 NOP / @@0347=7000 TAD D0036 / @@0350=1036 SZA CLA / @@0351=7640 HLT / @@0352=7402 NOP / @@0353=7000 TAD D0037 / @@0354=1037 SZA CLA / @@0355=7640 HLT / @@0356=7402 NOP / @@0357=7000 ISZ D0106 / @@0360=2106 JMP L0303 / @@0361=5303 ISZ I C0375 / @@0362=2775 JMP L0300 / @@0363=5300 NOP / @@0364=7000 NOP / @@0365=7000 JMP I C0373 / long jump to L0400 @@0366=5773 *0373 C0373, C0373, 0400 / AND I L0000 C0374, 6005 / 6005 C0375, 6006 / 6006 C0376, 6000 / 6000 C0377, 6001 / ION L0400, C0400, 7200 / CLA TAD C0177 / @@0401=1177 DCA D0022 / @@0402=3022 DCA I C0577 / @@0403=3777 L0404, CLA / @@0404=7200 TAD C0104 / @@0405=1104 DCA D0106 / @@0406=3106 L0407, JMS I C0105 / long call to S4200 @@0407=4505 STA / AC = 7777 (-0001) @@0410=7240 DCA D0032 / @@0411=3032 TAD C0576 / @@0412=1376 DCA D0021 / @@0413=3021 C0414, 6553 / 6553 TAD C0176 / @@0415=1176 C0416, 6555 / 6555 HLT / @@0417=7402 L0420, C0420, 6557 / 6557 JMP L0420 / @@0421=5220 CLA / @@0422=7200 TAD D0032 / @@0423=1032 CIA / @@0424=7041 TAD I C0577 / @@0425=1777 SZA CLA / @@0426=7640 HLT / @@0427=7402 NOP / @@0430=7000 TAD D0030 / @@0431=1030 SZA CLA / @@0432=7640 HLT / @@0433=7402 NOP / @@0434=7000 TAD D0031 / @@0435=1031 SZA CLA / @@0436=7640 HLT / @@0437=7402 NOP / @@0440=7000 TAD D0033 / @@0441=1033 SZA CLA / @@0442=7640 HLT / @@0443=7402 NOP / @@0444=7000 TAD D0034 / @@0445=1034 SZA CLA / @@0446=7640 HLT / @@0447=7402 NOP / @@0450=7000 TAD D0035 / @@0451=1035 SZA CLA / @@0452=7640 HLT / @@0453=7402 NOP / @@0454=7000 TAD D0036 / @@0455=1036 SZA CLA / @@0456=7640 HLT / @@0457=7402 NOP / @@0460=7000 TAD D0037 / @@0461=1037 SZA CLA / @@0462=7640 HLT / @@0463=7402 NOP / @@0464=7000 ISZ D0106 / @@0465=2106 JMP L0407 / @@0466=5207 ISZ I C0577 / @@0467=2777 JMP L0404 / @@0470=5204 NOP / @@0471=7000 NOP / @@0472=7000 CLA / @@0473=7200 TAD C0177 / @@0474=1177 DCA D0022 / @@0475=3022 DCA I C0575 / @@0476=3775 L0477, CLA / @@0477=7200 TAD C0104 / @@0500=1104 DCA D0106 / @@0501=3106 L0502, JMS I C0105 / long call to S4200 @@0502=4505 STA / AC = 7777 (-0001) @@0503=7240 DCA D0033 / @@0504=3033 TAD C0574 / @@0505=1374 DCA D0021 / @@0506=3021 C0507, 6553 / 6553 TAD C0176 / @@0510=1176 C0511, 6555 / 6555 HLT / @@0512=7402 L0513, C0513, 6557 / 6557 JMP L0513 / @@0514=5313 CLA / @@0515=7200 TAD D0033 / @@0516=1033 CIA / @@0517=7041 TAD I C0575 / @@0520=1775 SZA CLA / @@0521=7640 HLT / @@0522=7402 NOP / @@0523=7000 TAD D0030 / @@0524=1030 SZA CLA / @@0525=7640 HLT / @@0526=7402 NOP / @@0527=7000 TAD D0031 / @@0530=1031 SZA CLA / @@0531=7640 HLT / @@0532=7402 NOP / @@0533=7000 TAD D0032 / @@0534=1032 SZA CLA / @@0535=7640 HLT / @@0536=7402 NOP / @@0537=7000 TAD D0034 / @@0540=1034 SZA CLA / @@0541=7640 HLT / @@0542=7402 NOP / @@0543=7000 TAD D0035 / @@0544=1035 SZA CLA / @@0545=7640 HLT / @@0546=7402 NOP / @@0547=7000 TAD D0036 / @@0550=1036 SZA CLA / @@0551=7640 HLT / @@0552=7402 NOP / @@0553=7000 TAD D0037 / @@0554=1037 SZA CLA / @@0555=7640 HLT / @@0556=7402 NOP / @@0557=7000 ISZ D0106 / @@0560=2106 JMP L0502 / @@0561=5302 ISZ I C0575 / @@0562=2775 JMP L0477 / @@0563=5277 NOP / @@0564=7000 NOP / @@0565=7000 JMP I C0573 / long jump to L0600 @@0566=5773 *0573 C0573, C0573, 0600 / AND I L0400 C0574, 6017 / 6017 C0575, 6020 / 6020 C0576, 6012 / RFB C0577, 6013 / 6013 L0600, CLA / @@0600=7200 TAD C0177 / @@0601=1177 DCA D0022 / @@0602=3022 DCA I C0777 / @@0603=3777 L0604, CLA / @@0604=7200 TAD C0104 / @@0605=1104 DCA D0106 / @@0606=3106 L0607, JMS I C0105 / long call to S4200 @@0607=4505 STA / AC = 7777 (-0001) @@0610=7240 DCA D0034 / @@0611=3034 TAD C0776 / @@0612=1376 DCA D0021 / @@0613=3021 C0614, 6553 / 6553 TAD C0176 / @@0615=1176 C0616, 6555 / 6555 HLT / @@0617=7402 L0620, C0620, 6557 / 6557 JMP L0620 / @@0621=5220 CLA / @@0622=7200 TAD D0034 / @@0623=1034 CIA / @@0624=7041 TAD I C0777 / @@0625=1777 SZA CLA / @@0626=7640 HLT / @@0627=7402 NOP / @@0630=7000 TAD D0030 / @@0631=1030 SZA CLA / @@0632=7640 HLT / @@0633=7402 NOP / @@0634=7000 TAD D0031 / @@0635=1031 SZA CLA / @@0636=7640 HLT / @@0637=7402 NOP / @@0640=7000 TAD D0032 / @@0641=1032 SZA CLA / @@0642=7640 HLT / @@0643=7402 NOP / @@0644=7000 TAD D0033 / @@0645=1033 SZA CLA / @@0646=7640 HLT / @@0647=7402 NOP / @@0650=7000 TAD D0035 / @@0651=1035 SZA CLA / @@0652=7640 HLT / @@0653=7402 NOP / @@0654=7000 TAD D0036 / @@0655=1036 SZA CLA / @@0656=7640 HLT / @@0657=7402 NOP / @@0660=7000 TAD D0037 / @@0661=1037 SZA CLA / @@0662=7640 HLT / @@0663=7402 NOP / @@0664=7000 ISZ D0106 / @@0665=2106 JMP L0607 / @@0666=5207 ISZ I C0777 / @@0667=2777 JMP L0604 / @@0670=5204 NOP / @@0671=7000 NOP / @@0672=7000 CLA / @@0673=7200 TAD C0177 / @@0674=1177 DCA D0022 / @@0675=3022 DCA I C0775 / @@0676=3775 L0677, CLA / @@0677=7200 TAD C0104 / @@0700=1104 DCA D0106 / @@0701=3106 L0702, JMS I C0105 / long call to S4200 @@0702=4505 STA / AC = 7777 (-0001) @@0703=7240 DCA D0035 / @@0704=3035 TAD C0774 / @@0705=1374 DCA D0021 / @@0706=3021 C0707, 6553 / 6553 TAD C0176 / @@0710=1176 C0711, 6555 / 6555 HLT / @@0712=7402 L0713, C0713, 6557 / 6557 JMP L0713 / @@0714=5313 CLA / @@0715=7200 TAD D0035 / @@0716=1035 CIA / @@0717=7041 TAD I C0775 / @@0720=1775 SZA CLA / @@0721=7640 HLT / @@0722=7402 NOP / @@0723=7000 TAD D0030 / @@0724=1030 SZA CLA / @@0725=7640 HLT / @@0726=7402 NOP / @@0727=7000 TAD D0031 / @@0730=1031 SZA CLA / @@0731=7640 HLT / @@0732=7402 NOP / @@0733=7000 TAD D0032 / @@0734=1032 SZA CLA / @@0735=7640 HLT / @@0736=7402 NOP / @@0737=7000 TAD D0033 / @@0740=1033 SZA CLA / @@0741=7640 HLT / @@0742=7402 NOP / @@0743=7000 TAD D0034 / @@0744=1034 SZA CLA / @@0745=7640 HLT / @@0746=7402 NOP / @@0747=7000 TAD D0036 / @@0750=1036 SZA CLA / @@0751=7640 HLT / @@0752=7402 NOP / @@0753=7000 TAD D0037 / @@0754=1037 SZA CLA / @@0755=7640 HLT / @@0756=7402 NOP / @@0757=7000 ISZ D0106 / @@0760=2106 JMP L0702 / @@0761=5302 ISZ I C0775 / @@0762=2775 JMP L0677 / @@0763=5277 NOP / @@0764=7000 NOP / @@0765=7000 JMP I C0773 / long jump to L1000 @@0766=5773 *0773 C0773, C0773, 1000 / TAD L0000 C0774, 6031 / KSF C0775, 6032 / KCC C0776, 6024 / PPC C0777, 6025 / 6025 L1000, C1000, 7200 / CLA TAD C0177 / @@1001=1177 DCA D0022 / @@1002=3022 DCA I C1177 / @@1003=3777 L1004, CLA / @@1004=7200 TAD C0104 / @@1005=1104 DCA D0106 / @@1006=3106 L1007, JMS I C0105 / long call to S4200 @@1007=4505 STA / AC = 7777 (-0001) @@1010=7240 DCA D0036 / @@1011=3036 TAD C1176 / @@1012=1376 DCA D0021 / @@1013=3021 C1014, 6553 / 6553 TAD C0176 / @@1015=1176 C1016, 6555 / 6555 HLT / @@1017=7402 L1020, C1020, 6557 / 6557 JMP L1020 / @@1021=5220 CLA / @@1022=7200 TAD D0036 / @@1023=1036 CIA / @@1024=7041 TAD I C1177 / @@1025=1777 SZA CLA / @@1026=7640 HLT / @@1027=7402 C1030, 7000 / NOP TAD D0030 / @@1031=1030 SZA CLA / @@1032=7640 HLT / @@1033=7402 NOP / @@1034=7000 TAD D0031 / @@1035=1031 SZA CLA / @@1036=7640 HLT / @@1037=7402 NOP / @@1040=7000 TAD D0032 / @@1041=1032 SZA CLA / @@1042=7640 HLT / @@1043=7402 NOP / @@1044=7000 TAD D0033 / @@1045=1033 SZA CLA / @@1046=7640 HLT / @@1047=7402 NOP / @@1050=7000 TAD D0034 / @@1051=1034 SZA CLA / @@1052=7640 HLT / @@1053=7402 NOP / @@1054=7000 TAD D0035 / @@1055=1035 SZA CLA / @@1056=7640 HLT / @@1057=7402 NOP / @@1060=7000 TAD D0037 / @@1061=1037 SZA CLA / @@1062=7640 HLT / @@1063=7402 NOP / @@1064=7000 ISZ D0106 / @@1065=2106 JMP L1007 / @@1066=5207 ISZ I C1177 / @@1067=2777 JMP L1004 / @@1070=5204 NOP / @@1071=7000 NOP / @@1072=7000 CLA / @@1073=7200 TAD C0177 / @@1074=1177 DCA D0022 / @@1075=3022 DCA I C1175 / @@1076=3775 L1077, CLA / @@1077=7200 TAD C0104 / @@1100=1104 DCA D0106 / @@1101=3106 L1102, JMS I C0105 / long call to S4200 @@1102=4505 STA / AC = 7777 (-0001) @@1103=7240 DCA D0037 / @@1104=3037 TAD C1174 / @@1105=1374 DCA D0021 / @@1106=3021 C1107, 6553 / 6553 TAD C0176 / @@1110=1176 C1111, 6555 / 6555 HLT / @@1112=7402 L1113, C1113, 6557 / 6557 JMP L1113 / @@1114=5313 CLA / @@1115=7200 TAD D0037 / @@1116=1037 CIA / @@1117=7041 TAD I C1175 / @@1120=1775 SZA CLA / @@1121=7640 HLT / @@1122=7402 NOP / @@1123=7000 TAD D0030 / @@1124=1030 SZA CLA / @@1125=7640 HLT / @@1126=7402 NOP / @@1127=7000 TAD D0031 / @@1130=1031 SZA CLA / @@1131=7640 HLT / @@1132=7402 NOP / @@1133=7000 TAD D0032 / @@1134=1032 SZA CLA / @@1135=7640 HLT / @@1136=7402 NOP / @@1137=7000 TAD D0033 / @@1140=1033 SZA CLA / @@1141=7640 HLT / @@1142=7402 NOP / @@1143=7000 TAD D0034 / @@1144=1034 SZA CLA / @@1145=7640 HLT / @@1146=7402 NOP / @@1147=7000 TAD D0035 / @@1150=1035 SZA CLA / @@1151=7640 HLT / @@1152=7402 NOP / @@1153=7000 TAD D0036 / @@1154=1036 SZA CLA / @@1155=7640 HLT / @@1156=7402 NOP / @@1157=7000 ISZ D0106 / @@1160=2106 JMP L1102 / @@1161=5302 ISZ I C1175 / @@1162=2775 JMP L1077 / @@1163=5277 NOP / @@1164=7000 NOP / @@1165=7000 JMP I C1173 / long jump to L1200 @@1166=5773 *1173 C1173, C1173, 1200 / TAD L1000 C1174, 6043 / 6043 C1175, 6044 / TPC C1176, 6036 / KRB C1177, 6037 / 6037 L1200, CLA / @@1200=7200 TAD C1377 / @@1201=1377 DCA D0022 / @@1202=3022 TAD C0104 / @@1203=1104 DCA D0106 / @@1204=3106 JMS I C1376 / long call to S4227 @@1205=4776 L1206, CLA IAC / @@1206=7201 JMS I C0105 / long call to S4200 @@1207=4505 TAD C1375 / @@1210=1375 DCA D0021 / @@1211=3021 C1212, 6553 / 6553 TAD C0176 / @@1213=1176 C1214, 6555 / 6555 HLT / @@1215=7402 L1216, C1216, 6557 / 6557 JMP L1216 / @@1217=5216 CLA / @@1220=7200 TAD I C1374 / @@1221=1774 CIA / @@1222=7041 TAD I C1377 / @@1223=1777 SZA CLA / @@1224=7640 HLT / @@1225=7402 NOP / @@1226=7000 TAD I C1373 / @@1227=1773 CIA / @@1230=7041 TAD I C1372 / @@1231=1772 SZA CLA / @@1232=7640 HLT / @@1233=7402 NOP / @@1234=7000 TAD I C1371 / @@1235=1771 CIA / @@1236=7041 TAD I C1370 / @@1237=1770 SZA CLA / @@1240=7640 HLT / @@1241=7402 NOP / @@1242=7000 TAD I C1367 / @@1243=1767 CIA / @@1244=7041 TAD I C1366 / @@1245=1766 SZA CLA / @@1246=7640 HLT / @@1247=7402 NOP / @@1250=7000 TAD I C1365 / @@1251=1765 CIA / @@1252=7041 TAD I C1364 / @@1253=1764 SZA CLA / @@1254=7640 HLT / @@1255=7402 NOP / @@1256=7000 TAD I C1363 / @@1257=1763 CIA / @@1260=7041 TAD I C1362 / @@1261=1762 SZA CLA / @@1262=7640 HLT / @@1263=7402 NOP / @@1264=7000 TAD I C1361 / @@1265=1761 CIA / @@1266=7041 TAD I C1360 / @@1267=1760 SZA CLA / @@1270=7640 HLT / @@1271=7402 NOP / @@1272=7000 TAD I C1357 / @@1273=1757 CIA / @@1274=7041 TAD I C1356 / @@1275=1756 SZA CLA / @@1276=7640 HLT / @@1277=7402 NOP / @@1300=7000 ISZ D0106 / @@1301=2106 JMP L1206 / @@1302=5206 JMS I C1355 / long call to S4240 @@1303=4755 NOP / @@1304=7000 NOP / @@1305=7000 JMP I C1354 / long jump to L1400 @@1306=5754 *1354 C1354, C1354, 1400 / TAD I L0000 C1355, C1355, 4240 / JMS C1240 C1356, 7777 / CLA MQA SCA MQL LSR + C1357, 6067 / DYS C1360, 7776 / SPA SNA SZL CLA OSR HLT C1361, 6065 / 6065 C1362, 7775 / CLA MQA SCA MQL ASR + C1363, 6063 / DYL C1364, 7774 / SPA SNA SZL CLA OSR C1365, 6061 / DCY C1366, 7773 / CLA MQA SCA MQL SHL + C1367, 6057 / DXS C1370, 7772 / SPA SNA SZL CLA HLT C1371, 6055 / 6055 C1372, 7771 / CLA MQA SCA MQL NMI C1373, 6053 / DXL C1374, 6051 / DCX C1375, 6050 / 6050 C1376, C1376, 4227 / JMS C1227 C1377, 7770 / SPA SNA SZL CLA L1400, C1400, 7300 / CLA CLL TAD C0177 / @@1401=1177 DCA D0022 / @@1402=3022 DCA I C1577 / @@1403=3777 JMS I C0105 / long call to S4200 @@1404=4505 DCA D0110 / @@1405=3110 L1406, CLA / @@1406=7200 TAD C0104 / @@1407=1104 DCA D0106 / @@1410=3106 L1411, CLA CLL / AC = 0000 @@1411=7300 TAD C1576 / @@1412=1376 DCA D0021 / @@1413=3021 TAD C0176 / @@1414=1176 C1415, 6555 / 6555 HLT / @@1416=7402 CLA CLL / AC = 0000 @@1417=7300 TAD I C1577 / @@1420=1777 TAD D0110 / @@1421=1110 DCA D0110 / @@1422=3110 L1423, C1423, 6557 / 6557 JMP L1423 / @@1424=5223 CLA CLL / AC = 0000 @@1425=7300 TAD D0110 / @@1426=1110 CIA / @@1427=7041 TAD D0030 / @@1430=1030 SZA / @@1431=7440 HLT / @@1432=7402 NOP / @@1433=7000 ISZ D0106 / @@1434=2106 JMP L1411 / @@1435=5211 ISZ I C1577 / @@1436=2777 JMP L1406 / @@1437=5206 NOP / @@1440=7000 NOP / @@1441=7000 CLA CLL / AC = 0000 @@1442=7300 TAD C0177 / @@1443=1177 DCA D0022 / @@1444=3022 DCA I C1575 / @@1445=3775 JMS I C0105 / long call to S4200 @@1446=4505 DCA D0110 / @@1447=3110 L1450, CLA / @@1450=7200 TAD C0104 / @@1451=1104 DCA D0106 / @@1452=3106 L1453, CLA CLL / AC = 0000 @@1453=7300 TAD C1574 / @@1454=1374 DCA D0021 / @@1455=3021 C1456, 6553 / 6553 TAD C0176 / @@1457=1176 C1460, 6555 / 6555 HLT / @@1461=7402 CLA CLL / AC = 0000 @@1462=7300 TAD I C1575 / @@1463=1775 TAD D0110 / @@1464=1110 DCA D0110 / @@1465=3110 L1466, C1466, 6557 / 6557 JMP L1466 / @@1467=5266 CLA CLL / AC = 0000 @@1470=7300 TAD D0110 / @@1471=1110 CIA / @@1472=7041 TAD D0031 / @@1473=1031 SZA / @@1474=7440 HLT / @@1475=7402 NOP / @@1476=7000 ISZ D0106 / @@1477=2106 JMP L1453 / @@1500=5253 ISZ I C1575 / @@1501=2775 JMP L1450 / @@1502=5250 NOP / @@1503=7000 NOP / @@1504=7000 CLA CLL / AC = 0000 @@1505=7300 TAD C0177 / @@1506=1177 DCA D0022 / @@1507=3022 DCA I C1573 / @@1510=3773 JMS I C0105 / long call to S4200 @@1511=4505 DCA D0110 / @@1512=3110 L1513, CLA / @@1513=7200 TAD C0104 / @@1514=1104 DCA D0106 / @@1515=3106 L1516, CLA CLL / AC = 0000 @@1516=7300 TAD C1572 / @@1517=1372 DCA D0021 / @@1520=3021 C1521, 6553 / 6553 TAD C0176 / @@1522=1176 C1523, 6555 / 6555 HLT / @@1524=7402 CLA CLL / AC = 0000 @@1525=7300 TAD I C1573 / @@1526=1773 TAD D0110 / @@1527=1110 DCA D0110 / @@1530=3110 L1531, C1531, 6557 / 6557 JMP L1531 / @@1532=5331 CLA CLL / AC = 0000 @@1533=7300 TAD D0110 / @@1534=1110 CIA / @@1535=7041 TAD D0032 / @@1536=1032 SZA / @@1537=7440 HLT / @@1540=7402 NOP / @@1541=7000 ISZ D0106 / @@1542=2106 JMP L1516 / @@1543=5316 ISZ I C1573 / @@1544=2773 JMP L1513 / @@1545=5313 NOP / @@1546=7000 NOP / @@1547=7000 JMP I C1571 / long jump to L1600 @@1550=5771 *1571 C1571, C1571, 1600 / TAD I L1400 C1572, 6105 / 6105 C1573, 6106 / 6106 C1574, 6100 / 6100 C1575, 6101 / SMP C1576, 6073 / 6073 C1577, 6074 / DSB L1600, CLA CLL / AC = 0000 @@1600=7300 TAD C0177 / @@1601=1177 DCA D0022 / @@1602=3022 DCA I C1777 / @@1603=3777 JMS I C0105 / long call to S4200 @@1604=4505 DCA D0110 / @@1605=3110 L1606, CLA / @@1606=7200 TAD C0104 / @@1607=1104 DCA D0106 / @@1610=3106 L1611, CLA CLL / AC = 0000 @@1611=7300 TAD C1776 / @@1612=1376 DCA D0021 / @@1613=3021 C1614, 6553 / 6553 TAD C0176 / @@1615=1176 C1616, 6555 / 6555 HLT / @@1617=7402 CLA CLL / AC = 0000 @@1620=7300 TAD I C1777 / @@1621=1777 TAD D0110 / @@1622=1110 DCA D0110 / @@1623=3110 L1624, C1624, 6557 / 6557 JMP L1624 / @@1625=5224 CLA CLL / AC = 0000 @@1626=7300 TAD D0110 / @@1627=1110 CIA / @@1630=7041 TAD D0033 / @@1631=1033 SZA / @@1632=7440 HLT / @@1633=7402 NOP / @@1634=7000 ISZ D0106 / @@1635=2106 JMP L1611 / @@1636=5211 ISZ I C1777 / @@1637=2777 JMP L1606 / @@1640=5206 NOP / @@1641=7000 NOP / @@1642=7000 CLA CLL / AC = 0000 @@1643=7300 TAD C0177 / @@1644=1177 DCA D0022 / @@1645=3022 DCA I C1775 / @@1646=3775 JMS I C0105 / long call to S4200 @@1647=4505 DCA D0110 / @@1650=3110 L1651, CLA / @@1651=7200 TAD C0104 / @@1652=1104 DCA D0106 / @@1653=3106 L1654, CLA CLL / AC = 0000 @@1654=7300 TAD C1774 / @@1655=1374 DCA D0021 / @@1656=3021 C1657, 6553 / 6553 TAD C0176 / @@1660=1176 C1661, 6555 / 6555 HLT / @@1662=7402 CLA CLL / AC = 0000 @@1663=7300 TAD I C1775 / @@1664=1775 TAD D0110 / @@1665=1110 DCA D0110 / @@1666=3110 L1667, C1667, 6557 / 6557 JMP L1667 / @@1670=5267 CLA CLL / AC = 0000 @@1671=7300 TAD D0110 / @@1672=1110 CIA / @@1673=7041 TAD D0034 / @@1674=1034 SZA / @@1675=7440 HLT / @@1676=7402 NOP / @@1677=7000 ISZ D0106 / @@1700=2106 JMP L1654 / @@1701=5254 ISZ I C1775 / @@1702=2775 JMP L1651 / @@1703=5251 NOP / @@1704=7000 NOP / @@1705=7000 CLA CLL / AC = 0000 @@1706=7300 TAD C0177 / @@1707=1177 DCA D0022 / @@1710=3022 DCA I C1773 / @@1711=3773 JMS I C0105 / long call to S4200 @@1712=4505 DCA D0110 / @@1713=3110 L1714, CLA / @@1714=7200 TAD C0104 / @@1715=1104 DCA D0106 / @@1716=3106 L1717, CLA CLL / AC = 0000 @@1717=7300 TAD C1772 / @@1720=1372 DCA D0021 / @@1721=3021 C1722, 6553 / 6553 TAD C0176 / @@1723=1176 C1724, 6555 / 6555 HLT / @@1725=7402 CLA CLL / AC = 0000 @@1726=7300 TAD I C1773 / @@1727=1773 TAD D0110 / @@1730=1110 DCA D0110 / @@1731=3110 L1732, C1732, 6557 / 6557 JMP L1732 / @@1733=5332 CLA CLL / AC = 0000 @@1734=7300 TAD D0110 / @@1735=1110 CIA / @@1736=7041 TAD D0035 / @@1737=1035 SZA / @@1740=7440 HLT / @@1741=7402 NOP / @@1742=7000 ISZ D0106 / @@1743=2106 JMP L1717 / @@1744=5317 ISZ I C1773 / @@1745=2773 JMP L1714 / @@1746=5314 NOP / @@1747=7000 NOP / @@1750=7000 JMP I C1771 / long jump to L2000 @@1751=5771 *1771 C1771, C1771, 2000 / ISZ L0000 C1772, 6123 / MTKF C1773, 6124 / MTPC C1774, 6116 / MKRB C1775, 6117 / MTON C1776, 6112 / MKCC C1777, 6113 / MTPF L2000, D2000, 7300 / CLA CLL TAD C0177 / @@2001=1177 DCA D0022 / @@2002=3022 DCA I C2177 / @@2003=3777 JMS I C0105 / long call to S4200 @@2004=4505 DCA D0110 / @@2005=3110 L2006, CLA / @@2006=7200 TAD C0104 / @@2007=1104 DCA D0106 / @@2010=3106 L2011, CLA CLL / AC = 0000 @@2011=7300 TAD C2176 / @@2012=1376 DCA D0021 / @@2013=3021 C2014, 6553 / 6553 TAD C0176 / @@2015=1176 C2016, 6555 / 6555 HLT / @@2017=7402 CLA CLL / AC = 0000 @@2020=7300 TAD I C2177 / @@2021=1777 TAD D0110 / @@2022=1110 DCA D0110 / @@2023=3110 L2024, C2024, 6557 / 6557 JMP L2024 / @@2025=5224 CLA CLL / AC = 0000 @@2026=7300 TAD D0110 / @@2027=1110 CIA / @@2030=7041 TAD D0036 / @@2031=1036 SZA / @@2032=7440 HLT / @@2033=7402 NOP / @@2034=7000 ISZ D0106 / @@2035=2106 JMP L2011 / @@2036=5211 ISZ I C2177 / @@2037=2777 JMP L2006 / @@2040=5206 NOP / @@2041=7000 NOP / @@2042=7000 CLA CLL / AC = 0000 @@2043=7300 TAD C0177 / @@2044=1177 DCA D0022 / @@2045=3022 DCA I C2175 / @@2046=3775 JMS I C0105 / long call to S4200 @@2047=4505 DCA D0110 / @@2050=3110 L2051, CLA / @@2051=7200 TAD C0104 / @@2052=1104 DCA D0106 / @@2053=3106 L2054, CLA CLL / AC = 0000 @@2054=7300 TAD C2174 / @@2055=1374 DCA D0021 / @@2056=3021 C2057, 6553 / 6553 TAD C0176 / @@2060=1176 C2061, 6555 / 6555 HLT / @@2062=7402 CLA CLL / AC = 0000 @@2063=7300 TAD I C2175 / @@2064=1775 TAD D0110 / @@2065=1110 DCA D0110 / @@2066=3110 L2067, C2067, 6557 / 6557 JMP L2067 / @@2070=5267 CLA CLL / AC = 0000 @@2071=7300 TAD D0110 / @@2072=1110 CIA / @@2073=7041 TAD D0037 / @@2074=1037 SZA CLA / @@2075=7640 HLT / @@2076=7402 NOP / @@2077=7000 ISZ D0106 / @@2100=2106 JMP L2054 / @@2101=5254 ISZ I C2175 / @@2102=2775 JMP L2051 / @@2103=5251 NOP / @@2104=7000 NOP / @@2105=7000 CLA CLL / AC = 0000 @@2106=7300 TAD C0177 / @@2107=1177 DCA D0022 / @@2110=3022 JMS I C0105 / long call to S4200 @@2111=4505 DCA D0110 / @@2112=3110 L2113, CLA CLL / AC = 0000 @@2113=7300 TAD C2173 / @@2114=1373 DCA D0021 / @@2115=3021 C2116, 6553 / 6553 TAD C0176 / @@2117=1176 C2120, 6555 / 6555 HLT / @@2121=7402 L2122, C2122, 6557 / 6557 JMP L2122 / @@2123=5322 ISZ D0110 / @@2124=2110 JMP L2113 / @@2125=5313 CLA / @@2126=7200 TAD D0030 / @@2127=1030 SZA CLA / @@2130=7640 HLT / @@2131=7402 NOP / @@2132=7000 TAD D0031 / @@2133=1031 SZA CLA / @@2134=7640 HLT / @@2135=7402 NOP / @@2136=7000 TAD D0032 / @@2137=1032 SZA CLA / @@2140=7640 HLT / @@2141=7402 NOP / @@2142=7000 TAD D0033 / @@2143=1033 SZA CLA / @@2144=7640 HLT / @@2145=7402 NOP / @@2146=7000 TAD D0034 / @@2147=1034 SZA CLA / @@2150=7640 HLT / @@2151=7402 NOP / @@2152=7000 TAD D0035 / @@2153=1035 SZA CLA / @@2154=7640 HLT / @@2155=7402 NOP / @@2156=7000 TAD D0036 / @@2157=1036 SZA CLA / @@2160=7640 HLT / @@2161=7402 NOP / @@2162=7000 TAD D0037 / @@2163=1037 SZA CLA / @@2164=7640 HLT / @@2165=7402 NOP / @@2166=7000 JMP I C2172 / long jump to L2200 @@2167=5772 *2172 C2172, C2172, 2200 / ISZ L2000 C2173, 6142 / 6142 C2174, 6135 / 6135 C2175, 6136 / CCEC C2176, 6130 / 6130 C2177, 6131 / 6131 L2200, CLA CLL / AC = 0000 @@2200=7300 JMS I C0105 / long call to S4200 @@2201=4505 DCA D0110 / @@2202=3110 CLA / @@2203=7200 TAD C0177 / @@2204=1177 DCA D0022 / @@2205=3022 L2206, CLA / @@2206=7200 TAD C2377 / @@2207=1377 DCA D0021 / @@2210=3021 TAD C0176 / @@2211=1176 C2212, 6555 / 6555 HLT / @@2213=7402 L2214, C2214, 6557 / 6557 JMP L2214 / @@2215=5214 ISZ D0110 / @@2216=2110 SKP / @@2217=7410 JMP L2237 / @@2220=5237 CLA / @@2221=7200 TAD D0110 / @@2222=1110 CIA / @@2223=7041 TAD D0030 / @@2224=1030 SZA CLA / @@2225=7640 HLT / @@2226=7402 NOP / @@2227=7000 TAD C2376 / @@2230=1376 CIA / @@2231=7041 TAD D0021 / @@2232=1021 SZA CLA / @@2233=7640 HLT / @@2234=7402 NOP / @@2235=7000 JMP L2206 / @@2236=5206 L2237, CLA / @@2237=7200 TAD D0030 / @@2240=1030 SZA CLA / @@2241=7640 HLT / @@2242=7402 NOP / @@2243=7000 TAD C2375 / @@2244=1375 CIA / @@2245=7041 TAD D0021 / @@2246=1021 SZA CLA / @@2247=7640 HLT / @@2250=7402 NOP / @@2251=7000 NOP / @@2252=7000 CLA / @@2253=7200 DCA D0110 / @@2254=3110 TAD C2374 / @@2255=1374 DCA D0111 / @@2256=3111 JMS I C0105 / long call to S4200 @@2257=4505 CLA / @@2260=7200 TAD C0177 / @@2261=1177 DCA D0022 / @@2262=3022 TAD C2373 / @@2263=1373 DCA D0021 / @@2264=3021 C2265, 6553 / 6553 TAD C0176 / @@2266=1176 C2267, 6555 / 6555 HLT / @@2270=7402 L2271, C2271, 6557 / 6557 SKP / @@2272=7410 JMP L2301 / @@2273=5301 ISZ D0110 / @@2274=2110 JMP L2271 / @@2275=5271 ISZ D0111 / @@2276=2111 JMP L2271 / @@2277=5271 HLT / @@2300=7402 L2301, NOP / @@2301=7000 CLA / @@2302=7200 TAD D0030 / @@2303=1030 SZA CLA / @@2304=7640 HLT / @@2305=7402 NOP / @@2306=7000 TAD C2372 / @@2307=1372 CIA / @@2310=7041 TAD D0021 / @@2311=1021 SZA CLA / @@2312=7640 HLT / @@2313=7402 NOP / @@2314=7000 NOP / @@2315=7000 CLA / @@2316=7200 JMS I C0105 / long call to S4200 @@2317=4505 CLA / @@2320=7200 TAD C0177 / @@2321=1177 DCA D0022 / @@2322=3022 TAD C2371 / @@2323=1371 DCA D0021 / @@2324=3021 CMA / @@2325=7040 DCA D0030 / @@2326=3030 TAD C2370 / @@2327=1370 DCA D0031 / @@2330=3031 C2331, 6553 / 6553 TAD C0176 / @@2332=1176 C2333, 6555 / 6555 HLT / @@2334=7402 L2335, C2335, 6557 / 6557 JMP L2335 / @@2336=5335 CLA / @@2337=7200 TAD D0030 / @@2340=1030 CMA / @@2341=7040 SZA CLA / @@2342=7640 HLT / @@2343=7402 NOP / @@2344=7000 TAD C2367 / @@2345=1367 CIA / @@2346=7041 TAD D0021 / @@2347=1021 SZA CLA / @@2350=7640 HLT / @@2351=7402 NOP / @@2352=7000 NOP / @@2353=7000 JMP I C2366 / long jump to L2400 @@2354=5766 *2366 C2366, C2366, 2400 / ISZ I L0000 C2367, 6210 / 6210 C2370, 7634 / SZL CLA OSR C2371, 6202 / CIF0 C2372, 6200 / 6200 C2373, 6175 / 6175 C2374, 7773 / CLA MQA SCA MQL SHL + C2375, 6170 / 6170 C2376, 6173 / 6173 C2377, 6165 / 6165 L2400, C2400, 7200 / CLA JMS I C0105 / long call to S4200 @@2401=4505 JMS I C2577 / long call to S4332 @@2402=4777 CLA / @@2403=7200 TAD C2576 / @@2404=1376 DCA D0021 / @@2405=3021 C2406, 6553 / 6553 TAD C0176 / @@2407=1176 C2410, 6555 / 6555 HLT / @@2411=7402 L2412, C2412, 6557 / 6557 JMP L2412 / @@2413=5212 CLA / @@2414=7200 TAD C2575 / @@2415=1375 JMS I C2574 / long call to S4312 @@2416=4774 HLT / @@2417=7402 NOP / @@2420=7000 NOP / @@2421=7000 CLA / @@2422=7200 JMS I C0105 / long call to S4200 @@2423=4505 JMS I C2577 / long call to S4332 @@2424=4777 JMS I C2573 / long call to S4215 @@2425=4773 CLA / @@2426=7200 TAD C2572 / @@2427=1372 DCA D0021 / @@2430=3021 TAD C2571 / @@2431=1371 DCA D0023 / @@2432=3023 C2433, 6553 / 6553 TAD C0176 / @@2434=1176 C2435, 6555 / 6555 HLT / @@2436=7402 L2437, C2437, 6557 / 6557 JMP L2437 / @@2440=5237 CLA / @@2441=7200 TAD C2575 / @@2442=1375 JMS I C2574 / long call to S4312 @@2443=4774 HLT / @@2444=7402 NOP / @@2445=7000 NOP / @@2446=7000 CLA / @@2447=7200 JMS I C0105 / long call to S4200 @@2450=4505 JMS I C2577 / long call to S4332 @@2451=4777 JMS I C2573 / long call to S4215 @@2452=4773 CLA / @@2453=7200 TAD C2570 / @@2454=1370 DCA D0021 / @@2455=3021 TAD C0177 / @@2456=1177 DCA D0022 / @@2457=3022 CMA / @@2460=7040 DCA D0033 / @@2461=3033 C2462, 6553 / 6553 TAD C0176 / @@2463=1176 C2464, 6555 / 6555 HLT / @@2465=7402 L2466, C2466, 6557 / 6557 JMP L2466 / @@2467=5266 CLA / @@2470=7200 TAD C2575 / @@2471=1375 JMS I C2574 / long call to S4312 @@2472=4774 HLT / @@2473=7402 NOP / @@2474=7000 CLA / @@2475=7200 TAD D0033 / @@2476=1033 SZA CLA / @@2477=7640 HLT / @@2500=7402 NOP / @@2501=7000 STA / AC = 7777 (-0001) @@2502=7240 TAD D0034 / @@2503=1034 SZA CLA / @@2504=7640 HLT / @@2505=7402 NOP / @@2506=7000 NOP / @@2507=7000 CLA / @@2510=7200 JMS I C0105 / long call to S4200 @@2511=4505 JMS I C2573 / long call to S4215 @@2512=4773 JMS I C2577 / long call to S4332 @@2513=4777 CLA / @@2514=7200 TAD C2567 / @@2515=1367 DCA D0021 / @@2516=3021 STA / AC = 7777 (-0001) @@2517=7240 DCA D0031 / @@2520=3031 STA / AC = 7777 (-0001) @@2521=7240 DCA D0032 / @@2522=3032 TAD C2566 / @@2523=1366 DCA D0023 / @@2524=3023 C2525, 6553 / 6553 TAD C0177 / @@2526=1177 DCA D0022 / @@2527=3022 TAD C0176 / @@2530=1176 C2531, 6555 / 6555 HLT / @@2532=7402 L2533, C2533, 6557 / 6557 JMP L2533 / @@2534=5333 CLA / @@2535=7200 TAD C2575 / @@2536=1375 JMS I C2574 / long call to S4312 @@2537=4774 HLT / @@2540=7402 NOP / @@2541=7000 CLA / @@2542=7200 TAD D0031 / @@2543=1031 SZA CLA / @@2544=7640 HLT / @@2545=7402 NOP / @@2546=7000 TAD D0032 / @@2547=1032 SZA CLA / @@2550=7640 HLT / @@2551=7402 NOP / @@2552=7000 NOP / @@2553=7000 JMP I C2565 / long jump to L2600 @@2554=5765 *2565 C2565, C2565, 2600 / ISZ I L2400 C2566, 0076 / AND C0076 C2567, 6243 / 6243 C2570, 6234 / RIB C2571, 5000 / JMP L0000 C2572, 6225 / 6225 C2573, C2573, 4215 / JMS C2415 C2574, C2574, 4312 / JMS C2512 C2575, 7775 / CLA MQA SCA MQL ASR + C2576, 6216 / 6216 C2577, C2577, 4332 / JMS C2532 L2600, CLA / @@2600=7200 JMS I C0105 / long call to S4200 @@2601=4505 JMS I C2777 / long call to S4215 @@2602=4777 JMS I C2776 / long call to S4332 @@2603=4776 CLA / @@2604=7200 TAD C2775 / @@2605=1375 DCA D0021 / @@2606=3021 STA / AC = 7777 (-0001) @@2607=7240 DCA D0035 / @@2610=3035 STA / AC = 7777 (-0001) @@2611=7240 DCA D0036 / @@2612=3036 TAD C2774 / @@2613=1374 DCA D0030 / @@2614=3030 C2615, 6553 / 6553 TAD C0177 / @@2616=1177 DCA D0022 / @@2617=3022 TAD C0176 / @@2620=1176 C2621, 6555 / 6555 HLT / @@2622=7402 L2623, C2623, 6557 / 6557 JMP L2623 / @@2624=5223 CLA / @@2625=7200 TAD C2773 / @@2626=1373 JMS I C2772 / long call to S4312 @@2627=4772 HLT / @@2630=7402 NOP / @@2631=7000 NOP / @@2632=7000 CLA / @@2633=7200 JMS I C0105 / long call to S4200 @@2634=4505 JMS I C2777 / long call to S4215 @@2635=4777 JMS I C2776 / long call to S4332 @@2636=4776 CLA / @@2637=7200 TAD C2775 / @@2640=1375 DCA D0021 / @@2641=3021 STA / AC = 7777 (-0001) @@2642=7240 DCA D0035 / @@2643=3035 STA / AC = 7777 (-0001) @@2644=7240 DCA D0036 / @@2645=3036 TAD C2771 / @@2646=1371 DCA D0030 / @@2647=3030 CLL CML RAR / @@2650=7130 C2651, 6553 / 6553 CLA / @@2652=7200 TAD C0177 / @@2653=1177 DCA D0022 / @@2654=3022 TAD C0176 / @@2655=1176 C2656, 6555 / 6555 HLT / @@2657=7402 L2660, C2660, 6557 / 6557 JMP L2660 / @@2661=5260 CLA / @@2662=7200 TAD C2770 / @@2663=1370 JMS I C2772 / long call to S4312 @@2664=4772 HLT / @@2665=7402 CLA / @@2666=7200 CLA / @@2667=7200 JMS I C2767 / long call to S4200 @@2670=4767 L2671, JMS I C2777 / long call to S4215 @@2671=4777 TAD C0177 / @@2672=1177 DCA D0022 / @@2673=3022 CLA / @@2674=7200 TAD C2766 / @@2675=1366 DCA D0021 / @@2676=3021 C2677, 6553 / 6553 TAD C0176 / @@2700=1176 C2701, 6555 / 6555 HLT / @@2702=7402 L2703, C2703, 6557 / 6557 JMP L2703 / @@2704=5303 CLA / @@2705=7200 TAD D0030 / @@2706=1030 CIA / @@2707=7041 TAD D0037 / @@2710=1037 SZA CLA / @@2711=7640 HLT / @@2712=7402 NOP / @@2713=7000 ISZ D0030 / @@2714=2030 JMP L2671 / @@2715=5271 NOP / @@2716=7000 NOP / @@2717=7000 CLA / @@2720=7200 JMS I C2767 / long call to S4200 @@2721=4767 L2722, JMS I C2777 / long call to S4215 @@2722=4777 TAD C0177 / @@2723=1177 DCA D0022 / @@2724=3022 CLA / @@2725=7200 TAD C2766 / @@2726=1366 DCA D0021 / @@2727=3021 CLL CML RAR / @@2730=7130 C2731, 6553 / 6553 CLA / @@2732=7200 TAD C0176 / @@2733=1176 C2734, 6555 / 6555 HLT / @@2735=7402 L2736, C2736, 6557 / 6557 JMP L2736 / @@2737=5336 CLA / @@2740=7200 TAD D0030 / @@2741=1030 CIA / @@2742=7041 TAD D0037 / @@2743=1037 SZA CLA / @@2744=7640 HLT / @@2745=7402 NOP / @@2746=7000 ISZ D0030 / @@2747=2030 JMP L2722 / @@2750=5322 NOP / @@2751=7000 NOP / @@2752=7000 JMP I C2765 / long jump to L3000 @@2753=5765 *2765 C2765, C2765, 3000 / DCA L0000 C2766, 6267 / 6267 C2767, C2767, 4200 / JMS L2600 C2770, 7700 / SMA CLA C2771, 7740 / SMA SZA CLA C2772, C2772, 4312 / JMS C2712 C2773, 7701 / CLA MQA C2774, 7753 / CLA MQA SCA SHL + C2775, 6250 / 6250 C2776, C2776, 4332 / JMS C2732 C2777, C2777, 4215 / JMS C2615 L3000, D3000, 7200 / CLA JMS I C3177 / long call to S4423 @@3001=4777 L3002, JMS I C3176 / long call to S4200 @@3002=4776 JMS I C3175 / long call to S4215 @@3003=4775 CLA / @@3004=7200 TAD C0177 / @@3005=1177 DCA D0022 / @@3006=3022 DCA D0031 / @@3007=3031 JMS I C3174 / long call to S4436 @@3010=4774 CLA / @@3011=7200 TAD C3173 / @@3012=1373 DCA D0021 / @@3013=3021 C3014, 6553 / 6553 TAD C0176 / @@3015=1176 C3016, 6555 / 6555 HLT / @@3017=7402 L3020, C3020, 6557 / 6557 JMP L3020 / @@3021=5220 JMS I C3172 / long call to S4400 @@3022=4772 HLT / @@3023=7402 NOP / @@3024=7000 CLA / @@3025=7200 ISZ D0110 / @@3026=2110 JMP L3002 / @@3027=5202 NOP / @@3030=7000 NOP / @@3031=7000 CLA / @@3032=7200 JMS I C3177 / long call to S4423 @@3033=4777 L3034, JMS I C3176 / long call to S4200 @@3034=4776 JMS I C3175 / long call to S4215 @@3035=4775 CLA / @@3036=7200 TAD C0177 / @@3037=1177 DCA D0022 / @@3040=3022 CLA CLL IAC / AC = 0001 @@3041=7301 DCA D0032 / @@3042=3032 JMS I C3174 / long call to S4436 @@3043=4774 CLA / @@3044=7200 TAD C3171 / @@3045=1371 DCA D0021 / @@3046=3021 C3047, 6553 / 6553 TAD C0176 / @@3050=1176 C3051, 6555 / 6555 HLT / @@3052=7402 L3053, C3053, 6557 / 6557 JMP L3053 / @@3054=5253 JMS I C3172 / long call to S4400 @@3055=4772 HLT / @@3056=7402 NOP / @@3057=7000 CLA / @@3060=7200 ISZ D0110 / @@3061=2110 JMP L3034 / @@3062=5234 NOP / @@3063=7000 NOP / @@3064=7000 CLA / @@3065=7200 JMS I C3177 / long call to S4423 @@3066=4777 L3067, JMS I C3176 / long call to S4200 @@3067=4776 JMS I C3175 / long call to S4215 @@3070=4775 CLA / @@3071=7200 TAD C0177 / @@3072=1177 DCA D0022 / @@3073=3022 TAD C3170 / @@3074=1370 DCA D0033 / @@3075=3033 JMS I C3174 / long call to S4436 @@3076=4774 CLA / @@3077=7200 TAD C3167 / @@3100=1367 DCA D0021 / @@3101=3021 C3102, 6553 / 6553 TAD C0176 / @@3103=1176 C3104, 6555 / 6555 HLT / @@3105=7402 L3106, C3106, 6557 / 6557 JMP L3106 / @@3107=5306 JMS I C3172 / long call to S4400 @@3110=4772 HLT / @@3111=7402 NOP / @@3112=7000 CLA / @@3113=7200 ISZ D0110 / @@3114=2110 JMP L3067 / @@3115=5267 NOP / @@3116=7000 NOP / @@3117=7000 JMP I C3166 / long jump to L3200 @@3120=5766 *3166 C3166, C3166, 3200 / DCA L3000 C3167, 6312 / 6312 C3170, 0002 / AND C0002 C3171, 6303 / 6303 C3172, C3172, 4400 / JMS I L0000 C3173, 6274 / SUF C3174, C3174, 4436 / JMS I D0036 C3175, C3175, 4215 / JMS C3015 C3176, C3176, 4200 / JMS L3000 C3177, C3177, 4423 / JMS I D0023 L3200, CLA / @@3200=7200 JMS I C3377 / long call to S4423 @@3201=4777 L3202, JMS I C3376 / long call to S4200 @@3202=4776 JMS I C3375 / long call to S4215 @@3203=4775 CLA / @@3204=7200 TAD C0177 / @@3205=1177 DCA D0022 / @@3206=3022 TAD C3374 / @@3207=1374 DCA D0034 / @@3210=3034 JMS I C3373 / long call to S4436 @@3211=4773 CLA / @@3212=7200 TAD C3372 / @@3213=1372 DCA D0021 / @@3214=3021 C3215, 6553 / 6553 TAD C0176 / @@3216=1176 C3217, 6555 / 6555 HLT / @@3220=7402 L3221, C3221, 6557 / 6557 JMP L3221 / @@3222=5221 JMS I C3371 / long call to S4400 @@3223=4771 HLT / @@3224=7402 NOP / @@3225=7000 CLA / @@3226=7200 ISZ D0110 / @@3227=2110 JMP L3202 / @@3230=5202 NOP / @@3231=7000 NOP / @@3232=7000 CLA / @@3233=7200 JMS I C3377 / long call to S4423 @@3234=4777 L3235, JMS I C3376 / long call to S4200 @@3235=4776 JMS I C3375 / long call to S4215 @@3236=4775 CLA / @@3237=7200 TAD C0177 / @@3240=1177 DCA D0022 / @@3241=3022 TAD C3370 / @@3242=1370 DCA D0035 / @@3243=3035 JMS I C3373 / long call to S4436 @@3244=4773 CLA / @@3245=7200 TAD C3367 / @@3246=1367 DCA D0021 / @@3247=3021 C3250, 6553 / 6553 TAD C0176 / @@3251=1176 C3252, 6555 / 6555 HLT / @@3253=7402 L3254, C3254, 6557 / 6557 JMP L3254 / @@3255=5254 JMS I C3371 / long call to S4400 @@3256=4771 HLT / @@3257=7402 NOP / @@3260=7000 CLA / @@3261=7200 ISZ D0110 / @@3262=2110 JMP L3235 / @@3263=5235 NOP / @@3264=7000 NOP / @@3265=7000 CLA / @@3266=7200 JMS I C3377 / long call to S4423 @@3267=4777 L3270, JMS I C3375 / long call to S4215 @@3270=4775 CLA / @@3271=7200 TAD C0177 / @@3272=1177 DCA D0022 / @@3273=3022 TAD C3366 / @@3274=1366 DCA D0036 / @@3275=3036 JMS I C3373 / long call to S4436 @@3276=4773 CLA / @@3277=7200 TAD C3365 / @@3300=1365 DCA D0021 / @@3301=3021 C3302, 6553 / 6553 TAD C0176 / @@3303=1176 C3304, 6555 / 6555 HLT / @@3305=7402 L3306, C3306, 6557 / 6557 JMP L3306 / @@3307=5306 JMS I C3371 / long call to S4400 @@3310=4771 HLT / @@3311=7402 NOP / @@3312=7000 CLA / @@3313=7200 ISZ D0110 / @@3314=2110 JMP L3270 / @@3315=5270 NOP / @@3316=7000 NOP / @@3317=7000 JMP I C3364 / long jump to L3400 @@3320=5764 *3364 C3364, C3364, 3400 / DCA I L0000 C3365, 6337 / 6337 C3366, 0005 / AND C0005 C3367, 6330 / 6330 C3370, 0004 / AND C0004 C3371, C3371, 4400 / JMS I L0000 C3372, 6321 / 6321 C3373, C3373, 4436 / JMS I D0036 C3374, 0003 / AND C0003 C3375, C3375, 4215 / JMS C3215 C3376, C3376, 4200 / JMS L3200 C3377, C3377, 4423 / JMS I D0023 L3400, C3400, 7200 / CLA JMS I C3577 / long call to S4423 @@3401=4777 L3402, JMS I C3576 / long call to S4200 @@3402=4776 JMS I C3575 / long call to S4215 @@3403=4775 CLA / @@3404=7200 TAD C0177 / @@3405=1177 DCA D0022 / @@3406=3022 TAD C3574 / @@3407=1374 DCA D0037 / @@3410=3037 JMS I C3573 / long call to S4436 @@3411=4773 CLA / @@3412=7200 TAD C3572 / @@3413=1372 DCA D0021 / @@3414=3021 C3415, 6553 / 6553 TAD C0176 / @@3416=1176 C3417, 6555 / 6555 HLT / @@3420=7402 L3421, C3421, 6557 / 6557 JMP L3421 / @@3422=5221 JMS I C3571 / long call to S4400 @@3423=4771 HLT / @@3424=7402 NOP / @@3425=7000 CLA / @@3426=7200 ISZ D0110 / @@3427=2110 JMP L3402 / @@3430=5202 NOP / @@3431=7000 NOP / @@3432=7000 JMP I C3570 / long jump to L3600 @@3433=5770 *3570 C3570, C3570, 3600 / DCA I L3400 C3571, C3571, 4400 / JMS I L0000 C3572, 6346 / 6346 C3573, C3573, 4436 / JMS I D0036 C3574, 0006 / AND C0006 C3575, C3575, 4215 / JMS C3415 C3576, C3576, 4200 / JMS L3400 C3577, C3577, 4423 / JMS I D0023 L3600, CLA / @@3600=7200 JMS I C3777 / long call to S4200 @@3601=4777 JMS I C3776 / long call to S4215 @@3602=4776 CLA CLL / AC = 0000 @@3603=7300 DCA D0112 / @@3604=3112 DCA D0113 / @@3605=3113 DCA I C3775 / @@3606=3775 IAC RAL / @@3607=7005 DCA I C3774 / @@3610=3774 TAD C3773 / @@3611=1373 DCA D0110 / @@3612=3110 L3613, CLA / @@3613=7200 TAD D0026 / @@3614=1026 DCA D0114 / @@3615=3114 TAD D0027 / @@3616=1027 DCA D0115 / @@3617=3115 JMS I C3772 / long call to S4455 @@3620=4772 CLA CLL / AC = 0000 @@3621=7300 DCA D0031 / @@3622=3031 TAD C0177 / @@3623=1177 DCA D0022 / @@3624=3022 TAD C3771 / @@3625=1371 DCA D0021 / @@3626=3021 CLL CML RAR / @@3627=7130 C3630, 6553 / 6553 CLA / @@3631=7200 TAD C0176 / @@3632=1176 C3633, 6555 / 6555 HLT / @@3634=7402 L3635, C3635, 6557 / 6557 JMP L3635 / @@3636=5235 CLL RTL / @@3637=7106 CLL RTL / @@3640=7106 TAD D0120 / @@3641=1120 SPA CLA / @@3642=7710 HLT / @@3643=7402 NOP / @@3644=7000 SZL CLA / @@3645=7630 JMP L3664 / @@3646=5264 TAD D0112 / @@3647=1112 CIA / @@3650=7041 TAD I C3775 / @@3651=1775 SZA CLA / @@3652=7640 HLT / @@3653=7402 NOP / @@3654=7000 TAD D0113 / @@3655=1113 CIA / @@3656=7041 TAD I C3774 / @@3657=1774 SZA CLA / @@3660=7640 HLT / @@3661=7402 NOP / @@3662=7000 JMP L3700 / @@3663=5300 L3664, TAD D0116 / @@3664=1116 CIA / @@3665=7041 TAD I C3775 / @@3666=1775 SZA CLA / @@3667=7640 HLT / @@3670=7402 NOP / @@3671=7000 TAD D0117 / @@3672=1117 CIA / @@3673=7041 TAD I C3774 / @@3674=1774 SZA CLA / @@3675=7640 HLT / @@3676=7402 NOP / @@3677=7000 L3700, TAD D0114 / @@3700=1114 CIA / @@3701=7041 TAD D0026 / @@3702=1026 SZA CLA / @@3703=7640 HLT / @@3704=7402 NOP / @@3705=7000 TAD D0115 / @@3706=1115 CIA / @@3707=7041 TAD D0027 / @@3710=1027 SZA CLA / @@3711=7640 HLT / @@3712=7402 NOP / @@3713=7000 TAD D0112 / @@3714=1112 DCA D0026 / @@3715=3026 TAD D0113 / @@3716=1113 DCA D0027 / @@3717=3027 CLA CLL / AC = 0000 @@3720=7300 TAD D0112 / @@3721=1112 RAR / @@3722=7010 DCA I C3775 / @@3723=3775 TAD D0113 / @@3724=1113 RAR / @@3725=7010 DCA I C3774 / @@3726=3774 TAD I C3775 / @@3727=1775 DCA D0116 / @@3730=3116 TAD I C3774 / @@3731=1774 DCA D0117 / @@3732=3117 ISZ D0110 / @@3733=2110 JMP L3613 / @@3734=5213 NOP / @@3735=7000 NOP / @@3736=7000 JMP I C3770 / long jump to L4000 @@3737=5770 *3770 C3770, C3770, 4000 / JMS L0000 C3771, 6355 / 6355 C3772, C3772, 4455 / JMS I C0055 C3773, 6030 / 6030 C3774, 5253 / JMP C3653 C3775, 5252 / JMP C3652 C3776, C3776, 4215 / JMS C3615 C3777, C3777, 4200 / JMS L3600 L4000, C4000, 4777 / JMS I C4177 TAD C4176 / @@4001=1376 C4002, 3010 / DCA AI0 TAD C4175 / @@4003=1375 C4004, 3011 / DCA AI1 TAD C4174 / @@4005=1374 DCA D0107 / @@4006=3107 L4007, C4007, 1410 / TAD I AI0 C4010, 3411 / DCA I AI1 ISZ D0107 / @@4011=2107 JMP L4007 / @@4012=5207 TAD C0177 / @@4013=1177 DCA D0022 / @@4014=3022 TAD C4173 / @@4015=1373 DCA D0021 / @@4016=3021 CMA / @@4017=7040 DCA D0031 / @@4020=3031 CMA / @@4021=7040 DCA D0032 / @@4022=3032 TAD C4172 / @@4023=1372 DCA D0033 / @@4024=3033 C4025, 6553 / 6553 TAD C0176 / @@4026=1176 C4027, 6555 / 6555 HLT / @@4030=7402 L4031, C4031, 6557 / 6557 JMP L4031 / @@4032=5231 CLA / @@4033=7200 TAD C4174 / @@4034=1374 DCA D0107 / @@4035=3107 TAD C4175 / @@4036=1375 C4037, 3010 / DCA AI0 TAD C4171 / @@4040=1371 C4041, 3011 / DCA AI1 L4042, C4042, 1410 / TAD I AI0 CIA / @@4043=7041 C4044, 1411 / TAD I AI1 SZA CLA / @@4045=7640 HLT / @@4046=7402 NOP / @@4047=7000 ISZ D0107 / @@4050=2107 JMP L4042 / @@4051=5242 NOP / @@4052=7000 NOP / @@4053=7000 STA / AC = 7777 (-0001) @@4054=7240 DCA D0023 / @@4055=3023 CMA / @@4056=7040 DCA D0024 / @@4057=3024 CMA / @@4060=7040 DCA D0025 / @@4061=3025 CMA / @@4062=7040 DCA D0026 / @@4063=3026 CMA / @@4064=7040 DCA D0027 / @@4065=3027 DCA D0020 / @@4066=3020 TAD C4170 / @@4067=1370 DCA D0021 / @@4070=3021 JMS I C0105 / long call to S4200 @@4071=4505 TAD C4167 / @@4072=1367 DCA D0107 / @@4073=3107 CLA / @@4074=7200 C4075, 6553 / 6553 TAD C0176 / @@4076=1176 C4077, 6555 / 6555 HLT / @@4100=7402 L4101, ISZ D0107 / @@4101=2107 JMP L4101 / @@4102=5301 C4103, 6557 / 6557 SKP / @@4104=7410 JMP L4111 / @@4105=5311 C4106, 6554 / 6554 HLT / @@4107=7402 NOP / @@4110=7000 L4111, CLA / @@4111=7200 TAD C4166 / @@4112=1366 CIA / @@4113=7041 TAD D0021 / @@4114=1021 SZA CLA / @@4115=7640 HLT / @@4116=7402 NOP / @@4117=7000 TAD D0020 / @@4120=1020 SZA CLA / @@4121=7640 HLT / @@4122=7402 NOP / @@4123=7000 TAD C4165 / @@4124=1365 C4125, 3010 / DCA AI0 TAD C4164 / @@4126=1364 DCA D0107 / @@4127=3107 L4130, CLA / @@4130=7200 C4131, 1410 / TAD I AI0 CMA / @@4132=7040 SZA / @@4133=7440 HLT / @@4134=7402 NOP / @@4135=7000 ISZ D0107 / @@4136=2107 JMP L4130 / @@4137=5330 CLA / @@4140=7200 TAD C4163 / @@4141=1363 DCA D0107 / @@4142=3107 L4143, CLA / @@4143=7200 C4144, 1410 / TAD I AI0 SZA / @@4145=7440 HLT / @@4146=7402 NOP / @@4147=7000 ISZ D0107 / @@4150=2107 JMP L4143 / @@4151=5343 NOP / @@4152=7000 NOP / @@4153=7000 LAS / @@4154=7604 SPA CLA / @@4155=7710 HLT / @@4156=7402 JMP I C4162 / long jump to L0200 @@4157=5762 *4162 C4162, C4162, 0200 / AND L4000 C4163, 7770 / SPA SNA SZL CLA C4164, 7775 / CLA MQA SCA MQL ASR + C4165, 0024 / AND D0024 C4166, 6471 / TTCR C4167, 7745 / CLA MQA SCA MUY + C4170, 6425 / 6425 C4171, 5673 / JMP I C4073 C4172, 7774 / SPA SNA SZL CLA OSR C4173, 6372 / 6372 C4174, 7764 / SMA SZA SNL CLA OSR C4175, 5077 / JMP C0077 C4176, 5643 / JMP I C4043 C4177, 4215 / JMS C4015 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4200 / / Called from: / 0210 0303 0407 0502 0607 0702 1007 1102 1207 1404 1446 1511 1604 1647 1712 / 2004 2047 2111 2201 2257 2317 2401 2423 2450 2511 2601 2634 2670 2721 3002 / 3034 3067 3202 3235 3402 3601 4071 / Total 0045 (37) calls //////////////////////////////////////////////////////////////////////////////// S4200, 0 / return area TAD C4377 / @@4201=1377 DCA D0107 / @@4202=3107 TAD I D0107 / @@4203=1507 C4204, 3010 / DCA AI0 TAD C4376 / @@4205=1376 DCA D0107 / @@4206=3107 L4207, C4207, 3410 / DCA I AI0 ISZ D0107 / @@4210=2107 JMP L4207 / @@4211=5207 JMP I S4200 / return @@4212=5600 AND D0027 / @@4213=0027 C4214, 7767 / CLA MQA SCA MQL DVI + //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4215 / / Called from: / 2425 2452 2512 2602 2635 2671 2722 3003 3035 3070 3203 3236 3270 3403 3602 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S4215, 0 / return area CLA / @@4216=7200 TAD C4375 / @@4217=1375 C4220, 3010 / DCA AI0 TAD C4376 / @@4221=1376 DCA D0107 / @@4222=3107 L4223, C4223, 3410 / DCA I AI0 ISZ D0107 / @@4224=2107 JMP L4223 / @@4225=5223 JMP I S4215 / return @@4226=5615 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4227 / / Called from: / 1205 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4227, 0 / return area CLA / @@4230=7200 TAD C4374 / @@4231=1374 C4232, 3010 / DCA AI0 TAD C4373 / @@4233=1373 C4234, 3011 / DCA AI1 TAD C4376 / @@4235=1376 JMS S4251 / @@4236=4251 JMP I S4227 / return @@4237=5627 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4240 / / Called from: / 1303 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4240, 0 / return area CLA / @@4241=7200 TAD C4373 / @@4242=1373 C4243, 3010 / DCA AI0 TAD C4374 / @@4244=1374 C4245, 3011 / DCA AI1 TAD C4376 / @@4246=1376 JMS S4251 / @@4247=4251 JMP I S4240 / return @@4250=5640 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4251 / / Called from: / 4236 4247 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4251, 0 / return area DCA D4260 / @@4252=3260 L4253, C4253, 1410 / TAD I AI0 C4254, 3411 / DCA I AI1 ISZ D4260 / @@4255=2260 JMP L4253 / @@4256=5253 JMP I S4251 / return @@4257=5651 D4260, 0000 / AND L0000 D4261, 0000 / AND L0000 DCA D0107 / @@4262=3107 TAD C4372 / @@4263=1372 C4264, 3010 / DCA AI0 TAD C4371 / @@4265=1371 C4266, 3011 / DCA AI1 L4267, CLA / @@4267=7200 C4270, 1411 / TAD I AI1 SZA CLA / @@4271=7640 JMP L4311 / @@4272=5311 C4273, 2010 / ISZ AI0 C4274, 1411 / TAD I AI1 CIA / @@4275=7041 C4276, 1410 / TAD I AI0 SZA CLA / @@4277=7640 JMP L4311 / @@4300=5311 C4301, 1411 / TAD I AI1 CIA / @@4302=7041 C4303, 1410 / TAD I AI0 SZA CLA / @@4304=7640 JMP L4311 / @@4305=5311 ISZ D0107 / @@4306=2107 JMP L4267 / @@4307=5267 ISZ D4261 / @@4310=2261 L4311, JMP I D4261 / long jump to L0000 @@4311=5661 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4312 / / Called from: / 2416 2443 2472 2537 2627 2664 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S4312, 0 / return area DCA D0107 / @@4313=3107 TAD C4372 / @@4314=1372 C4315, 3010 / DCA AI0 TAD C4371 / @@4316=1371 C4317, 3011 / DCA AI1 L4320, CLA / @@4320=7200 C4321, 1410 / TAD I AI0 CIA / @@4322=7041 C4323, 1411 / TAD I AI1 SZA / @@4324=7440 JMP L4331 / @@4325=5331 ISZ D0107 / @@4326=2107 JMP L4320 / @@4327=5320 ISZ S4312 / @@4330=2312 L4331, JMP I S4312 / return @@4331=5712 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4332 / / Called from: / 2402 2424 2451 2513 2603 2636 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S4332, 0 / return area STA / AC = 7777 (-0001) @@4333=7240 TAD C4370 / @@4334=1370 C4335, 3010 / DCA AI0 TAD C4367 / @@4336=1367 DCA D0107 / @@4337=3107 L4340, C4340, 3410 / DCA I AI0 ISZ D0107 / @@4341=2107 JMP L4340 / @@4342=5340 JMP I S4332 / return @@4343=5732 *4367 C4367, 7700 / SMA CLA C4370, 5100 / JMP L0100 C4371, 5077 / JMP C0077 C4372, 4777 / JMS I C4377 C4373, 7577 / MQA SCA MQL LSR + C4374, 7767 / CLA MQA SCA MQL DVI + C4375, 0017 / AND AI7 C4376, 7770 / SPA SNA SZL CLA C4377, 4213 / JMS C4213 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4400 / / Called from: / 3022 3055 3110 3223 3256 3310 3423 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S4400, 0 / return area CLA / @@4401=7200 TAD C4577 / @@4402=1377 C4403, 3016 / DCA AI6 TAD C4576 / @@4404=1376 DCA D0107 / @@4405=3107 DCA D0111 / @@4406=3111 L4407, C4407, 1416 / TAD I AI6 CIA / @@4410=7041 C4411, 1412 / TAD I AI2 ISZ D0111 / @@4412=2111 SZA CLA / @@4413=7640 JMP L4421 / @@4414=5221 ISZ D0107 / @@4415=2107 JMP L4407 / @@4416=5207 ISZ S4400 / @@4417=2200 SKP / @@4420=7410 L4421, TAD D0111 / @@4421=1111 JMP I S4400 / return @@4422=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4423 / / Called from: / 3001 3033 3066 3201 3234 3267 3401 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S4423, 0 / return area CLA / @@4424=7200 TAD C4575 / @@4425=1375 C4426, 3013 / DCA AI3 TAD C4574 / @@4427=1374 C4430, 3011 / DCA AI1 TAD C4573 / @@4431=1373 C4432, 3012 / DCA AI2 TAD C4572 / @@4433=1372 DCA D0110 / @@4434=3110 JMP I S4423 / return @@4435=5623 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4436 / / Called from: / 3010 3043 3076 3211 3244 3276 3411 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S4436, 0 / return area CLA / @@4437=7200 TAD C4576 / @@4440=1376 DCA D0107 / @@4441=3107 TAD C4571 / @@4442=1371 C4443, 3016 / DCA AI6 TAD C4577 / @@4444=1377 C4445, 3017 / DCA AI7 L4446, C4446, 1413 / TAD I AI3 C4447, 3416 / DCA I AI6 C4450, 1411 / TAD I AI1 C4451, 3417 / DCA I AI7 ISZ D0107 / @@4452=2107 JMP L4446 / @@4453=5246 JMP I S4436 / return @@4454=5636 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4455 / / Called from: / 3620 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4455, 0 / return area CLA CLL CML / @@4456=7320 TAD I C4570 / @@4457=1770 SPA CLA / @@4460=7710 CLL / @@4461=7100 TAD D0112 / @@4462=1112 SPA CLA / @@4463=7710 CLL / @@4464=7100 RAR / @@4465=7010 DCA D0120 / @@4466=3120 CLA CLL / AC = 0000 @@4467=7300 TAD D0113 / @@4470=1113 TAD I C4567 / @@4471=1767 DCA D0113 / @@4472=3113 TAD D0112 / @@4473=1112 SZL / @@4474=7430 IAC / @@4475=7001 TAD I C4570 / @@4476=1770 DCA D0112 / @@4477=3112 CLA CLL / AC = 0000 @@4500=7300 TAD D0112 / @@4501=1112 TAD D0120 / @@4502=1120 CLA / @@4503=7200 RAR / @@4504=7010 DCA D0120 / @@4505=3120 JMP I S4455 / return @@4506=5655 C4507, 0000 / AND L0000 *4567 C4567, 5253 / JMP C4453 C4570, 5252 / JMP C4452 C4571, 0024 / AND D0024 C4572, 7774 / SPA SNA SZL CLA OSR C4573, 5627 / JMP I C4427 C4574, 5613 / JMP I C4413 C4575, 5577 / JMP I C0177 C4576, 7775 / CLA MQA SCA MQL ASR + C4577, 5251 / JMP C4451 *5000 C5000, 7777 / CLA MQA SCA MQL LSR + C5001, 0000 / AND L0000 C5002, 7777 / CLA MQA SCA MQL LSR + C5003, 0000 / AND L0000 JMP L5052 / @@5004=5252 C5005, 2525 / ISZ I C0125 JMP L5052 / @@5006=5252 C5007, 2525 / ISZ I C0125 C5010, 0707 / AND I C5107 CMA CML RAR / @@5011=7070 C5012, 0707 / AND I C5107 CMA CML RAR / @@5013=7070 TAD D0111 / @@5014=1111 ISZ D5022 / @@5015=2222 C5016, 4444 / JMS I C0044 C5017, 3333 / DCA C5133 C5020, 6666 / 6666 C5021, 3333 / DCA C5133 D5022, 1111 / TAD D0111 TAD D0111 / @@5023=1111 TAD D0111 / @@5024=1111 ISZ D5022 / @@5025=2222 ISZ D5022 / @@5026=2222 ISZ D5022 / @@5027=2222 C5030, 3333 / DCA C5133 C5031, 3333 / DCA C5133 C5032, 3333 / DCA C5133 C5033, 4444 / JMS I C0044 C5034, 4444 / JMS I C0044 C5035, 4444 / JMS I C0044 C5036, 5555 / JMP I C0155 C5037, 5555 / JMP I C0155 C5040, 5555 / JMP I C0155 C5041, 6666 / 6666 C5042, 6666 / 6666 C5043, 6666 / 6666 C5044, 7777 / CLA MQA SCA MQL LSR + C5045, 7777 / CLA MQA SCA MQL LSR + C5046, 7777 / CLA MQA SCA MQL LSR + SPA SNA SZL CLA OSR HLT / @@5047=7776 C5050, 7775 / CLA MQA SCA MQL ASR + C5051, 7773 / CLA MQA SCA MQL SHL + L5052, C5052, 7767 / CLA MQA SCA MQL DVI + C5053, 7757 / CLA MQA SCA LSR + C5054, 7737 / CLA MQA MQL LSR + C5055, 7677 / CLA SCA MQL LSR + C5056, 7577 / MQA SCA MQL LSR + C5057, 7377 / CLA CLL CMA CML IAC RTR RTL C5060, 6777 / 6777 C5061, 5777 / JMP I C5177 C5062, 3777 / DCA I C5177 C5063, 0001 / AND C0001 C5064, 0002 / AND C0002 C5065, 0004 / AND C0004 C5066, 0010 / AND AI0 AND D0020 / @@5067=0020 AND L0040 / @@5070=0040 AND L0100 / @@5071=0100 AND C5000 / @@5072=0200 C5073, 0400 / AND I L0000 C5074, 1000 / TAD L0000 C5075, 2000 / ISZ L0000 C5076, 4000 / JMS L0000 C5077, 0000 / AND L0000 C5100, 0000 / AND L0000 *5252 D5252, 0000 / AND L0000 D5253, 0000 / AND L0000 C5254, 0000 / AND L0000 C5255, 0000 / AND L0000 C5256, 0000 / AND L0000 C5257, 0000 / AND L0000 C5260, 0000 / AND L0000 C5261, 0000 / AND L0000 C5262, 0000 / AND L0000 C5263, 0000 / AND L0000 C5264, 0000 / AND L0000 C5265, 0000 / AND L0000 C5266, 0000 / AND L0000 C5267, 0000 / AND L0000 C5270, 0000 / AND L0000 C5271, 0000 / AND L0000 C5272, 0000 / AND L0000 C5273, 0000 / AND L0000 C5274, 0000 / AND L0000 C5275, 0000 / AND L0000 C5276, 0000 / AND L0000 C5277, 0000 / AND L0000 *5600 C5600, 0027 / AND D0027 C5601, 3777 / DCA I C5777 C5602, 7777 / CLA MQA SCA MQL LSR + AND D0027 / @@5603=0027 C5604, 0000 / AND L0000 C5605, 0000 / AND L0000 AND D0027 / @@5606=0027 C5607, 2525 / ISZ I C0125 C5610, 2525 / ISZ I C0125 C5611, 0000 / AND L0000 C5612, 7777 / CLA MQA SCA MQL LSR + C5613, 7777 / CLA MQA SCA MQL LSR + C5614, 0000 / AND L0000 C5615, 3777 / DCA I C5777 C5616, 7777 / CLA MQA SCA MQL LSR + C5617, 0000 / AND L0000 C5620, 3777 / DCA I C5777 C5621, 7777 / CLA MQA SCA MQL LSR + D5622, 0026 / AND D0026 C5623, 2525 / ISZ I C0125 C5624, 2525 / ISZ I C0125 C5625, 7777 / CLA MQA SCA MQL LSR + C5626, 2525 / ISZ I C0125 C5627, 2525 / ISZ I C0125 AND D0030 / @@5630=0030 C5631, 2000 / ISZ L0000 C5632, 0000 / AND L0000 C5633, 0000 / AND L0000 C5634, 3777 / DCA I C5777 C5635, 7777 / CLA MQA SCA MQL LSR + C5636, 0030 / AND D0030 C5637, 2000 / ISZ L0000 C5640, 0000 / AND L0000 C5641, 7777 / CLA MQA SCA MQL LSR + C5642, 2525 / ISZ I C0125 C5643, 2523 / ISZ I C0123 AND L0100 / @@5644=0100 C5645, 2525 / ISZ I C0125 C5646, 2525 / ISZ I C0125 AND C0077 / @@5647=0077 AND I C5707 / @@5650=0707 AND I C5707 / @@5651=0707 AND I C5707 / @@5652=0707 DCA I C5636 / @@5653=3636 DCA I C5636 / @@5654=3636 C5655, 4444 / JMS I C0044 C5656, 3333 / DCA C5733 TAD D0111 / @@5657=1111 C5660, 0070 / AND C0070 C5661, 0010 / AND AI0 TAD D0111 / @@5662=1111 AND I C5700 / @@5663=0700 C5664, 2000 / ISZ L0000 C5665, 0000 / AND L0000 C5666, 0070 / AND C0070 C5667, 0000 / AND L0000 C5670, 0002 / AND C0002 C5671, 0333 / AND C5733 C5672, 0002 / AND C0002 ISZ D5622 / @@5673=2222 C5674, 0160 / AND C0160 C5675, 2555 / ISZ I C0155 JMP I D0120 / long jump to L0000 @@5676=5520 C5677, 0774 / AND I C5774 C5700, 3434 / DCA I D0034 DCA I D0034 / @@5701=3434 C5702, 0751 / AND I C5751 DCA I C5600 / @@5703=3600 C5704, 0000 / AND L0000 C5705, 4765 / JMS I C5765 C5706, 3725 / DCA I C5725 C5707, 6400 / 6400 *6000 AND L0100 / @@6000=0100 D6001, 0000 / AND L0000 C6002, 0000 / AND L0000 TAD D0030 / @@6003=1030 C6004, 6000 / 6000 AND C0101 / @@6005=0101 D6006, 0000 / AND L0000 C6007, 0000 / AND L0000 TAD D0030 / @@6010=1030 C6011, 6005 / 6005 AND C0102 / @@6012=0102 D6013, 0000 / AND L0000 C6014, 0000 / AND L0000 TAD D0030 / @@6015=1030 RFB / Read the content of the reader buffe @@6016=6012 AND C0103 / @@6017=0103 D6020, 0000 / AND L0000 C6021, 0000 / AND L0000 TAD D0030 / @@6022=1030 C6023, 6017 / 6017 AND C0104 / @@6024=0104 D6025, 0000 / AND L0000 C6026, 0000 / AND L0000 TAD D0030 / @@6027=1030 PPC / Load the punch buffer from bits 4 th @@6030=6024 AND C0105 / @@6031=0105 D6032, 0000 / AND L0000 C6033, 0000 / AND L0000 C6034, 1030 / TAD D0030 KSF / Skip if keyboard flag is a 1. @@6035=6031 AND D0106 / @@6036=0106 D6037, 0000 / AND L0000 C6040, 0000 / AND L0000 TAD D0030 / @@6041=1030 KRB / Clear AC, clear keyboard flag, and r @@6042=6036 AND D0107 / @@6043=0107 D6044, 0000 / AND L0000 C6045, 0000 / AND L0000 TAD D0030 / @@6046=1030 C6047, 6043 / 6043 AND L0100 / @@6050=0100 C6051, 1234 / TAD C6034 AND C0101 / @@6052=0101 C6053, 2345 / ISZ D6145 AND C0102 / @@6054=0102 C6055, 3456 / DCA I C0056 AND C0103 / @@6056=0103 C6057, 4567 / JMS I C0167 AND C0104 / @@6060=0104 C6061, 4321 / JMS C6121 AND C0105 / @@6062=0105 C6063, 5432 / JMP I D0032 AND D0106 / @@6064=0106 C6065, 6543 / 6543 AND D0107 / @@6066=0107 C6067, 7654 / SNA CLA OSR C6070, 0000 / AND L0000 TAD D0030 / @@6071=1030 C6072, 6050 / 6050 AND D0110 / @@6073=0110 D6074, 0000 / AND L0000 C6075, 0000 / AND L0000 TAD D0030 / @@6076=1030 C6077, 6073 / 6073 AND D0111 / @@6100=0111 D6101, 0000 / AND L0000 C6102, 0000 / AND L0000 TAD D0030 / @@6103=1030 C6104, 6100 / 6100 AND D0112 / @@6105=0112 D6106, 0000 / AND L0000 C6107, 0000 / AND L0000 TAD D0030 / @@6110=1030 C6111, 6105 / 6105 AND D0113 / @@6112=0113 D6113, 0000 / AND L0000 C6114, 0000 / AND L0000 TAD D0030 / @@6115=1030 AND D0114 / @@6116=0114 D6117, 0000 / AND L0000 C6120, 0000 / AND L0000 TAD D0030 / @@6121=1030 MKRB / Clear the keyboard and reader flags, @@6122=6116 AND D0115 / @@6123=0115 D6124, 0000 / AND L0000 C6125, 0000 / AND L0000 TAD D0030 / @@6126=1030 MTKF / Transfer status of keyboard flags to @@6127=6123 AND D0116 / @@6130=0116 D6131, 0000 / AND L0000 C6132, 0000 / AND L0000 TAD D0030 / @@6133=1030 C6134, 6130 / 6130 AND D0117 / @@6135=0117 D6136, 0000 / AND L0000 C6137, 0000 / AND L0000 TAD D0030 / @@6140=1030 C6141, 6135 / 6135 AND D0110 / @@6142=0110 C6143, 0001 / AND C0001 AND D0111 / @@6144=0111 D6145, 0001 / AND C0001 AND D0112 / @@6146=0112 C6147, 0001 / AND C0001 AND D0113 / @@6150=0113 C6151, 0001 / AND C0001 AND D0114 / @@6152=0114 C6153, 0001 / AND C0001 AND D0115 / @@6154=0115 C6155, 0001 / AND C0001 AND D0116 / @@6156=0116 C6157, 0001 / AND C0001 AND D0117 / @@6160=0117 C6161, 0001 / AND C0001 C6162, 0000 / AND L0000 TAD D0030 / @@6163=1030 C6164, 6142 / 6142 ISZ L0100 / @@6165=2100 C6166, 6172 / 6172 C6167, 0000 / AND L0000 TAD D0030 / @@6170=1030 C6171, 6165 / 6165 C6172, 0000 / AND L0000 TAD D0030 / @@6173=1030 C6174, 6165 / 6165 ISZ L0100 / @@6175=2100 C6176, 6175 / 6175 C6177, 0000 / AND L0000 C6200, 1030 / TAD D0030 C6201, 6175 / 6175 C6202, 2000 / ISZ L0000 C6203, 6205 / 6205 C6204, 0000 / AND L0000 ISZ D0110 / @@6205=2110 CIF0 / Prepare to change to instruction fie @@6206=6202 C6207, 0000 / AND L0000 AND L0100 / @@6210=0100 C6211, 7777 / CLA MQA SCA MQL LSR + AND C0101 / @@6212=0101 SZL CLA OSR / @@6213=7634 TAD D0030 / @@6214=1030 CIF0 / Prepare to change to instruction fie @@6215=6202 C6216, 0400 / AND I L0000 C6217, 5000 / JMP L0000 C6220, 6400 / 6400 JMP L0100 / @@6221=5100 C6222, 0000 / AND L0000 TAD D0030 / @@6223=1030 C6224, 6216 / 6216 L6225, AND C6200 / @@6225=0200 TAD D0110 / @@6226=1110 JMP L0100 / @@6227=5100 L6230, C6230, 6200 / 6200 C6231, 0000 / AND L0000 TAD D0030 / @@6232=1030 L6233, C6233, 6225 / 6225 C6234, 0530 / AND I C0130 C6235, 5000 / JMP L0000 L6236, C6236, 6540 / 6540 C6237, 5075 / JMP C0075 C6240, 0000 / AND L0000 L6241, TAD D0030 / @@6241=1030 RIB / Read interrupt buffer. The instruct @@6242=6234 AND I C6310 / @@6243=0710 L6244, C6244, 6721 / 6721 C6245, 0000 / AND L0000 TAD D0030 / @@6246=1030 L6247, C6247, 6243 / 6243 L6250, C6250, 0550 / AND I C0150 C6251, 5000 / JMP L0000 L6252, C6252, 6560 / 6560 JMP L0100 / @@6253=5100 ISZ L0100 / @@6254=2100 C6255, 6250 / 6250 C6256, 0000 / AND L0000 AND C0105 / @@6257=0105 C6260, C6260, 7777 / CLA MQA SCA MQL LSR + AND D0106 / @@6261=0106 C6262, 7777 / CLA MQA SCA MQL LSR + AND L0100 / @@6263=0100 C6264, 7753 / CLA MQA SCA SHL + TAD D0030 / @@6265=1030 C6266, 6250 / 6250 AND D0030 / @@6267=0030 AND D0027 / @@6270=0027 C6271, 0000 / AND L0000 TAD D0030 / @@6272=1030 C6273, 6267 / 6267 JMP I D0110 / long jump to L0000 @@6274=5510 JMP L6247 / @@6275=5247 C6276, 0000 / AND L0000 AND C0101 / @@6277=0101 C6300, 0000 / AND L0000 TAD D0030 / @@6301=1030 SUF / (KT8/I) Sets the user flag. Sets us @@6302=6274 JMP I D0120 / long jump to L0000 @@6303=5520 JMP L6244 / @@6304=5244 C6305, 0000 / AND L0000 AND C0102 / @@6306=0102 C6307, 0001 / AND C0001 C6310, 1030 / TAD D0030 C6311, 6303 / 6303 C6312, 5530 / JMP I C0130 JMP L6241 / @@6313=5241 C6314, 0000 / AND L0000 AND C0103 / @@6315=0103 C6316, 0002 / AND C0002 TAD D0030 / @@6317=1030 C6320, 6312 / 6312 C6321, 5540 / JMP I C0140 JMP L6236 / @@6322=5236 C6323, 0000 / AND L0000 AND C0104 / @@6324=0104 C6325, 0003 / AND C0003 TAD D0030 / @@6326=1030 C6327, 6321 / 6321 C6330, 5550 / JMP I C0150 JMP L6233 / @@6331=5233 C6332, 0000 / AND L0000 AND C0105 / @@6333=0105 C6334, 0004 / AND C0004 TAD D0030 / @@6335=1030 C6336, 6330 / 6330 C6337, 5560 / JMP I C0160 JMP L6230 / @@6340=5230 C6341, 0000 / AND L0000 AND D0106 / @@6342=0106 C6343, 0005 / AND C0005 TAD D0030 / @@6344=1030 C6345, 6337 / 6337 C6346, 5570 / JMP I C0170 JMP L6225 / @@6347=5225 C6350, 0000 / AND L0000 AND D0107 / @@6351=0107 C6352, 0006 / AND C0006 TAD D0030 / @@6353=1030 C6354, 6346 / 6346 JMP I D0110 / long jump to L0000 @@6355=5510 JMP L6250 / @@6356=5250 C6357, 0000 / AND L0000 AND C0101 / @@6360=0101 C6361, 0000 / AND L0000 C6362, 0400 / AND I L0000 AND D0116 / @@6363=0116 C6364, 6400 / 6400 JMP L6252 / @@6365=5252 C6366, 0400 / AND I L0000 AND D0114 / @@6367=0114 TAD D0030 / @@6370=1030 C6371, 6355 / 6355 AND I D0110 / @@6372=0510 JMP I C6260 / long jump to L7777 @@6373=5660 SMA SNL / @@6374=7520 JMP L0100 / @@6375=5100 C6376, 2130 / ISZ C0130 C6377, 6372 / 6372 C6400, 0000 / AND L0000 AND C0101 / @@6401=0101 C6402, 7777 / CLA MQA SCA MQL LSR + AND C0102 / @@6403=0102 C6404, 7777 / CLA MQA SCA MQL LSR + AND C0103 / @@6405=0103 SPA SNA SZL CLA OSR / @@6406=7774 AND C0104 / @@6407=0104 C6410, 7777 / CLA MQA SCA MQL LSR + AND C0105 / @@6411=0105 C6412, 7777 / CLA MQA SCA MQL LSR + AND D0106 / @@6413=0106 SPA SNA SZL CLA OSR / @@6414=7774 C6415, 0540 / AND I C0140 JMP I C6460 / long jump to L0040 @@6416=5660 C6417, 6550 / 6550 JMP L0100 / @@6420=5100 ISZ D0106 / @@6421=2106 C6422, 6415 / 6415 TAD D0030 / @@6423=1030 C6424, 6372 / 6372 AND L0040 / @@6425=0040 AND L0040 / @@6426=0040 C6427, 0050 / AND C0050 AND L0040 / @@6430=0040 C6431, 0060 / AND C0060 AND L0040 / @@6432=0040 C6433, 0070 / AND C0070 AND L0040 / @@6434=0040 AND D0120 / @@6435=0120 AND L0040 / @@6436=0040 C6437, 0130 / AND C0130 AND L0040 / @@6440=0040 C6441, 0140 / AND C0140 AND L0040 / @@6442=0040 C6443, 0150 / AND C0150 AND L0040 / @@6444=0040 C6445, 0160 / AND C0160 AND L0040 / @@6446=0040 C6447, 0170 / AND C0170 AND L0040 / @@6450=0040 C6451, 1140 / TAD C0140 AND L0040 / @@6452=0040 C6453, 1150 / TAD C0150 AND L0040 / @@6454=0040 C6455, 1160 / TAD C0160 AND L0040 / @@6456=0040 C6457, 1170 / TAD C0170 C6460, C6460, 0040 / AND L0040 AND C0041 / @@6461=0041 AND C0042 / @@6462=0042 AND C0043 / @@6463=0043 AND C0044 / @@6464=0044 AND C0045 / @@6465=0045 AND C0046 / @@6466=0046 AND C0047 / @@6467=0047 C6470, 0000 / AND L0000 TAD D0030 / @@6471=1030 C6472, 6425 / 6425 C6473, 0000 / AND L0000 $