TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0db-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d0db-pb.bin / Generated 2010 02 19 00:10:30 / 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 / / 0663 locations used, 0561 code and 0102 data //////////////////////////////////////////////////////////////////////////////// *0200 *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 D0003, 0003 / AND D0003 AND D0003 / @@0004=0003 D0005, 0000 / AND L0000 D0006, 0000 / AND L0000 D0007, 0000 / AND L0000 *0010 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 *0020 D0020, 0000 / AND L0000 *0200 L0200, C0200, 6007 / 6007 D0201, 1204 / TAD D0204 D0202, 3201 / DCA D0201 D0203, 4205 / JMS S0205 D0204, 5274 / JMP C0274 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0205 / / Called from: / 0255 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0205, 0 / return area TAD C0374 / @@0206=1374 DCA S0266 / @@0207=3266 TAD C0374 / @@0210=1374 DCA D0202 / @@0211=3202 DCA D0203 / @@0212=3203 JMS S0225 / @@0213=4225 JMP I S0205 / return @@0214=5605 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0215 / / Called from: / 0244 0353 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0215, 0 / return area TAD C0374 / @@0216=1374 DCA S0266 / @@0217=3266 DCA D0202 / @@0220=3202 TAD C0374 / @@0221=1374 DCA D0203 / @@0222=3203 JMS S0225 / @@0223=4225 JMP I S0215 / return @@0224=5615 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0225 / / Called from: / 0213 0223 0253 0264 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0225, 0 / return area L0226, TAD I D0202 / @@0226=1602 DCA I D0203 / @@0227=3603 TAD I D0202 / @@0230=1602 CIA / @@0231=7041 TAD I D0203 / @@0232=1603 SZA CLA / @@0233=7640 HLT / @@0234=7402 ISZ D0202 / @@0235=2202 NOP / @@0236=7000 ISZ D0203 / @@0237=2203 NOP / @@0240=7000 ISZ S0266 / @@0241=2266 JMP L0226 / @@0242=5226 JMP I S0225 / return @@0243=5625 L0244, JMS S0215 / @@0244=4215 TAD C0373 / @@0245=1373 DCA S0266 / @@0246=3266 TAD C0365 / @@0247=1365 DCA D0202 / @@0250=3202 TAD C0372 / @@0251=1372 DCA D0203 / @@0252=3203 JMS S0225 / @@0253=4225 JMP I C0372 / long jump to L6600 @@0254=5772 L0255, JMS S0205 / @@0255=4205 TAD C0373 / @@0256=1373 DCA S0266 / @@0257=3266 TAD C0372 / @@0260=1372 DCA D0202 / @@0261=3202 TAD C0365 / @@0262=1365 DCA D0203 / @@0263=3203 JMS S0225 / @@0264=4225 JMP I C0365 / long jump to L0200 @@0265=5765 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0266 / / Called from: / 0276 0351 0361 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0266, 0 / return area CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0267=7330 TAD S0266 / @@0270=1266 SZL CLA / @@0271=7630 TAD C0371 / @@0272=1371 JMP I S0266 / return @@0273=5666 CLA CLL / AC = 0000 @@0274=7300 DCA D0202 / @@0275=3202 JMS S0266 / @@0276=4266 JMP L0377 / @@0277=5377 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0300 / / Called from: / 0315 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0300, 0 / return area CMA / @@0301=7040 DCA D0204 / @@0302=3204 MQA / @@0303=7501 CMA / @@0304=7040 MQL / @@0305=7421 TAD D0204 / @@0306=1204 MQA / @@0307=7501 CMA / @@0310=7040 JMP I S0300 / return @@0311=5700 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0312 / / Called from: / 0326 0346 0357 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0312, 0 / return area MQL / @@0313=7421 LAS / @@0314=7604 JMS S0300 / @@0315=4300 SNA CLA / @@0316=7650 ISZ S0312 / @@0317=2312 JMP I S0312 / return @@0320=5712 C0321, C0321, 0000 / AND L0000 ISZ D0202 / @@0322=2202 JMP I C0321 / long jump to L0000 @@0323=5721 CLA CLL CML RTR / AC = 2000 (1024) @@0324=7332 RTR / @@0325=7012 JMS S0312 / @@0326=4312 JMP L0336 / @@0327=5336 TAD C0366 / @@0330=1366 JMS S0337 / @@0331=4337 TAD C0367 / @@0332=1367 JMS S0337 / @@0333=4337 TAD C0370 / @@0334=1370 JMS S0337 / @@0335=4337 L0336, JMP L0345 / @@0336=5345 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0337 / / Called from: / 0331 0333 0335 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0337, 0 / return area TLS / Load the TTO from the content of AC4 @@0340=6046 L0341, TSF / Skip if teleprinter flag is a 1. @@0341=6041 JMP L0341 / @@0342=5341 CLA / @@0343=7200 JMP I S0337 / return @@0344=5737 L0345, CLA CLL CML RTR / AC = 2000 (1024) @@0345=7332 JMS S0312 / @@0346=4312 SKP / @@0347=7410 JMP L0355 / @@0350=5355 JMS S0266 / @@0351=4266 SNA CLA / @@0352=7650 JMS S0215 / @@0353=4215 HLT / @@0354=7402 L0355, CLA CLL CML RTR / AC = 2000 (1024) @@0355=7332 RAR / @@0356=7010 JMS S0312 / @@0357=4312 JMP I C0321 / long jump to L0000 @@0360=5721 JMS S0266 / @@0361=4266 SNA CLA / @@0362=7650 JMP L0244 / @@0363=5244 JMP L0255 / @@0364=5255 C0365, C0365, 0200 / AND L0200 C0366, 0215 / AND S0215 C0367, 0212 / AND C0212 C0370, 0301 / AND C0301 C0371, 6400 / 6400 C0372, C0372, 6600 / 6600 C0373, 7000 / NOP C0374, 7600 / 7600 *0377 L0377, NOP / @@0377=7000 *0400 DCA D0437 / @@0400=3237 TAD C0442 / @@0401=1242 TAD D0437 / @@0402=1237 DCA AI0 / AUTO INDEX REGISTER @@0403=3010 TAD C0443 / @@0404=1243 TAD D0437 / @@0405=1237 DCA I AI0 / AUTO INDEX REGISTER @@0406=3410 TAD C0445 / @@0407=1245 TAD D0437 / @@0410=1237 DCA I AI0 / AUTO INDEX REGISTER @@0411=3410 TAD C0446 / @@0412=1246 TAD D0437 / @@0413=1237 DCA I AI0 / AUTO INDEX REGISTER @@0414=3410 TAD C0447 / @@0415=1247 TAD D0437 / @@0416=1237 DCA I AI0 / AUTO INDEX REGISTER @@0417=3410 TAD C0444 / @@0420=1244 TAD D0437 / @@0421=1237 DCA I AI0 / AUTO INDEX REGISTER @@0422=3410 TAD D0437 / @@0423=1237 SZA CLA / @@0424=7640 JMP L0433 / @@0425=5233 TAD C0440 / @@0426=1240 DCA I AI0 / AUTO INDEX REGISTER @@0427=3410 TAD C0450 / @@0430=1250 DCA I AI0 / AUTO INDEX REGISTER @@0431=3410 JMP L0577 / @@0432=5377 L0433, DCA I AI0 / AUTO INDEX REGISTER @@0433=3410 TAD C0451 / @@0434=1251 DCA I AI0 / AUTO INDEX REGISTER @@0435=3410 JMP L0577 / @@0436=5377 D0437, 0000 / AND L0000 C0440, 0200 / AND C0400 NOP / @@0441=7000 C0442, 0753 / AND I C0553 C0443, 1000 / TAD L0000 C0444, 0321 / AND C0521 C0445, 0300 / AND C0500 C0446, 0712 / AND I C0512 C0447, 0312 / AND C0512 C0450, 6600 / 6600 C0451, 1201 / TAD C0401 *0577 L0577, NOP / @@0577=7000 *0600 L0600, CLA CLL / AC = 0000 @@0600=7300 TAD C0755 / @@0601=1355 DCA L0000 / @@0602=3000 IAC / @@0603=7001 JMS I C0757 / long call to S0000 @@0604=4757 JMP L0624 / @@0605=5224 TAD C0762 / @@0606=1362 DCA D0006 / @@0607=3006 TAD C0761 / @@0610=1361 DCA D0007 / @@0611=3007 JMS I C0754 / long call to S0000 @@0612=4754 DCA D0765 / @@0613=3365 TAD L0001 / @@0614=1001 DCA D0763 / @@0615=3363 TAD D0002 / @@0616=1002 DCA D0764 / @@0617=3364 TAD D0003 / @@0620=1003 DCA D0766 / @@0621=3366 TAD D0005 / @@0622=1005 DCA D0767 / @@0623=3367 L0624, CLL IAC RAL / @@0624=7105 JMS I C0757 / long call to S0000 @@0625=4757 JMP L0634 / @@0626=5234 TAD D0770 / @@0627=1370 CLL RAL / @@0630=7104 SZL / @@0631=7430 TAD C0774 / @@0632=1374 DCA D0770 / @@0633=3370 L0634, CLA CLL IAC RTL / AC = 0004 @@0634=7307 JMS I C0757 / long call to S0000 @@0635=4757 JMP L0644 / @@0636=5244 TAD D0771 / @@0637=1371 CLL RAL / @@0640=7104 SZL / @@0641=7430 TAD C0774 / @@0642=1374 DCA D0771 / @@0643=3371 L0644, CLA CLL / AC = 0000 @@0644=7300 TAD D0763 / @@0645=1363 DCA I D0764 / @@0646=3764 TAD D0765 / @@0647=1365 SNA CLA / @@0650=7650 JMP L0667 / @@0651=5267 TAD D0766 / @@0652=1366 TAD C0775 / @@0653=1375 SZL CLA / @@0654=7630 JMP L0662 / @@0655=5262 TAD D0766 / @@0656=1366 TAD C0776 / @@0657=1376 SZL CLA / @@0660=7630 CMA / @@0661=7040 L0662, TAD D0767 / @@0662=1367 DCA I D0766 / @@0663=3766 TAD D0770 / @@0664=1370 DCA I D0767 / @@0665=3767 JMP L0671 / @@0666=5271 L0667, TAD D0770 / @@0667=1370 DCA I D0766 / @@0670=3766 L0671, CLA CLL / AC = 0000 @@0671=7300 TAD D0770 / @@0672=1370 MQL / @@0673=7421 TAD D0771 / @@0674=1371 JMS I C0755 / long call to S0000 @@0675=4755 DCA D0772 / @@0676=3372 TAD C0756 / @@0677=1356 DCA L0000 / @@0700=3000 TAD D0764 / @@0701=1364 IAC / @@0702=7001 SNA / @@0703=7450 JMP L0600 / @@0704=5200 DCA D0753 / @@0705=3353 TAD C0773 / @@0706=1373 DCA I D0753 / @@0707=3753 TAD D0771 / @@0710=1371 JMP I D0764 / long jump to L0000 @@0711=5764 DCA D0777 / @@0712=3377 SZL / @@0713=7430 JMS S0724 / @@0714=4324 TAD D0772 / @@0715=1372 CIA / @@0716=7041 TAD D0777 / @@0717=1377 SZA CLA / @@0720=7640 JMS S0724 / @@0721=4324 JMS I C0760 / long call to S0000 @@0722=4760 JMP L0600 / @@0723=5200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0724 / / Called from: / 0714 0721 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0724, 0 / return area CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0725=7330 JMS I C0757 / long call to S0000 @@0726=4757 JMP L0751 / @@0727=5351 TAD D0770 / @@0730=1370 HLT / @@0731=7402 CLA / @@0732=7200 TAD D0771 / @@0733=1371 HLT / @@0734=7402 CLA / @@0735=7200 TAD L0001 / @@0736=1001 HLT / @@0737=7402 CLA / @@0740=7200 TAD D0764 / @@0741=1364 HLT / @@0742=7402 CLA / @@0743=7200 TAD D0766 / @@0744=1366 HLT / @@0745=7402 CLA / @@0746=7200 TAD D0767 / @@0747=1367 HLT / @@0750=7402 L0751, CLA CLL / AC = 0000 @@0751=7300 JMP I S0724 / return @@0752=5724 D0753, 0000 / AND L0000 C0754, C0754, 0000 / AND L0000 C0755, C0755, 0000 / AND L0000 C0756, 0000 / AND L0000 C0757, C0757, 0000 / AND L0000 C0760, C0760, 0000 / AND L0000 C0761, 0000 / AND L0000 C0762, 0000 / AND L0000 D0763, 0000 / AND L0000 D0764, 0000 / AND L0000 D0765, 0000 / AND L0000 D0766, 0000 / AND L0000 D0767, 0000 / AND L0000 D0770, 0021 / AND C0021 D0771, 0037 / AND C0037 D0772, 0000 / AND L0000 C0773, 5400 / JMP I L0000 C0774, 0003 / AND D0003 C0775, 7760 / SMA SZA SNL CLA C0776, 7770 / SPA SNA SZL CLA D0777, 0000 / AND L0000 *1000 C1000, C1000, 0000 / AND L0000 L1001, TAD D1167 / @@1001=1367 JMS S1140 / @@1002=4340 DCA D1167 / @@1003=3367 TAD D1167 / @@1004=1367 MQL / @@1005=7421 TAD D0007 / @@1006=1007 MQA / @@1007=7501 MQL / @@1010=7421 TAD C1171 / @@1011=1371 JMS I L0000 / long call to S0000 @@1012=4400 DCA L0001 / @@1013=3001 TAD L0001 / @@1014=1001 JMS S1154 / @@1015=4354 DCA D0020 / @@1016=3020 L1017, TAD D1172 / @@1017=1372 JMS S1140 / @@1020=4340 DCA D1172 / @@1021=3372 JMS S1145 / @@1022=4345 TAD D1172 / @@1023=1372 SNL CLA / @@1024=7620 JMP L1017 / @@1025=5217 TAD D1172 / @@1026=1372 TAD C1173 / @@1027=1373 SNL CLA / @@1030=7620 JMP L1046 / @@1031=5246 TAD D0020 / @@1032=1020 CIA / @@1033=7041 TAD D1172 / @@1034=1372 L1035, JMS S1161 / @@1035=4361 SMA CLA / @@1036=7700 JMP L1017 / @@1037=5217 L1040, TAD D0020 / @@1040=1020 SNA CLA / @@1041=7650 JMP L1001 / @@1042=5201 TAD D1172 / @@1043=1372 DCA D0002 / @@1044=3002 JMP L1061 / @@1045=5261 L1046, TAD L0001 / @@1046=1001 MQL / @@1047=7421 TAD C1176 / @@1050=1376 JMS I L0000 / long call to S0000 @@1051=4400 SNA CLA / @@1052=7650 JMP L1040 / @@1053=5240 TAD D1172 / @@1054=1372 JMS S1154 / @@1055=4354 CIA / @@1056=7041 TAD D0020 / @@1057=1020 JMP L1035 / @@1060=5235 L1061, TAD L0001 / @@1061=1001 MQL / @@1062=7421 TAD C1176 / @@1063=1376 JMS I L0000 / long call to S0000 @@1064=4400 SNA CLA / @@1065=7650 JMP L1106 / @@1066=5306 TAD D0002 / @@1067=1002 MQL / @@1070=7421 TAD C1173 / @@1071=1373 JMS I L0000 / long call to S0000 @@1072=4400 MQL / @@1073=7421 TAD D0020 / @@1074=1020 MQA / @@1075=7501 DCA D0003 / @@1076=3003 L1077, TAD L0001 / @@1077=1001 MQL / @@1100=7421 TAD C1175 / @@1101=1375 JMS I L0000 / long call to S0000 @@1102=4400 SZA CLA / @@1103=7640 JMP L1111 / @@1104=5311 JMP I C1000 / long jump to L0000 @@1105=5600 L1106, TAD D0020 / @@1106=1020 DCA D0003 / @@1107=3003 JMP L1077 / @@1110=5277 L1111, TAD D1177 / @@1111=1377 JMS S1140 / @@1112=4340 DCA D1177 / @@1113=3377 JMS S1145 / @@1114=4345 TAD D1177 / @@1115=1377 SNL CLA / @@1116=7620 JMP L1111 / @@1117=5311 TAD D0002 / @@1120=1002 CIA / @@1121=7041 TAD D1177 / @@1122=1377 JMS S1161 / @@1123=4361 SMA CLA / @@1124=7700 JMP L1111 / @@1125=5311 TAD D0003 / @@1126=1003 CIA / @@1127=7041 TAD D1177 / @@1130=1377 JMS S1161 / @@1131=4361 SMA CLA / @@1132=7700 JMP L1111 / @@1133=5311 TAD D1177 / @@1134=1377 DCA D0005 / @@1135=3005 CMA / @@1136=7040 JMP I C1000 / long jump to L0000 @@1137=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1140 / / Called from: / 1002 1020 1112 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1140, 0 / return area CLL RAL / @@1141=7104 SZL / @@1142=7430 TAD C1170 / @@1143=1370 JMP I S1140 / return @@1144=5740 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1145 / / Called from: / 1022 1114 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1145, 0 / return area TAD D0007 / @@1146=1007 CLL / @@1147=7100 SNA CLA / @@1150=7650 CML / @@1151=7020 TAD D0006 / @@1152=1006 JMP I S1145 / return @@1153=5745 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1154 / / Called from: / 1015 1055 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1154, 0 / return area MQL / @@1155=7421 TAD C1174 / @@1156=1374 JMS I L0000 / long call to S0000 @@1157=4400 JMP I S1154 / return @@1160=5754 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1161 / / Called from: / 1035 1123 1131 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1161, 0 / return area SMA / @@1162=7500 CIA / @@1163=7041 IAC / @@1164=7001 IAC / @@1165=7001 JMP I S1161 / return @@1166=5761 D1167, 0001 / AND L0001 C1170, 0003 / AND D0003 C1171, 0777 / AND I D1177 D1172, 0005 / AND D0005 C1173, 7600 / 7600 C1174, 0177 / AND C0177 C1175, 0400 / AND I L0000 C1176, 0200 / AND C1000 D1177, 0015 / AND AI5 $