TITLE "AUTOMATIC DISASSEMBLY OF decus-8-213_5.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-8-213_5.bin / Generated 2010 02 19 00:10:21 / 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 / / 0175 locations used, 0066 code and 0107 data //////////////////////////////////////////////////////////////////////////////// *7400 C7400, C7400, 0000 / AND L0000 L7401, STA / AC = 7777 (-0001) @@7401=7240 C7402, 3060 / DCA C0060 C7403, 3056 / DCA C0056 C7404, 4777 / JMS I C7577 JMP L7401 / @@7405=5201 CLA / @@7406=7200 C7407, 1055 / TAD C0055 C7410, 1062 / TAD C0062 SZA CLA / @@7411=7640 JMP L7424 / @@7412=5224 C7413, 1060 / TAD C0060 SNA CLA / @@7414=7650 JMP L7426 / @@7415=5226 C7416, 3066 / DCA C0066 C7417, 3060 / DCA C0060 STA / AC = 7777 (-0001) @@7420=7240 TAD I C7577 / @@7421=1777 DCA I C7577 / @@7422=3777 JMP I C7576 / long jump to L7020 @@7423=5776 L7424, C7424, 1060 / TAD C0060 SNA CLA / @@7425=7650 L7426, C7426, 1066 / TAD C0066 CIA / @@7427=7041 C7430, 3061 / DCA C0061 C7431, 4775 / JMS I C7575 C7432, 4774 / JMS I C7574 C7433, 1055 / TAD C0055 TAD C7573 / @@7434=1373 SZA CLA / @@7435=7640 JMP L7452 / @@7436=5252 C7437, 4777 / JMS I C7577 JMP L7401 / @@7440=5201 C7441, 4775 / JMS I C7575 C7442, 1045 / TAD C0045 SPA / @@7443=7510 IAC / @@7444=7001 SZA CLA / @@7445=7640 JMP L7477 / @@7446=5277 C7447, 1046 / TAD C0046 C7450, 1061 / TAD C0061 C7451, 3061 / DCA C0061 L7452, C7452, 4407 / JMS I C0007 C7453, 5052 / JMP C0052 C7454, 0000 / AND L0000 L7455, C7455, 1061 / TAD C0061 SNA / @@7456=7450 JMP I C7400 / long jump to L0000 @@7457=5600 SMA CLA / @@7460=7700 JMP L7470 / @@7461=5270 C7462, 4407 / JMS I C0007 DCA I C7572 / @@7463=3772 C7464, 0000 / AND L0000 C7465, 2061 / ISZ C0061 JMP L7455 / @@7466=5255 JMP I C7400 / long jump to L0000 @@7467=5600 L7470, C7470, 4407 / JMS I C0007 DCA D7504 / @@7471=3304 C7472, 0000 / AND L0000 STA / AC = 7777 (-0001) @@7473=7240 C7474, 1061 / TAD C0061 C7475, 3061 / DCA C0061 JMP L7455 / @@7476=5255 L7477, TAD C7571 / @@7477=1371 C7500, 3044 / DCA C0044 TAD C7571 / @@7501=1371 C7502, 3045 / DCA C0045 JMP I C7400 / long jump to L0000 @@7503=5600 D7504, 0004 / AND C0004 C7505, 2400 / ISZ I L0000 C7506, 0000 / AND L0000 C7507, C7507, 0000 / AND L0000 CLA CLL / AC = 0000 @@7510=7300 C7511, 1044 / TAD C0044 SPA / @@7512=7510 CMA CML IAC / @@7513=7061 C7514, 3044 / DCA C0044 TAD C7570 / @@7515=1370 C7516, 4767 / JMS I C7567 TAD C7566 / @@7517=1366 SZL / @@7520=7430 TAD C7565 / @@7521=1365 C7522, 4764 / JMS I C7564 C7523, 3045 / DCA C0045 C7524, 1044 / TAD C0044 L7525, C7525, 2045 / ISZ C0045 TAD C7563 / @@7526=1363 SMA / @@7527=7500 JMP L7525 / @@7530=5325 TAD C7562 / @@7531=1362 C7532, 3044 / DCA C0044 CMA / @@7533=7040 C7534, 1045 / TAD C0045 SZA / @@7535=7440 C7536, 4764 / JMS I C7564 C7537, 3045 / DCA C0045 C7540, 1044 / TAD C0044 L7541, C7541, 2045 / ISZ C0045 TAD C7561 / @@7542=1361 SMA / @@7543=7500 JMP L7541 / @@7544=5341 TAD C7560 / @@7545=1360 C7546, 3046 / DCA C0046 STA / AC = 7777 (-0001) @@7547=7240 C7550, 1045 / TAD C0045 C7551, 4764 / JMS I C7564 C7552, 1046 / TAD C0046 C7553, 4764 / JMS I C7564 JMP I C7507 / long jump to L0000 @@7554=5707 *7560 C7560, 0012 / AND AI2 C7561, 7766 / SMA SZA SNL CLA OSR HLT C7562, 0144 / AND C0144 C7563, 7634 / SZL CLA OSR C7564, 7336 / CLA CLL CML RTR RTL C7565, 0002 / AND C0002 C7566, 7773 / CLA MQA SCA MQL SHL + C7567, 7316 / CLA CLL RTR RTL C7570, 0305 / AND C7505 C7571, 3777 / DCA I C7577 C7572, 7355 / CLA CLL CMA IAC RAR RAL C7573, 7473 / SCA MQL SHL + C7574, 5060 / JMP C0060 STL / @@7575=7120 C7576, C7576, 7020 / CML C7577, 7000 / NOP $