TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhrkd-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhrkd-a-pb.bin / Generated 2010 02 19 00:10:25 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 1575 locations used, 1250 code and 0325 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 C0002, 0002 / AND C0002 D0003, 0003 / AND D0003 *0010 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 0000 / AUTO-INDEX REGISTER AND L0000 *0020 C0020, C0020, 1730 / TAD I D0130 C0021, C0021, 1000 / TAD L0000 D0022, 1200 / TAD L0000 L0023, D0023, 1630 / TAD I C0030 C0024, C0024, 1600 / TAD I L0000 C0025, C0025, 1444 / TAD I C0044 C0026, C0026, 1570 / TAD I C0170 C0027, C0027, 0600 / AND I L0000 C0030, C0030, 1400 / TAD I L0000 C0031, C0031, 1433 / TAD I D0033 C0032, C0032, 1425 / TAD I C0025 D0033, 1407 / TAD I C0007 C0034, C0034, 1417 / TAD I AI7 C0035, C0035, 1440 / TAD I C0040 C0036, C0036, 1530 / TAD I D0130 C0037, C0037, 1505 / TAD I D0105 C0040, C0040, 1456 / TAD I C0056 C0041, C0041, 1473 / TAD I C0073 C0042, 2401 / ISZ I L0001 C0043, 2400 / ISZ I L0000 C0044, 2400 / ISZ I L0000 D0045, 0000 / AND L0000 AND L0000 / @@0046=0000 C0047, 0003 / AND D0003 C0050, 0007 / AND C0007 C0051, 0010 / AND AI0 C0052, 0040 / AND C0040 C0053, 0200 / AND L0000 C0054, 0260 / AND C0060 C0055, 0240 / AND C0040 C0056, 0316 / AND D0116 C0057, 0331 / AND D0131 C0060, 0277 / AND C0077 C0061, 4000 / JMS L0000 D0062, 2000 / ISZ L0000 C0063, 7735 / CLA MQA MQL ASR + SMA SZA CLA / @@0064=7740 C0065, 7700 / SMA CLA C0066, 7760 / SMA SZA SNL CLA C0067, 0077 / AND C0077 C0070, 5000 / JMP L0000 C0071, 7771 / CLA MQA SCA MQL NMI C0072, 0037 / AND C0037 C0073, 6201 / CDF0 C0074, 7400 / SMA SZA SNL CLA OSR / @@0075=7764 C0076, 7465 / SCA MQL MUY + C0077, 7774 / SPA SNA SZL CLA OSR L0100, D0100, 0000 / AND L0000 D0101, 0000 / AND L0000 D0102, 0000 / AND L0000 D0103, 0000 / AND L0000 D0104, 0000 / AND L0000 D0105, 0000 / AND L0000 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 C0121, 0000 / AND L0000 C0122, 0000 / AND L0000 D0123, 0000 / AND L0000 C0124, 0000 / AND L0000 D0125, 0000 / AND L0000 D0126, 0000 / AND L0000 D0127, 0000 / AND L0000 D0130, 0000 / AND L0000 D0131, 0000 / AND L0000 D0132, 0000 / AND L0000 AND L0000 / @@0133=0000 D0134, 0000 / AND L0000 C0135, 5371 / JMP C0171 C0136, 5300 / JMP L0100 C0137, C0137, 1711 / TAD I D0111 L0140, D0140, 0000 / AND L0000 C0141, C0141, 0400 / AND I L0000 D0142, 0000 / AND L0000 C0143, 0144 / AND C0144 C0144, 0000 / AND L0000 AND L0001 / @@0145=0001 AND C0002 / @@0146=0002 D0147, 0003 / AND D0003 C0150, 0151 / AND C0151 C0151, 0000 / AND L0000 AND L0000 / @@0152=0000 AND L0000 / @@0153=0000 AND L0000 / @@0154=0000 *0200 L0200, SKP CLA / @@0200=7610 JMP I C0020 / long jump to L1730 @@0201=5420 RIF / Same as RDF except reads the instruc @@0202=6224 DCA D0132 / @@0203=3132 TAD D0132 / @@0204=1132 TAD C0073 / @@0205=1073 D0206, 3207 / DCA D0207 D0207, 7402 / HLT JMS I C0041 / long call to S1473 @@0210=4441 JMS I C0041 / long call to S1473 @@0211=4441 JMS I C0036 / long call to S1530 @@0212=4436 C0213, 2170 / ISZ C0170 JMS I C0041 / long call to S1473 @@0214=4441 JMS I C0036 / long call to S1530 @@0215=4436 ISZ D0206 / @@0216=2206 L0217, TAD C0077 / @@0217=1077 DCA D0107 / @@0220=3107 DCA L0140 / @@0221=3140 DCA D0110 / @@0222=3110 L0223, JMS I C0041 / long call to S1473 @@0223=4441 JMS I C0036 / long call to S1530 @@0224=4436 ISZ D0237 / @@0225=2237 TAD D0110 / @@0226=1110 TAD C0054 / @@0227=1054 JMS I C0026 / long call to S1570 @@0230=4426 L0231, TAD C0060 / @@0231=1060 JMS I C0026 / long call to S1570 @@0232=4426 TAD C0143 / @@0233=1143 TAD D0110 / @@0234=1110 DCA D0111 / @@0235=3111 JMS I C0024 / long call to S1600 @@0236=4424 D0237, 5243 / JMP C0243 JMP L0231 / @@0240=5231 ISZ L0140 / @@0241=2140 CLA CLL CMA / AC = 7777 (-0001) @@0242=7340 DCA I D0111 / @@0243=3511 ISZ D0110 / @@0244=2110 ISZ D0107 / @@0245=2107 D0246, 5223 / JMP L0223 JMP L0250 / @@0247=5250 L0250, JMS I C0041 / long call to S1473 @@0250=4441 JMS I C0036 / long call to S1530 @@0251=4436 ISZ D0246 / @@0252=2246 JMS I C0024 / long call to S1600 @@0253=4424 JMP L0217 / @@0254=5217 JMP L0250 / @@0255=5250 TAD L0140 / @@0256=1140 CIA / @@0257=7041 SNA / @@0260=7450 JMP L0200 / @@0261=5200 DCA L0140 / @@0262=3140 L0263, JMS I C0137 / long call to S1711 @@0263=4537 TAD L0140 / @@0264=1140 DCA D0045 / @@0265=3045 TAD D0045 / @@0266=1045 DCA D0105 / @@0267=3105 DCA D0115 / @@0270=3115 TAD C0150 / @@0271=1150 DCA D0116 / @@0272=3116 L0273, TAD I D0116 / @@0273=1516 SZA CLA / @@0274=7640 JMP L0302 / @@0275=5302 L0276, ISZ D0116 / @@0276=2116 ISZ D0115 / @@0277=2115 JMP L0273 / @@0300=5273 C0301, 7402 / HLT L0302, TAD D0115 / @@0302=1115 AND C0047 / @@0303=0047 CLL RAL / @@0304=7104 DCA L0100 / @@0305=3100 JMS I L0023 / long call to S1630 @@0306=4423 JMP L0326 / @@0307=5326 DCA D0102 / @@0310=3102 DCA D0103 / @@0311=3103 TAD C0076 / @@0312=1076 DCA D0104 / @@0313=3104 L0314, JMS I C0021 / long call to S1000 @@0314=4421 JMP L0326 / @@0315=5326 CLA CLL / AC = 0000 @@0316=7300 TAD D0102 / @@0317=1102 TAD C0052 / @@0320=1052 DCA D0102 / @@0321=3102 SZL CLA / @@0322=7630 ISZ D0103 / @@0323=2103 ISZ D0104 / @@0324=2104 JMP L0314 / @@0325=5314 L0326, ISZ D0105 / @@0326=2105 JMP L0276 / @@0327=5276 TAD D0045 / @@0330=1045 DCA D0105 / @@0331=3105 DCA D0115 / @@0332=3115 TAD C0150 / @@0333=1150 DCA D0116 / @@0334=3116 L0335, TAD I D0116 / @@0335=1516 SZA CLA / @@0336=7640 JMP L0344 / @@0337=5344 L0340, ISZ D0116 / @@0340=2116 ISZ D0115 / @@0341=2115 JMP L0335 / @@0342=5335 HLT / @@0343=7402 L0344, TAD D0115 / @@0344=1115 AND C0047 / @@0345=0047 CLL RAL / @@0346=7104 DCA L0100 / @@0347=3100 JMS I L0023 / long call to S1630 @@0350=4423 JMP L0370 / @@0351=5370 DCA D0102 / @@0352=3102 DCA D0103 / @@0353=3103 TAD C0076 / @@0354=1076 DCA D0104 / @@0355=3104 L0356, JMS I D0022 / long call to S1200 @@0356=4422 JMP L0370 / @@0357=5370 CLA CLL / AC = 0000 @@0360=7300 TAD D0102 / @@0361=1102 TAD C0052 / @@0362=1052 DCA D0102 / @@0363=3102 SZL CLA / @@0364=7630 ISZ D0103 / @@0365=2103 ISZ D0104 / @@0366=2104 JMP L0356 / @@0367=5356 L0370, ISZ D0105 / @@0370=2105 JMP L0340 / @@0371=5340 JMP I C0141 / long jump to L0400 @@0372=5541 *0400 L0400, JMS I C0041 / long call to S1473 @@0400=4441 JMS I C0036 / long call to S1530 @@0401=4436 ISZ D0147 / @@0402=2147 L0403, JMS I C0041 / long call to S1473 @@0403=4441 JMS I C0036 / long call to S1530 @@0404=4436 C0405, 2255 / ISZ C0455 JMS I C0024 / long call to S1600 @@0406=4424 JMP I C0577 / long jump to L0217 @@0407=5777 JMP L0403 / @@0410=5203 JMP I C0576 / long jump to L0263 @@0411=5776 *0576 C0576, C0576, 0263 / AND C0463 C0577, C0577, 0217 / AND C0417 D0600, 0000 / AND L0000 CLA CLL IAC / AC = 0001 @@0601=7301 TAD D0600 / @@0602=1200 DCA D0714 / @@0603=3314 JMS I C0041 / long call to S1473 @@0604=4441 JMS I C0041 / long call to S1473 @@0605=4441 TAD I D0600 / @@0606=1600 AND C0050 / @@0607=0050 TAD C0721 / @@0610=1321 DCA D0612 / @@0611=3212 D0612, 7402 / HLT DCA D0615 / @@0613=3215 JMS I C0036 / long call to S1530 @@0614=4436 D0615, 7402 / HLT JMS I C0041 / long call to S1473 @@0616=4441 JMS I C0036 / long call to S1530 @@0617=4436 C0620, 1766 / TAD I C0766 TAD D0600 / @@0621=1200 JMS I C0037 / long call to S1505 @@0622=4437 TAD I D0600 / @@0623=1600 CLL RAL / @@0624=7104 SNL / @@0625=7420 JMP L0642 / @@0626=5242 DCA D0600 / @@0627=3200 JMS I C0036 / long call to S1530 @@0630=4436 C0631, 1770 / TAD I C0770 TAD D0600 / @@0632=1200 SMA CLA / @@0633=7700 JMP L0637 / @@0634=5237 TAD D0117 / @@0635=1117 JMS I C0040 / long call to S1456 @@0636=4440 L0637, TAD D0120 / @@0637=1120 JMS I C0037 / long call to S1505 @@0640=4437 SKP CLA / @@0641=7610 L0642, DCA D0600 / @@0642=3200 TAD D0600 / @@0643=1200 CLL RAL / @@0644=7104 SNL / @@0645=7420 JMP L0657 / @@0646=5257 DCA D0600 / @@0647=3200 JMS I C0036 / long call to S1530 @@0650=4436 C0651, 1772 / TAD I C0772 TAD C0121 / @@0652=1121 JMS I C0040 / long call to S1456 @@0653=4440 TAD C0122 / @@0654=1122 JMS I C0037 / long call to S1505 @@0655=4437 SKP CLA / @@0656=7610 L0657, DCA D0600 / @@0657=3200 TAD C0715 / @@0660=1315 DCA D0720 / @@0661=3320 TAD C0716 / @@0662=1316 DCA AI0 / AUTO INDEX REGISTER @@0663=3010 TAD C0071 / @@0664=1071 DCA D0717 / @@0665=3317 L0666, TAD D0600 / @@0666=1200 SMA / @@0667=7500 JMP L0706 / @@0670=5306 CLL RAL / @@0671=7104 DCA D0600 / @@0672=3200 TAD D0720 / @@0673=1320 ISZ D0720 / @@0674=2320 ISZ D0720 / @@0675=2320 DCA D0700 / @@0676=3300 JMS I C0036 / long call to S1530 @@0677=4436 D0700, 7402 / HLT TAD I AI0 / AUTO INDEX REGISTER @@0701=1410 JMS I C0037 / long call to S1505 @@0702=4437 L0703, ISZ D0717 / @@0703=2317 JMP L0666 / @@0704=5266 JMP I D0714 / long jump to L0000 @@0705=5714 L0706, CLL RAL / @@0706=7104 DCA D0600 / @@0707=3200 ISZ D0720 / @@0710=2320 ISZ D0720 / @@0711=2320 ISZ AI0 / AUTO INDEX REGISTER @@0712=2010 JMP L0703 / @@0713=5303 D0714, 0000 / AND L0000 C0715, 1774 / TAD I C0774 C0716, 0122 / AND C0122 D0717, 0000 / AND L0000 D0720, 0000 / AND L0000 C0721, 1322 / TAD C0722 C0722, 2012 / ISZ AI2 ISZ L0023 / @@0723=2023 ISZ D0033 / @@0724=2033 ISZ D0045 / @@0725=2045 *1000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1000 / / Called from: / 0314 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1000, 0 / return area L1001, CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@1001=7330 DCA D0120 / @@1002=3120 JMS I C0025 / long call to S1444 @@1003=4425 TAD C0063 / @@1004=1063 DCA D0112 / @@1005=3112 DCA D0113 / @@1006=3113 TAD C0066 / @@1007=1066 DCA D0114 / @@1010=3114 L1011, TAD D0113 / @@1011=1113 AND C0072 / @@1012=0072 TAD D0102 / @@1013=1102 DCA I C0042 / @@1014=3442 TAD D0103 / @@1015=1103 TAD L0100 / @@1016=1100 DCA I C0043 / @@1017=3443 TAD I C0043 / @@1020=1443 TAD D0132 / @@1021=1132 TAD C0070 / @@1022=1070 JMS I C0032 / long call to S1425 @@1023=4432 TAD C0044 / @@1024=1044 JMS I D0033 / long call to S1407 @@1025=4433 TAD I C0042 / @@1026=1442 JMS I C0034 / long call to S1417 @@1027=4434 L1030, JMS I C0031 / long call to S1433 @@1030=4431 JMP L1030 / @@1031=5230 JMS I C0030 / long call to S1400 @@1032=4430 TAD C0061 / @@1033=1061 SZA CLA / @@1034=7640 JMP L1047 / @@1035=5247 ISZ D0113 / @@1036=2113 ISZ D0114 / @@1037=2114 SKP CLA / @@1040=7610 DCA D0113 / @@1041=3113 ISZ D0113 / @@1042=2113 ISZ D0112 / @@1043=2112 JMP L1011 / @@1044=5211 L1045, ISZ S1000 / @@1045=2200 JMP I S1000 / return @@1046=5600 L1047, JMS I C0027 / long call to S0600 @@1047=4427 C1050, 5302 / JMP C1102 JMS I L0023 / long call to S1630 @@1051=4423 JMP I S1000 / return @@1052=5600 L1053, JMS I C0041 / long call to S1473 @@1053=4441 JMS I C0036 / long call to S1530 @@1054=4436 ISZ D0062 / @@1055=2062 JMS I C0024 / long call to S1600 @@1056=4424 JMP L1045 / @@1057=5245 JMP L1053 / @@1060=5253 JMP L1001 / @@1061=5201 *1200 D1200, 0000 / AND L0000 L1201, TAD C0063 / @@1201=1063 DCA D0112 / @@1202=3112 DCA D0113 / @@1203=3113 TAD C0066 / @@1204=1066 DCA D0114 / @@1205=3114 JMS I C0025 / long call to S1444 @@1206=4425 L1207, CLA CLL CMA / AC = 7777 (-0001) @@1207=7340 DCA D0142 / @@1210=3142 TAD C0044 / @@1211=1044 JMS I D0033 / long call to S1407 @@1212=4433 TAD D0103 / @@1213=1103 TAD L0100 / @@1214=1100 TAD D0132 / @@1215=1132 JMS I C0032 / long call to S1425 @@1216=4432 TAD D0113 / @@1217=1113 AND C0072 / @@1220=0072 TAD D0102 / @@1221=1102 JMS I C0034 / long call to S1417 @@1222=4434 L1223, JMS I C0031 / long call to S1433 @@1223=4431 JMP L1223 / @@1224=5223 JMS I C0030 / long call to S1400 @@1225=4430 TAD C0061 / @@1226=1061 SNA CLA / @@1227=7650 JMP L1236 / @@1230=5236 TAD D0123 / @@1231=1123 AND C0051 / @@1232=0051 SNA CLA / @@1233=7650 JMP L1302 / @@1234=5302 DCA D0142 / @@1235=3142 L1236, TAD D0125 / @@1236=1125 AND C0050 / @@1237=0050 CIA / @@1240=7041 TAD I C0043 / @@1241=1443 SNA CLA / @@1242=7650 JMP L1252 / @@1243=5252 TAD I C0043 / @@1244=1443 DCA D0131 / @@1245=3131 TAD D0125 / @@1246=1125 AND C0050 / @@1247=0050 DCA D0120 / @@1250=3120 JMP L1277 / @@1251=5277 L1252, TAD I C0042 / @@1252=1442 CIA / @@1253=7041 TAD D0126 / @@1254=1126 SNA CLA / @@1255=7650 JMP L1265 / @@1256=5265 ISZ D0130 / @@1257=2130 TAD D0126 / @@1260=1126 DCA D0120 / @@1261=3120 TAD I C0042 / @@1262=1442 DCA D0131 / @@1263=3131 JMP L1277 / @@1264=5277 L1265, TAD D0142 / @@1265=1142 SNA CLA / @@1266=7650 JMP L1302 / @@1267=5302 TAD D0113 / @@1270=1113 TAD C0047 / @@1271=1047 DCA D0113 / @@1272=3113 ISZ D0114 / @@1273=2114 JMP L1207 / @@1274=5207 L1275, ISZ D1200 / @@1275=2200 JMP I D1200 / long jump to L0000 @@1276=5600 L1277, TAD C0135 / @@1277=1135 DCA D1307 / @@1300=3307 JMP L1306 / @@1301=5306 L1302, TAD C0136 / @@1302=1136 DCA D1307 / @@1303=3307 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@1304=7330 DCA D0120 / @@1305=3120 L1306, JMS I C0027 / long call to S0600 @@1306=4427 D1307, 0000 / AND L0000 JMS I L0023 / long call to S1630 @@1310=4423 JMP I D1200 / long jump to L0000 @@1311=5600 L1312, JMS I C0041 / long call to S1473 @@1312=4441 JMS I C0036 / long call to S1530 @@1313=4436 ISZ D0126 / @@1314=2126 JMS I C0024 / long call to S1600 @@1315=4424 JMP L1275 / @@1316=5275 JMP L1312 / @@1317=5312 JMP L1201 / @@1320=5201 *1400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / Called from: / 1032 1225 1644 1661 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1400, 0 / return area C1401, 6745 / 6745 SKP / @@1402=7410 HLT / @@1403=7402 DCA D0123 / @@1404=3123 TAD D0123 / @@1405=1123 JMP I S1400 / return @@1406=5600 C1407, C1407, 0000 / AND L0000 DCA D0130 / @@1410=3130 TAD D0130 / @@1411=1130 DCA D0127 / @@1412=3127 TAD D0130 / @@1413=1130 C1414, 6744 / 6744 JMP I C1407 / long jump to L0000 @@1415=5607 HLT / @@1416=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1417 / / Called from: / 1027 1222 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1417, 0 / return area DCA D0126 / @@1420=3126 TAD D0126 / @@1421=1126 C1422, 6743 / 6743 JMP I S1417 / return @@1423=5617 HLT / @@1424=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1425 / / Called from: / 1023 1216 1635 1656 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1425, 0 / return area DCA D0125 / @@1426=3125 TAD D0125 / @@1427=1125 C1430, 6746 / 6746 JMP I S1425 / return @@1431=5625 HLT / @@1432=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1433 / / Called from: / 1030 1223 1642 1657 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1433, 0 / return area C1434, 6741 / 6741 SKP / @@1435=7410 ISZ S1433 / @@1436=2233 JMP I S1433 / return @@1437=5633 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1440 / / Called from: / 1632 1641 1653 1666 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1440, 0 / return area C1441, 6742 / 6742 JMP I S1440 / return @@1442=5640 HLT / @@1443=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1444 / / Called from: / 1003 1206 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1444, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@1445=7340 TAD C0044 / @@1446=1044 DCA AI0 / AUTO INDEX REGISTER @@1447=3010 TAD C0074 / @@1450=1074 DCA D0134 / @@1451=3134 L1452, DCA I AI0 / AUTO INDEX REGISTER @@1452=3410 ISZ D0134 / @@1453=2134 JMP L1452 / @@1454=5252 JMP I S1444 / return @@1455=5644 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1456 / / Called from: / 0636 0653 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1456, 0 / return area DCA D0106 / @@1457=3106 TAD D0106 / @@1460=1106 RAR / @@1461=7010 RTR / @@1462=7012 AND C0050 / @@1463=0050 TAD C0054 / @@1464=1054 JMS I C0026 / long call to S1570 @@1465=4426 TAD D0106 / @@1466=1106 AND C0050 / @@1467=0050 TAD C0054 / @@1470=1054 JMS I C0026 / long call to S1570 @@1471=4426 JMP I S1456 / return @@1472=5656 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1473 / / Called from: / 0210 0211 0214 0223 0250 0400 0403 0604 0605 0616 1053 1312 1673 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S1473, 0 / return area CLA CLL / AC = 0000 @@1474=7300 TAD C1503 / @@1475=1303 JMS I C0026 / long call to S1570 @@1476=4426 TAD C1504 / @@1477=1304 JMS I C0026 / long call to S1570 @@1500=4426 JMS I C0026 / long call to S1570 @@1501=4426 JMP I S1473 / return @@1502=5673 C1503, 0215 / AND C1415 C1504, 0212 / AND C1412 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1505 / / Called from: / 0622 0640 0655 0702 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1505, 0 / return area RTL / @@1506=7006 RTL / @@1507=7006 DCA S1473 / @@1510=3273 TAD C0077 / @@1511=1077 DCA S1456 / @@1512=3256 L1513, TAD S1473 / @@1513=1273 AND C0050 / @@1514=0050 TAD C0054 / @@1515=1054 JMS I C0026 / long call to S1570 @@1516=4426 TAD S1473 / @@1517=1273 RTL / @@1520=7006 RAL / @@1521=7004 DCA S1473 / @@1522=3273 ISZ S1456 / @@1523=2256 JMP L1513 / @@1524=5313 TAD C0055 / @@1525=1055 JMS I C0026 / long call to S1570 @@1526=4426 JMP I S1505 / return @@1527=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1530 / / Called from: / 0212 0215 0224 0251 0401 0404 0614 0617 0630 0650 0677 1054 1313 1674 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S1530, 0 / return area CLA CLL / AC = 0000 @@1531=7300 TAD I S1530 / @@1532=1730 ISZ S1530 / @@1533=2330 DCA S1505 / @@1534=3305 L1535, TAD I S1505 / @@1535=1705 AND C0065 / @@1536=0065 SNA / @@1537=7450 JMP L1564 / @@1540=5364 SMA / @@1541=7500 CML / @@1542=7020 IAC / @@1543=7001 RTR / @@1544=7012 RTR / @@1545=7012 RTR / @@1546=7012 JMS I C0026 / long call to S1570 @@1547=4426 TAD I S1505 / @@1550=1705 AND C0067 / @@1551=0067 SNA / @@1552=7450 JMP L1564 / @@1553=5364 TAD C1567 / @@1554=1367 SMA / @@1555=7500 TAD C1566 / @@1556=1366 TAD C0055 / @@1557=1055 JMS I C0026 / long call to S1570 @@1560=4426 ISZ S1505 / @@1561=2305 CLA CLL / AC = 0000 @@1562=7300 JMP L1535 / @@1563=5335 L1564, CLA CLL / AC = 0000 @@1564=7300 JMP I S1530 / return @@1565=5730 C1566, 4100 / JMS L0100 C1567, 3740 / DCA I C1540 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1570 / / Called from: / 0230 0232 1465 1471 1476 1500 1501 1516 1526 1547 1560 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S1570, 0 / return area TLS / Load the TTO from the content of AC4 @@1571=6046 L1572, TSF / Skip if teleprinter flag is a 1. @@1572=6041 JMP L1572 / @@1573=5372 TCF / Clear teleprinter flag. @@1574=6042 CLA / @@1575=7200 JMP I S1570 / return @@1576=5770 *1600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1600 / / Called from: / 0236 0253 0406 1056 1315 1676 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S1600, 0 / return area CLA CLL / AC = 0000 @@1601=7300 KCC / Clear AC and clear keyboard flag. @@1602=6032 L1603, KSF / Skip if keyboard flag is a 1. @@1603=6031 JMP L1603 / @@1604=5203 KRB / Clear AC, clear keyboard flag, and r @@1605=6036 TLS / Load the TTO from the content of AC4 @@1606=6046 L1607, TSF / Skip if teleprinter flag is a 1. @@1607=6041 JMP L1607 / @@1610=5207 DCA D0101 / @@1611=3101 KCC / Clear AC and clear keyboard flag. @@1612=6032 TCF / Clear teleprinter flag. @@1613=6042 TAD D0101 / @@1614=1101 CIA / @@1615=7041 TAD C0056 / @@1616=1056 SNA CLA / @@1617=7650 JMP I S1600 / return @@1620=5600 ISZ S1600 / @@1621=2200 TAD D0101 / @@1622=1101 CIA / @@1623=7041 TAD C0057 / @@1624=1057 SNA CLA / @@1625=7650 ISZ S1600 / @@1626=2200 JMP I S1600 / return @@1627=5600 D1630, 0000 / AND L0000 L1631, CLA CLL IAC / AC = 0001 @@1631=7301 JMS I C0035 / long call to S1440 @@1632=4435 TAD L0100 / @@1633=1100 TAD D0132 / @@1634=1132 JMS I C0032 / long call to S1425 @@1635=4432 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@1636=7330 DCA D0120 / @@1637=3120 CLA CLL CML RTL / AC = 0002 @@1640=7326 JMS I C0035 / long call to S1440 @@1641=4435 L1642, JMS I C0031 / long call to S1433 @@1642=4431 JMP L1642 / @@1643=5242 JMS I C0030 / long call to S1400 @@1644=4430 TAD D0062 / @@1645=1062 SNA / @@1646=7450 JMP L1653 / @@1647=5253 TAD D0062 / @@1650=1062 SZA CLA / @@1651=7640 JMP L1671 / @@1652=5271 L1653, JMS I C0035 / long call to S1440 @@1653=4435 TAD C0053 / @@1654=1053 TAD D0125 / @@1655=1125 JMS I C0032 / long call to S1425 @@1656=4432 L1657, JMS I C0031 / long call to S1433 @@1657=4431 JMP L1657 / @@1660=5257 JMS I C0030 / long call to S1400 @@1661=4430 TAD C0061 / @@1662=1061 SZA CLA / @@1663=7640 JMP L1671 / @@1664=5271 CLA CLL IAC / AC = 0001 @@1665=7301 JMS I C0035 / long call to S1440 @@1666=4435 ISZ D1630 / @@1667=2230 JMP I D1630 / long jump to L0000 @@1670=5630 L1671, JMS I C0027 / long call to S0600 @@1671=4427 JMP L1703 / @@1672=5303 L1673, JMS I C0041 / long call to S1473 @@1673=4441 JMS I C0036 / long call to S1530 @@1674=4436 ISZ D0104 / @@1675=2104 JMS I C0024 / long call to S1600 @@1676=4424 JMP L1702 / @@1677=5302 JMP L1673 / @@1700=5273 JMP L1631 / @@1701=5231 L1702, CLA CLL IAC / AC = 0001 @@1702=7301 L1703, TAD D0045 / @@1703=1045 C1704, 7450 / SNA JMP I C0141 / long jump to L0400 @@1705=5541 DCA D0045 / @@1706=3045 DCA I D0116 / @@1707=3516 JMP I D1630 / long jump to L0000 @@1710=5630 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1711 / / Called from: / 0263 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1711, 0 / return area TAD C1725 / @@1712=1325 DCA AI0 / AUTO INDEX REGISTER @@1713=3010 TAD C1726 / @@1714=1326 DCA AI1 / AUTO INDEX REGISTER @@1715=3011 TAD C0077 / @@1716=1077 DCA D1727 / @@1717=3327 L1720, TAD I AI0 / AUTO INDEX REGISTER @@1720=1410 DCA I AI1 / AUTO INDEX REGISTER @@1721=3411 C1722, 2327 / ISZ D1727 JMP L1720 / @@1723=5320 D1724, 5711 / JMP I S1711 C1725, 0143 / AND C0143 C1726, 0150 / AND C0150 D1727, 0000 / AND L0000 L1730, LAS / @@1730=7604 AND C1753 / @@1731=0353 DCA D1754 / @@1732=3354 TAD C1756 / @@1733=1356 DCA D1755 / @@1734=3355 TAD C1757 / @@1735=1357 DCA D1630 / @@1736=3230 L1737, TAD I D1630 / @@1737=1630 DCA S1711 / @@1740=3311 TAD I S1711 / @@1741=1711 AND C1752 / @@1742=0352 TAD D1754 / @@1743=1354 DCA I S1711 / @@1744=3711 ISZ D1630 / @@1745=2230 ISZ D1755 / @@1746=2355 JMP L1737 / @@1747=5337 L1750, HLT / @@1750=7402 JMP L1750 / @@1751=5350 C1752, 7007 / IAC RTL C1753, 0770 / AND I C1770 D1754, 0000 / AND L0000 D1755, 0000 / AND L0000 C1756, 7772 / SPA SNA SZL CLA HLT C1757, 1760 / TAD I C1760 TAD I C0034 / @@1760=1434 TAD I C0041 / @@1761=1441 TAD I D0022 / @@1762=1422 C1763, 1414 / TAD I AI4 TAD I L0001 / @@1764=1401 TAD I C0030 / @@1765=1430 ISZ D0003 / @@1766=2003 CLA / @@1767=7200 AND I C1704 / @@1770=0704 CLA / @@1771=7200 AND C1722 / @@1772=0322 CLA / @@1773=7200 ISZ D1724 / @@1774=2324 CLA / @@1775=7200 AND I C0002 / @@1776=0402 CLA / @@1777=7200 D2000, 0315 / AND C2115 CLA / @@2001=7200 AND I L0001 / @@2002=0401 CLA / @@2003=7200 C2004, 0301 / AND D2101 D2005, 7200 / CLA AND D0104 / @@2006=0104 CLA / @@2007=7200 AND I C0024 / @@2010=0424 CLA / @@2011=7200 ISZ D2005 / @@2012=2205 D2013, 0104 / AND D0104 C2014, 4023 / JMS L0023 D2015, 2401 / ISZ I L0001 ISZ I C0025 / @@2016=2425 D2017, 2340 / ISZ D2140 AND I C0122 / @@2020=0522 ISZ D2017 / @@2021=2217 D2022, 2200 / ISZ D2000 AND I AI1 / AUTO INDEX REGISTER @@2023=0411 ISZ D2113 / @@2024=2313 C2025, 4004 / JMS C0004 AND C0124 / @@2026=0124 AND L0140 / @@2027=0140 AND I C0122 / @@2030=0522 ISZ D2017 / @@2031=2217 ISZ D2000 / @@2032=2200 ISZ I C2122 / @@2033=2722 TAD C0124 / @@2034=1124 AND I L0140 / @@2035=0540 ISZ D2124 / @@2036=2324 AND C0124 / @@2037=0124 D2040, 2523 / ISZ I D0123 C2041, 4005 / JMS C0005 ISZ D2022 / @@2042=2222 TAD I C2122 / @@2043=1722 AND L0000 / @@2044=0000 ISZ D2005 / @@2045=2205 AND D2101 / @@2046=0301 TAD I AI1 / AUTO INDEX REGISTER @@2047=1411 AND D2022 / @@2050=0222 AND C0124 / @@2051=0124 AND I L0140 / @@2052=0540 ISZ D2124 / @@2053=2324 AND C0124 / @@2054=0124 ISZ I D0123 / @@2055=2523 C2056, 4005 / JMS C0005 ISZ D2022 / @@2057=2222 TAD I C2122 / @@2060=1722 AND L0000 / @@2061=0000 ISZ I D0022 / @@2062=2422 DCA L0140 / @@2063=3140 C2064, 2417 / ISZ I AI7 C2065, 4006 / JMS C0006 TAD I C2122 / @@2066=1722 TAD I D0101 / @@2067=1501 ISZ I C0040 / @@2070=2440 ISZ D2101 / @@2071=2301 TAD I D0105 / @@2072=1505 JMS D0003 / @@2073=4003 DCA D0114 / @@2074=3114 TAD D0116 / @@2075=1116 C2076, 0405 / AND I C0005 C2077, 2240 / ISZ D2040 AND D0107 / @@2100=0107 D2101, 0111 / AND D0111 TAD I C2077 / @@2102=1677 AND L0000 / @@2103=0000 ISZ I D0022 / @@2104=2422 DCA L0140 / @@2105=3140 C2106, 2417 / ISZ I AI7 C2107, 4022 / JMS D0022 AND I D0103 / @@2110=0503 AND D0114 / @@2111=0114 TAD D0102 / @@2112=1102 D2113, 2201 / ISZ C2001 C2114, 2405 / ISZ I C0005 C2115, 4023 / JMS L0023 AND D0115 / @@2116=0115 AND I L0140 / @@2117=0540 AND I AI1 / AUTO INDEX REGISTER @@2120=0411 ISZ D2113 / @@2121=2313 C2122, 4001 / JMS L0001 D2123, 0701 / AND I D2101 D2124, 1116 / TAD D0116 SMA CLA / @@2125=7700 ISZ I D0022 / @@2126=2422 DCA L0140 / @@2127=3140 C2130, 2417 / ISZ I AI7 C2131, 4003 / JMS D0003 C2132, 1005 / TAD C0005 AND D2113 / @@2133=0313 C2134, 4023 / JMS L0023 AND D0115 / @@2135=0115 AND I L0140 / @@2136=0540 AND C2131 / @@2137=0331 D2140, 1411 / TAD I AI1 TAD I C2004 / @@2141=1604 AND I C0122 / @@2142=0522 C2143, 4001 / JMS L0001 AND I D2101 / @@2144=0701 TAD D0116 / @@2145=1116 SMA CLA / @@2146=7700 ISZ D2013 / @@2147=2213 IAC RAL / @@2150=7005 C2151, 4004 / JMS C0004 TAD D0123 / @@2152=1123 TAD D2140 / @@2153=1340 AND I D2017 / @@2154=0617 ISZ D2015 / @@2155=2215 AND C0124 / @@2156=0124 C2157, 2405 / ISZ I C0005 ISZ D2040 / @@2160=2240 ISZ L0001 / @@2161=2001 ISZ D2123 / @@2162=2323 JMS D0003 / @@2163=4003 TAD I C2115 / @@2164=1715 C2165, 2014 / ISZ AI4 AND I C0124 / @@2166=0524 AND I L0100 / @@2167=0500 ISZ D2013 / @@2170=2213 IAC RAL / @@2171=7005 C2172, 4004 / JMS C0004 TAD D0123 / @@2173=1123 TAD D2140 / @@2174=1340 AND I D2017 / @@2175=0617 ISZ D2015 / @@2176=2215 AND C0124 / @@2177=0124 C2200, 2405 / ISZ I C0005 D2201, 2240 / ISZ D2240 ISZ D0022 / @@2202=2022 C2203, 1707 / TAD I C2307 ISZ D2201 / @@2204=2201 D2205, 1500 / TAD I L0100 AND I C2217 / @@2206=0617 ISZ D2240 / @@2207=2240 AND D0114 / @@2210=0114 TAD I C0040 / @@2211=1440 ISZ D0125 / @@2212=2125 AND I D0123 / @@2213=0523 ISZ I AI1 / AUTO INDEX REGISTER @@2214=2411 D2215, 1716 / TAD I C2316 C2216, 2354 / ISZ C2354 C2217, 4001 / JMS L0001 TAD I C2223 / @@2220=1623 C2221, 2705 / ISZ I C2305 ISZ D2240 / @@2222=2240 C2223, 3140 / DCA L0140 AND I C2217 / @@2224=0617 ISZ D2240 / @@2225=2240 DCA D0105 / @@2226=3105 C2227, 2340 / ISZ C2340 C2230, 1722 / TAD I C2322 C2231, 4016 / JMS AI6 C2232, 4006 / JMS C0006 C2233, 1722 / TAD I C2322 C2234, 4016 / JMS AI6 C2235, 1756 / TAD I C2356 AND L0000 / @@2236=0000 AND I C2217 / @@2237=0617 D2240, 2215 / ISZ D2215 AND C0124 / @@2241=0124 C2242, 4004 / JMS C0004 TAD D0123 / @@2243=1123 C2244, 1340 / TAD C2340 AND L0000 / @@2245=0000 AND C0122 / @@2246=0122 AND I L0140 / @@2247=0540 DCA D0117 / @@2250=3117 ISZ I L0140 / @@2251=2540 C2252, 2325 / ISZ C2325 ISZ D2205 / @@2253=2205 SMA CLA / @@2254=7700 AND I C2217 / @@2255=0617 ISZ D2215 / @@2256=2215 AND C0124 / @@2257=0124 C2260, 4023 / JMS L0023 AND D0115 / @@2261=0115 AND I L0140 / @@2262=0540 AND I AI1 / AUTO INDEX REGISTER @@2263=0411 C2264, 2313 / ISZ C2313 JMP L0023 / @@2265=5023 JMP L0140 / @@2266=5140 AND D0107 / @@2267=0107 AND D0111 / @@2270=0111 C2271, 1677 / TAD I C2277 AND L0000 / @@2272=0000 $