TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0gc-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d0gc-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 / / 0405 locations used, 0324 code and 0061 data //////////////////////////////////////////////////////////////////////////////// *0200 *0000 L0000, C0000, 0000 / AND L0000 L0001, C0001, 5001 / JMP L0001 C0002, 0002 / AND C0002 C0003, 0003 / AND C0003 AND L0000 / @@0004=0000 AND L0000 / @@0005=0000 D0006, 7771 / CLA MQA SCA MQL NMI C0007, C0007, 0400 / AND I L0000 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 0000 / AUTO-INDEX REGISTER AND L0000 AI2, 0300 / AUTO-INDEX REGISTER AND C0100 AI3, 0207 / AUTO-INDEX REGISTER AND C0007 AI4, 0003 / AUTO-INDEX REGISTER AND C0003 *0020 L0020, TAD C0175 / @@0020=1175 DCA AI0 / AUTO INDEX REGISTER @@0021=3010 L0022, DCA I AI0 / AUTO INDEX REGISTER @@0022=3410 TAD AI0 / AUTO INDEX REGISTER @@0023=1010 CIA / @@0024=7041 TAD C0174 / @@0025=1174 SZA CLA / @@0026=7640 JMP L0022 / @@0027=5022 L0030, LAS / @@0030=7604 RTL / @@0031=7006 SPA / @@0032=7510 JMP L0052 / @@0033=5052 L0034, JMS S0154 / @@0034=4154 DCA D0167 / @@0035=3167 TAD D0167 / @@0036=1167 SPA / @@0037=7510 JMP L0046 / @@0040=5046 CIA / @@0041=7041 TAD C0175 / @@0042=1175 SPA CLA / @@0043=7710 JMP L0052 / @@0044=5052 JMP L0034 / @@0045=5034 L0046, CIA / @@0046=7041 TAD C0174 / @@0047=1174 SPA CLA / @@0050=7710 JMP L0034 / @@0051=5034 L0052, LAS / @@0052=7604 RTL / @@0053=7006 RAL / @@0054=7004 SPA / @@0055=7510 JMP L0075 / @@0056=5075 L0057, JMS S0154 / @@0057=4154 DCA D0166 / @@0060=3166 TAD D0166 / @@0061=1166 SPA / @@0062=7510 JMP L0071 / @@0063=5071 CIA / @@0064=7041 TAD C0175 / @@0065=1175 SPA CLA / @@0066=7710 JMP L0075 / @@0067=5075 JMP L0057 / @@0070=5057 L0071, CIA / @@0071=7041 TAD C0174 / @@0072=1174 SPA CLA / @@0073=7710 JMP L0057 / @@0074=5057 L0075, LAS / @@0075=7604 RTL / @@0076=7006 RTL / @@0077=7006 C0100, 7710 / SPA CLA JMP L0104 / @@0101=5104 JMS S0154 / @@0102=4154 DCA D0170 / @@0103=3170 L0104, TAD D0167 / @@0104=1167 CIA / @@0105=7041 TAD D0166 / @@0106=1166 SNA / @@0107=7450 JMP L0030 / @@0110=5030 CIA / @@0111=7041 CMA / @@0112=7040 SNA CLA / @@0113=7650 JMP L0030 / @@0114=5030 TAD C0171 / @@0115=1171 DCA I D0167 / @@0116=3567 TAD D0167 / @@0117=1167 IAC / @@0120=7001 DCA D0173 / @@0121=3173 TAD C0172 / @@0122=1172 DCA I D0173 / @@0123=3573 TAD D0170 / @@0124=1170 NOP / @@0125=7000 JMP I D0167 / long jump to L3001 @@0126=5567 HLT / @@0127=7402 TAD I D0166 / @@0130=1566 CIA / @@0131=7041 TAD D0170 / @@0132=1170 SZA CLA / @@0133=7640 JMS I C0177 / long call to S0201 @@0134=4577 DCA I D0166 / @@0135=3566 DCA I D0167 / @@0136=3567 DCA I D0173 / @@0137=3573 TAD AI1 / AUTO INDEX REGISTER @@0140=1011 IAC / @@0141=7001 DCA AI1 / AUTO INDEX REGISTER @@0142=3011 TAD AI1 / AUTO INDEX REGISTER @@0143=1011 TAD AI2 / AUTO INDEX REGISTER @@0144=1012 SZA CLA / @@0145=7640 JMP L0030 / @@0146=5030 DCA AI1 / AUTO INDEX REGISTER @@0147=3011 ISZ D0006 / @@0150=2006 JMP L0030 / @@0151=5030 JMS I C0007 / long call to S0400 @@0152=4407 JMP L0030 / @@0153=5030 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0154 / / Called from: / 0034 0057 0102 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0154, 0 / return area CLA / @@0155=7200 TAD D0165 / @@0156=1165 CLL RAL / @@0157=7104 SZL / @@0160=7430 TAD AI4 / AUTO INDEX REGISTER @@0161=1014 DCA D0165 / @@0162=3165 TAD D0165 / @@0163=1165 JMP I S0154 / return @@0164=5554 D0165, 2525 / ISZ I C0125 D0166, 3000 / DCA L0000 D0167, 3001 / DCA L0001 D0170, 2525 / ISZ I C0125 C0171, 3566 / DCA I D0166 C0172, 5130 / JMP C0130 D0173, 3002 / DCA C0002 C0174, 7600 / 7600 C0175, 0410 / AND I AI0 D0176, 0000 / AND L0000 C0177, C0177, 0201 / AND L0001 *0200 JMP L0020 / @@0200=5020 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0201 / / Called from: / 0134 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0201, 0 / return area LAS / @@0202=7604 RAL / @@0203=7004 SPA CLA / @@0204=7710 JMP I S0201 / return @@0205=5601 JMS S0265 / @@0206=4265 TAD C0175 / @@0207=1175 DCA AI0 / AUTO INDEX REGISTER @@0210=3010 L0211, TAD I AI0 / AUTO INDEX REGISTER @@0211=1410 SZA CLA / @@0212=7640 JMS S0233 / @@0213=4233 TAD AI0 / AUTO INDEX REGISTER @@0214=1010 CIA / @@0215=7041 TAD C0174 / @@0216=1174 SZA CLA / @@0217=7640 JMP L0211 / @@0220=5211 TAD C0374 / @@0221=1374 JMS S0351 / @@0222=4351 TAD C0375 / @@0223=1375 JMS S0351 / @@0224=4351 TAD C0376 / @@0225=1376 JMS S0351 / @@0226=4351 LAS / @@0227=7604 SMA CLA / @@0230=7700 HLT / @@0231=7402 JMP I S0201 / return @@0232=5601 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0233 / / Called from: / 0213 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0233, 0 / return area TAD AI0 / AUTO INDEX REGISTER @@0234=1010 CIA / @@0235=7041 TAD D0167 / @@0236=1167 SNA CLA / @@0237=7650 JMP I S0233 / return @@0240=5633 TAD AI0 / AUTO INDEX REGISTER @@0241=1010 CIA / @@0242=7041 TAD D0173 / @@0243=1173 SNA CLA / @@0244=7650 JMP I S0233 / return @@0245=5633 TAD C0372 / @@0246=1372 JMS S0351 / @@0247=4351 TAD AI0 / AUTO INDEX REGISTER @@0250=1010 C0251, 4310 / JMS L0310 TAD AI0 / AUTO INDEX REGISTER @@0252=1010 DCA D0176 / @@0253=3176 TAD C0373 / @@0254=1373 JMS S0351 / @@0255=4351 TAD I D0176 / @@0256=1576 C0257, 4310 / JMS L0310 TAD C0375 / @@0260=1375 JMS S0351 / @@0261=4351 TAD C0376 / @@0262=1376 JMS S0351 / @@0263=4351 JMP I S0233 / return @@0264=5633 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0265 / / Called from: / 0206 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0265, 0 / return area CLA / @@0266=7200 TAD C0367 / @@0267=1367 JMS S0351 / @@0270=4351 TAD D0167 / @@0271=1167 C0272, 4310 / JMS L0310 TAD C0371 / @@0273=1371 JMS S0351 / @@0274=4351 TAD D0166 / @@0275=1166 C0276, 4310 / JMS L0310 TAD C0377 / @@0277=1377 JMS S0351 / @@0300=4351 TAD D0170 / @@0301=1170 C0302, 4310 / JMS L0310 TAD C0375 / @@0303=1375 JMS S0351 / @@0304=4351 TAD C0376 / @@0305=1376 JMS S0351 / @@0306=4351 JMP I S0265 / return @@0307=5665 L0310, C0310, C0310, 5310 / JMP L0310 DCA D0366 / @@0311=3366 TAD D0366 / @@0312=1366 RTR / @@0313=7012 RAR / @@0314=7010 DCA D0365 / @@0315=3365 TAD D0365 / @@0316=1365 RTR / @@0317=7012 RAR / @@0320=7010 DCA D0364 / @@0321=3364 TAD D0364 / @@0322=1364 RTR / @@0323=7012 RAR / @@0324=7010 DCA D0363 / @@0325=3363 TAD C0370 / @@0326=1370 JMS S0351 / @@0327=4351 TAD C0357 / @@0330=1357 DCA D0360 / @@0331=3360 L0332, TAD D0363 / @@0332=1363 AND C0361 / @@0333=0361 TAD C0362 / @@0334=1362 JMS S0351 / @@0335=4351 TAD D0364 / @@0336=1364 DCA D0363 / @@0337=3363 TAD D0365 / @@0340=1365 DCA D0364 / @@0341=3364 TAD D0366 / @@0342=1366 DCA D0365 / @@0343=3365 ISZ D0360 / @@0344=2360 JMP L0332 / @@0345=5332 TAD C0370 / @@0346=1370 JMS S0351 / @@0347=4351 JMP I L0310 / long jump to L5310 @@0350=5710 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0351 / / Called from: / 0222 0224 0226 0247 0255 0261 0263 0270 0274 0300 0304 0306 0327 0335 0347 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S0351, 0 / return area TLS / Load the TTO from the content of AC4 @@0352=6046 L0353, TSF / Skip if teleprinter flag is a 1. @@0353=6041 JMP L0353 / @@0354=5353 CLA / @@0355=7200 JMP I S0351 / return @@0356=5751 C0357, 7774 / SPA SNA SZL CLA OSR D0360, 0000 / AND L0000 C0361, 0007 / AND C0007 C0362, 0260 / AND C0260 D0363, 0000 / AND L0000 D0364, 0000 / AND L0000 D0365, 0000 / AND L0000 D0366, 0000 / AND L0000 C0367, 0306 / AND C0306 C0370, 0240 / AND C0240 C0371, 0301 / AND C0301 C0372, 0314 / AND C0314 C0373, 0303 / AND C0303 C0374, 0305 / AND C0305 C0375, 0215 / AND C0215 C0376, 0212 / AND C0212 C0377, 0317 / AND C0317 *0400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / Called from: / 0152 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0400, 0 / return area TAD C0407 / @@0401=1207 DCA D0006 / @@0402=3006 TAD AI3 / AUTO INDEX REGISTER @@0403=1013 TLS / Load the TTO from the content of AC4 @@0404=6046 CLA / @@0405=7200 JMP I S0400 / return @@0406=5600 C0407, 7771 / CLA MQA SCA MQL NMI $