TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhdra-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhdra-a-pb.bin / Generated 2010 02 19 00:10:24 / 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 / / 2736 locations used, 1771 code and 0745 data //////////////////////////////////////////////////////////////////////////////// *0010 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 *0020 D0020, 0000 / AND L0000 D0021, 0000 / AND L0000 D0022, 0000 / AND L0000 D0023, 0000 / AND L0000 D0024, 0000 / AND L0000 D0025, 0000 / AND L0000 D0026, 7777 / CLA MQA SCA MQL LSR + D0027, 7777 / CLA MQA SCA MQL LSR + D0030, 0000 / AND L0000 D0031, 0000 / AND L0000 C0032, 0261 / AND C0061 C0033, C0033, 0266 / AND C0066 C0034, C0034, 0273 / AND C0073 C0035, C0035, 0300 / AND C0100 C0036, C0036, 0305 / AND C0105 C0037, C0037, 0312 / AND C0112 D0040, 0317 / AND C0117 C0041, C0041, 0324 / AND C0124 C0042, C0042, 3200 / DCA L0000 C0043, C0043, 3251 / DCA C0051 C0044, C0044, 2600 / ISZ I L0000 C0045, C0045, 2667 / ISZ I C0067 C0046, C0046, 2712 / ISZ I C0112 *0177 C0177, 7716 / SPA CLA OSR HLT JMP L0202 / @@0200=5202 JMP L0244 / @@0201=5244 L0202, C0202, 6007 / 6007 JMS I C0042 / long call to S3200 @@0203=4442 DCA D0377 / @@0204=3377 HLT / @@0205=7402 LAS / @@0206=7604 AND D0377 / @@0207=0377 CLL RTL / @@0210=7106 RAL / @@0211=7004 TAD C0376 / @@0212=1376 DCA D0247 / @@0213=3247 JMS I C0042 / long call to S3200 @@0214=4442 DCA I D0020 / @@0215=3420 HLT / @@0216=7402 LAS / @@0217=7604 DCA D0026 / @@0220=3026 JMS I C0042 / long call to S3200 @@0221=4442 DCA I C0044 / @@0222=3444 HLT / @@0223=7402 LAS / @@0224=7604 DCA D0027 / @@0225=3027 TAD C0375 / @@0226=1375 DCA D0020 / @@0227=3020 TAD C0260 / @@0230=1260 DCA D0233 / @@0231=3233 L0232, TAD D0247 / @@0232=1247 D0233, 0000 / AND L0000 ISZ D0233 / @@0234=2233 ISZ D0247 / @@0235=2247 ISZ D0020 / @@0236=2020 JMP L0232 / @@0237=5232 JMS I C0042 / long call to S3200 @@0240=4442 C0241, 3475 / DCA I C0075 HLT / @@0242=7402 CLA CLL / AC = 0000 @@0243=7300 L0244, DCA D0030 / @@0244=3030 JMP I C0246 / long jump to L0400 @@0245=5646 C0246, C0246, 0400 / AND I L0000 D0247, 0000 / AND L0000 AND C0262 / @@0250=0262 AND C0267 / @@0251=0267 AND C0274 / @@0252=0274 AND C0301 / @@0253=0301 AND C0306 / @@0254=0306 AND C0313 / @@0255=0313 AND C0320 / @@0256=0320 AND C0325 / @@0257=0325 C0260, 3650 / DCA I C0250 C0261, C0261, 0000 / AND L0000 C0262, 6500 / 6500 SKP / @@0263=7410 HLT / @@0264=7402 JMP I C0261 / long jump to L0000 @@0265=5661 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0266 / / Called from: / 0441 2423 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0266, 0 / return area C0267, 6501 / PLSF SKP / @@0270=7410 HLT / @@0271=7402 JMP I S0266 / return @@0272=5666 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0273 / / Called from: / 0450 2426 2431 2476 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0273, 0 / return area C0274, 6502 / PLCF SKP / @@0275=7410 ISZ S0273 / @@0276=2273 JMP I S0273 / return @@0277=5673 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0300 / / Called from: / 0562 0637 1445 1714 2007 2074 2075 2237 2270 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S0300, 0 / return area C0301, 6503 / 6503 SKP / @@0302=7410 HLT / @@0303=7402 JMP I S0300 / return @@0304=5700 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0305 / / Called from: / 0422 1406 1421 1447 1472 1616 1657 2011 2040 2042 2077 2211 2304 2345 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S0305, 0 / return area C0306, 6504 / PLPU SKP / @@0307=7410 HLT / @@0310=7402 JMP I S0305 / return @@0311=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0312 / / Called from: / 0542 0621 1037 1121 1207 1325 1326 1614 1655 1711 2073 2207 2302 2343 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S0312, 0 / return area C0313, 6505 / 6505 SKP / @@0314=7410 HLT / @@0315=7402 JMP I S0312 / return @@0316=5712 C0317, C0317, 0000 / AND L0000 C0320, 6506 / 6506 SKP / @@0321=7410 HLT / @@0322=7402 JMP I C0317 / long jump to L0000 @@0323=5717 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0324 / / Called from: / 0403 0464 1005 1020 1041 1064 1122 1211 1241 1272 1274 1330 2241 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S0324, 0 / return area C0325, 6507 / 6507 SKP / @@0326=7410 HLT / @@0327=7402 JMP I S0324 / return @@0330=5724 *0375 C0375, 7770 / SPA SNA SZL CLA C0376, 6500 / 6500 D0377, 0007 / AND C0007 L0400, C0400, 3030 / DCA D0030 DCA D0031 / @@0401=3031 L0402, C0402, 6007 / 6007 JMS I C0041 / long call to S0324 @@0403=4441 DCA D0021 / @@0404=3021 TAD D0021 / @@0405=1021 SNA CLA / @@0406=7650 JMP L0414 / @@0407=5214 JMS I C0044 / long call to S2600 @@0410=4444 DCA I C0445 / @@0411=3645 C0412, 3515 / DCA I C0115 C0413, 7777 / CLA MQA SCA MQL LSR + L0414, JMS I C0045 / long call to S2667 @@0414=4445 JMP L0402 / @@0415=5202 DCA D0030 / @@0416=3030 DCA D0031 / @@0417=3031 SKP / @@0420=7410 L0421, C0421, 6007 / 6007 JMS I C0036 / long call to S0305 @@0422=4436 DCA D0021 / @@0423=3021 TAD D0021 / @@0424=1021 SNA CLA / @@0425=7650 JMP L0433 / @@0426=5233 JMS I C0044 / long call to S2600 @@0427=4444 DCA I C0461 / @@0430=3661 C0431, 3515 / DCA I C0115 C0432, 7777 / CLA MQA SCA MQL LSR + L0433, JMS I C0045 / long call to S2667 @@0433=4445 JMP L0421 / @@0434=5221 DCA D0030 / @@0435=3030 DCA D0031 / @@0436=3031 SKP / @@0437=7410 L0440, C0440, 6007 / 6007 JMS I C0033 / long call to S0266 @@0441=4433 C0442, 6003 / 6003 JMP L0450 / @@0443=5250 JMS I C0044 / long call to S2600 @@0444=4444 C0445, 4042 / JMS C0042 C0446, 3514 / DCA I C0114 C0447, 0000 / AND L0000 L0450, JMS I C0034 / long call to S0273 @@0450=4434 JMP L0456 / @@0451=5256 JMS I C0044 / long call to S2600 @@0452=4444 DCA I C0474 / @@0453=3674 C0454, 3514 / DCA I C0114 C0455, 0000 / AND L0000 L0456, JMS I C0045 / long call to S2667 @@0456=4445 JMP L0440 / @@0457=5240 DCA D0030 / @@0460=3030 C0461, 3031 / DCA D0031 L0462, C0462, 6007 / 6007 CLA CLL CMA / AC = 7777 (-0001) @@0463=7340 JMS I C0041 / long call to S0324 @@0464=4441 DCA D0021 / @@0465=3021 TAD D0021 / @@0466=1021 SNA CLA / @@0467=7650 JMP L0475 / @@0470=5275 JMS I C0044 / long call to S2600 @@0471=4444 DCA I C0503 / @@0472=3703 C0473, 3525 / DCA I C0125 C0474, 7777 / CLA MQA SCA MQL LSR + L0475, JMS I C0045 / long call to S2667 @@0475=4445 JMP L0462 / @@0476=5262 DCA D0030 / @@0477=3030 DCA D0031 / @@0500=3031 L0501, C0501, 6007 / 6007 CLA CLL CMA / AC = 7777 (-0001) @@0502=7340 C0503, 4436 / JMS I C0036 DCA D0021 / @@0504=3021 TAD D0021 / @@0505=1021 SNA CLA / @@0506=7650 JMP L0514 / @@0507=5314 JMS I C0044 / long call to S2600 @@0510=4444 DCA I C0516 / @@0511=3716 C0512, 3525 / DCA I C0125 C0513, 7777 / CLA MQA SCA MQL LSR + L0514, JMS I C0045 / long call to S2667 @@0514=4445 JMP L0501 / @@0515=5301 C0516, 3030 / DCA D0030 DCA D0031 / @@0517=3031 L0520, C0520, 6007 / 6007 CLA CLL CMA / AC = 7777 (-0001) @@0521=7340 C0522, 4440 / JMS I D0040 DCA D0021 / @@0523=3021 TAD D0021 / @@0524=1021 CMA / @@0525=7040 SNA CLA / @@0526=7650 JMP L0534 / @@0527=5334 JMS I C0044 / long call to S2600 @@0530=4444 C0531, 3731 / DCA I C0531 C0532, 3525 / DCA I C0125 C0533, 7777 / CLA MQA SCA MQL LSR + L0534, JMS I C0045 / long call to S2667 @@0534=4445 JMP L0520 / @@0535=5320 DCA D0030 / @@0536=3030 DCA D0031 / @@0537=3031 L0540, C0540, 6007 / 6007 C0541, 7340 / CLA CLL CMA JMS I C0037 / long call to S0312 @@0542=4437 DCA D0021 / @@0543=3021 TAD D0021 / @@0544=1021 CMA / @@0545=7040 SNA CLA / @@0546=7650 JMP L0554 / @@0547=5354 JMS I C0044 / long call to S2600 @@0550=4444 C0551, 3741 / DCA I C0541 C0552, 3525 / DCA I C0125 C0553, 7777 / CLA MQA SCA MQL LSR + L0554, JMS I C0045 / long call to S2667 @@0554=4445 JMP L0540 / @@0555=5340 DCA D0030 / @@0556=3030 DCA D0031 / @@0557=3031 L0560, C0560, 6007 / 6007 CLA CLL CMA / AC = 7777 (-0001) @@0561=7340 JMS I C0035 / long call to S0300 @@0562=4435 DCA D0021 / @@0563=3021 TAD D0021 / @@0564=1021 CMA / @@0565=7040 SNA CLA / @@0566=7650 JMP L0574 / @@0567=5374 JMS I C0044 / long call to S2600 @@0570=4444 DCA I C0551 / @@0571=3751 C0572, 3525 / DCA I C0125 C0573, 7777 / CLA MQA SCA MQL LSR + L0574, JMS I C0045 / long call to S2667 @@0574=4445 JMP L0560 / @@0575=5360 JMP I C0577 / long jump to L0600 @@0576=5777 C0577, C0577, 0600 / AND I L0400 L0600, DCA D0030 / @@0600=3030 DCA D0031 / @@0601=3031 L0602, C0602, 6007 / 6007 JMS I D0040 / long call to S0317 @@0603=4440 DCA D0021 / @@0604=3021 TAD D0021 / @@0605=1021 SNA CLA / @@0606=7650 JMP L0614 / @@0607=5214 JMS I C0044 / long call to S2600 @@0610=4444 C0611, 3731 / DCA I C0731 C0612, 3525 / DCA I C0125 C0613, 7777 / CLA MQA SCA MQL LSR + L0614, JMS I C0045 / long call to S2667 @@0614=4445 JMP L0602 / @@0615=5202 DCA D0030 / @@0616=3030 DCA D0031 / @@0617=3031 L0620, C0620, 6007 / 6007 JMS I C0037 / long call to S0312 @@0621=4437 DCA D0021 / @@0622=3021 TAD D0021 / @@0623=1021 SNA CLA / @@0624=7650 JMP L0632 / @@0625=5232 JMS I C0044 / long call to S2600 @@0626=4444 C0627, 3741 / DCA I C0741 C0630, 3525 / DCA I C0125 C0631, 7777 / CLA MQA SCA MQL LSR + L0632, JMS I C0045 / long call to S2667 @@0632=4445 JMP L0620 / @@0633=5220 DCA D0030 / @@0634=3030 DCA D0031 / @@0635=3031 L0636, C0636, 6007 / 6007 JMS I C0035 / long call to S0300 @@0637=4435 DCA D0021 / @@0640=3021 TAD D0021 / @@0641=1021 SNA CLA / @@0642=7650 JMP L0650 / @@0643=5250 JMS I C0044 / long call to S2600 @@0644=4444 C0645, 3751 / DCA I C0751 C0646, 3525 / DCA I C0125 C0647, 7777 / CLA MQA SCA MQL LSR + L0650, JMS I C0045 / long call to S2667 @@0650=4445 JMP L0636 / @@0651=5236 JMP I C0777 / long jump to L1000 @@0652=5777 *0777 C0777, C0777, 1000 / TAD L0000 L1000, C1000, 3030 / DCA D0030 DCA D0031 / @@1001=3031 L1002, C1002, 6007 / 6007 CLA CLL CMA / AC = 7777 (-0001) @@1003=7340 JMS I D0040 / long call to S0317 @@1004=4440 JMS I C0041 / long call to S0324 @@1005=4441 DCA D0021 / @@1006=3021 TAD D0021 / @@1007=1021 CMA / @@1010=7040 SNA CLA / @@1011=7650 JMP L1017 / @@1012=5217 JMS I C0044 / long call to S2600 @@1013=4444 C1014, 3761 / DCA I C1161 C1015, 3515 / DCA I C0115 C1016, 7777 / CLA MQA SCA MQL LSR + L1017, C1017, 6007 / 6007 JMS I C0041 / long call to S0324 @@1020=4441 DCA D0021 / @@1021=3021 TAD D0021 / @@1022=1021 SNA CLA / @@1023=7650 JMP L1031 / @@1024=5231 JMS I C0044 / long call to S2600 @@1025=4444 DCA I C1045 / @@1026=3645 C1027, 3515 / DCA I C0115 C1030, 7777 / CLA MQA SCA MQL LSR + L1031, JMS I C0045 / long call to S2667 @@1031=4445 JMP L1002 / @@1032=5202 DCA D0030 / @@1033=3030 DCA D0031 / @@1034=3031 L1035, CLA CLL CMA / AC = 7777 (-0001) @@1035=7340 JMS I D0040 / long call to S0317 @@1036=4440 JMS I C0037 / long call to S0312 @@1037=4437 CLA CLL / AC = 0000 @@1040=7300 JMS I C0041 / long call to S0324 @@1041=4441 DCA D0021 / @@1042=3021 TAD D0021 / @@1043=1021 SNA CLA / @@1044=7650 C1045, 5252 / JMP C1052 JMS I C0044 / long call to S2600 @@1046=4444 DCA I C1045 / @@1047=3645 C1050, 3515 / DCA I C0115 C1051, 7777 / CLA MQA SCA MQL LSR + JMS I C0045 / long call to S2667 @@1052=4445 JMP L1035 / @@1053=5235 DCA D0030 / @@1054=3030 TAD C0177 / @@1055=1177 DCA D0031 / @@1056=3031 L1057, DCA D0021 / @@1057=3021 L1060, C1060, 6007 / 6007 TAD D0021 / @@1061=1021 JMS I D0040 / long call to S0317 @@1062=4440 CLA CLL / AC = 0000 @@1063=7300 JMS I C0041 / long call to S0324 @@1064=4441 DCA D0022 / @@1065=3022 TAD D0021 / @@1066=1021 CIA / @@1067=7041 TAD D0022 / @@1070=1022 SNA CLA / @@1071=7650 JMP L1077 / @@1072=5277 JMS I C0044 / long call to S2600 @@1073=4444 C1074, 3761 / DCA I C1161 C1075, 3560 / DCA I C0160 SPA SNA SZL CLA OSR HLT / @@1076=7776 L1077, JMS I C0046 / long call to S2712 @@1077=4446 JMP L1060 / @@1100=5260 ISZ D0021 / @@1101=2021 JMP L1060 / @@1102=5260 JMS I C0045 / long call to S2667 @@1103=4445 C1104, 5257 / JMP L1057 DCA D0030 / @@1105=3030 TAD C0177 / @@1106=1177 DCA D0031 / @@1107=3031 L1110, DCA D0021 / @@1110=3021 L1111, C1111, 6007 / 6007 TAD D0021 / @@1112=1021 CMA / @@1113=7040 DCA D0022 / @@1114=3022 CMA / @@1115=7040 JMS I D0040 / long call to S0317 @@1116=4440 CLA CLL / AC = 0000 @@1117=7300 TAD D0021 / @@1120=1021 JMS I C0037 / long call to S0312 @@1121=4437 JMS I C0041 / long call to S0324 @@1122=4441 DCA D0023 / @@1123=3023 TAD D0022 / @@1124=1022 CIA / @@1125=7041 TAD D0023 / @@1126=1023 SNA CLA / @@1127=7650 JMP L1135 / @@1130=5335 JMS I C0044 / long call to S2600 @@1131=4444 C1132, 3767 / DCA I C1167 C1133, 3534 / DCA I C0134 C1134, 7775 / CLA MQA SCA MQL ASR + L1135, JMS I C0046 / long call to S2712 @@1135=4446 JMP L1111 / @@1136=5311 ISZ D0021 / @@1137=2021 JMP L1111 / @@1140=5311 JMS I C0045 / long call to S2667 @@1141=4445 JMP L1110 / @@1142=5310 JMP I C1177 / long jump to L1200 @@1143=5777 *1177 C1177, C1177, 1200 / TAD L1000 L1200, DCA D0030 / @@1200=3030 TAD C0177 / @@1201=1177 DCA D0031 / @@1202=3031 L1203, DCA D0021 / @@1203=3021 DCA D0022 / @@1204=3022 L1205, C1205, 6007 / 6007 TAD D0021 / @@1206=1021 JMS I C0037 / long call to S0312 @@1207=4437 CLA CLL / AC = 0000 @@1210=7300 JMS I C0041 / long call to S0324 @@1211=4441 DCA D0023 / @@1212=3023 TAD D0023 / @@1213=1023 SNA CLA / @@1214=7650 JMP L1222 / @@1215=5222 JMS I C0044 / long call to S2600 @@1216=4444 C1217, 3767 / DCA I C1367 C1220, 3534 / DCA I C0134 C1221, 7775 / CLA MQA SCA MQL ASR + L1222, JMS I C0046 / long call to S2712 @@1222=4446 JMP L1205 / @@1223=5205 ISZ D0021 / @@1224=2021 JMP L1205 / @@1225=5205 JMS I C0045 / long call to S2667 @@1226=4445 JMP L1203 / @@1227=5203 DCA D0030 / @@1230=3030 TAD C0177 / @@1231=1177 DCA D0031 / @@1232=3031 L1233, DCA D0021 / @@1233=3021 L1234, C1234, 6007 / 6007 TAD D0021 / @@1235=1021 JMS I D0040 / long call to S0317 @@1236=4440 JMS I D0040 / long call to S0317 @@1237=4440 CLA CLL / AC = 0000 @@1240=7300 JMS I C0041 / long call to S0324 @@1241=4441 DCA D0022 / @@1242=3022 TAD D0021 / @@1243=1021 CIA / @@1244=7041 TAD D0022 / @@1245=1022 SNA CLA / @@1246=7650 JMP L1254 / @@1247=5254 JMS I C0044 / long call to S2600 @@1250=4444 C1251, 3767 / DCA I C1367 C1252, 3560 / DCA I C0160 SPA SNA SZL CLA OSR HLT / @@1253=7776 L1254, JMS I C0046 / long call to S2712 @@1254=4446 JMP L1234 / @@1255=5234 ISZ D0021 / @@1256=2021 JMP L1234 / @@1257=5234 JMS I C0045 / long call to S2667 @@1260=4445 JMP L1233 / @@1261=5233 DCA D0030 / @@1262=3030 TAD C0177 / @@1263=1177 DCA D0031 / @@1264=3031 L1265, DCA D0021 / @@1265=3021 L1266, C1266, 6007 / 6007 TAD D0021 / @@1267=1021 JMS I D0040 / long call to S0317 @@1270=4440 CLA CLL / AC = 0000 @@1271=7300 JMS I C0041 / long call to S0324 @@1272=4441 CLA CLL / AC = 0000 @@1273=7300 JMS I C0041 / long call to S0324 @@1274=4441 DCA D0022 / @@1275=3022 TAD D0021 / @@1276=1021 CIA / @@1277=7041 TAD D0022 / @@1300=1022 SNA CLA / @@1301=7650 JMP L1307 / @@1302=5307 JMS I C0044 / long call to S2600 @@1303=4444 C1304, 3775 / DCA I C1375 C1305, 3560 / DCA I C0160 SPA SNA SZL CLA OSR HLT / @@1306=7776 L1307, JMS I C0046 / long call to S2712 @@1307=4446 JMP L1266 / @@1310=5266 C1311, 2021 / ISZ D0021 JMP L1266 / @@1312=5266 JMS I C0045 / long call to S2667 @@1313=4445 JMP L1265 / @@1314=5265 DCA D0030 / @@1315=3030 TAD C0177 / @@1316=1177 DCA D0031 / @@1317=3031 L1320, DCA D0021 / @@1320=3021 DCA D0022 / @@1321=3022 L1322, C1322, 6007 / 6007 TAD D0021 / @@1323=1021 JMS I D0040 / long call to S0317 @@1324=4440 JMS I C0037 / long call to S0312 @@1325=4437 JMS I C0037 / long call to S0312 @@1326=4437 CLA CLL / AC = 0000 @@1327=7300 JMS I C0041 / long call to S0324 @@1330=4441 DCA D0023 / @@1331=3023 TAD D0023 / @@1332=1023 SNA CLA / @@1333=7650 JMP L1341 / @@1334=5341 JMS I C0044 / long call to S2600 @@1335=4444 C1336, 3767 / DCA I C1367 C1337, 3534 / DCA I C0134 C1340, 7775 / CLA MQA SCA MQL ASR + L1341, JMS I C0046 / long call to S2712 @@1341=4446 JMP L1322 / @@1342=5322 ISZ D0021 / @@1343=2021 JMP L1322 / @@1344=5322 JMS I C0045 / long call to S2667 @@1345=4445 JMP L1320 / @@1346=5320 JMP I C1377 / long jump to L1400 @@1347=5777 *1377 C1377, C1377, 1400 / TAD I L0000 L1400, C1400, 3030 / DCA D0030 DCA D0031 / @@1401=3031 C1402, 6007 / 6007 L1403, CLA CLL CMA / AC = 7777 (-0001) @@1403=7340 JMS I D0040 / long call to S0317 @@1404=4440 CLA CLL / AC = 0000 @@1405=7300 JMS I C0036 / long call to S0305 @@1406=4436 DCA D0021 / @@1407=3021 TAD D0021 / @@1410=1021 CMA / @@1411=7040 SNA CLA / @@1412=7650 JMP L1420 / @@1413=5220 JMS I C0044 / long call to S2600 @@1414=4444 C1415, 4011 / JMS AI1 C1416, 3515 / DCA I C0115 C1417, 7777 / CLA MQA SCA MQL LSR + L1420, C1420, 6007 / 6007 JMS I C0036 / long call to S0305 @@1421=4436 DCA D0021 / @@1422=3021 TAD D0021 / @@1423=1021 SNA CLA / @@1424=7650 JMP L1432 / @@1425=5232 JMS I C0044 / long call to S2600 @@1426=4444 DCA I C1461 / @@1427=3661 C1430, 3515 / DCA I C0115 C1431, 7777 / CLA MQA SCA MQL LSR + L1432, JMS I C0045 / long call to S2667 @@1432=4445 JMP L1403 / @@1433=5203 DCA D0030 / @@1434=3030 DCA D0031 / @@1435=3031 C1436, 6007 / 6007 CLA CLL CMA / AC = 7777 (-0001) @@1437=7340 AND D0027 / @@1440=0027 DCA D0021 / @@1441=3021 DCA D0022 / @@1442=3022 TAD D0021 / @@1443=1021 JMS I D0040 / long call to S0317 @@1444=4440 JMS I C0035 / long call to S0300 @@1445=4435 CLA CLL / AC = 0000 @@1446=7300 JMS I C0036 / long call to S0305 @@1447=4436 DCA D0023 / @@1450=3023 TAD D0023 / @@1451=1023 SNA CLA / @@1452=7650 JMP L1460 / @@1453=5260 JMS I C0044 / long call to S2600 @@1454=4444 C1455, 4003 / JMS C0003 C1456, 3534 / DCA I C0134 C1457, 7775 / CLA MQA SCA MQL ASR + L1460, JMS I C0045 / long call to S2667 @@1460=4445 C1461, 5236 / JMP C1436 DCA D0030 / @@1462=3030 TAD C0177 / @@1463=1177 DCA D0031 / @@1464=3031 L1465, DCA D0021 / @@1465=3021 L1466, C1466, 6007 / 6007 TAD D0021 / @@1467=1021 JMS I D0040 / long call to S0317 @@1470=4440 CLA CLL / AC = 0000 @@1471=7300 JMS I C0036 / long call to S0305 @@1472=4436 DCA D0022 / @@1473=3022 TAD D0021 / @@1474=1021 CIA / @@1475=7041 TAD D0022 / @@1476=1022 SNA CLA / @@1477=7650 JMP L1505 / @@1500=5305 D1501, 4444 / JMS I C0044 C1502, 4011 / JMS AI1 C1503, 3560 / DCA I C0160 SPA SNA SZL CLA OSR HLT / @@1504=7776 L1505, JMS I C0046 / long call to S2712 @@1505=4446 JMP L1466 / @@1506=5266 ISZ D0021 / @@1507=2021 JMP L1466 / @@1510=5266 JMS I C0045 / long call to S2667 @@1511=4445 JMP L1465 / @@1512=5265 JMP I C1577 / long jump to L1600 @@1513=5777 *1577 C1577, C1577, 1600 / TAD I L1400 L1600, DCA D0030 / @@1600=3030 TAD C0177 / @@1601=1177 DCA D0031 / @@1602=3031 L1603, DCA D0023 / @@1603=3023 L1604, C1604, 6007 / 6007 TAD D0023 / @@1605=1023 AND D0027 / @@1606=0027 DCA D0021 / @@1607=3021 TAD D0021 / @@1610=1021 SNA / @@1611=7450 JMP L1633 / @@1612=5233 JMS I D0040 / long call to S0317 @@1613=4440 JMS I C0037 / long call to S0312 @@1614=4437 CLA CLL / AC = 0000 @@1615=7300 JMS I C0036 / long call to S0305 @@1616=4436 DCA D0022 / @@1617=3022 TAD D0021 / @@1620=1021 CIA / @@1621=7041 TAD D0022 / @@1622=1022 SNA CLA / @@1623=7650 JMP L1631 / @@1624=5231 JMS I C0044 / long call to S2600 @@1625=4444 C1626, 4026 / JMS D0026 C1627, 3560 / DCA I C0160 SPA SNA SZL CLA OSR HLT / @@1630=7776 L1631, JMS I C0046 / long call to S2712 @@1631=4446 JMP L1604 / @@1632=5204 L1633, ISZ D0023 / @@1633=2023 JMP L1604 / @@1634=5204 JMS I C0045 / long call to S2667 @@1635=4445 JMP L1603 / @@1636=5203 DCA D0030 / @@1637=3030 TAD C0177 / @@1640=1177 DCA D0031 / @@1641=3031 L1642, DCA D0024 / @@1642=3024 DCA D0022 / @@1643=3022 L1644, C1644, 6007 / 6007 TAD D0027 / @@1645=1027 CMA / @@1646=7040 AND D0024 / @@1647=0024 DCA D0021 / @@1650=3021 TAD D0021 / @@1651=1021 SNA / @@1652=7450 JMP L1672 / @@1653=5272 JMS I D0040 / long call to S0317 @@1654=4440 JMS I C0037 / long call to S0312 @@1655=4437 CLA CLL / AC = 0000 @@1656=7300 JMS I C0036 / long call to S0305 @@1657=4436 DCA D0023 / @@1660=3023 TAD D0023 / @@1661=1023 SNA CLA / @@1662=7650 JMP L1670 / @@1663=5270 JMS I C0044 / long call to S2600 @@1664=4444 C1665, 4026 / JMS D0026 C1666, 3534 / DCA I C0134 C1667, 7775 / CLA MQA SCA MQL ASR + L1670, JMS I C0046 / long call to S2712 @@1670=4446 JMP L1644 / @@1671=5244 L1672, ISZ D0024 / @@1672=2024 JMP L1644 / @@1673=5244 JMS I C0045 / long call to S2667 @@1674=4445 JMP L1642 / @@1675=5242 DCA D0030 / @@1676=3030 TAD C0177 / @@1677=1177 DCA D0031 / @@1700=3031 L1701, DCA D0024 / @@1701=3024 L1702, C1702, 6007 / 6007 TAD D0027 / @@1703=1027 AND D0024 / @@1704=0024 DCA D0021 / @@1705=3021 DCA D0022 / @@1706=3022 TAD D0021 / @@1707=1021 JMS I D0040 / long call to S0317 @@1710=4440 JMS I C0037 / long call to S0312 @@1711=4437 CLA CLL / AC = 0000 @@1712=7300 TAD D0021 / @@1713=1021 JMS I C0035 / long call to S0300 @@1714=4435 CLA CLL / AC = 0000 @@1715=7300 C1716, 4436 / JMS I C0036 DCA D0023 / @@1717=3023 TAD D0023 / @@1720=1023 SNA CLA / @@1721=7650 JMP L1727 / @@1722=5327 JMS I C0044 / long call to S2600 @@1723=4444 C1724, 4026 / JMS D0026 C1725, 3534 / DCA I C0134 C1726, 7775 / CLA MQA SCA MQL ASR + L1727, JMS I C0046 / long call to S2712 @@1727=4446 JMP L1702 / @@1730=5302 ISZ D0024 / @@1731=2024 JMP L1702 / @@1732=5302 JMS I C0045 / long call to S2667 @@1733=4445 JMP L1701 / @@1734=5301 JMP I C1777 / long jump to L2000 @@1735=5777 *1777 C1777, C1777, 2000 / ISZ L0000 L2000, D2000, 3030 / DCA D0030 TAD C0177 / @@2001=1177 DCA D0031 / @@2002=3031 L2003, DCA D0021 / @@2003=3021 DCA D0022 / @@2004=3022 L2005, C2005, 6007 / 6007 TAD D0021 / @@2006=1021 JMS I C0035 / long call to S0300 @@2007=4435 CLA CLL / AC = 0000 @@2010=7300 JMS I C0036 / long call to S0305 @@2011=4436 DCA D0023 / @@2012=3023 TAD D0023 / @@2013=1023 SNA CLA / @@2014=7650 JMP L2022 / @@2015=5222 JMS I C0044 / long call to S2600 @@2016=4444 C2017, 4003 / JMS C0003 C2020, 3534 / DCA I C0134 C2021, 7775 / CLA MQA SCA MQL ASR + L2022, JMS I C0046 / long call to S2712 @@2022=4446 JMP L2005 / @@2023=5205 ISZ D0021 / @@2024=2021 JMP L2005 / @@2025=5205 JMS I C0045 / long call to S2667 @@2026=4445 JMP L2003 / @@2027=5203 DCA D0030 / @@2030=3030 TAD C0177 / @@2031=1177 DCA D0031 / @@2032=3031 L2033, DCA D0021 / @@2033=3021 L2034, C2034, 6007 / 6007 TAD D0021 / @@2035=1021 JMS I D0040 / long call to S0317 @@2036=4440 CLA CLL / AC = 0000 @@2037=7300 JMS I C0036 / long call to S0305 @@2040=4436 CLA CLL / AC = 0000 @@2041=7300 JMS I C0036 / long call to S0305 @@2042=4436 DCA D0022 / @@2043=3022 TAD D0021 / @@2044=1021 CIA / @@2045=7041 TAD D0022 / @@2046=1022 SNA CLA / @@2047=7650 JMP L2055 / @@2050=5255 JMS I C0044 / long call to S2600 @@2051=4444 C2052, 4034 / JMS C0034 C2053, 3560 / DCA I C0160 SPA SNA SZL CLA OSR HLT / @@2054=7776 L2055, JMS I C0046 / long call to S2712 @@2055=4446 JMP L2034 / @@2056=5234 ISZ D0021 / @@2057=2021 JMP L2034 / @@2060=5234 JMS I C0045 / long call to S2667 @@2061=4445 JMP L2033 / @@2062=5233 DCA D0030 / @@2063=3030 TAD C0177 / @@2064=1177 DCA D0031 / @@2065=3031 L2066, DCA D0022 / @@2066=3022 DCA D0021 / @@2067=3021 L2070, C2070, 6007 / 6007 TAD D0021 / @@2071=1021 JMS I D0040 / long call to S0317 @@2072=4440 JMS I C0037 / long call to S0312 @@2073=4437 JMS I C0035 / long call to S0300 @@2074=4435 JMS I C0035 / long call to S0300 @@2075=4435 CLA CLL / AC = 0000 @@2076=7300 JMS I C0036 / long call to S0305 @@2077=4436 DCA D0023 / @@2100=3023 TAD D0023 / @@2101=1023 SNA CLA / @@2102=7650 JMP L2110 / @@2103=5310 JMS I C0044 / long call to S2600 @@2104=4444 C2105, 4003 / JMS C0003 C2106, 3534 / DCA I C0134 C2107, 7775 / CLA MQA SCA MQL ASR + L2110, JMS I C0046 / long call to S2712 @@2110=4446 JMP L2070 / @@2111=5270 ISZ D0021 / @@2112=2021 JMP L2070 / @@2113=5270 JMS I C0045 / long call to S2667 @@2114=4445 JMP L2066 / @@2115=5266 JMP I C2177 / long jump to L2200 @@2116=5777 *2177 C2177, C2177, 2200 / ISZ L2000 L2200, DCA D0030 / @@2200=3030 TAD C0177 / @@2201=1177 DCA D0031 / @@2202=3031 L2203, DCA D0021 / @@2203=3021 DCA D0022 / @@2204=3022 L2205, C2205, 6007 / 6007 TAD D0021 / @@2206=1021 JMS I C0037 / long call to S0312 @@2207=4437 CLA CLL / AC = 0000 @@2210=7300 JMS I C0036 / long call to S0305 @@2211=4436 DCA D0023 / @@2212=3023 TAD D0023 / @@2213=1023 SNA CLA / @@2214=7650 JMP L2222 / @@2215=5222 JMS I C0044 / long call to S2600 @@2216=4444 C2217, 3767 / DCA I C2367 C2220, 3534 / DCA I C0134 C2221, 7775 / CLA MQA SCA MQL ASR + L2222, JMS I C0046 / long call to S2712 @@2222=4446 JMP L2205 / @@2223=5205 ISZ D0021 / @@2224=2021 JMP L2205 / @@2225=5205 JMS I C0045 / long call to S2667 @@2226=4445 JMP L2203 / @@2227=5203 DCA D0030 / @@2230=3030 TAD C0177 / @@2231=1177 DCA D0031 / @@2232=3031 L2233, DCA D0021 / @@2233=3021 DCA D0022 / @@2234=3022 L2235, C2235, 6007 / 6007 TAD D0021 / @@2236=1021 JMS I C0035 / long call to S0300 @@2237=4435 CLA CLL / AC = 0000 @@2240=7300 JMS I C0041 / long call to S0324 @@2241=4441 DCA D0023 / @@2242=3023 TAD D0023 / @@2243=1023 SNA CLA / @@2244=7650 JMP L2252 / @@2245=5252 JMS I C0044 / long call to S2600 @@2246=4444 C2247, 4003 / JMS C0003 C2250, 3534 / DCA I C0134 C2251, 7775 / CLA MQA SCA MQL ASR + L2252, JMS I C0046 / long call to S2712 @@2252=4446 JMP L2235 / @@2253=5235 ISZ D0021 / @@2254=2021 JMP L2235 / @@2255=5235 JMS I C0045 / long call to S2667 @@2256=4445 JMP L2233 / @@2257=5233 DCA D0030 / @@2260=3030 TAD C0177 / @@2261=1177 DCA D0031 / @@2262=3031 L2263, DCA D0021 / @@2263=3021 DCA D0022 / @@2264=3022 L2265, C2265, 6007 / 6007 CMA / @@2266=7040 JMS I D0040 / long call to S0317 @@2267=4440 JMS I C0035 / long call to S0300 @@2270=4435 CLA CLL / AC = 0000 @@2271=7300 TAD D0027 / @@2272=1027 CMA / @@2273=7040 DCA D0022 / @@2274=3022 TAD D0021 / @@2275=1021 CMA / @@2276=7040 AND D0022 / @@2277=0022 DCA D0022 / @@2300=3022 TAD D0021 / @@2301=1021 JMS I C0037 / long call to S0312 @@2302=4437 CLA CLL / AC = 0000 @@2303=7300 JMS I C0036 / long call to S0305 @@2304=4436 DCA D0023 / @@2305=3023 TAD D0023 / @@2306=1023 CIA / @@2307=7041 TAD D0022 / @@2310=1022 SNA CLA / @@2311=7650 JMP L2317 / @@2312=5317 JMS I C0044 / long call to S2600 @@2313=4444 C2314, 3767 / DCA I C2367 C2315, 3534 / DCA I C0134 C2316, 7775 / CLA MQA SCA MQL ASR + L2317, JMS I C0046 / long call to S2712 @@2317=4446 JMP L2265 / @@2320=5265 ISZ D0021 / @@2321=2021 C2322, 5265 / JMP L2265 JMS I C0045 / long call to S2667 @@2323=4445 JMP L2263 / @@2324=5263 DCA D0030 / @@2325=3030 TAD C0177 / @@2326=1177 DCA D0031 / @@2327=3031 L2330, DCA D0021 / @@2330=3021 L2331, C2331, 6007 / 6007 CMA / @@2332=7040 JMS I D0040 / long call to S0317 @@2333=4440 CLA CLL / AC = 0000 @@2334=7300 TAD D0027 / @@2335=1027 CMA / @@2336=7040 AND D0021 / @@2337=0021 CMA / @@2340=7040 DCA D0022 / @@2341=3022 TAD D0021 / @@2342=1021 JMS I C0037 / long call to S0312 @@2343=4437 CLA CLL / AC = 0000 @@2344=7300 JMS I C0036 / long call to S0305 @@2345=4436 DCA D0023 / @@2346=3023 TAD D0022 / @@2347=1022 CIA / @@2350=7041 TAD D0023 / @@2351=1023 SNA CLA / @@2352=7650 JMP L2360 / @@2353=5360 JMS I C0044 / long call to S2600 @@2354=4444 C2355, 3767 / DCA I C2367 C2356, 3534 / DCA I C0134 C2357, 7775 / CLA MQA SCA MQL ASR + L2360, JMS I C0046 / long call to S2712 @@2360=4446 JMP L2331 / @@2361=5331 ISZ D0021 / @@2362=2021 JMP L2331 / @@2363=5331 JMS I C0045 / long call to S2667 @@2364=4445 JMP L2330 / @@2365=5330 JMP I C2377 / long jump to L2400 @@2366=5777 *2377 C2377, C2377, 2400 / ISZ I L0000 L2400, DCA D0030 / @@2400=3030 TAD C0177 / @@2401=1177 DCA D0031 / @@2402=3031 L2403, DCA D0022 / @@2403=3022 L2404, C2404, 6007 / 6007 TAD D0022 / @@2405=1022 AND D0026 / @@2406=0026 SNA / @@2407=7450 JMP L2441 / @@2410=5241 DCA D0021 / @@2411=3021 TAD D0021 / @@2412=1021 JMS I D0040 / long call to S0317 @@2413=4440 CLA CLL / AC = 0000 @@2414=7300 C2415, 6003 / 6003 JMP L2423 / @@2416=5223 JMS I C0044 / long call to S2600 @@2417=4444 C2420, 4042 / JMS C0042 C2421, 3515 / DCA I C0115 C2422, 7777 / CLA MQA SCA MQL LSR + L2423, JMS I C0033 / long call to S0266 @@2423=4433 C2424, 6003 / 6003 JMP L2431 / @@2425=5231 JMS I C0034 / long call to S0273 @@2426=4434 JMP L2446 / @@2427=5246 JMP L2437 / @@2430=5237 L2431, JMS I C0034 / long call to S0273 @@2431=4434 JMP L2453 / @@2432=5253 JMS I C0044 / long call to S2600 @@2433=4444 C2434, 4042 / JMS C0042 C2435, 3515 / DCA I C0115 C2436, 7777 / CLA MQA SCA MQL LSR + L2437, JMS I C0046 / long call to S2712 @@2437=4446 JMP L2404 / @@2440=5204 L2441, ISZ D0022 / @@2441=2022 JMP L2404 / @@2442=5204 JMS I C0045 / long call to S2667 @@2443=4445 JMP L2403 / @@2444=5203 JMP L2460 / @@2445=5260 L2446, JMS I C0044 / long call to S2600 @@2446=4444 C2447, 4065 / JMS C0065 C2450, 3515 / DCA I C0115 C2451, 7777 / CLA MQA SCA MQL LSR + JMP L2437 / @@2452=5237 L2453, JMS I C0044 / long call to S2600 @@2453=4444 C2454, 4077 / JMS C0077 C2455, 3515 / DCA I C0115 C2456, 7777 / CLA MQA SCA MQL LSR + D2457, 5237 / JMP L2437 L2460, DCA D0030 / @@2460=3030 TAD C0177 / @@2461=1177 DCA D0031 / @@2462=3031 L2463, DCA D0022 / @@2463=3022 L2464, C2464, 6007 / 6007 TAD D0026 / @@2465=1026 CMA / @@2466=7040 AND D0022 / @@2467=0022 SNA / @@2470=7450 JMP L2506 / @@2471=5306 DCA D0021 / @@2472=3021 TAD D0021 / @@2473=1021 C2474, 4440 / JMS I D0040 CLA CLL / AC = 0000 @@2475=7300 JMS I C0034 / long call to S0273 @@2476=4434 JMP L2504 / @@2477=5304 JMS I C0044 / long call to S2600 @@2500=4444 DCA I C2474 / @@2501=3674 C2502, 3515 / DCA I C0115 C2503, 7777 / CLA MQA SCA MQL LSR + L2504, JMS I C0046 / long call to S2712 @@2504=4446 JMP L2464 / @@2505=5264 L2506, ISZ D0022 / @@2506=2022 JMP L2464 / @@2507=5264 JMS I C0045 / long call to S2667 @@2510=4445 JMP L2463 / @@2511=5263 JMP I C2577 / long jump to L3257 @@2512=5777 *2577 C2577, C2577, 3257 / DCA D2457 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Called from: / 0410 0427 0444 0452 0471 0510 0530 0550 0570 0610 0626 0644 1013 1025 1046 / 1073 1131 1216 1250 1303 1335 1414 1426 1454 1625 1664 1723 2016 2051 2104 / 2216 2246 2313 2354 2417 2433 2446 2453 2500 / Total 0047 (39) calls //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area CLA CLL / AC = 0000 @@2601=7300 TAD I S2600 / @@2602=1600 DCA D2634 / @@2603=3234 ISZ S2600 / @@2604=2200 TAD I S2600 / @@2605=1600 DCA D2636 / @@2606=3236 ISZ S2600 / @@2607=2200 TAD I S2600 / @@2610=1600 DCA D2664 / @@2611=3264 TAD S2600 / @@2612=1200 TAD C2777 / @@2613=1377 DCA I C2776 / @@2614=3776 TAD I C2776 / @@2615=1776 DCA D2666 / @@2616=3266 LAS / @@2617=7604 AND C2734 / @@2620=0334 SZA CLA / @@2621=7640 JMP L2654 / @@2622=5254 TAD D0030 / @@2623=1030 SZA CLA / @@2624=7640 JMP L2641 / @@2625=5241 CMA / @@2626=7040 DCA D0030 / @@2627=3030 JMS I C2775 / long call to S3000 @@2630=4775 JMS I C0042 / long call to S3200 @@2631=4442 DCA D0024 / @@2632=3024 JMS I C0042 / long call to S3200 @@2633=4442 D2634, 0000 / AND L0000 JMS I C0042 / long call to S3200 @@2635=4442 D2636, 0000 / AND L0000 JMS I C0042 / long call to S3200 @@2637=4442 C2640, 3512 / DCA I C0112 L2641, TAD D2664 / @@2641=1264 SNA CLA / @@2642=7650 JMP L2654 / @@2643=5254 TAD C2665 / @@2644=1265 DCA AI0 / AUTO INDEX REGISTER @@2645=3010 L2646, TAD I AI0 / AUTO INDEX REGISTER @@2646=1410 JMS I C2774 / long call to S3031 @@2647=4774 ISZ D2664 / @@2650=2264 JMP L2646 / @@2651=5246 JMS I C0042 / long call to S3200 @@2652=4442 C2653, 3512 / DCA I C0112 L2654, LAS / @@2654=7604 AND C2733 / @@2655=0333 SZA CLA / @@2656=7640 JMP L2662 / @@2657=5262 TAD D2666 / @@2660=1266 HLT / @@2661=7402 L2662, ISZ S2600 / @@2662=2200 JMP I S2600 / return @@2663=5600 D2664, 0000 / AND L0000 C2665, 0020 / AND D0020 D2666, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2667 / / Called from: / 0414 0433 0456 0475 0514 0534 0554 0574 0614 0632 0650 1031 1052 1103 1141 / 1226 1260 1313 1345 1432 1460 1511 1635 1674 1733 2026 2061 2114 2226 2256 / 2323 2364 2443 2510 / Total 0042 (34) calls //////////////////////////////////////////////////////////////////////////////// S2667, 0 / return area TAD D0030 / @@2670=1030 SNA CLA / @@2671=7650 JMP L2677 / @@2672=5277 LAS / @@2673=7604 AND C2741 / @@2674=0341 SZA CLA / @@2675=7640 JMP L2710 / @@2676=5310 L2677, LAS / @@2677=7604 AND C2740 / @@2700=0340 SZA CLA / @@2701=7640 JMP L2705 / @@2702=5305 ISZ D0031 / @@2703=2031 JMP L2711 / @@2704=5311 L2705, LAS / @@2705=7604 AND C2735 / @@2706=0335 SNA CLA / @@2707=7650 L2710, ISZ S2667 / @@2710=2267 L2711, JMP I S2667 / return @@2711=5667 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2712 / / Called from: / 1077 1135 1222 1254 1307 1341 1505 1631 1670 1727 2022 2055 2110 2222 2252 / 2317 2360 2437 2504 / Total 0023 (19) calls //////////////////////////////////////////////////////////////////////////////// S2712, 0 / return area TAD D0030 / @@2713=1030 SNA CLA / @@2714=7650 JMP L2726 / @@2715=5326 LAS / @@2716=7604 AND C2741 / @@2717=0341 SNA CLA / @@2720=7650 JMP L2726 / @@2721=5326 TAD S2712 / @@2722=1312 TAD C2773 / @@2723=1373 DCA S2712 / @@2724=3312 JMP I S2712 / return @@2725=5712 L2726, LAS / @@2726=7604 AND C2736 / @@2727=0336 SNA CLA / @@2730=7650 ISZ S2712 / @@2731=2312 JMP I S2712 / return @@2732=5712 C2733, 4000 / JMS L0000 C2734, 2000 / ISZ L0000 C2735, 1000 / TAD L0000 C2736, 0400 / AND I L0000 C2737, 0200 / AND S2600 C2740, 0100 / AND C0100 C2741, 0040 / AND D0040 *2773 C2773, 0005 / AND C0005 C2774, C2774, 3031 / DCA D0031 C2775, C2775, 3000 / DCA L0000 C2776, 3027 / DCA D0027 C2777, 7775 / CLA MQA SCA MQL ASR + //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 2630 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3000, 0 / return area CLA CLL / AC = 0000 @@3001=7300 TAD D3027 / @@3002=1227 BSW / @@3003=7002 JMS S3012 / @@3004=4212 DCA D3026 / @@3005=3226 TAD D3027 / @@3006=1227 JMS S3012 / @@3007=4212 DCA D3027 / @@3010=3227 JMP I S3000 / return @@3011=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3012 / / Called from: / 3004 3007 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3012, 0 / return area AND C3177 / @@3013=0377 MQL / @@3014=7421 MQA / @@3015=7501 CLL RTL / @@3016=7106 RAL / @@3017=7004 AND C3176 / @@3020=0376 MQA / @@3021=7501 AND C3176 / @@3022=0376 TAD C3175 / @@3023=1375 JMP I S3012 / return @@3024=5612 C3025, 3736 / DCA I C3136 D3026, 4040 / JMS D0040 D3027, 4040 / JMS D0040 D3030, 4000 / JMS L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3031 / / Called from: / 2647 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3031, 0 / return area MQL / @@3032=7421 TAD C3174 / @@3033=1374 DCA D0020 / @@3034=3020 L3035, MQA / @@3035=7501 CLL RAL / @@3036=7104 MQL / @@3037=7421 TAD C3173 / @@3040=1373 SNL / @@3041=7420 AND C3172 / @@3042=0372 JMS I C0043 / long call to S3251 @@3043=4443 ISZ D0020 / @@3044=2020 JMP L3035 / @@3045=5235 TAD C3171 / @@3046=1371 JMS I C0043 / long call to S3251 @@3047=4443 TAD C3171 / @@3050=1371 JMS I C0043 / long call to S3251 @@3051=4443 JMP I S3031 / return @@3052=5631 *3171 C3171, 0240 / AND C3040 C3172, 0260 / AND C3060 C3173, 0261 / AND C3061 C3174, 7764 / SMA SZA SNL CLA OSR C3175, 6060 / 6060 C3176, 0707 / AND I C3107 C3177, 0077 / AND C0077 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3200 / / Called from: / 0203 0214 0221 0240 2631 2633 2635 2637 2652 3267 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S3200, 0 / return area CLA CLL / AC = 0000 @@3201=7300 TAD I S3200 / @@3202=1600 DCA AI0 / AUTO INDEX REGISTER @@3203=3010 ISZ S3200 / @@3204=2200 L3205, TAD I AI0 / AUTO INDEX REGISTER @@3205=1410 MQL / @@3206=7421 MQA / @@3207=7501 BSW / @@3210=7002 JMS S3215 / @@3211=4215 MQA / @@3212=7501 JMS S3215 / @@3213=4215 JMP L3205 / @@3214=5205 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3215 / / Called from: / 3211 3213 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3215, 0 / return area AND C3243 / @@3216=0243 SNA / @@3217=7450 JMP I S3200 / return @@3220=5600 TAD C3244 / @@3221=1244 SPA / @@3222=7510 JMP L3226 / @@3223=5226 TAD C3250 / @@3224=1250 JMP L3241 / @@3225=5241 L3226, IAC / @@3226=7001 SZA / @@3227=7440 JMP L3233 / @@3230=5233 TAD C3245 / @@3231=1245 JMP L3241 / @@3232=5241 L3233, IAC / @@3233=7001 SZA / @@3234=7440 JMP L3240 / @@3235=5240 TAD C3246 / @@3236=1246 JMP L3241 / @@3237=5241 L3240, TAD C3247 / @@3240=1247 L3241, JMS I C0043 / long call to S3251 @@3241=4443 JMP I S3215 / return @@3242=5615 C3243, 0077 / AND C0077 C3244, 7740 / SMA SZA CLA C3245, 0215 / AND S3215 C3246, 0212 / AND C3212 C3247, 0336 / AND C3336 C3250, 0240 / AND L3240 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3251 / / Called from: / 3043 3047 3051 3241 3273 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S3251, 0 / return area TLS / Load the TTO from the content of AC4 @@3252=6046 L3253, TSF / Skip if teleprinter flag is a 1. @@3253=6041 JMP L3253 / @@3254=5253 CLA / @@3255=7200 JMP I S3251 / return @@3256=5651 L3257, LAS / @@3257=7604 AND I C3377 / @@3260=0777 SZA CLA / @@3261=7640 JMP I C3376 / long jump to L0400 @@3262=5776 LAS / @@3263=7604 AND I C3375 / @@3264=0775 SZA CLA / @@3265=7640 JMP L3272 / @@3266=5272 JMS I C0042 / long call to S3200 @@3267=4442 DCA D3274 / @@3270=3274 JMP I C3376 / long jump to L0400 @@3271=5776 L3272, TAD C3374 / @@3272=1374 JMS S3251 / @@3273=4251 D3274, 5776 / JMP I C3376 C3275, 3736 / DCA I C3336 AND I D0022 / @@3276=0422 C3277, 0000 / AND L0000 *3374 C3374, 0207 / AND C3207 C3375, 2740 / ISZ I C3340 C3376, C3376, 0400 / AND I L0000 C3377, 2737 / ISZ I C3337 DCA I C3536 / @@3400=3736 ISZ D3505 / @@3401=2305 ISZ I D0040 / @@3402=2440 ISZ D3522 / @@3403=2322 C3404, 4006 / JMS C0006 D3405, 1722 / TAD I D3522 C3406, 4004 / JMS C0004 C3407, 0526 / AND I C0126 C3410, 1103 / TAD C0103 C3411, 0540 / AND I C0140 AND C3517 / @@3412=0317 C3413, 0405 / AND I C0005 C3414, 4001 / JMS C0001 TAD I C3404 / @@3415=1604 C3416, 4003 / JMS C0003 TAD I C3516 / @@3417=1716 C3420, 2400 / ISZ I L0000 DCA I C3536 / @@3421=3736 ISZ D3505 / @@3422=2305 D3423, 2440 / ISZ I D0040 C3424, 2322 / ISZ D3522 D3425, 4006 / JMS C0006 TAD I D3522 / @@3426=1722 C3427, 4011 / JMS AI1 TAD I C3424 / @@3430=1624 C3431, 0522 / AND I C0122 ISZ D3425 / @@3432=2225 ISZ D0024 / @@3433=2024 C3434, 4012 / JMS AI2 C3435, 2515 / ISZ I C0115 C3436, 2005 / ISZ C0005 ISZ D3423 / @@3437=2223 C3440, 4001 / JMS C0001 TAD I C3404 / @@3441=1604 C3442, 4003 / JMS C0003 TAD I C3516 / @@3443=1716 C3444, 2400 / ISZ I L0000 DCA I C3536 / @@3445=3736 ISZ D3505 / @@3446=2305 ISZ I D0040 / @@3447=2440 ISZ D3527 / @@3450=2327 C3451, 1124 / TAD C0124 AND C3510 / @@3452=0310 C3453, 0523 / AND I C0123 C3454, 4006 / JMS C0006 TAD I D3522 / @@3455=1722 C3456, 4006 / JMS C0006 C3457, 1411 / TAD I AI1 C3460, 2006 / ISZ C0006 C3461, 1417 / TAD I AI7 ISZ D0040 / @@3462=2040 TAD D3425 / @@3463=1225 C3464, 1520 / TAD I C0120 C3465, 0522 / AND I C0122 ISZ D3540 / @@3466=2340 C3467, 0116 / AND C0116 AND I D0040 / @@3470=0440 AND C3517 / @@3471=0317 TAD I C3424 / @@3472=1624 C3473, 1116 / TAD C0116 C3474, 2505 / ISZ I C0105 C3475, 0000 / AND L0000 DCA I C3536 / @@3476=3736 ISZ D3505 / @@3477=2305 D3500, 2440 / ISZ I D0040 ISZ D3522 / @@3501=2322 C3502, 4006 / JMS C0006 TAD I D3522 / @@3503=1722 JMS D0022 / @@3504=4022 D3505, 2516 / ISZ I C0116 C3506, 4001 / JMS C0001 TAD I C3404 / @@3507=1604 C3510, 4003 / JMS C0003 C3511, 1716 / TAD I C3516 C3512, 2400 / ISZ I L0000 D3513, 3736 / DCA I C3536 C3514, 0000 / AND L0000 C3515, 0000 / AND L0000 C3516, 3736 / DCA I C3536 C3517, 2205 / ISZ D3405 AND I C3511 / @@3520=0711 ISZ D3524 / @@3521=2324 D3522, 0522 / AND I C0122 C3523, 4004 / JMS C0004 D3524, 0124 / AND C0124 C3525, 0100 / AND C0100 DCA I C3536 / @@3526=3736 D3527, 0103 / AND C0103 C3530, 4003 / JMS C0003 TAD I C3516 / @@3531=1716 C3532, 2405 / ISZ I C0005 TAD I C3424 / @@3533=1624 ISZ D3500 / @@3534=2300 DCA I C3536 / @@3535=3736 C3536, 1501 / TAD I C0101 ISZ D3513 / @@3537=2313 D3540, 4040 / JMS D0040 C3541, 4040 / JMS D0040 C3542, 4040 / JMS D0040 C3543, 4040 / JMS D0040 C3544, 4040 / JMS D0040 C3545, 0530 / AND I C0130 C3546, 2005 / ISZ C0005 AND D3524 / @@3547=0324 C3550, 0504 / AND I C0104 C3551, 4040 / JMS D0040 C3552, 4040 / JMS D0040 C3553, 4040 / JMS D0040 ISZ D3405 / @@3554=2205 AND D3505 / @@3555=0305 C3556, 1126 / TAD C0126 C3557, 0504 / AND I C0104 C3560, 0000 / AND L0000 DCA I C3536 / @@3561=3736 C3562, 0530 / AND I C0130 C3563, 2005 / ISZ C0005 AND D3524 / @@3564=0324 C3565, 0504 / AND I C0104 C3566, 4040 / JMS D0040 C3567, 4040 / JMS D0040 C3570, 4040 / JMS D0040 ISZ D3405 / @@3571=2205 AND D3505 / @@3572=0305 C3573, 1126 / TAD C0126 C3574, 0504 / AND I C0104 C3575, 0000 / AND L0000 DCA I C3536 / @@3576=3736 ISZ D3405 / @@3577=2205 C3600, 0711 / AND I C3711 ISZ D3724 / @@3601=2324 C3602, 0522 / AND I C0122 C3603, 4040 / JMS D0040 C3604, 4040 / JMS D0040 D3605, 4040 / JMS D0040 C3606, 4004 / JMS C0004 C3607, 0124 / AND C0124 C3610, 0140 / AND C0140 D3611, 1725 / TAD I C3725 ISZ I D0040 / @@3612=2440 C3613, 4040 / JMS D0040 C3614, 4040 / JMS D0040 C3615, 4040 / JMS D0040 C3616, 0401 / AND I C0001 D3617, 2401 / ISZ I C0001 C3620, 4011 / JMS AI1 TAD I C3600 / @@3621=1600 D3622, 3736 / DCA I C3736 C3623, 0103 / AND C0103 C3624, 4003 / JMS C0003 TAD I C3716 / @@3625=1716 C3626, 2405 / ISZ I C0005 TAD I C3624 / @@3627=1624 ISZ D3740 / @@3630=2340 C3631, 4040 / JMS D0040 C3632, 4004 / JMS C0004 C3633, 0124 / AND C0124 C3634, 0140 / AND C0140 TAD I C3725 / @@3635=1725 ISZ I D0040 / @@3636=2440 C3637, 4040 / JMS D0040 C3640, 4040 / JMS D0040 C3641, 4040 / JMS D0040 C3642, 0401 / AND I C0001 C3643, 2401 / ISZ I C0001 C3644, 4011 / JMS AI1 TAD I C3600 / @@3645=1600 TAD I C3725 / @@3646=1725 ISZ I D0020 / @@3647=2420 C3650, 2524 / ISZ I C0124 JMS D0022 / @@3651=4022 C3652, 0507 / AND I C0107 C3653, 4016 / JMS AI6 TAD I D3724 / @@3654=1724 C3655, 4003 / JMS C0003 C3656, 1405 / TAD I C0005 C3657, 0122 / AND C0122 C3660, 0504 / AND I C0104 C3661, 0000 / AND L0000 C3662, 1116 / TAD C0116 ISZ D0025 / @@3663=2025 ISZ I D0040 / @@3664=2440 ISZ D3605 / @@3665=2205 AND I D3740 / @@3666=0740 TAD I D3617 / @@3667=1617 ISZ I D0040 / @@3670=2440 AND C3714 / @@3671=0314 C3672, 0501 / AND I C0101 ISZ D3605 / @@3673=2205 C3674, 0400 / AND I L0000 ISZ D3713 / @@3675=2313 C3676, 1120 / TAD C0120 C3677, 4006 / JMS C0006 C3700, 1401 / TAD I C0001 AND I D3740 / @@3701=0740 ISZ D3705 / @@3702=2305 C3703, 2400 / ISZ I L0000 C3704, 0402 / AND I C0002 D3705, 2217 / ISZ D3617 C3706, 4004 / JMS C0004 C3707, 1104 / TAD C0104 C3710, 4016 / JMS AI6 C3711, 1724 / TAD I D3724 C3712, 4003 / JMS C0003 D3713, 1405 / TAD I C0005 C3714, 0122 / AND C0122 C3715, 4001 / JMS C0001 C3716, 0300 / AND C3700 D3717, 0402 / AND I C0002 ISZ D3611 / @@3720=2211 C3721, 4004 / JMS C0004 C3722, 1104 / TAD C0104 C3723, 4016 / JMS AI6 D3724, 1724 / TAD I D3724 C3725, 4003 / JMS C0003 C3726, 1405 / TAD I C0005 C3727, 0122 / AND C0122 C3730, 4001 / JMS C0001 AND C3700 / @@3731=0300 C3732, 0402 / AND I C0002 ISZ D3717 / @@3733=2317 C3734, 4003 / JMS C0003 C3735, 1001 / TAD C0001 C3736, 1607 / TAD I C3607 C3737, 0504 / AND I C0104 D3740, 4001 / JMS C0001 D3741, 0300 / AND C3700 C3742, 0402 / AND I C0002 AND D3717 / @@3743=0317 C3744, 4003 / JMS C0003 C3745, 1001 / TAD C0001 TAD I C3607 / @@3746=1607 C3747, 0504 / AND I C0104 C3750, 4001 / JMS C0001 AND C3700 / @@3751=0300 C3752, 0402 / AND I C0002 AND C3711 / @@3753=0311 C3754, 4003 / JMS C0003 C3755, 1001 / TAD C0001 TAD I C3607 / @@3756=1607 C3757, 0504 / AND I C0104 C3760, 4001 / JMS C0001 AND C3700 / @@3761=0300 C3762, 0402 / AND I C0002 ISZ D3717 / @@3763=2317 C3764, 4005 / JMS C0005 ISZ D3622 / @@3765=2222 TAD I C3722 / @@3766=1722 C3767, 0000 / AND L0000 C3770, 0402 / AND I C0002 AND D3717 / @@3771=0317 C3772, 4005 / JMS C0005 ISZ D3622 / @@3773=2222 TAD I C3722 / @@3774=1722 C3775, 0000 / AND L0000 C3776, 0402 / AND I C0002 ISZ D3617 / @@3777=2217 D4000, 4005 / JMS C0005 ISZ D4022 / @@4001=2222 C4002, 1722 / TAD I C4122 C4003, 0000 / AND L0000 C4004, 0402 / AND I C0002 D4005, 0311 / AND C4111 C4006, 4005 / JMS C0005 ISZ D4022 / @@4007=2222 C4010, 1722 / TAD I C4122 D4011, 0000 / AND L0000 C4012, 1116 / TAD C0116 ISZ D0025 / @@4013=2025 ISZ I D0040 / @@4014=2440 ISZ D4005 / @@4015=2205 AND I C4111 / @@4016=0711 D4017, 2324 / ISZ C4124 C4020, 0522 / AND I C0122 C4021, 4004 / JMS C0004 D4022, 0124 / AND C0124 C4023, 0140 / AND C0140 C4024, 0522 / AND I C0122 D4025, 2217 / ISZ D4017 ISZ D4000 / @@4026=2200 C4027, 1401 / TAD I C0001 C4030, 2403 / ISZ I C0003 TAD D0040 / @@4031=1040 C4032, 0522 / AND I C0122 ISZ D4017 / @@4033=2217 ISZ D4000 / @@4034=2200 C4035, 0402 / AND I C0002 ISZ D4011 / @@4036=2211 C4037, 4005 / JMS C0005 ISZ D4022 / @@4040=2222 C4041, 1722 / TAD I C4122 D4042, 0000 / AND L0000 C4043, 1116 / TAD C0116 C4044, 2405 / ISZ I C0005 ISZ D4022 / @@4045=2222 C4046, 2520 / ISZ I C0120 ISZ I D0040 / @@4047=2440 C4050, 0103 / AND C0103 C4051, 2411 / ISZ I AI1 ISZ I D4005 / @@4052=2605 C4053, 0000 / AND L0000 TAD I D4017 / @@4054=1617 C4055, 4011 / JMS AI1 TAD I C4024 / @@4056=1624 C4057, 0522 / AND I C0122 ISZ D4025 / @@4060=2225 ISZ D0024 / @@4061=2024 JMP I D0040 / long jump to L0317 @@4062=5440 ISZ D4113 / @@4063=2313 C4064, 1120 / TAD C0120 C4065, 0000 / AND L0000 C4066, 1116 / TAD C0116 C4067, 2405 / ISZ I C0005 ISZ D4022 / @@4070=2222 C4071, 2520 / ISZ I C0120 C4072, 2454 / ISZ I C0054 C4073, 4016 / JMS AI6 C4074, 1740 / TAD I C4140 ISZ D4113 / @@4075=2313 C4076, 1120 / TAD C0120 C4077, 0000 / AND L0000 TAD I D4017 / @@4100=1617 C4101, 4011 / JMS AI1 TAD I C4024 / @@4102=1624 C4103, 0522 / AND I C0122 ISZ D4025 / @@4104=2225 ISZ D0024 / @@4105=2024 JMP I D0040 / long jump to L0317 @@4106=5440 TAD I D4017 / @@4107=1617 JMS D0023 / @@4110=4023 C4111, 1311 / TAD C4111 C4112, 2000 / ISZ L0000 D4113, 1617 / TAD I D4017 JMS D0023 / @@4114=4023 TAD C4111 / @@4115=1311 C4116, 2000 / ISZ L0000 ISZ D4113 / @@4117=2313 C4120, 1120 / TAD C0120 C4121, 0000 / AND L0000 $