TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d1ea-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d1ea-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 / / 0206 locations used, 0136 code and 0050 data //////////////////////////////////////////////////////////////////////////////// *0001 C0001, 0070 / AND C0070 D0002, 0000 / AND C0000 CDF0 / Change to data field 0. The data fie @@0003=6201 C0004, 0240 / AND C0040 D0005, 0000 / AND C0000 C0006, 7774 / SPA SNA SZL CLA OSR C0007, 1026 / TAD C0026 AI0, 0000 / AUTO-INDEX REGISTER AND C0000 AI1, 0000 / AUTO-INDEX REGISTER AND C0000 AI2, 0157 / AUTO-INDEX REGISTER AND C0157 AI3, 0000 / AUTO-INDEX REGISTER AND C0000 AI4, 4000 / AUTO-INDEX REGISTER JMS C0000 AI5, 0000 / AUTO-INDEX REGISTER AND C0000 *0020 L0020, LAS / @@0020=7604 CLL RTL / @@0021=7106 CLL RAL / @@0022=7104 AND C0001 / @@0023=0001 DCA D0002 / @@0024=3002 TAD D0002 / @@0025=1002 C0026, 1003 / TAD C0003 DCA L0035 / @@0027=3035 TAD D0002 / @@0030=1002 SNA CLA / @@0031=7650 TAD C0004 / @@0032=1004 DCA D0005 / @@0033=3005 DCA AI1 / AUTO INDEX REGISTER @@0034=3011 L0035, D0035, 0000 / AND C0000 CLA CLL CML / @@0036=7320 L0037, RAR / @@0037=7010 C0040, 3405 / DCA I D0005 TAD I D0005 / @@0041=1405 ISZ AI1 / AUTO INDEX REGISTER @@0042=2011 JMP L0037 / @@0043=5037 TAD AI4 / AUTO INDEX REGISTER @@0044=1014 SZA CLA / @@0045=7640 JMP L0063 / @@0046=5063 CLA CLL CMA / AC = 7777 (-0001) @@0047=7340 L0050, RAR / @@0050=7010 DCA I D0005 / @@0051=3405 TAD I D0005 / @@0052=1405 ISZ AI1 / AUTO INDEX REGISTER @@0053=2011 JMP L0050 / @@0054=5050 CMA / @@0055=7040 SMA CLA / @@0056=7700 C0057, 5063 / JMP L0063 L0060, C0060, 2005 / ISZ D0005 L0061, C0061, 5035 / JMP L0035 JMP L0020 / @@0062=5020 L0063, LAS / @@0063=7604 SMA / @@0064=7500 HLT / @@0065=7402 RAL / @@0066=7004 SMA / @@0067=7500 C0070, 5075 / JMP C0075 RAL / @@0071=7004 L0072, SMA CLA / @@0072=7700 JMP L0060 / @@0073=5060 JMP L0061 / @@0074=5061 CLA CLL / AC = 0000 @@0075=7300 CDF0 / Change to data field 0. The data fie @@0076=6201 TAD AI0 / AUTO INDEX REGISTER @@0077=1010 SZA CLA / @@0100=7640 C0101, 5111 / JMP L0111 TAD AI2 / AUTO INDEX REGISTER @@0102=1012 DCA AI0 / AUTO INDEX REGISTER @@0103=3010 L0104, C0104, 1410 / TAD I AI0 SNA / @@0105=7450 C0106, 5111 / JMP L0111 JMS S0152 / @@0107=4152 JMP L0104 / @@0110=5104 L0111, TAD D0005 / @@0111=1005 JMS S0127 / @@0112=4127 TAD L0035 / @@0113=1035 C0114, 3115 / DCA D0115 D0115, 0000 / AND C0000 TAD I D0005 / @@0116=1405 C0117, 4127 / JMS S0127 TAD C0160 / @@0120=1160 JMS S0152 / @@0121=4152 TAD C0161 / @@0122=1161 JMS S0152 / @@0123=4152 C0124, 7604 / LAS RTL / @@0125=7006 JMP L0072 / @@0126=5072 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0127 / / Called from: / 0112 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0127, 0 / return area DCA AI5 / AUTO INDEX REGISTER @@0130=3015 TAD C0006 / @@0131=1006 DCA AI3 / AUTO INDEX REGISTER @@0132=3013 L0133, TAD C0007 / @@0133=1007 L0134, DCA AI0 / AUTO INDEX REGISTER @@0134=3010 TAD AI5 / AUTO INDEX REGISTER @@0135=1015 RAL / @@0136=7004 DCA AI5 / AUTO INDEX REGISTER @@0137=3015 TAD AI0 / AUTO INDEX REGISTER @@0140=1010 RAL / @@0141=7004 SNL / @@0142=7420 JMP L0134 / @@0143=5134 JMS S0152 / @@0144=4152 ISZ AI3 / AUTO INDEX REGISTER @@0145=2013 JMP L0133 / @@0146=5133 TAD C0004 / @@0147=1004 JMS S0152 / @@0150=4152 JMP I S0127 / return @@0151=5527 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0152 / / Called from: / 0107 0121 0123 0144 0150 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0152, 0 / return area TLS / Load the TTO from the content of AC4 @@0153=6046 L0154, TSF / Skip if teleprinter flag is a 1. @@0154=6041 JMP L0154 / @@0155=5154 CLA CLL / AC = 0000 @@0156=7300 C0157, 5552 / JMP I S0152 C0160, 0215 / AND AI5 C0161, 0212 / AND AI2 AND C0106 / @@0162=0306 AND C0114 / @@0163=0314 AND C0117 / @@0164=0317 AND C0101 / @@0165=0301 AND C0124 / @@0166=0324 AND C0040 / @@0167=0240 AND L0061 / @@0170=0261 AND C0057 / @@0171=0257 AND L0060 / @@0172=0260 AND AI5 / AUTO INDEX REGISTER @@0173=0215 AND AI2 / AUTO INDEX REGISTER @@0174=0212 AND C0101 / @@0175=0301 AND L0104 / @@0176=0304 AND L0104 / @@0177=0304 C0200, 0322 / AND C0322 C0201, 0240 / AND C0240 C0202, 0304 / AND C0304 C0203, 0301 / AND C0301 C0204, 0324 / AND C0324 C0205, 0301 / AND C0301 C0206, 0215 / AND C0215 C0207, 0212 / AND C0212 C0210, 0000 / AND C0000 $