TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d1ec-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d1ec-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 / / 0335 locations used, 0255 code and 0060 data //////////////////////////////////////////////////////////////////////////////// *0200 *0000 L0000, C0000, 0000 / AND L0000 L0001, JMP L0001 / @@0001=5001 C0002, 0002 / AND C0002 C0003, 0003 / AND C0003 AND L0000 / @@0004=0000 AND L0000 / @@0005=0000 *0200 LAS / @@0200=7604 SZA / @@0201=7440 JMP L0204 / @@0202=5204 JMP I C0215 / long jump to L7200 @@0203=5615 L0204, TAD C0217 / @@0204=1217 SZA CLA / @@0205=7640 JMP L0210 / @@0206=5210 JMP I C0215 / long jump to L7200 @@0207=5615 L0210, LAS / @@0210=7604 TAD C0220 / @@0211=1220 SZA CLA / @@0212=7640 JMP I C0215 / long jump to L7200 @@0213=5615 JMP I C0216 / long jump to L7405 @@0214=5616 C0215, C0215, 7200 / CLA C0216, C0216, 7405 / MUY + C0217, 6000 / 6000 C0220, 5000 / JMP L0000 *7200 L7200, CLA CLL / AC = 0000 @@7200=7300 TAD D7277 / @@7201=1277 DCA D7275 / @@7202=3275 TAD C7300 / @@7203=1300 DCA D7305 / @@7204=3305 L7205, TAD D7275 / @@7205=1275 DCA I D7275 / @@7206=3675 ISZ D7275 / @@7207=2275 ISZ D7305 / @@7210=2305 JMP L7205 / @@7211=5205 TAD D7277 / @@7212=1277 DCA D7275 / @@7213=3275 TAD C7300 / @@7214=1300 DCA D7305 / @@7215=3305 L7216, TAD I D7275 / @@7216=1675 CIA / @@7217=7041 TAD D7275 / @@7220=1275 SZA CLA / @@7221=7640 JMS S7320 / @@7222=4320 ISZ D7275 / @@7223=2275 ISZ D7305 / @@7224=2305 JMP L7216 / @@7225=5216 TAD D7276 / @@7226=1276 DCA D7275 / @@7227=3275 TAD C7300 / @@7230=1300 DCA D7305 / @@7231=3305 L7232, TAD D7275 / @@7232=1275 CMA / @@7233=7040 DCA I D7275 / @@7234=3675 STA / AC = 7777 (-0001) @@7235=7240 TAD D7275 / @@7236=1275 DCA D7275 / @@7237=3275 C7240, 2305 / ISZ D7305 JMP L7232 / @@7241=5232 TAD C7300 / @@7242=1300 DCA D7305 / @@7243=3305 TAD D7276 / @@7244=1276 DCA D7275 / @@7245=3275 L7246, TAD I D7275 / @@7246=1675 IAC / @@7247=7001 TAD D7275 / @@7250=1275 SZA CLA / @@7251=7640 JMS S7320 / @@7252=4320 STA / AC = 7777 (-0001) @@7253=7240 TAD D7275 / @@7254=1275 DCA D7275 / @@7255=3275 ISZ D7305 / @@7256=2305 JMP L7246 / @@7257=5246 C7260, 2301 / ISZ D7301 JMP L7200 / @@7261=5200 TAD C7302 / @@7262=1302 DCA D7301 / @@7263=3301 TAD C7312 / @@7264=1312 JMS S7343 / @@7265=4343 TAD C7313 / @@7266=1313 JMS S7343 / @@7267=4343 TAD C7303 / @@7270=1303 JMS S7343 / @@7271=4343 TAD C7316 / @@7272=1316 JMS S7343 / @@7273=4343 JMP L7377 / @@7274=5377 D7275, 0000 / AND L0000 D7276, 7177 / CLL CMA CML IAC RTR RTL D7277, 0000 / AND L0000 C7300, 0600 / AND I L7200 D7301, 7640 / SZA CLA C7302, 7640 / SZA CLA C7303, 0305 / AND D7305 C7304, 7774 / SPA SNA SZL CLA OSR D7305, 0000 / AND L0000 C7306, 0007 / AND C0007 C7307, 0260 / AND C7260 D7310, 0000 / AND L0000 C7311, 7004 / RAL C7312, 0215 / AND C7215 C7313, 0212 / AND C7212 C7314, 0240 / AND C7240 C7315, 0301 / AND D7301 C7316, 0303 / AND C7303 D7317, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7320 / / Called from: / 7222 7252 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7320, 0 / return area TAD C7312 / @@7321=1312 JMS S7343 / @@7322=4343 TAD C7313 / @@7323=1313 JMS S7343 / @@7324=4343 TAD C7315 / @@7325=1315 JMS S7343 / @@7326=4343 TAD D7275 / @@7327=1275 JMS S7351 / @@7330=4351 TAD C7314 / @@7331=1314 JMS S7343 / @@7332=4343 TAD C7316 / @@7333=1316 JMS S7343 / @@7334=4343 TAD I D7275 / @@7335=1675 JMS S7351 / @@7336=4351 LAS / @@7337=7604 SMA CLA / @@7340=7700 HLT / @@7341=7402 JMP I S7320 / return @@7342=5720 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7343 / / Called from: / 7265 7267 7271 7273 7322 7324 7326 7332 7334 7367 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S7343, 0 / return area TLS / Load the TTO from the content of AC4 @@7344=6046 L7345, TSF / Skip if teleprinter flag is a 1. @@7345=6041 JMP L7345 / @@7346=5345 CLA / @@7347=7200 JMP I S7343 / return @@7350=5743 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7351 / / Called from: / 7330 7336 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7351, 0 / return area DCA D7310 / @@7352=3310 TAD C7361 / @@7353=1361 DCA D7362 / @@7354=3362 TAD C7304 / @@7355=1304 DCA D7317 / @@7356=3317 CLL / @@7357=7100 L7360, TAD D7310 / @@7360=1310 C7361, 7006 / RTL D7362, 7006 / RTL DCA D7310 / @@7363=3310 TAD D7310 / @@7364=1310 AND C7306 / @@7365=0306 TAD C7307 / @@7366=1307 JMS S7343 / @@7367=4343 TAD C7311 / @@7370=1311 DCA D7362 / @@7371=3362 ISZ D7317 / @@7372=2317 JMP L7360 / @@7373=5360 JMP I S7351 / return @@7374=5751 *7377 L7377, NOP / @@7377=7000 LAS / @@7400=7604 AND C7457 / @@7401=0257 SNA CLA / @@7402=7650 JMP L7405 / @@7403=5205 JMP L7477 / @@7404=5277 L7405, TAD D7464 / @@7405=1264 CMA / @@7406=7040 DCA D7464 / @@7407=3264 TAD D7464 / @@7410=1264 SMA CLA / @@7411=7700 JMP L7436 / @@7412=5236 JMP L7414 / @@7413=5214 L7414, CLA CLL / AC = 0000 @@7414=7300 TAD C7460 / @@7415=1260 DCA I C7473 / @@7416=3673 TAD C7461 / @@7417=1261 DCA I C7474 / @@7420=3674 CLA CLL / AC = 0000 @@7421=7300 DCA D7465 / @@7422=3265 TAD C7462 / @@7423=1262 DCA D7466 / @@7424=3266 TAD C7463 / @@7425=1263 DCA D7467 / @@7426=3267 L7427, TAD I D7467 / @@7427=1667 DCA I D7465 / @@7430=3665 ISZ D7465 / @@7431=2265 ISZ D7467 / @@7432=2267 ISZ D7466 / @@7433=2266 JMP L7427 / @@7434=5227 JMP L0000 / @@7435=5000 L7436, TAD C7470 / @@7436=1270 DCA I C7475 / @@7437=3675 TAD C7471 / @@7440=1271 DCA I C7476 / @@7441=3676 CLA CLL / AC = 0000 @@7442=7300 DCA D7472 / @@7443=3272 TAD C7462 / @@7444=1262 DCA D7466 / @@7445=3266 TAD C7463 / @@7446=1263 DCA D7467 / @@7447=3267 L7450, TAD I D7472 / @@7450=1672 DCA I D7467 / @@7451=3667 ISZ D7472 / @@7452=2272 ISZ D7467 / @@7453=2267 ISZ D7466 / @@7454=2266 JMP L7450 / @@7455=5250 JMP I C7463 / long jump to L7200 @@7456=5663 C7457, 2000 / ISZ L0000 C7460, 0310 / AND C7510 C7461, 7510 / SPA C7462, 7470 / SNA SZL C7463, C7463, 7200 / CLA D7464, 0000 / AND L0000 D7465, 0000 / AND L0000 D7466, 7470 / SNA SZL D7467, 7200 / CLA C7470, 0000 / AND L0000 C7471, 7177 / CLL CMA CML IAC RTR RTL D7472, 0000 / AND L0000 C7473, 7277 / CLA CMA CML IAC RTR RTL C7474, 7276 / CLA CMA CML RTR RTL C7475, 0077 / AND D0077 C7476, 0076 / AND D0076 L7477, NOP / @@7477=7000 JMS D7501 / @@7500=4301 D7501, 0000 / AND L0000 TAD D7501 / @@7502=1301 AND C7507 / @@7503=0307 SMA CLA / @@7504=7700 JMP L0000 / @@7505=5000 JMP I C7507 / long jump to L7200 @@7506=5707 C7507, C7507, 7200 / CLA $