TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhkad-a-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhkad-a-pb.bin / Generated 2010 02 19 00:10:24 / 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 / / 0517 locations used, 0362 code and 0135 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, JMP L0001 / @@0001=5001 C0002, 0002 / AND C0002 C0003, 0003 / AND C0003 AND L0000 / @@0004=0000 AND L0000 / @@0005=0000 *0020 C0020, 0000 / AND L0000 C0021, 4000 / JMS L0000 C0022, 0000 / AND L0000 *0200 CLA / @@0200=7200 TAD C0273 / @@0201=1273 AND C0267 / @@0202=0267 DCA I C0377 / @@0203=3777 TAD C0274 / @@0204=1274 AND C0267 / @@0205=0267 TAD C0270 / @@0206=1270 DCA I C0376 / @@0207=3776 TAD C0021 / @@0210=1021 SPA CLA / @@0211=7710 JMP L0216 / @@0212=5216 TAD C0020 / @@0213=1020 IAC / @@0214=7001 DCA I C0375 / @@0215=3775 L0216, TAD C0022 / @@0216=1022 SMA CLA / @@0217=7700 JMP L0246 / @@0220=5246 TAD C0275 / @@0221=1275 AND C0267 / @@0222=0267 TAD C0271 / @@0223=1271 DCA I C0374 / @@0224=3774 TAD C0272 / @@0225=1272 DCA I C0373 / @@0226=3773 TAD C0272 / @@0227=1272 DCA I C0372 / @@0230=3772 TAD I C0371 / @@0231=1771 DCA I C0370 / @@0232=3770 TAD C0276 / @@0233=1276 C0234, 3010 / DCA AI0 TAD C0300 / @@0235=1300 C0236, 3011 / DCA AI1 L0237, C0237, 1410 / TAD I AI0 C0240, 3411 / DCA I AI1 C0241, 1010 / TAD AI0 CIA / @@0242=7041 TAD C0277 / @@0243=1277 SZA CLA / @@0244=7640 JMP L0237 / @@0245=5237 L0246, JMS I C0274 / long call to S7520 @@0246=4674 SZA / @@0247=7440 JMP L0252 / @@0250=5252 JMP I C0263 / long jump to L7200 @@0251=5663 L0252, TAD C0265 / @@0252=1265 SZA CLA / @@0253=7640 JMP L0256 / @@0254=5256 JMP I C0263 / long jump to L7200 @@0255=5663 L0256, JMS I C0274 / long call to S7520 @@0256=4674 TAD C0266 / @@0257=1266 SZA CLA / @@0260=7640 JMP I C0263 / long jump to L7200 @@0261=5663 JMP I C0264 / long jump to L7404 @@0262=5664 C0263, C0263, 7200 / CLA C0264, C0264, 7404 / OSR C0265, 6000 / 6000 C0266, 5000 / JMP L0000 C0267, 0177 / AND C0177 C0270, 0200 / AND C0200 C0271, 4200 / JMS C0200 C0272, 7773 / CLA MQA SCA MQL SHL + C0273, 7376 / CLA CLL CMA CML RTR RTL C0274, C0274, 7520 / SMA SNL C0275, 0324 / AND C0324 C0276, 0317 / AND C0317 C0277, 0361 / AND C0361 C0300, 7317 / CLA CLL IAC RTR RTL *0320 D0320, 0000 / AND L0000 JMS S0342 / @@0321=4342 CIF0 / Prepare to change to instruction fie @@0322=6272 JMP I C0355 / long jump to L6520 @@0323=5755 C0324, C0324, 0000 / AND L0000 CLA / @@0325=7200 TAD C0357 / @@0326=1357 DCA D0320 / @@0327=3320 L0330, TAD C0360 / @@0330=1360 DCA S0342 / @@0331=3342 L0332, ISZ S0342 / @@0332=2342 JMP L0332 / @@0333=5332 ISZ D0320 / @@0334=2320 JMP L0330 / @@0335=5330 JMS S0342 / @@0336=4342 CIF0 / Prepare to change to instruction fie @@0337=6272 C0340, 4754 / JMS I C0354 JMP I C0324 / long jump to L0000 @@0341=5724 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0342 / / Called from: / 0321 0336 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0342, 0 / return area IOF / Disable Interrupts @@0343=6002 CLA / @@0344=7200 RIF / Same as RDF except reads the instruc @@0345=6224 TAD C0356 / @@0346=1356 DCA D0352 / @@0347=3352 STA / AC = 7777 (-0001) @@0350=7240 TAD D0320 / @@0351=1320 D0352, 6201 / CDF0 JMP I S0342 / return @@0353=5742 C0354, 6500 / 6500 C0355, C0355, 6520 / 6520 C0356, 6201 / CDF0 C0357, 7771 / CLA MQA SCA MQL NMI C0360, 0000 / AND L0000 *0370 C0370, 7370 / CLA CLL CMA CML RAR C0371, 7374 / CLA CLL CMA CML RAR RAL C0372, 7302 / CLA IAC BSW C0373, 7301 / CLA CLL IAC C0374, 7264 / CLA CMA CML RAL C0375, 7531 / MQA MQL NMI C0376, 7533 / MQA MQL SHL + C0377, 7532 / SPA SZL HLT *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 D7302 / @@7262=1302 DCA D7301 / @@7263=3301 D7264, 1312 / TAD C7312 JMS S7367 / @@7265=4367 TAD C7313 / @@7266=1313 JMS S7367 / @@7267=4367 TAD C7303 / @@7270=1303 JMS S7367 / @@7271=4367 TAD C7316 / @@7272=1316 JMS S7367 / @@7273=4367 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 D7302, 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 S7367 / @@7322=4367 TAD C7313 / @@7323=1313 JMS S7367 / @@7324=4367 TAD C7315 / @@7325=1315 JMS S7367 / @@7326=4367 TAD D7275 / @@7327=1275 JMS S7343 / @@7330=4343 TAD C7314 / @@7331=1314 JMS S7367 / @@7332=4367 TAD C7316 / @@7333=1316 JMS S7367 / @@7334=4367 TAD I D7275 / @@7335=1675 JMS S7343 / @@7336=4343 JMS I C7376 / long call to S7520 @@7337=4776 SMA CLA / @@7340=7700 HLT / @@7341=7402 JMP I S7320 / return @@7342=5720 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7343 / / Called from: / 7330 7336 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7343, 0 / return area DCA D7310 / @@7344=3310 TAD C7353 / @@7345=1353 DCA D7354 / @@7346=3354 TAD C7304 / @@7347=1304 DCA D7317 / @@7350=3317 CLL / @@7351=7100 L7352, TAD D7310 / @@7352=1310 C7353, 7006 / RTL D7354, 7006 / RTL DCA D7310 / @@7355=3310 TAD D7310 / @@7356=1310 AND C7306 / @@7357=0306 TAD C7307 / @@7360=1307 JMS S7367 / @@7361=4367 TAD C7311 / @@7362=1311 DCA D7354 / @@7363=3354 ISZ D7317 / @@7364=2317 JMP L7352 / @@7365=5352 JMP I S7343 / return @@7366=5743 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7367 / / Called from: / 7265 7267 7271 7273 7322 7324 7326 7332 7334 7361 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S7367, 0 / return area D7370, 6046 / TLS L7371, TSF / Skip if teleprinter flag is a 1. @@7371=6041 JMP L7371 / @@7372=5371 CLA / @@7373=7200 C7374, 5767 / JMP I S7367 *7376 C7376, C7376, 7520 / SMA SNL L7377, JMS I C7376 / long call to S7520 @@7377=4776 AND C7467 / @@7400=0267 SNA CLA / @@7401=7650 JMP L7404 / @@7402=5204 JMP L7507 / @@7403=5307 L7404, TAD D7474 / @@7404=1274 CMA / @@7405=7040 DCA D7474 / @@7406=3274 TAD S7520 / @@7407=1320 TAD C7471 / @@7410=1271 TAD D7532 / @@7411=1332 DCA D7534 / @@7412=3334 TAD S7520 / @@7413=1320 SMA CLA / @@7414=7700 TAD C7473 / @@7415=1273 TAD D7533 / @@7416=1333 DCA I D7534 / @@7417=3734 TAD D7474 / @@7420=1274 SMA CLA / @@7421=7700 JMP L7446 / @@7422=5246 JMP L7424 / @@7423=5224 L7424, CLA CLL / AC = 0000 @@7424=7300 TAD C7470 / @@7425=1270 DCA I C7503 / @@7426=3703 TAD C7471 / @@7427=1271 DCA I C7504 / @@7430=3704 CLA CLL / AC = 0000 @@7431=7300 DCA D7475 / @@7432=3275 TAD C7472 / @@7433=1272 DCA D7476 / @@7434=3276 TAD C7473 / @@7435=1273 DCA D7477 / @@7436=3277 L7437, TAD I D7477 / @@7437=1677 DCA I D7475 / @@7440=3675 ISZ D7475 / @@7441=2275 ISZ D7477 / @@7442=2277 ISZ D7476 / @@7443=2276 JMP L7437 / @@7444=5237 JMP L0000 / @@7445=5000 L7446, TAD C7500 / @@7446=1300 DCA I C7505 / @@7447=3705 TAD C7501 / @@7450=1301 DCA I C7506 / @@7451=3706 CLA CLL / AC = 0000 @@7452=7300 DCA D7502 / @@7453=3302 TAD C7472 / @@7454=1272 DCA D7476 / @@7455=3276 TAD C7473 / @@7456=1273 DCA D7477 / @@7457=3277 L7460, TAD I D7502 / @@7460=1702 DCA I D7477 / @@7461=3677 ISZ D7502 / @@7462=2302 ISZ D7477 / @@7463=2277 ISZ D7476 / @@7464=2276 JMP L7460 / @@7465=5260 JMP I C7473 / long jump to L7200 @@7466=5673 C7467, 2000 / ISZ L0000 C7470, 0400 / AND I L0000 C7471, 7600 / 7600 C7472, 7400 / C7473, C7473, 7200 / CLA D7474, 0000 / AND L0000 D7475, 0000 / AND L0000 D7476, 7400 / D7477, 7200 / CLA C7500, 0000 / AND L0000 C7501, 7177 / CLL CMA CML IAC RTR RTL D7502, 0000 / AND L0000 C7503, 7277 / CLA CMA CML IAC RTR RTL C7504, 7276 / CLA CMA CML RTR RTL C7505, 0077 / AND D0077 C7506, 0076 / AND D0076 L7507, NOP / @@7507=7000 JMS D7511 / @@7510=4311 D7511, 0000 / AND L0000 TAD D7511 / @@7512=1311 AND C7517 / @@7513=0317 SMA CLA / @@7514=7700 JMP L0000 / @@7515=5000 JMP I C7517 / long jump to L7200 @@7516=5717 C7517, C7517, 7200 / CLA //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7520 / / Called from: / 0246 0256 7337 7377 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S7520, 0 / return area CLA / @@7521=7200 TAD D7531 / @@7522=1331 SNA / @@7523=7450 LAS / @@7524=7604 CLL RAL / @@7525=7104 BSW / @@7526=7002 RAR / @@7527=7010 JMP I S7520 / return @@7530=5720 D7531, 0000 / AND L0000 D7532, 0000 / AND L0000 D7533, 0000 / AND L0000 D7534, 0000 / AND L0000 $