TITLE "AUTOMATIC DISASSEMBLY OF decus-12-123a.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-12-123a.bin / Generated 2010 02 19 00:10:20 / 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 / / 0411 locations used, 0217 code and 0172 data //////////////////////////////////////////////////////////////////////////////// *0000 D0000, 7777 / CLA MQA SCA MQL LSR + D0001, 2622 / ISZ I C0022 C0002, 6162 / 6162 C0003, 0322 / AND C0122 C0004, 2400 / ISZ I D0000 C0005, 1770 / TAD I C0170 C0006, 4176 / JMS C0176 AND D0000 / @@0007=0000 AI0, 0000 / AUTO-INDEX REGISTER AND D0000 *0200 D0200, 0000 / AND D0000 D0201, 0000 / AND D0000 D0202, 0000 / AND D0000 CLA CLL IAC RAL / AC = 0002 @@0203=7305 TAD C0306 / @@0204=1306 RDF / Read data field into AC6-8. Bit 0-5 @@0205=6214 DCA D0372 / @@0206=3372 TAD I D0376 / @@0207=1776 AND C0264 / @@0210=0264 TAD C0306 / @@0211=1306 DCA L0342 / @@0212=3342 TAD I D0376 / @@0213=1776 AND C0363 / @@0214=0363 CLL RAL / @@0215=7104 ISZ D0376 / @@0216=2376 TAD I D0376 / @@0217=1776 CIA / @@0220=7041 DCA D0355 / @@0221=3355 TAD I D0376 / @@0222=1776 ISZ D0376 / @@0223=2376 ISZ D0376 / @@0224=2376 ISZ D0376 / @@0225=2376 L0226, DCA D0357 / @@0226=3357 L0227, C0227, 7760 / SMA SZA SNL CLA C0230, 0077 / AND C0077 TAD D0357 / @@0231=1357 DCA D0201 / @@0232=3201 DCA D0351 / @@0233=3351 TAD C0266 / @@0234=1266 DCA D0360 / @@0235=3360 L0236, JMS S0265 / @@0236=4265 TAD D0201 / @@0237=1201 TAD D0355 / @@0240=1355 SNA CLA / @@0241=7650 JMP L0361 / @@0242=5361 JMS S0254 / @@0243=4254 DCA D0200 / @@0244=3200 JMS S0254 / @@0245=4254 CLL RTR / @@0246=7112 C0247, 7012 / RTR TAD D0200 / @@0250=1200 RTR / @@0251=7012 RTR / @@0252=7012 JMP L0236 / @@0253=5236 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0254 / / Called from: / 0243 0245 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0254, 0 / return area TAD I D0201 / @@0255=1601 JMS S0265 / @@0256=4265 TAD I D0201 / @@0257=1601 AND C0262 / @@0260=0262 ISZ D0201 / @@0261=2201 C0262, 7400 / JMP I S0254 / return @@0263=5654 C0264, 0070 / AND C0070 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0265 / / Called from: / 0236 0256 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0265, 0 / return area C0266, 0375 / AND C0375 TAD C0356 / @@0267=1356 SNA / @@0270=7450 JMP L0333 / @@0271=5333 TAD C0356 / @@0272=1356 SNA / @@0273=7450 JMP L0361 / @@0274=5361 TAD C0374 / @@0275=1374 SMA SZA / @@0276=7540 JMP L0341 / @@0277=5341 TAD C0230 / @@0300=1230 SPA / @@0301=7510 JMP L0341 / @@0302=5341 CLL RAL / @@0303=7104 TAD D0202 / @@0304=1202 DCA S0344 / @@0305=3344 C0306, 6201 / CDF0 TAD I S0344 / @@0307=1744 DCA D0320 / @@0310=3320 ISZ S0344 / @@0311=2344 TAD I S0344 / @@0312=1744 DCA D0322 / @@0313=3322 JMS S0344 / @@0314=4344 TAD D0360 / @@0315=1360 C0316, 6141 / 6141 TAD I D0360 / @@0317=1760 D0320, 0000 / AND D0000 TAD I D0360 / @@0321=1760 D0322, 0000 / AND D0000 AND C0002 / @@0323=0002 CLA / @@0324=7200 JMS S0344 / @@0325=4344 ISZ D0351 / @@0326=2351 TAD D0351 / @@0327=1351 TAD C0247 / @@0330=1247 SPA CLA / @@0331=7710 JMP L0342 / @@0332=5342 L0333, DCA D0351 / @@0333=3351 TAD L0227 / @@0334=1227 TAD D0360 / @@0335=1360 SPA / @@0336=7510 JMP L0361 / @@0337=5361 DCA D0360 / @@0340=3360 L0341, CLA CLL / AC = 0000 @@0341=7300 L0342, D0342, 7402 / HLT JMP I S0265 / return @@0343=5665 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0344 / / Called from: / 0314 0325 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0344, 0 / return area C0345, 6141 / 6141 AND C0004 / @@0346=0004 ISZ D0001 / @@0347=2001 C0350, 0061 / AND C0061 D0351, 0000 / AND D0000 AND C0002 / @@0352=0002 DCA D0351 / @@0353=3351 JMP I S0344 / return @@0354=5744 D0355, 0000 / AND D0000 C0356, 7763 / CLA MQA SCA MQL SCL + D0357, 0000 / AND D0000 D0360, 0000 / AND D0000 L0361, KSF / Skip if keyboard flag is a 1. @@0361=6031 JMP L0227 / @@0362=5227 C0363, 7700 / SMA CLA JMP L0371 / @@0364=5371 KCC / Clear AC and clear keyboard flag. @@0365=6032 CLA CLL CMA RAL / AC = 7776 (-0002) @@0366=7344 AND D0201 / @@0367=0201 JMP L0226 / @@0370=5226 L0371, KCC / Clear AC and clear keyboard flag. @@0371=6032 D0372, 7402 / HLT JMP I D0376 / long jump to L0000 @@0373=5776 C0374, 7673 / CLA SCA MQL SHL + C0375, 0177 / AND C0177 D0376, 0000 / AND D0000 JMS D0202 / @@0377=4202 D0400, 0000 / AND D0000 C0401, 0000 / AND D0000 SMA / @@0402=7500 AND D0000 / @@0403=0000 C0404, 6000 / 6000 C0405, 0060 / AND C0060 SNL CLA OSR / @@0406=7624 C0407, 2476 / ISZ I C0076 JMP I C0521 / long jump to L7710 @@0410=5721 C0411, 4671 / JMS I C0471 C0412, 6661 / LSD C0413, 4333 / JMS C0533 C0414, 5166 / JMP C0166 C0415, 0526 / AND I C0126 C0416, 6000 / 6000 AND D0000 / @@0417=0000 DCA I D0400 / @@0420=3600 C0421, 0041 / AND C0041 C0422, 4100 / JMS C0100 C0423, 0036 / AND C0036 C0424, 2050 / ISZ C0050 C0425, 0050 / AND C0050 AND I C0004 / @@0426=0404 C0427, 0437 / AND I C0037 C0430, 0500 / AND I C0100 AND C0006 / @@0431=0006 AND I C0004 / @@0432=0404 AND I C0004 / @@0433=0404 C0434, 0100 / AND C0100 AND D0000 / @@0435=0000 AND I C0401 / @@0436=0601 C0437, 4030 / JMS C0030 C0440, 4536 / JMS I C0136 D0441, 3651 / DCA I C0451 C0442, 2101 / ISZ C0101 C0443, 0177 / AND C0177 C0444, 4523 / JMS I C0123 C0445, 2151 / ISZ C0151 C0446, 4122 / JMS C0122 ISZ I C0451 / @@0447=2651 C0450, 2414 / ISZ I AI4 C0451, 0477 / AND I C0077 C0452, 5172 / JMP C0172 AND I C0451 / @@0453=0651 C0454, 1506 / TAD I C0106 C0455, 4225 / JMS C0425 C0456, 4443 / JMS I C0043 C0457, 6050 / 6050 C0460, 5126 / JMP C0126 ISZ I C0451 / @@0461=2651 C0462, 5122 / JMP C0122 DCA I C0451 / @@0463=3651 ISZ D0400 / @@0464=2200 AND D0000 / @@0465=0000 C0466, 4601 / JMS I C0401 AND D0000 / @@0467=0000 ISZ I AI0 / AUTO INDEX REGISTER @@0470=2410 C0471, 0042 / AND C0042 TAD C0412 / @@0472=1212 TAD C0412 / @@0473=1212 JMS D0400 / @@0474=4200 C0475, 1024 / TAD C0024 C0476, 4020 / JMS C0020 D0477, 2055 / ISZ C0055 C0500, 5157 / JMP C0157 C0501, 7747 / CLA MQA SCA DVI + C0502, 4477 / JMS I C0077 SMA SZA CLA OSR / @@0503=7744 C0504, 5177 / JMP C0177 ISZ I C0451 / @@0505=2651 C0506, 4136 / JMS C0136 ISZ D0441 / @@0507=2241 C0510, 4177 / JMS C0177 DCA I D0441 / @@0511=3641 C0512, 4577 / JMS I C0177 C0513, 4145 / JMS C0145 C0514, 4477 / JMS I C0077 C0515, 4044 / JMS C0044 C0516, 4136 / JMS C0136 ISZ I C0445 / @@0517=2645 C0520, 1077 / TAD C0077 C0521, C0521, 7710 / SPA CLA C0522, 7741 / CLA MQA SCA C0523, 0041 / AND C0041 C0524, 4142 / JMS C0142 C0525, 4076 / JMS C0076 C0526, 1077 / TAD C0077 C0527, 4324 / JMS C0524 C0530, 0177 / AND C0177 AND C0501 / @@0531=0301 C0532, 3077 / DCA C0077 SPA SZL CLA / @@0533=7730 C0534, 3077 / DCA C0077 SMA CLA OSR HLT / @@0535=7706 C0536, 4177 / JMS C0177 C0537, 7741 / CLA MQA SCA C0540, 4477 / JMS I C0077 C0541, 3044 / DCA C0044 C0542, 4276 / JMS C0476 AND C0576 / @@0543=0376 C0544, 4477 / JMS I C0077 C0545, 3146 / DCA C0146 C0546, 5121 / JMP C0121 C0547, 4651 / JMS I C0451 C0550, 4040 / JMS C0040 C0551, 4077 / JMS C0077 C0552, 0177 / AND C0177 CLA MQA / @@0553=7701 C0554, 0176 / AND C0176 HLT / @@0555=7402 AND I D0477 / @@0556=0677 CLA MQA / @@0557=7701 C0560, 1463 / TAD I C0063 C0561, 6314 / 6314 AND I C0570 / @@0562=0770 IAC RTL / @@0563=7007 C0564, 4543 / JMS I C0143 C0565, 6151 / 6151 SMA CLA / @@0566=7700 C0567, 0041 / AND C0041 C0570, 3040 / DCA C0040 C0571, 0106 / AND C0106 C0572, 4100 / JMS C0100 C0573, 0077 / AND C0077 SMA SNL CLA / @@0574=7720 C0575, 0020 / AND C0020 C0576, 1604 / TAD I C0404 AND I C0004 / @@0577=0404 $