TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-d6wb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-d6wb-pb.bin / Generated 2010 02 19 00:10:23 / 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 / / 1017 locations used, 0574 code and 0223 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 KSF / Skip if keyboard flag is a 1. @@0001=6031 JMP I L0000 / long jump to L0000 @@0002=5400 KCC / Clear AC and clear keyboard flag. @@0003=6032 JMP I C0005 / long jump to L0200 @@0004=5405 C0005, C0005, 0200 / AND L0000 *0020 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0020 / / Called from: / 0601 0611 0703 0711 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0020, 0 / return area DAL1 / (AA01A) The character in the accumul @@0021=6551 D0022, 6552 / LDAD C0023, 6553 / 6553 C0024, 6554 / 6554 D0025, 6555 / 6555 C0026, 6556 / 6556 C0027, 6561 / 6561 LDAR / (AA05/AA07) The buffer (input buffer @@0030=6562 C0031, 6563 / 6563 UPDT / (AA05/AA07) The contents of the inpu @@0032=6564 C0033, 6565 / 6565 C0034, 6566 / 6566 C0035, 6571 / 6571 C0036, 6572 / 6572 C0037, 6573 / 6573 C0040, 6574 / SAMP C0041, 6575 / 6575 C0042, 6576 / 6576 JMP I S0020 / return @@0043=5420 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0044 / / Called from: / 0602 0604 0634 0637 0705 0713 1003 1115 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S0044, 0 / return area D0045, 7000 / NOP JMP I S0044 / return @@0046=5444 AND L0065 / @@0047=0065 AND I L0000 / @@0050=0600 C0051, 0607 / AND I C0007 AND I C0102 / @@0052=0702 AND I C0110 / @@0053=0710 C0054, 1000 / TAD L0000 TAD C0005 / @@0055=1005 AND L0065 / @@0056=0065 AND L0065 / @@0057=0065 AND L0065 / @@0060=0065 D0061, 0000 / AND L0000 AND L0000 / @@0062=0000 D0063, 0000 / AND L0000 D0064, 0000 / AND L0000 L0065, C0065, 6002 / IOF JMS I C0177 / long call to S1303 @@0066=4777 C0067, 3736 / DCA I C0136 C0070, 4011 / JMS AI1 C0071, 1414 / TAD I AI4 AND I C0107 / @@0072=0507 AND C0114 / @@0073=0114 C0074, 4024 / JMS C0024 AND I C0123 / @@0075=0523 ISZ I C0040 / @@0076=2440 ISZ D0105 / @@0077=2305 TAD I C0005 / @@0100=1405 AND C0124 / @@0101=0324 C0102, 0504 / AND I C0104 C0103, 3736 / DCA I C0136 AND L0000 / @@0104=0000 D0105, 5776 / JMP I C0176 L0106, IOF / Disable Interrupts @@0106=6002 C0107, 4777 / JMS I C0177 C0110, 3736 / DCA I C0136 C0111, 4011 / JMS AI1 C0112, 1414 / TAD I AI4 AND I C0107 / @@0113=0507 C0114, 0114 / AND C0114 C0115, 4004 / JMS C0004 C0116, 0103 / AND C0103 C0117, 4023 / JMS C0023 AND I C0114 / @@0120=0514 AND I C0103 / @@0121=0503 ISZ I C0005 / @@0122=2405 C0123, 0437 / AND I C0037 C0124, 3600 / DCA I L0000 JMP I C0176 / long jump to L0200 @@0125=5776 *0176 C0176, C0176, 0200 / AND L0000 C0177, C0177, 1303 / TAD C0103 L0200, D0200, 6002 / IOF JMS I C0377 / long call to S1303 @@0201=4777 C0202, 3736 / DCA I C0336 C0203, 4024 / JMS C0024 AND I C0123 / @@0204=0523 ISZ I C0054 / @@0205=2454 C0206, 4004 / JMS C0004 AND C0103 / @@0207=0103 C0210, 4037 / JMS C0037 DCA I L0200 / @@0211=3600 L0212, CLA CLL / AC = 0000 @@0212=7300 L0213, KSF / Skip if keyboard flag is a 1. @@0213=6031 JMP L0213 / @@0214=5213 KRB / Clear AC, clear keyboard flag, and r @@0215=6036 DCA D0061 / @@0216=3061 TAD D0061 / @@0217=1061 TAD C0376 / @@0220=1376 SNA CLA / @@0221=7650 JMP L0243 / @@0222=5243 TAD D0061 / @@0223=1061 TAD C0375 / @@0224=1375 SPA / @@0225=7510 JMP L0065 / @@0226=5065 TAD C0374 / @@0227=1374 SMA SZA / @@0230=7540 JMP L0065 / @@0231=5065 TAD C0373 / @@0232=1373 TLS / Load the TTO from the content of AC4 @@0233=6046 L0234, TSF / Skip if teleprinter flag is a 1. @@0234=6041 JMP L0234 / @@0235=5234 CLA / @@0236=7200 TAD D0061 / @@0237=1061 TAD C0375 / @@0240=1375 DCA D0064 / @@0241=3064 JMP L0212 / @@0242=5212 L0243, CLA / @@0243=7200 TAD C0372 / @@0244=1372 TLS / Load the TTO from the content of AC4 @@0245=6046 L0246, TSF / Skip if teleprinter flag is a 1. @@0246=6041 JMP L0246 / @@0247=5246 CLA / @@0250=7200 DCA D0063 / @@0251=3063 L0252, KSF / Skip if keyboard flag is a 1. @@0252=6031 JMP L0252 / @@0253=5252 KRB / Clear AC, clear keyboard flag, and r @@0254=6036 DCA D0061 / @@0255=3061 TAD D0061 / @@0256=1061 TAD C0371 / @@0257=1371 SNA CLA / @@0260=7650 JMP L0306 / @@0261=5306 TAD D0061 / @@0262=1061 TAD C0375 / @@0263=1375 SPA / @@0264=7510 JMP L0106 / @@0265=5106 TAD C0370 / @@0266=1370 SMA SZA / @@0267=7540 JMP L0106 / @@0270=5106 TAD C0367 / @@0271=1367 TLS / Load the TTO from the content of AC4 @@0272=6046 L0273, TSF / Skip if teleprinter flag is a 1. @@0273=6041 JMP L0273 / @@0274=5273 TAD C0375 / @@0275=1375 DCA D0061 / @@0276=3061 TAD D0063 / @@0277=1063 AND C0366 / @@0300=0366 CLL RTL / @@0301=7106 CLL RTL / @@0302=7106 C0303, 1061 / TAD D0061 DCA D0063 / @@0304=3063 JMP L0252 / @@0305=5252 L0306, TAD D0063 / @@0306=1063 JMS I C0365 / long call to S1400 @@0307=4765 DCA D0063 / @@0310=3063 TAD D0063 / @@0311=1063 CIA / @@0312=7041 TAD C0364 / @@0313=1364 SPA / @@0314=7510 JMP L0106 / @@0315=5106 JMP L0317 / @@0316=5317 L0317, CLA / @@0317=7200 TAD C0363 / @@0320=1363 TLS / Load the TTO from the content of AC4 @@0321=6046 L0322, TSF / Skip if teleprinter flag is a 1. @@0322=6041 JMP L0322 / @@0323=5322 CLA / @@0324=7200 TAD C0362 / @@0325=1362 TLS / Load the TTO from the content of AC4 @@0326=6046 L0327, TSF / Skip if teleprinter flag is a 1. @@0327=6041 JMP L0327 / @@0330=5327 TCF / Clear teleprinter flag. @@0331=6042 JMP I C0361 / long jump to L0400 @@0332=5761 *0361 C0361, C0361, 0400 / AND I L0000 C0362, 0212 / AND L0212 C0363, 0215 / AND C0215 C0364, 0021 / AND C0021 C0365, C0365, 1400 / TAD I L0000 C0366, 0017 / AND AI7 C0367, 0271 / AND C0271 C0370, 7767 / CLA MQA SCA MQL DVI + C0371, 7563 / MQA SCA MQL SCL + C0372, 0254 / AND C0254 C0373, 0266 / AND C0266 C0374, 7772 / SPA SNA SZL CLA HLT C0375, 7520 / SMA SNL C0376, 7524 / SMA SNL OSR C0377, C0377, 1303 / TAD C0303 L0400, AND L0000 / @@0400=0000 CLA / @@0401=7200 TAD D0063 / @@0402=1063 TAD C0577 / @@0403=1377 DCA D0061 / @@0404=3061 TAD I D0061 / @@0405=1461 DCA D0045 / @@0406=3045 KCC / Clear AC and clear keyboard flag. @@0407=6032 TCF / Clear teleprinter flag. @@0410=6042 ION / Enable Interrupts @@0411=6001 TAD C0576 / @@0412=1376 TAD D0064 / @@0413=1064 DCA D0061 / @@0414=3061 TAD I D0061 / @@0415=1461 DCA D0061 / @@0416=3061 JMP I D0061 / long jump to L0000 @@0417=5461 *0576 C0576, 0047 / AND C0047 C0577, 0021 / AND C0021 C0600, 7300 / CLA CLL JMS S0020 / @@0601=4020 L0602, JMS S0044 / @@0602=4044 TAD C0777 / @@0603=1377 JMS S0044 / @@0604=4044 CLA / @@0605=7200 JMP L0602 / @@0606=5202 L0607, CLA CLL CMA / AC = 7777 (-0001) @@0607=7340 DCA D0666 / @@0610=3266 JMS S0020 / @@0611=4020 TAD C0776 / @@0612=1376 DCA D0667 / @@0613=3267 TAD C0775 / @@0614=1375 SKP / @@0615=7410 L0616, TAD C0774 / @@0616=1374 DCA D0670 / @@0617=3270 TAD C0773 / @@0620=1373 DCA D0671 / @@0621=3271 TAD D0667 / @@0622=1267 TAD D0671 / @@0623=1271 DCA D0672 / @@0624=3272 TAD D0671 / @@0625=1271 TAD C0772 / @@0626=1372 TAD D0667 / @@0627=1267 DCA D0673 / @@0630=3273 L0631, JMS I C0771 / long call to S1200 @@0631=4771 L0632, CLA CLL / AC = 0000 @@0632=7300 TAD D0672 / @@0633=1272 JMS S0044 / @@0634=4044 CLA / @@0635=7200 TAD D0673 / @@0636=1273 JMS S0044 / @@0637=4044 LAS / @@0640=7604 AND C0773 / @@0641=0373 TAD D0666 / @@0642=1266 SZA / @@0643=7440 JMP L0632 / @@0644=5232 TAD D0666 / @@0645=1266 CLL CMA / @@0646=7140 DCA D0666 / @@0647=3266 ISZ D0670 / @@0650=2270 JMP L0653 / @@0651=5253 JMP L0674 / @@0652=5274 L0653, TAD D0671 / @@0653=1271 RAL / @@0654=7004 DCA D0671 / @@0655=3271 TAD D0671 / @@0656=1271 TAD D0667 / @@0657=1267 DCA D0672 / @@0660=3272 TAD D0671 / @@0661=1271 TAD C0772 / @@0662=1372 TAD D0667 / @@0663=1267 DCA D0673 / @@0664=3273 JMP L0631 / @@0665=5231 D0666, 0000 / AND L0000 D0667, 0000 / AND L0000 D0670, 0000 / AND L0000 D0671, 0000 / AND L0000 D0672, 0000 / AND L0000 D0673, 0000 / AND L0000 L0674, TAD D0667 / @@0674=1267 SNA / @@0675=7450 JMP L0607 / @@0676=5207 CLA / @@0677=7200 DCA D0667 / @@0700=3267 JMP L0616 / @@0701=5216 CLA CLL / AC = 0000 @@0702=7300 JMS S0020 / @@0703=4020 TAD C0776 / @@0704=1376 L0705, JMS S0044 / @@0705=4044 IAC / @@0706=7001 JMP L0705 / @@0707=5305 CLA CLL / AC = 0000 @@0710=7300 JMS S0020 / @@0711=4020 TAD C0777 / @@0712=1377 L0713, JMS S0044 / @@0713=4044 TAD C0772 / @@0714=1372 JMP L0713 / @@0715=5313 *0771 C0771, C0771, 1200 / TAD C0600 C0772, 7777 / CLA MQA SCA MQL LSR + C0773, 0001 / AND C0001 C0774, 7765 / CLA MQA SCA MQL MUY + C0775, 7764 / SMA SZA SNL CLA OSR C0776, 4000 / JMS L0000 C0777, 3777 / DCA I C0777 D1000, 7300 / CLA CLL C1001, 4020 / JMS S0020 L1002, LAS / @@1002=7604 JMS S0044 / @@1003=4044 JMP L1002 / @@1004=5202 D1005, 7300 / CLA CLL IOF / Disable Interrupts @@1006=6002 JMS I C1177 / long call to S1303 @@1007=4777 C1010, 3736 / DCA I C1136 ISZ D0025 / @@1011=2025 ISZ I C0040 / @@1012=2440 AND I C0005 / @@1013=0405 ISZ D1111 / @@1014=2311 ISZ D1005 / @@1015=2205 AND I C0040 / @@1016=0440 ISZ I C1001 / @@1017=2601 TAD I D0025 / @@1020=1425 C1021, 0540 / AND I C0140 C1022, C1022, 1706 / TAD I C1106 C1023, 4024 / JMS C0024 C1024, 6140 / 6140 TAD C0116 / @@1025=1116 C1026, 4023 / JMS C0023 JMP I C1022 / long jump to L1706 @@1027=5622 JMP I C1040 / long jump to L5637 @@1030=5640 AND C0116 / @@1031=0116 AND I C0040 / @@1032=0440 ISZ D0022 / @@1033=2022 AND I C0123 / @@1034=0523 C1035, 2340 / ISZ C1140 AND C1117 / @@1036=0317 C1037, C1037, 1624 / TAD I C1024 C1040, C1040, 5637 / JMP I C1037 DCA I D1000 / @@1041=3600 HLT / @@1042=7402 LAS / @@1043=7604 DCA D1125 / @@1044=3325 IOF / Disable Interrupts @@1045=6002 JMS I C1177 / long call to S1303 @@1046=4777 C1047, 3736 / DCA I C1136 ISZ D0025 / @@1050=2025 ISZ I C0040 / @@1051=2440 AND I C0005 / @@1052=0405 ISZ D1111 / @@1053=2311 ISZ D1005 / @@1054=2205 AND I C0040 / @@1055=0440 ISZ I C1001 / @@1056=2601 TAD I D0025 / @@1057=1425 C1060, 0540 / AND I C0140 TAD I C1106 / @@1061=1706 C1062, 4024 / JMS C0024 C1063, 6240 / 6240 TAD C0116 / @@1064=1116 C1065, 4023 / JMS C0023 JMP I C1022 / long jump to L1706 @@1066=5622 JMP I C1040 / long jump to L5637 @@1067=5640 AND C0116 / @@1070=0116 AND I C0040 / @@1071=0440 ISZ D0022 / @@1072=2022 AND I C0123 / @@1073=0523 C1074, 2340 / ISZ C1140 AND C1117 / @@1075=0317 TAD I C1024 / @@1076=1624 JMP I C1037 / long jump to L1624 @@1077=5637 DCA I D1000 / @@1100=3600 HLT / @@1101=7402 LAS / @@1102=7604 C1103, 3326 / DCA D1126 ION / Enable Interrupts @@1104=6001 L1105, CLA / @@1105=7200 C1106, 4044 / JMS S0044 TAD D1125 / @@1107=1325 CMA / @@1110=7040 D1111, 3327 / DCA D1127 L1112, ISZ D1127 / @@1112=2327 JMP L1112 / @@1113=5312 TAD C1176 / @@1114=1376 JMS S0044 / @@1115=4044 CLA / @@1116=7200 C1117, 1326 / TAD D1126 CMA / @@1120=7040 DCA D1130 / @@1121=3330 L1122, ISZ D1130 / @@1122=2330 JMP L1122 / @@1123=5322 JMP L1105 / @@1124=5305 D1125, 0000 / AND L0000 D1126, 0000 / AND L0000 D1127, 0000 / AND L0000 D1130, 0000 / AND L0000 *1176 C1176, 3777 / DCA I C1177 C1177, C1177, 1303 / TAD C1103 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 0631 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area JMS S1221 / @@1201=4221 AND I C1273 / @@1202=0673 TAD C1211 / @@1203=1211 JMS S1221 / @@1204=4221 AND I C1272 / @@1205=0672 TAD C1214 / @@1206=1214 JMS D1303 / @@1207=4303 DCA I C1336 / @@1210=3736 C1211, 7777 / CLA MQA SCA MQL LSR + C1212, 7777 / CLA MQA SCA MQL LSR + C1213, 4040 / JMS C0040 C1214, 7777 / CLA MQA SCA MQL LSR + C1215, 7777 / CLA MQA SCA MQL LSR + AND L0000 / @@1216=0000 ION / Enable Interrupts @@1217=6001 JMP I S1200 / return @@1220=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1221 / / Called from: / 1201 1204 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1221, 0 / return area NOP / @@1222=7000 NOP / @@1223=7000 L1224, CLA / @@1224=7200 TAD I S1221 / @@1225=1621 DCA D1230 / @@1226=3230 JMP I C1231 / long jump to L1233 @@1227=5631 D1230, 0000 / AND L0000 C1231, C1231, 1233 / TAD L1233 JMP L1224 / @@1232=5224 L1233, C1233, 1630 / TAD I D1230 AND C1377 / @@1234=0377 DCA D1276 / @@1235=3276 TAD I D1230 / @@1236=1630 AND C1376 / @@1237=0376 DCA D1277 / @@1240=3277 TAD I D1230 / @@1241=1630 AND C1375 / @@1242=0375 DCA D1300 / @@1243=3300 TAD I D1230 / @@1244=1630 AND C1374 / @@1245=0374 DCA D1301 / @@1246=3301 TAD D1300 / @@1247=1300 CLL RTR / @@1250=7112 RAR / @@1251=7010 TAD D1301 / @@1252=1301 RTR / @@1253=7012 RAR / @@1254=7010 TAD C1302 / @@1255=1302 DCA D1300 / @@1256=3300 ISZ S1221 / @@1257=2221 C1260, 4231 / JMS C1231 TAD D1300 / @@1261=1300 DCA I D1230 / @@1262=3630 TAD D1277 / @@1263=1277 RAL / @@1264=7004 RTL / @@1265=7006 TAD D1276 / @@1266=1276 TAD C1302 / @@1267=1302 ISZ D1230 / @@1270=2230 DCA I D1230 / @@1271=3630 C1272, 1373 / TAD C1373 C1273, 3231 / DCA C1231 ISZ S1221 / @@1274=2221 JMP I S1221 / return @@1275=5621 D1276, 0000 / AND L0000 D1277, 0000 / AND L0000 D1300, 0000 / AND L0000 D1301, 0000 / AND L0000 C1302, 6060 / 6060 D1303, 0000 / AND L0000 IOF / Disable Interrupts @@1304=6002 STA / AC = 7777 (-0001) @@1305=7240 TAD D1303 / @@1306=1303 C1307, 3010 / DCA AI0 L1310, C1310, 1410 / TAD I AI0 DCA D1322 / @@1311=3322 TAD D1322 / @@1312=1322 RTR / @@1313=7012 RTR / @@1314=7012 RTR / @@1315=7012 JMS S1323 / @@1316=4323 TAD D1322 / @@1317=1322 JMS S1323 / @@1320=4323 JMP L1310 / @@1321=5310 D1322, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1323 / / Called from: / 1316 1320 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1323, 0 / return area AND C1355 / @@1324=0355 SNA / @@1325=7450 C1326, 5410 / JMP I AI0 TAD C1356 / @@1327=1356 SPA / @@1330=7510 JMP L1334 / @@1331=5334 TAD C1357 / @@1332=1357 JMP L1347 / @@1333=5347 L1334, IAC / @@1334=7001 SZA / @@1335=7440 C1336, 5341 / JMP C1341 TAD C1360 / @@1337=1360 JMP L1347 / @@1340=5347 IAC / @@1341=7001 SZA / @@1342=7440 JMP L1346 / @@1343=5346 TAD C1361 / @@1344=1361 JMP L1347 / @@1345=5347 L1346, TAD C1362 / @@1346=1362 L1347, TLS / Load the TTO from the content of AC4 @@1347=6046 L1350, TSF / Skip if teleprinter flag is a 1. @@1350=6041 JMP L1350 / @@1351=5350 TCF / Clear teleprinter flag. @@1352=6042 CLA / @@1353=7200 JMP I S1323 / return @@1354=5723 C1355, 0077 / AND C0077 C1356, 7740 / SMA SZA CLA C1357, 0240 / AND C1240 C1360, 0215 / AND C1215 C1361, 0212 / AND C1212 C1362, 0336 / AND C1336 *1373 C1373, 1233 / TAD L1233 C1374, 7000 / NOP C1375, 0700 / AND I D1300 C1376, 0070 / AND C0070 C1377, 0007 / AND C0007 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / Called from: / 0307 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1400, 0 / return area DCA D1433 / @@1401=3233 TAD D1433 / @@1402=1233 CLL RAL / @@1403=7104 RTL / @@1404=7006 RTL / @@1405=7006 AND C1432 / @@1406=0232 JMS S1422 / @@1407=4222 TAD D1433 / @@1410=1233 CLL RTR / @@1411=7112 RTR / @@1412=7012 AND C1432 / @@1413=0232 TAD D1434 / @@1414=1234 JMS S1422 / @@1415=4222 TAD D1433 / @@1416=1233 AND C1432 / @@1417=0232 TAD D1434 / @@1420=1234 JMP I S1400 / return @@1421=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1422 / / Called from: / 1407 1415 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1422, 0 / return area DCA D1434 / @@1423=3234 TAD D1434 / @@1424=1234 CLL RTL / @@1425=7106 TAD D1434 / @@1426=1234 CLL RAL / @@1427=7104 DCA D1434 / @@1430=3234 JMP I S1422 / return @@1431=5622 C1432, 0017 / AND AI7 D1433, 0000 / AND L0000 D1434, 0000 / AND L0000 $