TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d6cb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d6cb-pb.bin / Generated 2010 02 19 00:10:29 / 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, 0204 code and 0574 data //////////////////////////////////////////////////////////////////////////////// *4000 C4000, 7200 / CLA C4001, 0000 / AND C0000 STA / AC = 7777 (-0001) @@4002=7240 C4003, 3003 / DCA C0003 TAD I C4021 / @@4004=1621 DCA I C4020 / @@4005=3620 TAD I C4022 / @@4006=1622 DCA I C4017 / @@4007=3617 C4010, 1003 / TAD C0003 SNA CLA / @@4011=7650 JMP L4016 / @@4012=5216 TAD C4014 / @@4013=1214 C4014, 7000 / NOP DCA I C4037 / @@4015=3637 L4016, AND I C4101 / @@4016=0701 C4017, 7300 / CLA CLL C4020, 0461 / AND I C0061 C4021, 6275 / 6275 C4022, 0462 / AND I C0062 C4023, 6356 / 6356 C4024, 0463 / AND I C0063 C4025, 6360 / 6360 C4026, 0464 / AND I C0064 C4027, 6363 / 6363 C4030, 0465 / AND I C0065 C4031, 6366 / 6366 C4032, 0024 / AND C0024 TAD I C4020 / @@4033=1620 AND C4000 / @@4034=0200 C4035, 0004 / AND C0004 C4036, 1020 / TAD C0020 C4037, 1020 / TAD C0020 C4040, 1040 / TAD C0040 C4041, 0067 / AND C0067 C4042, 1000 / TAD C0000 AND D4044 / @@4043=0244 D4044, 1040 / TAD C0040 D4045, 0245 / AND D4045 D4046, 0241 / AND C4041 C4047, 1540 / TAD I C0140 D4050, 0247 / AND C4047 ISZ D4046 / @@4051=2246 C4052, 4011 / JMS AI1 ISZ D4045 / @@4053=2245 AND C4102 / @@4054=0302 C4055, 1540 / TAD I C0140 AND C4047 / @@4056=0247 ISZ D4046 / @@4057=2246 C4060, 4010 / JMS AI0 ISZ D4050 / @@4061=2250 TAD I C4150 / @@4062=1750 TAD I C4170 / @@4063=1770 C4064, 6216 / 6216 TAD I C4151 / @@4065=1751 TAD I C4171 / @@4066=1771 C4067, 1020 / TAD C0020 C4070, 7737 / CLA MQA MQL LSR + C4071, 1140 / TAD C0140 C4072, 0001 / AND C0001 C4073, 0011 / AND AI1 ISZ D4044 / @@4074=2244 TAD I C4020 / @@4075=1620 C4076, 0100 / AND C0100 C4077, 4100 / JMS C0100 C4100, 0000 / AND C0000 C4101, 0451 / AND I C0051 C4102, 6106 / 6106 C4103, 0070 / AND C0070 AND C4071 / @@4104=0271 MKSF / Skip the next instruction if the key @@4105=6111 C4106, 0070 / AND C0070 AND C4073 / @@4107=0273 C4110, 0017 / AND AI7 C4111, 1040 / TAD C0040 AND D4045 / @@4112=0245 AND C4041 / @@4113=0241 C4114, 1540 / TAD I C0140 AND C4047 / @@4115=0247 ISZ D4046 / @@4116=2246 C4117, 4013 / JMS AI3 ISZ D4045 / @@4120=2245 AND C4102 / @@4121=0302 C4122, 1040 / TAD C0040 AND D4045 / @@4123=0245 C4124, 1540 / TAD I C0140 AND C4047 / @@4125=0247 ISZ D4046 / @@4126=2246 C4127, 4012 / JMS AI2 ISZ D4045 / @@4130=2245 AND C4103 / @@4131=0303 C4132, 1540 / TAD I C0140 AND C4047 / @@4133=0247 ISZ D4046 / @@4134=2246 C4135, 4011 / JMS AI1 D4136, 1120 / TAD C0120 C4137, 7737 / CLA MQA MQL LSR + ISZ D4050 / @@4140=2250 TAD I C4150 / @@4141=1750 TAD I C4170 / @@4142=1770 C4143, 6216 / 6216 TAD I C4151 / @@4144=1751 TAD I C4171 / @@4145=1771 C4146, 6216 / 6216 TAD I C4152 / @@4147=1752 C4150, 1772 / TAD I C4172 C4151, 6216 / 6216 C4152, 1753 / TAD I C4153 TAD I C4173 / @@4153=1773 C4154, 1000 / TAD C0000 AND D4044 / @@4155=0244 C4156, 1560 / TAD I C0160 SPA SNA SZL CLA OSR / @@4157=7774 C4160, 1460 / TAD I C0060 C4161, 0003 / AND C0003 RIF / Same as RDF except reads the instruc @@4162=6224 C4163, 1000 / TAD C0000 AND D4044 / @@4164=0244 C4165, 1560 / TAD I C0160 SMA SZA SNL CLA / @@4166=7760 C4167, 1460 / TAD I C0060 C4170, 0017 / AND AI7 C4171, 6235 / 6235 C4172, 1020 / TAD C0020 C4173, 0300 / AND C4100 C4174, 4250 / JMS D4050 C4175, 4001 / JMS C0001 C4176, 0440 / AND I C0040 C4177, 6203 / 6203 C4200, 1020 / TAD C0020 C4201, 0020 / AND C0020 CINT / (KT8/I) Clear user interrupt. Reset @@4202=6204 C4203, 0011 / AND AI1 C4204, 4244 / JMS D4244 C4205, 0415 / AND I AI5 C4206, 6020 / 6020 C4207, 0500 / AND I C0100 KRB / Clear AC, clear keyboard flag, and r @@4210=6036 C4211, 1460 / TAD I C0060 AND C4204 / @@4212=0204 C4213, 6020 / 6020 AND I C4243 / @@4214=0643 C4215, 6016 / 6016 AND C4221 / @@4216=0221 AND C4221 / @@4217=0221 C4220, 0221 / AND C4221 C4221, 0221 / AND C4221 C4222, 0016 / AND AI6 C4223, 6000 / 6000 C4224, 1020 / TAD C0020 C4225, 0077 / AND C0077 C4226, 1140 / TAD C0140 C4227, 0001 / AND C0001 C4230, 1020 / TAD C0020 C4231, 0001 / AND C0001 C4232, 1140 / TAD C0140 AND D4244 / @@4233=0244 C4234, 6042 / TCF C4235, 1000 / TAD C0000 AND D4250 / @@4236=0250 C4237, 1120 / TAD C0120 C4240, 7577 / MQA SCA MQL LSR + C4241, 4250 / JMS D4250 C4242, 4001 / JMS C0001 C4243, 6230 / 6230 D4244, 0000 / AND C0000 C4245, 0000 / AND C0000 AND C4251 / @@4246=0251 C4247, 7761 / CLA MQA SCA MQL D4250, 0000 / AND C0000 C4251, 4136 / JMS C0136 DCA I C4241 / @@4252=3641 C4253, 2101 / ISZ C0101 C4254, 0177 / AND C0177 C4255, 4523 / JMS I C0123 C4256, 2151 / ISZ C0151 C4257, 4122 / JMS C0122 ISZ I C4251 / @@4260=2651 C4261, 2414 / ISZ I AI4 C4262, 0477 / AND I C0077 C4263, 5172 / JMP C0172 AND I C4251 / @@4264=0651 C4265, 1506 / TAD I C0106 C4266, 4225 / JMS C4225 C4267, 4443 / JMS I C0043 C4270, 6050 / 6050 C4271, 0404 / AND I C0004 C4272, 0437 / AND I C0037 C4273, 0404 / AND I C0004 C4274, 0404 / AND I C0004 C4275, 0517 / AND I C0117 C4276, 1560 / TAD I C0160 SMA SZA CLA / @@4277=7740 C4300, 1040 / TAD C0040 AND D4244 / @@4301=0244 TAD I C4220 / @@4302=1620 C4303, 0100 / AND C0100 C4304, 4462 / JMS I C0062 C4305, 1020 / TAD C0020 C4306, 0064 / AND C0064 C4307, 4340 / JMS C4340 C4310, 1020 / TAD C0020 C4311, 6322 / 6322 C4312, 4067 / JMS C0067 C4313, 1020 / TAD C0020 C4314, 0100 / AND C0100 C4315, 1040 / TAD C0040 C4316, 0001 / AND C0001 C4317, 0017 / AND AI7 JMS D4250 / @@4320=4250 TCF / Clear teleprinter flag. @@4321=6042 C4322, 0074 / AND C0074 C4323, 1000 / TAD C0000 C4324, 6462 / 6462 C4325, 0451 / AND I C0051 C4326, 6331 / 6331 AND C4234 / @@4327=0234 C4330, 6324 / 6324 C4331, 0074 / AND C0074 C4332, 1000 / TAD C0000 C4333, 6462 / 6462 C4334, 0471 / AND I C0071 C4335, 6340 / 6340 AND C4234 / @@4336=0234 C4337, 6333 / 6333 C4340, 0064 / AND C0064 C4341, 1000 / TAD C0000 C4342, 6462 / 6462 C4343, 0144 / AND C0144 C4344, 0011 / AND AI1 C4345, 0144 / AND C0144 C4346, 1020 / TAD C0020 AND C4377 / @@4347=0377 C4350, 0144 / AND C0144 C4351, 0017 / AND AI7 C4352, 0144 / AND C0144 AND C4224 / @@4353=0224 C4354, 6342 / 6342 C4355, 6206 / 6206 C4356, 0011 / AND AI1 C4357, 6370 / 6370 C4360, 1020 / TAD C0020 C4361, 0010 / AND AI0 C4362, 6370 / 6370 C4363, 1020 / TAD C0020 C4364, 0020 / AND C0020 C4365, 6370 / 6370 C4366, 1020 / TAD C0020 C4367, 0030 / AND C0030 C4370, 1040 / TAD C0040 AND D4244 / @@4371=0244 C4372, 4464 / JMS I C0064 C4373, 1020 / TAD C0020 C4374, 6407 / 6407 C4375, 4067 / JMS C0067 C4376, 1020 / TAD C0020 C4377, 7600 / 7600 C4400, 4250 / JMS C4450 C4401, 1020 / TAD C0020 C4402, 0014 / AND AI4 C4403, 4001 / JMS C0001 C4404, 0064 / AND C0064 D4405, 1000 / TAD C0000 TCF / Clear teleprinter flag. @@4406=6042 C4407, 1020 / TAD C0020 C4410, 0001 / AND C0001 C4411, 1140 / TAD C0140 AND C4444 / @@4412=0244 C4413, 1560 / TAD I C0160 SPA SNA SZL CLA / @@4414=7770 C4415, 0470 / AND I C0070 C4416, 6424 / T1on C4417, 1020 / TAD C0020 C4420, 0034 / AND C0034 C4421, 1140 / TAD C0140 C4422, 0001 / AND C0001 TCF / Clear teleprinter flag. @@4423=6042 D4424, 1020 / TAD C0020 C4425, 6436 / 6436 C4426, 4340 / JMS C4540 C4427, 2464 / ISZ I C0064 TAD I C4420 / @@4430=1620 C4431, 0100 / AND C0100 C4432, 4462 / JMS I C0062 C4433, 0075 / AND C0075 C4434, 7677 / CLA SCA MQL LSR + C4435, 6322 / 6322 C4436, 6462 / 6462 C4437, 0144 / AND C0144 D4440, 1020 / TAD C0020 AND C4577 / @@4441=0377 C4442, 0144 / AND C0144 C4443, 0017 / AND AI7 C4444, 0144 / AND C0144 C4445, 0011 / AND AI1 C4446, 0144 / AND C0144 AND C4435 / @@4447=0235 C4450, 6457 / 6457 C4451, 1020 / TAD C0020 C4452, 0001 / AND C0001 C4453, 1140 / TAD C0140 C4454, 0464 / AND I C0064 AND D4424 / @@4455=0224 C4456, 6430 / 6430 AND D4424 / @@4457=0224 C4460, 6436 / 6436 C4461, 6206 / 6206 C4462, 0000 / AND C0000 C4463, 6000 / 6000 C4464, 0000 / AND C0000 ISZ D4405 / @@4465=2205 C4466, 1116 / TAD C0116 C4467, 1124 / TAD C0124 C4470, 1101 / TAD C0101 C4471, 1411 / TAD I AI1 DCA D4405 / @@4472=3205 C4473, 4001 / JMS C0001 AND I D4424 / @@4474=0624 C4475, 0522 / AND I C0122 C4476, 4003 / JMS C0003 C4477, 1001 / TAD C0001 TAD I C4416 / @@4500=1616 C4501, 0514 / AND I C0114 C4502, 4016 / JMS AI6 C4503, 2515 / ISZ I C0115 AND D4405 / @@4504=0205 ISZ D4440 / @@4505=2240 C4506, 0411 / AND I AI1 ISZ D4520 / @@4507=2320 C4510, 1401 / TAD I C0001 C4511, 3143 / DCA C0143 C4512, 4714 / JMS I C4514 C4513, 0401 / AND I C0001 C4514, 4011 / JMS AI1 C4515, 4747 / JMS I C4547 C4516, 4757 / JMS I C4557 C4517, 0310 / AND C4510 D4520, 0116 / AND C0116 TAD I D4405 / @@4521=1605 C4522, 1440 / TAD I C0040 TAD I C4425 / @@4523=1625 C4524, 1502 / TAD I C0102 C4525, 0522 / AND I C0122 C4526, 4010 / JMS AI0 TAD I C4522 / @@4527=1722 C4530, 1132 / TAD C0132 TAD I C4516 / @@4531=1716 C4532, 2401 / ISZ I C0001 C4533, 1440 / TAD I C0040 AND C4517 / @@4534=0317 TAD I C4522 / @@4535=1722 C4536, 0411 / AND I AI1 TAD I C4401 / @@4537=1601 C4540, 2405 / ISZ I C0005 C4541, 4347 / JMS C4547 C4542, 6160 / 6160 C4543, 6043 / 6043 C4544, 4723 / JMS I C4523 C4545, 2401 / ISZ I C0001 C4546, 4347 / JMS C4547 C4547, 1061 / TAD C0061 C4550, 4347 / JMS C4547 AND C4517 / @@4551=0317 C4552, 1543 / TAD I C0143 C4553, 4723 / JMS I C4523 C4554, 2403 / ISZ I C0003 C4555, 4726 / JMS I C4526 C4556, 6147 / 6147 C4557, 4757 / JMS I C4557 AND C4510 / @@4560=0310 C4561, 0122 / AND C0122 C4562, 0103 / AND C0103 C4563, 2405 / ISZ I C0005 ISZ D4440 / @@4564=2240 C4565, 0411 / AND I AI1 ISZ D4520 / @@4566=2320 C4567, 1401 / TAD I C0001 C4570, 3140 / DCA C0140 ISZ I D4405 / @@4571=2605 ISZ D4424 / @@4572=2224 C4573, 1103 / TAD C0103 C4574, 0114 / AND C0114 C4575, 4003 / JMS C0003 TAD I C4517 / @@4576=1717 C4577, 2204 / ISZ C4404 C4600, 1116 / TAD C0116 C4601, 0124 / AND C0124 C4602, 0543 / AND I C0143 C4603, 4712 / JMS I C4712 C4604, 1520 / TAD I C0120 D4605, 4705 / JMS I D4705 C4606, 6147 / 6147 C4607, 4757 / JMS I C4757 ISZ D4705 / @@4610=2305 D4611, 2440 / ISZ I C0040 ISZ I C4654 / @@4612=2654 C4613, 1043 / TAD C0043 JMP I C4743 / long jump to L2231 @@4614=5743 C4615, 5724 / JMP I D4724 D4616, 2211 / ISZ D4611 D4617, 0707 / AND I C4707 C4620, 0522 / AND I C0122 C4621, 1116 / TAD C0116 AND I C4740 / @@4622=0740 ISZ D4617 / @@4623=2217 C4624, 2524 / ISZ I C0124 C4625, 1116 / TAD C0116 C4626, 0540 / AND I C0140 C4627, 5005 / JMP C0005 C4630, 2125 / ISZ C0125 D4631, 1126 / TAD C0126 C4632, 0114 / AND C0114 C4633, 0516 / AND I C0116 C4634, 2440 / ISZ I C0040 C4635, 2417 / ISZ I AI7 C4636, 4001 / JMS C0001 C4637, 2524 / ISZ I C0124 TAD I C4740 / @@4640=1740 C4641, 2422 / ISZ I C0022 C4642, 1107 / TAD C0107 D4643, 5440 / JMP I C0040 C4644, 1116 / TAD C0116 C4645, 2405 / ISZ I C0005 ISZ D4616 / @@4646=2216 C4647, 0114 / AND C0114 C4650, 4023 / JMS C0023 C4651, 3116 / DCA C0116 AND C4754 / @@4652=0354 C4653, 4004 / JMS C0004 C4654, 0340 / AND C4740 C4655, C4655, 2017 / ISZ AI7 ISZ D4711 / @@4656=2311 C4657, 2411 / ISZ I AI1 ISZ I D4605 / @@4660=2605 C4661, 5156 / JMP C0156 C4662, 4357 / JMS C4757 C4663, 4301 / JMS C4701 C4664, 6554 / 6554 C4665, 4723 / JMS I C4723 C4666, 0524 / AND I C0124 C4667, 4011 / JMS AI1 C4670, 4761 / JMS I D4761 C4671, 6447 / 6447 C4672, 4757 / JMS I C4757 ISZ D4724 / @@4673=2324 C4674, 0122 / AND C0122 C4675, 2440 / ISZ I C0040 C4676, 2411 / ISZ I AI1 C4677, 1505 / TAD I C0105 ISZ D4643 / @@4700=2243 C4701, 4761 / JMS I D4761 C4702, 6060 / 6060 C4703, 6043 / 6043 C4704, 4712 / JMS I C4712 D4705, 1520 / TAD I C0120 JMS I D4705 / long call to S1520 @@4706=4705 C4707, 6647 / 6647 C4710, 4757 / JMS I C4757 D4711, 0717 / AND I C4717 C4712, 4023 / JMS C0023 C4713, 0115 / AND C0115 C4714, 2014 / ISZ AI4 C4715, 0540 / AND I C0140 AND C4710 / @@4716=0310 C4717, 0116 / AND C0116 TAD I D4605 / @@4720=1605 C4721, 1443 / TAD I C0043 C4722, 4701 / JMS I C4701 C4723, 2017 / ISZ AI7 D4724, 4747 / JMS I C4747 C4725, 4757 / JMS I C4757 C4726, 2017 / ISZ AI7 ISZ D4711 / @@4727=2311 C4730, 2411 / ISZ I AI1 ISZ I D4605 / @@4731=2605 C4732, 7743 / CLA MQA SCA SCL + C4733, 4712 / JMS I C4712 C4734, 1520 / TAD I C0120 C4735, 4756 / JMS I C4756 JMP L4763 / @@4736=5363 C4737, 4747 / JMS I C4747 C4740, 5716 / JMP I C4716 TAD I C4754 / @@4741=1754 C4742, 4024 / JMS C0024 C4743, C4743, 2231 / ISZ D4631 C4744, 4001 / JMS C0001 AND I C4701 / @@4745=0701 C4746, 1116 / TAD C0116 C4747, 4347 / JMS C4747 C4750, 3023 / DCA C0023 TAD C4740 / @@4751=1340 C4752, 1147 / TAD C0147 C4753, 6164 / 6164 C4754, 4747 / JMS I C4747 JMP I D4711 / long jump to L0717 @@4755=5711 TAD I C4603 / @@4756=1603 C4757, 2205 / ISZ D4605 C4760, 1505 / TAD I C0105 D4761, 1624 / TAD I C4624 C4762, 4024 / JMS C0024 L4763, C4763, 1115 / TAD C0115 C4764, 0522 / AND I C0122 C4765, 4347 / JMS C4747 TAD C4615 / @@4766=1215 C4767, 2047 / ISZ C0047 JMP I C4655 / long jump to L2017 @@4770=5655 C4771, 6447 / 6447 C4772, 4757 / JMS I C4757 ISZ I C4701 / @@4773=2701 C4774, 1124 / TAD C0124 C4775, 4347 / JMS C4747 ISZ D4705 / @@4776=2305 C4777, 2440 / ISZ I C0040 $