TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d1ca-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d1ca-pb.bin / Generated 2010 02 19 00:10:28 / 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 / / 0365 locations used, 0263 code and 0102 data //////////////////////////////////////////////////////////////////////////////// *0001 C0001, 0000 / AND L0000 TAD C0001 / @@0002=1001 SNA / @@0003=7450 C0004, 1000 / TAD L0000 DCA D0007 / @@0005=3007 JMP L0065 / @@0006=5065 D0007, 0000 / AND L0000 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 0070 / AUTO-INDEX REGISTER AND C0070 AI2, 6201 / AUTO-INDEX REGISTER CDF0 AI3, 6202 / AUTO-INDEX REGISTER CIF0 AI4, 7774 / AUTO-INDEX REGISTER SPA SNA SZL CLA OSR AI5, 5422 / AUTO-INDEX REGISTER JMP I D0022 AI6, 5421 / AUTO-INDEX REGISTER JMP I D0021 AI7, 7413 / AUTO-INDEX REGISTER SHL + JMP L0023 / @@0020=5023 D0021, 0000 / AND L0000 D0022, 0000 / AND L0000 L0023, LAS / @@0023=7604 RTL / @@0024=7006 RAL / @@0025=7004 C0026, 0011 / AND AI1 DCA D0007 / @@0027=3007 TAD D0007 / @@0030=1007 TAD AI2 / AUTO INDEX REGISTER @@0031=1012 DCA L0042 / @@0032=3042 TAD L0042 / @@0033=1042 DCA I C0123 / @@0034=3523 TAD L0042 / @@0035=1042 DCA I C0124 / @@0036=3524 TAD D0007 / @@0037=1007 C0040, 1013 / TAD AI3 DCA L0061 / @@0041=3061 L0042, D0042, 0000 / AND L0000 JMS I C0107 / long call to S0251 @@0043=4507 DCA D0021 / @@0044=3021 TAD D0021 / @@0045=1021 DCA I C0117 / @@0046=3517 JMS I C0107 / long call to S0251 @@0047=4507 DCA D0022 / @@0050=3022 C0051, 1022 / TAD D0022 DCA I C0120 / @@0052=3520 JMS I C0121 / long call to S0333 @@0053=4521 TAD AI5 / AUTO INDEX REGISTER @@0054=1015 DCA I D0021 / @@0055=3421 TAD AI6 / AUTO INDEX REGISTER @@0056=1016 C0057, 3422 / DCA I D0022 L0060, TLS / Load the TTO from the content of AC4 @@0060=6046 L0061, D0061, 0000 / AND L0000 KCC / Clear AC and clear keyboard flag. @@0062=6032 ION / Enable Interrupts @@0063=6001 JMP I D0021 / long jump to L0000 @@0064=5421 L0065, KSF / Skip if keyboard flag is a 1. @@0065=6031 SKP CLA / @@0066=7610 JMP L0061 / @@0067=5061 C0070, 1007 / TAD D0007 CIA / @@0071=7041 DCA D0007 / @@0072=3007 TAD D0007 / @@0073=1007 TAD D0021 / @@0074=1021 SNA CLA / @@0075=7650 JMP L0103 / @@0076=5103 TAD D0007 / @@0077=1007 TAD D0022 / @@0100=1022 SZA CLA / @@0101=7640 JMP I C0115 / long jump to L0321 @@0102=5515 L0103, ISZ D0112 / @@0103=2112 JMP L0042 / @@0104=5042 JMP L0023 / @@0105=5023 C0106, 0240 / AND C0040 C0107, C0107, 0251 / AND C0051 C0110, C0110, 0242 / AND L0042 C0111, 0172 / AND D0172 D0112, 0000 / AND L0000 D0113, 0000 / AND L0000 C0114, 1026 / TAD C0026 C0115, C0115, 0321 / AND C0121 C0116, C0116, 0330 / AND C0130 C0117, 0021 / AND D0021 C0120, 0022 / AND D0022 C0121, C0121, 0333 / AND C0133 C0122, C0122, 0342 / AND C0142 C0123, 0346 / AND S0146 C0124, 0351 / AND C0151 L0125, CLA CLL / AC = 0000 @@0125=7300 TAD AI0 / AUTO INDEX REGISTER @@0126=1010 C0127, 7640 / SZA CLA C0130, 5141 / JMP L0141 TAD C0111 / @@0131=1111 CDF0 / Change to data field 0. The data fie @@0132=6201 DCA AI0 / AUTO INDEX REGISTER @@0133=3010 L0134, TAD I AI0 / AUTO INDEX REGISTER @@0134=1410 SNA / @@0135=7450 JMP L0141 / @@0136=5141 JMS I C0110 / long call to S0242 @@0137=4510 JMP L0134 / @@0140=5134 L0141, CLA CLL / AC = 0000 @@0141=7300 C0142, 1007 / TAD D0007 CIA / @@0143=7041 DCA D0172 / @@0144=3172 JMP I C0122 / long jump to L0342 @@0145=5522 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0146 / / Called from: / 0343 0345 0350 0353 0355 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0146, 0 / return area CDF0 / Change to data field 0. The data fie @@0147=6201 DCA D0007 / @@0150=3007 TAD AI4 / AUTO INDEX REGISTER @@0151=1014 DCA D0113 / @@0152=3113 L0153, TAD C0114 / @@0153=1114 L0154, DCA AI0 / AUTO INDEX REGISTER @@0154=3010 TAD D0007 / @@0155=1007 RAL / @@0156=7004 DCA D0007 / @@0157=3007 TAD AI0 / AUTO INDEX REGISTER @@0160=1010 RAL / @@0161=7004 SNL / @@0162=7420 JMP L0154 / @@0163=5154 JMS I C0110 / long call to S0242 @@0164=4510 ISZ D0113 / @@0165=2113 JMP L0153 / @@0166=5153 TAD C0106 / @@0167=1106 JMS I C0110 / long call to S0242 @@0170=4510 JMP I S0146 / return @@0171=5546 D0172, 0000 / AND L0000 C0173, 0215 / AND AI5 C0174, 0212 / AND AI2 AND C0122 / @@0175=0322 AND C0057 / @@0176=0257 AND C0127 / @@0177=0327 AND C0240 / @@0200=0240 AND L0307 / @@0201=0307 AND C0301 / @@0202=0301 AND C0324 / @@0203=0324 AND C0305 / @@0204=0305 AND C0215 / @@0205=0215 AND C0212 / @@0206=0212 AND C0314 / @@0207=0314 AND D0317 / @@0210=0317 AND C0303 / @@0211=0303 C0212, 0330 / AND L0330 AND C0240 / @@0213=0240 AND C0314 / @@0214=0314 C0215, 0317 / AND D0317 AND C0303 / @@0216=0303 AND C0331 / @@0217=0331 AND C0240 / @@0220=0240 AND C0303 / @@0221=0303 AND D0316 / @@0222=0316 AND C0324 / @@0223=0324 AND L0330 / @@0224=0330 AND C0240 / @@0225=0240 AND C0303 / @@0226=0303 AND D0316 / @@0227=0316 AND C0324 / @@0230=0324 AND C0331 / @@0231=0331 AND C0240 / @@0232=0240 AND C0311 / @@0233=0311 AND D0316 / @@0234=0316 AND C0324 / @@0235=0324 AND C0322 / @@0236=0322 AND C0215 / @@0237=0215 C0240, 0212 / AND C0212 C0241, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0242 / / Called from: / 0137 0164 0170 0357 0361 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0242, 0 / return area TLS / Load the TTO from the content of AC4 @@0243=6046 L0244, TSF / Skip if teleprinter flag is a 1. @@0244=6041 JMP L0244 / @@0245=5244 TCF / Clear teleprinter flag. @@0246=6042 CLA CLL / AC = 0000 @@0247=7300 JMP I S0242 / return @@0250=5642 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0251 / / Called from: / 0043 0047 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0251, 0 / return area L0252, TAD D0315 / @@0252=1315 TAD D0316 / @@0253=1316 TAD D0317 / @@0254=1317 DCA D0315 / @@0255=3315 RAL / @@0256=7004 TAD D0315 / @@0257=1315 TAD D0316 / @@0260=1316 TAD D0317 / @@0261=1317 DCA D0316 / @@0262=3316 RAL / @@0263=7004 TAD D0315 / @@0264=1315 TAD D0316 / @@0265=1316 TAD D0317 / @@0266=1317 DCA D0317 / @@0267=3317 RAL / @@0270=7004 TAD D0315 / @@0271=1315 DCA D0315 / @@0272=3315 TAD D0316 / @@0273=1316 SPA / @@0274=7510 JMP I S0251 / return @@0275=5651 CLA / @@0276=7200 TAD L0061 / @@0277=1061 AND AI1 / AUTO INDEX REGISTER @@0300=0011 C0301, 7640 / SZA CLA JMP L0307 / @@0302=5307 C0303, 1316 / TAD D0316 TAD AI7 / AUTO INDEX REGISTER @@0304=1017 C0305, 7710 / SPA CLA JMP L0252 / @@0306=5252 L0307, C0307, 1316 / TAD D0316 TAD C0320 / @@0310=1320 C0311, 7710 / SPA CLA JMP L0252 / @@0312=5252 TAD D0316 / @@0313=1316 C0314, 5651 / JMP I S0251 D0315, 0001 / AND C0001 D0316, 0077 / AND C0077 D0317, 0000 / AND L0000 C0320, 7753 / CLA MQA SCA SHL + L0321, LAS / @@0321=7604 C0322, 7500 / SMA HLT / @@0323=7402 C0324, 7004 / RAL SMA / @@0325=7500 JMP L0125 / @@0326=5125 RAL / @@0327=7004 L0330, C0330, 7700 / SMA CLA C0331, 5042 / JMP L0042 JMP L0060 / @@0332=5060 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0333 / / Called from: / 0053 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0333, 0 / return area TAD I C0117 / @@0334=1517 CIA / @@0335=7041 TAD I C0120 / @@0336=1520 SNA CLA / @@0337=7650 JMP L0042 / @@0340=5042 JMP I S0333 / return @@0341=5733 L0342, TAD D0021 / @@0342=1021 JMS S0146 / @@0343=4146 TAD D0022 / @@0344=1022 JMS S0146 / @@0345=4146 D0346, 0000 / AND L0000 TAD I D0021 / @@0347=1421 JMS S0146 / @@0350=4146 D0351, 0000 / AND L0000 TAD I D0022 / @@0352=1422 JMS S0146 / @@0353=4146 TAD D0172 / @@0354=1172 JMS S0146 / @@0355=4146 TAD C0173 / @@0356=1173 JMS I C0110 / long call to S0242 @@0357=4510 TAD C0174 / @@0360=1174 JMS I C0110 / long call to S0242 @@0361=4510 LAS / @@0362=7604 RTL / @@0363=7006 JMP I C0116 / long jump to L0330 @@0364=5516 C0365, 0000 / AND L0000 $