TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0eb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d0eb-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 / / 0714 locations used, 0570 code and 0124 data //////////////////////////////////////////////////////////////////////////////// *0200 *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 D0003, 0003 / AND D0003 D0004, 0000 / AND L0000 AND L0000 / @@0005=0000 *0200 C0200, 6007 / 6007 JMP I C0202 / long jump to L6600 @@0201=5602 C0202, C0202, 6600 / 6600 *6600 L6600, CLA CLL / AC = 0000 @@6600=7300 DCA D6776 / @@6601=3376 L6602, LAS / @@6602=7604 AND C6771 / @@6603=0371 SZA CLA / @@6604=7640 JMP L6624 / @@6605=5224 JMS I C6746 / long call to S7000 @@6606=4746 DCA D6755 / @@6607=3355 CMA / @@6610=7040 AND L0001 / @@6611=0001 DCA D6753 / @@6612=3353 CMA / @@6613=7040 AND D0002 / @@6614=0002 DCA D6754 / @@6615=3354 CMA / @@6616=7040 AND D0003 / @@6617=0003 DCA D6756 / @@6620=3356 CMA / @@6621=7040 AND D0004 / @@6622=0004 DCA D6757 / @@6623=3357 L6624, LAS / @@6624=7604 AND C6772 / @@6625=0372 SZA CLA / @@6626=7640 JMP L6634 / @@6627=5234 CMA / @@6630=7040 AND D6760 / @@6631=0360 JMS I C6752 / long call to S7430 @@6632=4752 DCA D6760 / @@6633=3360 L6634, LAS / @@6634=7604 AND C6773 / @@6635=0373 SZA CLA / @@6636=7640 JMP L6644 / @@6637=5244 CMA / @@6640=7040 AND D6761 / @@6641=0361 JMS I C6752 / long call to S7430 @@6642=4752 DCA D6761 / @@6643=3361 L6644, CLA CLL CMA / AC = 7777 (-0001) @@6644=7340 AND D6753 / @@6645=0353 DCA I D6754 / @@6646=3754 CMA / @@6647=7040 AND D6755 / @@6650=0355 SNA CLA / @@6651=7650 JMP L6702 / @@6652=5302 CMA / @@6653=7040 AND D6756 / @@6654=0356 AND C6767 / @@6655=0367 SZA CLA / @@6656=7640 JMP L6676 / @@6657=5276 CMA / @@6660=7040 AND D6756 / @@6661=0356 AND C6775 / @@6662=0375 SNA CLA / @@6663=7650 JMP L6676 / @@6664=5276 CMA / @@6665=7040 AND D6757 / @@6666=0357 CIA / @@6667=7041 CMA / @@6670=7040 DCA I D6756 / @@6671=3756 L6672, CMA / @@6672=7040 AND D6760 / @@6673=0360 DCA I D6757 / @@6674=3757 JMP L6705 / @@6675=5305 L6676, CMA / @@6676=7040 AND D6757 / @@6677=0357 DCA I D6756 / @@6700=3756 JMP L6672 / @@6701=5272 L6702, CMA / @@6702=7040 AND D6760 / @@6703=0360 DCA I D6756 / @@6704=3756 L6705, CLA CLL CMA / AC = 7777 (-0001) @@6705=7340 AND D6760 / @@6706=0360 MQL / @@6707=7421 CMA / @@6710=7040 AND D6761 / @@6711=0361 JMS I C6751 / long call to S7200 @@6712=4751 DCA D6763 / @@6713=3363 RAR / @@6714=7010 DCA D6762 / @@6715=3362 CMA / @@6716=7040 AND C6747 / @@6717=0347 DCA L0000 / @@6720=3000 CMA / @@6721=7040 AND D6754 / @@6722=0354 IAC / @@6723=7001 SNA / @@6724=7450 JMP L6602 / @@6725=5202 DCA D6745 / @@6726=3345 CMA / @@6727=7040 AND C6766 / @@6730=0366 DCA I D6745 / @@6731=3745 CLL CMA / @@6732=7140 AND D6761 / @@6733=0361 JMP I D6754 / long jump to L0000 @@6734=5754 DCA D6764 / @@6735=3364 RAR / @@6736=7010 DCA D6765 / @@6737=3365 JMS I C6774 / long call to S7313 @@6740=4774 ISZ D6776 / @@6741=2376 JMP L6602 / @@6742=5202 JMS I C6750 / long call to S7442 @@6743=4750 JMP L6602 / @@6744=5202 D6745, 0000 / AND L0000 C6746, C6746, 7000 / NOP C6747, 6735 / 6735 C6750, C6750, 7442 / SZA HLT C6751, C6751, 7200 / CLA C6752, C6752, 7430 / SZL D6753, 0000 / AND L0000 D6754, 0000 / AND L0000 D6755, 0000 / AND L0000 D6756, 0000 / AND L0000 D6757, 0000 / AND L0000 D6760, 0021 / AND C0021 D6761, 0037 / AND C0037 D6762, 0000 / AND L0000 D6763, 0000 / AND L0000 D6764, 0000 / AND L0000 D6765, 0000 / AND L0000 C6766, 5400 / JMP I L0000 C6767, 7760 / SMA SZA SNL CLA SPA SNA SZL CLA / @@6770=7770 C6771, 0001 / AND L0001 C6772, 0002 / AND D0002 C6773, 0004 / AND D0004 C6774, C6774, 7313 / CLA CLL IAC RTR C6775, 0010 / AND AI0 D6776, 0000 / AND L0000 *7000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7000 / / Called from: / 6606 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7000, 0 / return area L7001, C7001, 7040 / CMA AND D7150 / @@7002=0350 JMS I C7162 / long call to S7430 @@7003=4762 DCA D7150 / @@7004=3350 CMA / @@7005=7040 AND D7150 / @@7006=0350 MQL / @@7007=7421 CMA / @@7010=7040 AND C7165 / @@7011=0365 MQA / @@7012=7501 AND C7152 / @@7013=0352 DCA L0001 / @@7014=3001 CMA / @@7015=7040 AND L0001 / @@7016=0001 AND C7155 / @@7017=0355 DCA D7161 / @@7020=3361 L7021, CMA / @@7021=7040 AND D7153 / @@7022=0353 JMS I C7162 / long call to S7430 @@7023=4762 DCA D7153 / @@7024=3353 CMA / @@7025=7040 AND D7153 / @@7026=0353 JMS I C7177 / long call to S7303 @@7027=4777 JMP L7021 / @@7030=5221 CMA / @@7031=7040 AND D7153 / @@7032=0353 AND C7154 / @@7033=0354 SZA CLA / @@7034=7640 JMP L7044 / @@7035=5244 CMA / @@7036=7040 AND D7153 / @@7037=0353 L7040, JMS I C7176 / long call to S7474 @@7040=4776 SMA CLA / @@7041=7700 JMP L7021 / @@7042=5221 JMP L7055 / @@7043=5255 L7044, CMA / @@7044=7040 AND L0001 / @@7045=0001 AND C7157 / @@7046=0357 SNA CLA / @@7047=7650 JMP L7055 / @@7050=5255 CMA / @@7051=7040 AND D7153 / @@7052=0353 AND C7155 / @@7053=0355 JMP L7040 / @@7054=5240 L7055, CMA / @@7055=7040 AND D7161 / @@7056=0361 SNA CLA / @@7057=7650 JMP L7001 / @@7060=5201 CMA / @@7061=7040 AND D7153 / @@7062=0353 DCA D0002 / @@7063=3002 CMA / @@7064=7040 AND L0001 / @@7065=0001 AND C7157 / @@7066=0357 SNA CLA / @@7067=7650 JMP L7107 / @@7070=5307 CMA / @@7071=7040 AND D0002 / @@7072=0002 AND C7154 / @@7073=0354 MQL / @@7074=7421 CMA / @@7075=7040 AND D7161 / @@7076=0361 MQA / @@7077=7501 DCA D0003 / @@7100=3003 L7101, CMA / @@7101=7040 AND L0001 / @@7102=0001 AND C7156 / @@7103=0356 SZA CLA / @@7104=7640 JMP L7113 / @@7105=5313 JMP I S7000 / return @@7106=5600 L7107, CMA / @@7107=7040 AND D7161 / @@7110=0361 DCA D0003 / @@7111=3003 JMP L7101 / @@7112=5301 L7113, CMA / @@7113=7040 AND D7160 / @@7114=0360 JMS I C7162 / long call to S7430 @@7115=4762 DCA D7160 / @@7116=3360 CMA / @@7117=7040 AND D7160 / @@7120=0360 JMS I C7177 / long call to S7303 @@7121=4777 JMP L7113 / @@7122=5313 CMA / @@7123=7040 AND D0002 / @@7124=0002 JMS I C7175 / long call to S7507 @@7125=4775 SMA CLA / @@7126=7700 JMP L7113 / @@7127=5313 CMA / @@7130=7040 AND D0003 / @@7131=0003 JMS I C7175 / long call to S7507 @@7132=4775 SMA CLA / @@7133=7700 JMP L7113 / @@7134=5313 CMA / @@7135=7040 AND D7160 / @@7136=0360 CIA / @@7137=7041 CMA / @@7140=7040 SNA CLA / @@7141=7650 JMP L7113 / @@7142=5313 CMA / @@7143=7040 AND D7160 / @@7144=0360 DCA D0004 / @@7145=3004 CMA / @@7146=7040 JMP I S7000 / return @@7147=5600 D7150, 0001 / AND L0001 AND D0003 / @@7151=0003 C7152, 1777 / TAD I C7177 D7153, 0005 / AND C0005 C7154, 7600 / 7600 C7155, 0177 / AND C0177 C7156, 0400 / AND I L0000 C7157, 0200 / AND S7000 D7160, 0015 / AND AI5 D7161, 0000 / AND L0000 C7162, C7162, 7430 / SZL CLA / @@7163=7200 C7164, 1201 / TAD L7001 C7165, 1000 / TAD L0000 *7175 C7175, C7175, 7507 / MQA DVI + C7176, C7176, 7474 / SNA SZL OSR C7177, C7177, 7303 / CLA CLL IAC *7200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7200 / / Called from: / 6712 7307 7437 7501 7514 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S7200, 0 / return area DCA D7344 / @@7201=3344 MQA / @@7202=7501 DCA D7343 / @@7203=3343 CLA CLL CMA / AC = 7777 (-0001) @@7204=7340 AND D7343 / @@7205=0343 MQL / @@7206=7421 CMA / @@7207=7040 AND D7344 / @@7210=0344 MQA / @@7211=7501 DCA D7345 / @@7212=3345 MQA / @@7213=7501 CMA / @@7214=7040 AND D7344 / @@7215=0344 MQL / @@7216=7421 CMA / @@7217=7040 AND D7344 / @@7220=0344 CMA / @@7221=7040 AND D7343 / @@7222=0343 MQA / @@7223=7501 DCA D7346 / @@7224=3346 DCA D7347 / @@7225=3347 CMA / @@7226=7040 AND D7343 / @@7227=0343 AND D7344 / @@7230=0344 SNA / @@7231=7450 JMP L7274 / @@7232=5274 MQL / @@7233=7421 L7234, MQA MQL / @@7234=7521 AND D7345 / @@7235=0345 SNA / @@7236=7450 JMP L7244 / @@7237=5244 CLL RAL / @@7240=7104 MQA MQL / @@7241=7521 MQA / @@7242=7501 JMP L7234 / @@7243=5234 L7244, MQA / @@7244=7501 AND D7345 / @@7245=0345 AND C7350 / @@7246=0350 SNA / @@7247=7450 JMP L7253 / @@7250=5253 DCA D7347 / @@7251=3347 JMP L7260 / @@7252=5260 L7253, CLL CML RAR / @@7253=7130 AND D7343 / @@7254=0343 AND D7344 / @@7255=0344 SZA / @@7256=7440 DCA D7347 / @@7257=3347 L7260, MQA / @@7260=7501 DCA D7351 / @@7261=3351 MQA / @@7262=7501 CMA / @@7263=7040 AND D7346 / @@7264=0346 MQL / @@7265=7421 CMA / @@7266=7040 AND D7346 / @@7267=0346 CMA / @@7270=7040 AND D7351 / @@7271=0351 MQA / @@7272=7501 DCA D7346 / @@7273=3346 L7274, CLA CLL CMA / AC = 7777 (-0001) @@7274=7340 AND D7347 / @@7275=0347 SZA CLA / @@7276=7640 CML / @@7277=7020 CMA / @@7300=7040 AND D7346 / @@7301=0346 JMP I S7200 / return @@7302=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7303 / / Called from: / 7027 7121 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7303, 0 / return area MQL / @@7304=7421 CMA / @@7305=7040 AND I C7377 / @@7306=0777 JMS S7200 / @@7307=4200 SNL CLA / @@7310=7620 ISZ S7303 / @@7311=2303 JMP I S7303 / return @@7312=5703 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7313 / / Called from: / 6740 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7313, 0 / return area CLA CLL CMA / AC = 7777 (-0001) @@7314=7340 AND I C7376 / @@7315=0776 SZA CLA / @@7316=7640 CML / @@7317=7020 CMA / @@7320=7040 AND I C7375 / @@7321=0775 SZA CLA / @@7322=7640 CML / @@7323=7020 SZL / @@7324=7430 JMP L7341 / @@7325=5341 CLA CLL CMA / AC = 7777 (-0001) @@7326=7340 AND I C7374 / @@7327=0774 CMA / @@7330=7040 AND I C7373 / @@7331=0773 SZA / @@7332=7440 JMP L7341 / @@7333=5341 CMA / @@7334=7040 AND I C7373 / @@7335=0773 CMA / @@7336=7040 AND I C7374 / @@7337=0774 SZA CLA / @@7340=7640 L7341, JMS I C7352 / long call to S7400 @@7341=4752 JMP I S7313 / return @@7342=5713 D7343, 0000 / AND L0000 D7344, 0000 / AND L0000 D7345, 0000 / AND L0000 D7346, 0000 / AND L0000 D7347, 0000 / AND L0000 C7350, 4000 / JMS L0000 D7351, 0000 / AND L0000 C7352, C7352, 7400 / *7373 C7373, 6763 / 6763 C7374, 6764 / DTXA C7375, 6765 / 6765 C7376, 6762 / DCTA C7377, 7164 / CLL CMA CML RAL *7400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7400 / / Called from: / 7341 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7400, 0 / return area LAS / @@7401=7604 AND C7467 / @@7402=0267 SZA CLA / @@7403=7640 JMP I S7400 / return @@7404=5600 STA / AC = 7777 (-0001) @@7405=7240 AND I C7577 / @@7406=0777 HLT / @@7407=7402 STA / AC = 7777 (-0001) @@7410=7240 AND I C7576 / @@7411=0776 HLT / @@7412=7402 STA / AC = 7777 (-0001) @@7413=7240 AND I C7575 / @@7414=0775 HLT / @@7415=7402 STA / AC = 7777 (-0001) @@7416=7240 AND I C7574 / @@7417=0774 HLT / @@7420=7402 STA / AC = 7777 (-0001) @@7421=7240 AND I C7573 / @@7422=0773 HLT / @@7423=7402 STA / AC = 7777 (-0001) @@7424=7240 AND I C7572 / @@7425=0772 HLT / @@7426=7402 JMP I S7400 / return @@7427=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7430 / / Called from: / 6632 6642 7003 7023 7115 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S7430, 0 / return area CLL RAL / @@7431=7104 SNL / @@7432=7420 JMP L7440 / @@7433=5240 MQL / @@7434=7421 CMA / @@7435=7040 AND C7441 / @@7436=0241 JMS I C7571 / long call to S7200 @@7437=4771 L7440, JMP I S7430 / return @@7440=5630 C7441, 0003 / AND D0003 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7442 / / Called from: / 6743 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7442, 0 / return area LAS / @@7443=7604 AND C7470 / @@7444=0270 SZA CLA / @@7445=7640 JMP I S7442 / return @@7446=5642 CMA / @@7447=7040 AND C7471 / @@7450=0271 JMS S7461 / @@7451=4261 CMA / @@7452=7040 AND C7472 / @@7453=0272 JMS S7461 / @@7454=4261 CMA / @@7455=7040 AND C7473 / @@7456=0273 JMS S7461 / @@7457=4261 JMP I S7442 / return @@7460=5642 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7461 / / Called from: / 7451 7454 7457 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S7461, 0 / return area TLS / Load the TTO from the content of AC4 @@7462=6046 L7463, TSF / Skip if teleprinter flag is a 1. @@7463=6041 JMP L7463 / @@7464=5263 CLA / @@7465=7200 JMP I S7461 / return @@7466=5661 C7467, 4000 / JMS L0000 C7470, 0400 / AND I L0000 C7471, 0215 / AND C7415 C7472, 0212 / AND C7412 C7473, 0324 / AND C7524 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7474 / / Called from: / 7040 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7474, 0 / return area CIA / @@7475=7041 MQL / @@7476=7421 CMA / @@7477=7040 AND I C7570 / @@7500=0770 JMS I C7571 / long call to S7200 @@7501=4771 SMA / @@7502=7500 CIA / @@7503=7041 IAC / @@7504=7001 IAC / @@7505=7001 JMP I S7474 / return @@7506=5674 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7507 / / Called from: / 7125 7132 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7507, 0 / return area CIA / @@7510=7041 MQL / @@7511=7421 CMA / @@7512=7040 AND I C7567 / @@7513=0767 JMS I C7571 / long call to S7200 @@7514=4771 SMA / @@7515=7500 CIA / @@7516=7041 IAC / @@7517=7001 IAC / @@7520=7001 JMP I S7507 / return @@7521=5707 *7567 C7567, 7160 / CLL CMA CML C7570, 7161 / CLL CMA CML IAC C7571, C7571, 7200 / CLA C7572, 6757 / 6757 C7573, 6756 / 6756 C7574, 6754 / 6754 C7575, 6753 / 6753 C7576, 6761 / DTRA C7577, 6760 / 6760 $