TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d1da-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d1da-pb.bin / Generated 2010 02 19 00:10:28 / 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 / / 1000 locations used, 0511 code and 0267 data //////////////////////////////////////////////////////////////////////////////// *0000 C0000, 2705 / ISZ I C0105 C0001, 0000 / AND C0000 C0002, 2351 / ISZ D0151 D0003, 0000 / AND C0000 C0004, 0000 / AND C0000 C0005, 0000 / AND C0000 D0006, 0000 / AND C0000 C0007, 0252 / AND L0052 AI0, 0000 / AUTO-INDEX REGISTER AND C0000 AI1, 0000 / AUTO-INDEX REGISTER AND C0000 AI2, 1026 / AUTO-INDEX REGISTER TAD C0026 AI3, 7774 / AUTO-INDEX REGISTER SPA SNA SZL CLA OSR AI4, 0000 / AUTO-INDEX REGISTER AND C0000 AND D0003 / @@0015=0003 AI6, 0240 / AUTO-INDEX REGISTER AND C0040 AI7, 0000 / AUTO-INDEX REGISTER AND C0000 C0020, 6141 / 6141 D0021, 0064 / AND C0064 D0022, 0000 / AND C0000 AND C0065 / @@0023=0065 AND C0000 / @@0024=0000 C0025, 6112 / MKCC C0026, 0516 / AND I C0116 TAD I C0160 / @@0027=1560 SMA SZA CLA / @@0030=7740 JMS D0003 / @@0031=4003 C0032, 0516 / AND I C0116 TAD I C0160 / @@0033=1560 C0034, 7377 / CLA CLL CMA CML IAC RTR RTL C0035, 0450 / AND I C0050 CSCF / When the flag flip-flop has been set @@0036=6133 C0037, 0041 / AND D0041 C0040, 0002 / AND C0002 D0041, 0516 / AND I C0116 D0042, 1560 / TAD I C0160 D0043, 7577 / MQA SCA MQL LSR + D0044, 0450 / AND I C0050 C0045, 6333 / 6333 TAD C0020 / @@0046=1020 AND I C0040 / @@0047=0640 C0050, 2017 / ISZ AI7 TAD C0040 / @@0051=1040 L0052, D0052, 0200 / AND C0000 TAD C0040 / @@0053=1040 AND C0007 / @@0054=0207 JMS D0056 / @@0055=4056 AND C0000 / @@0056=0000 C0057, 0011 / AND AI1 C0060, 1020 / TAD C0020 C0061, 6525 / 6525 AND C0061 / @@0062=0261 TAD D0041 / @@0063=1041 C0064, 1201 / TAD C0001 C0065, 1460 / TAD I C0060 ISZ I C0125 / @@0066=2525 C0067, 6151 / 6151 C0070, 1441 / TAD I D0041 C0071, 6151 / 6151 C0072, 1141 / TAD C0141 C0073, 1460 / TAD I C0060 D0074, 5252 / JMP L0052 C0075, 6151 / 6151 TAD I D0041 / @@0076=1441 C0077, 6151 / 6151 C0100, 0221 / AND D0021 D0101, 6057 / DXS AND C0037 / @@0102=0237 D0103, 1000 / TAD C0000 C0104, 0017 / AND AI7 C0105, 0017 / AND AI7 ISZ D0003 / @@0106=2003 D0107, 2252 / ISZ L0052 AND I C0071 / @@0110=0471 TLS / Load the TTO from the content of AC4 @@0111=6046 D0112, 0077 / AND C0077 AND C0000 / @@0113=0000 C0114, 0225 / AND C0025 C0115, 0016 / AND AI6 C0116, 0516 / AND I C0116 C0117, 1560 / TAD I C0160 C0120, 7677 / CLA SCA MQL LSR + AND I C0050 / @@0121=0450 C0122, 6026 / PLS TAD C0020 / @@0123=1020 D0124, 0207 / AND C0007 C0125, 0500 / AND I C0100 TLS / Load the TTO from the content of AC4 @@0126=6046 AND I C0100 / @@0127=0500 TSF / Skip if teleprinter flag is a 1. @@0130=6041 MTRS / Trasnfer the status of the selection @@0131=6127 PLS / Clear the punch flag, clear the bunc @@0132=6026 AND I C0116 / @@0133=0516 TAD I C0160 / @@0134=1560 SMA SZA CLA / @@0135=7740 AND C0061 / @@0136=0061 DCA I C0177 / @@0137=3777 C0140, 0470 / AND I C0070 C0141, 6146 / 6146 TAD C0040 / @@0142=1040 AND AI7 / AUTO INDEX REGISTER @@0143=0017 JMS D0003 / @@0144=4003 TLS / Load the TTO from the content of AC4 @@0145=6046 AND D0041 / @@0146=0041 AND C0002 / @@0147=0002 C0150, 6000 / 6000 D0151, 4006 / JMS D0006 C0152, 0516 / AND I C0116 AND I C0071 / @@0153=0471 D0154, 0000 / AND C0000 AND D0041 / @@0155=0241 D0156, 0471 / AND I C0071 C0157, 6164 / 6164 C0160, 0241 / AND D0041 AND I C0071 / @@0161=0471 C0162, C0162, 6100 / 6100 DXS / Executes the combined functions of D @@0163=6057 C0164, 1000 / TAD C0000 AND AI0 / AUTO INDEX REGISTER @@0165=0010 AND I C0070 / @@0166=0470 C0167, 6213 / 6213 TAD C0000 / @@0170=1000 AND AI7 / AUTO INDEX REGISTER @@0171=0017 C0172, 6226 / 6226 C0173, 1000 / TAD C0000 L0174, AND C0001 / @@0174=0001 TAD I C0160 / @@0175=1560 C0176, 6000 / 6000 C0177, 6226 / 6226 AND C0000 / @@0200=0000 TAD C0001 / @@0201=1001 C0202, 6226 / 6226 TAD C0000 / @@0203=1000 AND D0006 / @@0204=0006 C0205, 6226 / 6226 C0206, 6316 / 6316 AND C0000 / @@0207=0000 AND I C0116 / @@0210=0516 AND C0241 / @@0211=0241 C0212, 6160 / 6160 AND C0002 / @@0213=0002 CDF0 / Change to data field 0. The data fie @@0214=6201 C0215, 1007 / TAD C0007 DCA AI0 / AUTO INDEX REGISTER @@0216=3010 L0217, TAD I AI0 / AUTO INDEX REGISTER @@0217=1410 SNA / @@0220=7450 C0221, 5224 / JMP L0224 JMS S0325 / @@0222=4325 C0223, 5217 / JMP L0217 L0224, C0224, 6141 / 6141 D0225, 6000 / 6000 AND C0002 / @@0226=0002 DCA AI1 / AUTO INDEX REGISTER @@0227=3011 TAD AI3 / AUTO INDEX REGISTER @@0230=1013 DCA AI4 / AUTO INDEX REGISTER @@0231=3014 L0232, TAD AI2 / AUTO INDEX REGISTER @@0232=1012 L0233, DCA AI0 / AUTO INDEX REGISTER @@0233=3010 TAD AI1 / AUTO INDEX REGISTER @@0234=1011 RAL / @@0235=7004 DCA AI1 / AUTO INDEX REGISTER @@0236=3011 TAD AI0 / AUTO INDEX REGISTER @@0237=1010 L0240, D0240, 7004 / RAL C0241, 7420 / SNL JMP L0233 / @@0242=5233 JMS S0325 / @@0243=4325 ISZ AI4 / AUTO INDEX REGISTER @@0244=2014 JMP L0232 / @@0245=5232 TAD AI6 / AUTO INDEX REGISTER @@0246=1016 JMS S0325 / @@0247=4325 C0250, 6141 / 6141 C0251, 6000 / 6000 AND C0001 / @@0252=0001 AND C0215 / @@0253=0215 C0254, 0212 / AND C0212 AND C0314 / @@0255=0314 AND C0311 / @@0256=0311 AND C0316 / @@0257=0316 AND C0303 / @@0260=0303 AND L0240 / @@0261=0240 AND C0303 / @@0262=0303 AND C0310 / @@0263=0310 AND C0313 / @@0264=0313 AND C0302 / @@0265=0302 AND C0215 / @@0266=0215 AND C0212 / @@0267=0212 AND C0302 / @@0270=0302 AND C0301 / @@0271=0301 AND C0316 / @@0272=0316 AND C0313 / @@0273=0313 AND L0240 / @@0274=0240 AND C0314 / @@0275=0314 AND C0317 / @@0276=0317 AND C0303 / @@0277=0303 AND C0316 / @@0300=0316 C0301, C0301, 0240 / AND L0240 C0302, 0303 / AND C0303 C0303, 0317 / AND C0317 AND C0316 / @@0304=0316 C0305, 0324 / AND D0324 AND L0240 / @@0306=0240 AND C0301 / @@0307=0301 C0310, 0303 / AND C0303 C0311, 0325 / AND S0325 C0312, C0312, 0315 / AND C0315 C0313, 0215 / AND C0215 C0314, 0212 / AND C0212 C0315, 0000 / AND C0000 C0316, 0002 / AND C0002 C0317, 1253 / TAD C0253 JMS S0325 / @@0320=4325 TAD C0254 / @@0321=1254 JMS S0325 / @@0322=4325 C0323, 6141 / 6141 D0324, 6000 / 6000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0325 / / Called from: / 0222 0243 0247 0320 0322 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S0325, 0 / return area TLS / Load the TTO from the content of AC4 @@0326=6046 L0327, D0327, 6041 / TSF JMP L0327 / @@0330=5327 CLA CLL / AC = 0000 @@0331=7300 JMP I S0325 / return @@0332=5725 AND D0044 / @@0333=0044 AND C0000 / @@0334=0000 TAD C0000 / @@0335=1000 AND C0005 / @@0336=0005 C0337, 6226 / 6226 C0340, 6316 / 6316 AND C0070 / @@0341=0070 AND C0000 / @@0342=0000 D0343, 6004 / 6004 JMS D0056 / @@0344=4056 JMP I C0162 / long jump to L6100 @@0345=5562 C0346, 4347 / JMS C0347 TAD I C0004 / @@0347=1404 TAD C0040 / @@0350=1040 TAD C0140 / @@0351=1140 C0352, 6347 / 6347 C0353, 4757 / JMS I C0357 AND D0225 / @@0354=0225 TAD I C0120 / @@0355=1520 C0356, 4020 / JMS C0020 ISZ I D0022 / @@0357=2422 JMS D0024 / @@0360=4024 TAD I C0340 / @@0361=1740 AND C0116 / @@0362=0116 ISZ L0327 / @@0363=2327 AND I C0122 / @@0364=0522 ISZ D0343 / @@0365=2343 JMS I C0312 / long call to S0315 @@0366=4712 TAD I C0120 / @@0367=1520 C0370, 4021 / JMS D0021 AND C0104 / @@0371=0104 C0372, 4347 / JMS C0347 C0373, 4747 / JMS I C0347 JMP I C0301 / long jump to L0240 @@0374=5701 TAD I C0223 / @@0375=1623 ISZ I C0305 / @@0376=2705 ISZ L0240 / @@0377=2240 *4000 CLA / @@4000=7200 SKP / @@4001=7410 C4002, 7240 / STA DCA D0003 / @@4003=3003 TAD I C4021 / @@4004=1621 DCA I C4020 / @@4005=3620 TAD I C4022 / @@4006=1622 DCA I C4017 / @@4007=3617 TAD D0003 / @@4010=1003 SNA CLA / @@4011=7650 JMP L4016 / @@4012=5216 TAD C4014 / @@4013=1214 C4014, 7000 / NOP DCA I D4037 / @@4015=3637 L4016, JMP L4040 / @@4016=5240 C4017, 1725 / TAD I C4125 C4020, 1724 / TAD I C4124 C4021, 4775 / JMS I C4175 C4022, 4776 / JMS I C4176 C4023, 4774 / JMS I C4174 C4024, 3041 / DCA D0041 C4025, 3042 / DCA D0042 C4026, 3043 / DCA D0043 C4027, 3044 / DCA D0044 C4030, 3723 / DCA I C4123 C4031, 7610 / SKP CLA C4032, 1376 / TAD C4176 C4033, 2107 / ISZ D0107 C4034, 2124 / ISZ D0124 C4035, 7770 / SPA SNA SZL CLA C4036, 2577 / ISZ I C0177 D4037, 1722 / TAD I C4122 L4040, C4040, 2623 / ISZ I C4023 JMP L4062 / @@4041=5262 TAD C4014 / @@4042=1214 C4043, 3624 / DCA I C4024 TAD C4014 / @@4044=1214 DCA I C4025 / @@4045=3625 TAD C4014 / @@4046=1214 DCA I C4026 / @@4047=3626 TAD C4014 / @@4050=1214 DCA I C4027 / @@4051=3627 D4052, 1231 / TAD C4031 DCA I C4030 / @@4053=3630 D4054, 1232 / TAD C4032 DCA I C4033 / @@4055=3633 TAD C4032 / @@4056=1232 DCA I C4034 / @@4057=3634 TAD C4035 / @@4060=1235 DCA I C4036 / @@4061=3636 L4062, TAD I C0073 / @@4062=1473 DCA I C0072 / @@4063=3472 C4064, 6141 / 6141 AND I C4043 / @@4065=0643 C4066, 0730 / AND I C4130 CLA CLL CML RAL / @@4067=7324 TAD C0000 / @@4070=1000 D4071, 7400 / TAD I C0060 / @@4072=1460 TAD C4002 / @@4073=1202 CLL IAC / @@4074=7103 TAD C0000 / @@4075=1000 NOP / @@4076=7401 TAD I C0060 / @@4077=1460 C4100, 4373 / JMS C4173 AND I C0067 / @@4101=0467 C4102, 7117 / CLL IAC RTR RTL AND AI1 / AUTO INDEX REGISTER @@4103=0011 DCA D0103 / @@4104=3103 D4105, 5353 / JMP L4153 TAD C0020 / @@4106=1020 D4107, 4020 / JMS C0020 TAD C0040 / @@4110=1040 C4111, 4314 / JMS C4114 TAD C0020 / @@4112=1020 AND I C4120 / @@4113=0720 TAD C0040 / @@4114=1040 TAD C4123 / @@4115=1323 JMP L4126 / @@4116=5326 AND C0002 / @@4117=0002 C4120, 6211 / CDF0 C4121, 7346 / CLA CLL CMA RTL DCA I C4121 / @@4122=3721 C4123, 6201 / CDF0 DCA I C4121 / @@4124=3721 CDF0 / Change to data field 1. The data fie @@4125=6211 L4126, CLA CLL CML IAC RAL / AC = 0003 @@4126=7325 TAD I C4121 / @@4127=1721 C4130, 6141 / 6141 AND I C0070 / @@4131=0470 CLA CLL CML / @@4132=7320 TAD C0020 / @@4133=1020 NOP / @@4134=7000 AND I L4040 / @@4135=0640 TAD C0040 / @@4136=1040 ISZ D4037 / @@4137=2237 TAD C0040 / @@4140=1040 ISZ D4052 / @@4141=2252 TAD C0040 / @@4142=1040 ISZ D4054 / @@4143=2254 TAD C0040 / @@4144=1040 ISZ D4071 / @@4145=2271 TAD C0040 / @@4146=1040 ISZ I D0151 / @@4147=2551 TAD C0040 / @@4150=1040 ISZ D4162 / @@4151=2362 TAD C0040 / @@4152=1040 L4153, ISZ I C4025 / @@4153=2625 TAD C0040 / @@4154=1040 ISZ I C4066 / @@4155=2666 TAD C0040 / @@4156=1040 DCA D0154 / @@4157=3154 TAD C0040 / @@4160=1040 DCA D0156 / @@4161=3156 D4162, 0641 / AND I C4041 TAD C0040 / @@4163=1040 ISZ D0003 / @@4164=2003 TAD C0040 / @@4165=1040 ISZ D0021 / @@4166=2021 TAD C0040 / @@4167=1040 ISZ D4105 / @@4170=2305 TAD C0040 / @@4171=1040 ISZ D4107 / @@4172=2307 TAD C0040 / @@4173=1040 ISZ I C0032 / @@4174=2432 TAD C0040 / @@4175=1040 C4176, 2445 / ISZ I C0045 TAD C0040 / @@4177=1040 ISZ I C0057 / @@4200=2457 TAD C0040 / @@4201=1040 ISZ I C0075 / @@4202=2475 TAD C0040 / @@4203=1040 ISZ I C0114 / @@4204=2514 TAD C0040 / @@4205=1040 ISZ I C0115 / @@4206=2515 TAD C0040 / @@4207=1040 ISZ I C0117 / @@4210=2517 TAD C0040 / @@4211=1040 ISZ I C0125 / @@4212=2525 TAD C0040 / @@4213=1040 DCA I C0150 / @@4214=3550 TAD C0040 / @@4215=1040 DCA I C0152 / @@4216=3552 TAD C0040 / @@4217=1040 DCA I C0162 / @@4220=3562 TAD C0040 / @@4221=1040 DCA I C0164 / @@4222=3564 TAD C0020 / @@4223=1020 AND I C4243 / @@4224=0643 TAD C0040 / @@4225=1040 DCA D4305 / @@4226=3305 C4227, 4063 / JMS C0063 TAD C0020 / @@4230=1020 C4231, 7377 / CLA CLL CMA CML IAC RTR RTL AND I C4240 / @@4232=0640 TAD C0040 / @@4233=1040 ISZ D4367 / @@4234=2367 TAD C0020 / @@4235=1020 C4236, 7577 / MQA SCA MQL LSR + TAD C0040 / @@4237=1040 C4240, 2767 / ISZ I D4367 C4241, 1020 / TAD C0020 C4242, 1727 / TAD I C4327 C4243, 1040 / TAD C0040 ISZ D0074 / @@4244=2074 TAD C0020 / @@4245=1020 AND I C4271 / @@4246=0671 TAD C0040 / @@4247=1040 ISZ D0112 / @@4250=2112 AND I C4242 / @@4251=0642 TAD C0020 / @@4252=1020 AND AI6 / AUTO INDEX REGISTER @@4253=0016 TAD C0040 / @@4254=1040 C4255, 4073 / JMS C0073 TAD C0040 / @@4256=1040 C4257, 4070 / JMS C0070 TAD C0040 / @@4260=1040 C4261, 4065 / JMS C0065 TAD C0040 / @@4262=1040 AND C0064 / @@4263=0064 TAD C0040 / @@4264=1040 C4265, 4036 / JMS C0036 TAD C0040 / @@4266=1040 AND C0035 / @@4267=0035 AND I C4241 / @@4270=0641 C4271, 1040 / TAD C0040 DCA D4307 / @@4272=3307 TAD C0040 / @@4273=1040 DCA D4312 / @@4274=3312 TAD C0040 / @@4275=1040 DCA D4306 / @@4276=3306 AND I C4242 / @@4277=0642 TAD C0020 / @@4300=1020 C4301, 6141 / 6141 TAD C0040 / @@4302=1040 C4303, 4320 / JMS C4320 TAD C0040 / @@4304=1040 D4305, 4261 / JMS C4261 D4306, 1040 / TAD C0040 D4307, 4202 / JMS C4202 D4310, 1040 / TAD C0040 JMS D0022 / @@4311=4022 D4312, 1020 / TAD C0020 CLA CLL / AC = 0000 @@4313=7300 TAD C0040 / @@4314=1040 C4315, 4007 / JMS C0007 JMP L0174 / @@4316=5174 CLA CLL CMA IAC RTL / @@4317=7347 C4320, 0642 / AND I C4242 TAD C0020 / @@4321=1020 SMA SZA SNL CLA OSR / @@4322=7764 AND I C4320 / @@4323=0720 CLA CLL CML / @@4324=7322 AND I C4243 / @@4325=0643 AND I C4320 / @@4326=0720 C4327, 4323 / JMS C4323 AND I C4241 / @@4330=0641 TAD C0020 / @@4331=1020 JMP I C4373 / long jump to L5472 @@4332=5773 TAD C0040 / @@4333=1040 ISZ I C0172 / @@4334=2572 TAD C0020 / @@4335=1020 MTKF / Transfer status of keyboard flags to @@4336=6123 TAD C0040 / @@4337=1040 ISZ I C0173 / @@4340=2573 TAD C0020 / @@4341=1020 AND AI0 / AUTO INDEX REGISTER @@4342=0010 AND C0001 / @@4343=0001 AND C0002 / @@4344=0002 C4345, 4776 / JMS I C4376 C4346, 6141 / 6141 AND I C4243 / @@4347=0643 TAD C0000 / @@4350=1000 AND I C4377 / @@4351=0777 AND C4243 / @@4352=0243 AND AI1 / AUTO INDEX REGISTER @@4353=0011 TAD I C0160 / @@4354=1560 C4355, 7767 / CLA MQA SCA MQL DVI + AND I C4241 / @@4356=0641 TAD C0140 / @@4357=1140 DCA D4310 / @@4360=3310 AND I C4243 / @@4361=0643 AND C0002 / @@4362=0002 CLA CLL / AC = 0000 @@4363=7300 TAD I C4374 / @@4364=1774 RAR / @@4365=7010 CLA RTL / @@4366=7206 D4367, 7006 / RTL TAD I C4375 / @@4370=1775 DCA I C4375 / @@4371=3775 C4372, 4460 / JMS I C0060 C4373, C4373, 5472 / JMP I C0072 C4374, 4777 / JMS I C4377 C4375, 4037 / JMS C0037 DCA D0101 / @@4376=3101 C4377, 0370 / AND C4370 $