TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-d1ma-pm1.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-d1ma-pm1.bin / Generated 2010 02 19 00:10:22 / 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 / / 0223 locations used, 0157 code and 0044 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 D0003, 0003 / AND D0003 L0004, D0004, 5405 / JMP I D0005 D0005, 0200 / AND L0000 ISZ D0073 / @@0006=2073 C0007, 2103 / ISZ D0103 JMP L0004 / @@0010=5004 TAD C0075 / @@0011=1075 DCA D0073 / @@0012=3073 TAD C0076 / @@0013=1076 DCA D0103 / @@0014=3103 L0015, TAD I D0073 / @@0015=1473 CIA / @@0016=7041 TAD D0073 / @@0017=1073 SZA / @@0020=7440 JMS S0116 / @@0021=4116 ISZ D0073 / @@0022=2073 ISZ D0103 / @@0023=2103 JMP L5 / @@0024=5015 TAD C0074 / @@0025=1074 DCA D0073 / @@0026=3073 TAD C0076 / @@0027=1076 DCA D0103 / @@0030=3103 L0031, TAD D0073 / @@0031=1073 DCA I D0073 / @@0032=3473 STA / AC = 7777 (-0001) @@0033=7240 TAD D0073 / @@0034=1073 DCA D0073 / @@0035=3073 ISZ D0103 / @@0036=2103 JMP L0031 / @@0037=5031 C0040, 1076 / TAD C0076 DCA D0103 / @@0041=3103 TAD C0074 / @@0042=1074 DCA D0073 / @@0043=3073 L0044, TAD I D0073 / @@0044=1473 CIA / @@0045=7041 TAD D0073 / @@0046=1073 SZA / @@0047=7440 JMS S0116 / @@0050=4116 STA / AC = 7777 (-0001) @@0051=7240 TAD D0073 / @@0052=1073 DCA D0073 / @@0053=3073 ISZ D0103 / @@0054=2103 JMP L0044 / @@0055=5044 ISZ D0077 / @@0056=2077 JMP L0000 / @@0057=5000 C0060, C0060, 1100 / TAD C0100 DCA D0077 / @@0061=3077 TAD C0111 / @@0062=1111 JMS S0144 / @@0063=4144 TAD C0112 / @@0064=1112 JMS S0144 / @@0065=4144 TAD C0101 / @@0066=1101 JMS S0144 / @@0067=4144 TAD C0101 / @@0070=1101 JMS S0144 / @@0071=4144 JMP L0000 / @@0072=5000 D0073, 0000 / AND L0000 C0074, 7610 / SKP CLA C0075, 0200 / AND L0000 C0076, 0370 / AND C0170 D0077, 7640 / SZA CLA C0100, 7640 / SZA CLA C0101, 0261 / AND C0061 C0102, 7774 / SPA SNA SZL CLA OSR D0103, 0000 / AND L0000 C0104, 0007 / AND C0007 C0105, 0260 / AND C0060 D0106, 0000 / AND L0000 C0107, 7004 / RAL D0110, 0000 / AND L0000 C0111, 0215 / AND L5 C0112, 0212 / AND AI2 C0113, 0240 / AND C0040 C0114, 0301 / AND C0101 C0115, 0303 / AND D0103 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0116 / / Called from: / 0021 0050 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0116, 0 / return area CIA / @@0117=7041 TAD D0073 / @@0120=1073 DCA D0110 / @@0121=3110 TAD C0111 / @@0122=1111 JMS S0144 / @@0123=4144 TAD C0112 / @@0124=1112 JMS S0144 / @@0125=4144 TAD C0114 / @@0126=1114 JMS S0144 / @@0127=4144 TAD D0073 / @@0130=1073 JMS S0152 / @@0131=4152 TAD C0113 / @@0132=1113 JMS S0144 / @@0133=4144 TAD C0115 / @@0134=1115 JMS S0144 / @@0135=4144 TAD D0110 / @@0136=1110 L0137, JMS S0152 / @@0137=4152 LAS / @@0140=7604 SPA CLA / @@0141=7710 HLT / @@0142=7402 JMP I S0116 / return @@0143=5516 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0144 / / Called from: / 0063 0065 0067 0071 0123 0125 0127 0133 0135 0170 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S0144, 0 / return area TLS / Load the TTO from the content of AC4 @@0145=6046 L0146, TSF / Skip if teleprinter flag is a 1. @@0146=6041 JMP L0146 / @@0147=5146 CLA / @@0150=7200 JMP I S0144 / return @@0151=5544 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0152 / / Called from: / 0131 0137 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0152, 0 / return area DCA D0106 / @@0153=3106 TAD C0162 / @@0154=1162 DCA D0163 / @@0155=3163 TAD C0102 / @@0156=1102 DCA D0103 / @@0157=3103 CLL / @@0160=7100 L0161, TAD D0106 / @@0161=1106 C0162, 7006 / RTL D0163, 7006 / RTL DCA D0106 / @@0164=3106 TAD D0106 / @@0165=1106 AND C0104 / @@0166=0104 TAD C0105 / @@0167=1105 JMS S0144 / @@0170=4144 TAD C0107 / @@0171=1107 DCA D0163 / @@0172=3163 ISZ D0103 / @@0173=2103 JMP L0161 / @@0174=5161 JMP I S0152 / return @@0175=5552 JMP L0137 / @@0176=5137 JMP I C0060 / long jump to L1100 @@0177=5460 TAD C0215 / @@0200=1215 DCA L0000 / @@0201=3000 TAD C0216 / @@0202=1216 DCA L0001 / @@0203=3001 TAD C0217 / @@0204=1217 DCA D0002 / @@0205=3002 TAD C0220 / @@0206=1220 DCA D0003 / @@0207=3003 TAD C0221 / @@0210=1221 DCA L0004 / @@0211=3004 TAD C0222 / @@0212=1222 DCA D0005 / @@0213=3005 JMP L0000 / @@0214=5000 C0215, 1075 / TAD C0075 C0216, 3073 / DCA D0073 C0217, 1076 / TAD C0076 C0220, 3103 / DCA D0103 C0221, 1073 / TAD D0073 C0222, 3473 / DCA I D0073 $