TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d6ba-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d6ba-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 / / 1400 locations used, 0261 code and 1117 data //////////////////////////////////////////////////////////////////////////////// *4000 CLA / @@4000=7200 SKP / @@4001=7410 STA / AC = 7777 (-0001) @@4002=7240 C4003, 3003 / DCA C0003 C4004, 1473 / TAD I C0073 C4005, 3472 / DCA I C0072 C4006, 6141 / 6141 AND I C4047 / @@4007=0647 C4010, 0000 / AND C0000 C4011, 0000 / AND C0000 C4012, 0000 / AND C0000 C4013, 0000 / AND C0000 SPA SNA SZL CLA / @@4014=7770 C4015, 1120 / TAD C0120 SPA SNA SZL CLA / @@4016=7770 C4017, 0470 / AND I C0070 C4020, 1020 / TAD C0020 C4021, 0001 / AND C0001 C4022, 4660 / JMS I C4060 C4023, 0077 / AND C0077 C4024, 7477 / SCA MQL LSR + C4025, 6621 / DFSE C4026, 6030 / 6030 C4027, 6400 / 6400 C4030, 6100 / 6100 CIF0 / Prepare to change to instruction fie @@4031=6232 C4032, 6641 / 6641 C4033, 6025 / 6025 C4034, 6027 / 6027 ISZ D4071 / @@4035=2271 C4036, 1040 / TAD C0040 C4037, 2551 / ISZ I C0151 C4040, 1040 / TAD C0040 C4041, 2362 / ISZ D4162 C4042, 1040 / TAD C0040 ISZ I C4025 / @@4043=2625 C4044, 1040 / TAD C0040 ISZ I C4066 / @@4045=2666 C4046, 1040 / TAD C0040 C4047, 3154 / DCA C0154 C4050, 1040 / TAD C0040 C4051, 3156 / DCA C0156 AND I C4041 / @@4052=0641 C4053, 1040 / TAD C0040 C4054, 2003 / ISZ C0003 C4055, 1040 / TAD C0040 C4056, 2021 / ISZ C0021 C4057, 1040 / TAD C0040 C4060, 2304 / ISZ D4104 C4061, 1040 / TAD C0040 ISZ D4106 / @@4062=2306 C4063, 1040 / TAD C0040 C4064, 2432 / ISZ I C0032 C4065, 1040 / TAD C0040 C4066, 2445 / ISZ I C0045 C4067, 1040 / TAD C0040 C4070, 2466 / ISZ I C0066 D4071, 1040 / TAD C0040 C4072, 2475 / ISZ I C0075 C4073, 1040 / TAD C0040 C4074, 2514 / ISZ I C0114 C4075, 1040 / TAD C0040 C4076, 2515 / ISZ I C0115 C4077, 1040 / TAD C0040 C4100, 1000 / TAD C0000 C4101, 0000 / AND C0000 C4102, 1060 / TAD C0060 C4103, 0000 / AND C0000 D4104, 1020 / TAD C0020 C4105, 0010 / AND AI0 D4106, 4134 / JMS C0134 C4107, 0062 / AND C0062 C4110, 0000 / AND C0000 C4111, 6135 / 6135 C4112, 1000 / TAD C0000 C4113, 0002 / AND C0002 TAD I C4060 / @@4114=1660 C4115, 0100 / AND C0100 C4116, 1560 / TAD I C0160 7600 / AKA "CLA" @@4117=7600 C4120, 0470 / AND I C0070 C4121, 6206 / 6206 C4122, 1000 / TAD C0000 C4123, 0002 / AND C0002 C4124, 1120 / TAD C0120 C4125, 0004 / AND C0004 C4126, 1040 / TAD C0040 C4127, 0002 / AND C0002 C4130, 1460 / TAD I C0060 C4131, 1000 / TAD C0000 MKSF / Skip the next instruction if the key @@4132=6111 C4133, 6103 / 6103 C4134, 0000 / AND C0000 C4135, 1000 / TAD C0000 C4136, 0000 / AND C0000 C4137, 1060 / TAD C0060 C4140, 0000 / AND C0000 C4141, 1020 / TAD C0020 AND C4170 / @@4142=0370 C4143, 2134 / ISZ C0134 C4144, 0142 / AND C0142 C4145, 1000 / TAD C0000 C4146, 0002 / AND C0002 C4147, 0017 / AND AI7 C4150, 4002 / JMS C0002 C4151, 1020 / TAD C0020 AND C4167 / @@4152=0367 C4153, 2134 / ISZ C0134 C4154, 0142 / AND C0142 C4155, 1000 / TAD C0000 C4156, 0002 / AND C0002 C4157, 0017 / AND AI7 C4160, 4002 / JMS C0002 C4161, 1020 / TAD C0020 D4162, 0570 / AND I C0170 C4163, 2134 / ISZ C0134 C4164, 0142 / AND C0142 C4165, 1000 / TAD C0000 C4166, 0002 / AND C0002 C4167, 0017 / AND AI7 C4170, 4002 / JMS C0002 C4171, 1020 / TAD C0020 C4172, 0167 / AND C0167 C4173, 2134 / ISZ C0134 C4174, 0142 / AND C0142 C4175, 1000 / TAD C0000 C4176, 0002 / AND C0002 C4177, 0017 / AND AI7 C4200, 4002 / JMS C0002 C4201, 1020 / TAD C0020 AND I C4367 / @@4202=0767 C4203, 2134 / ISZ C0134 C4204, 0142 / AND C0142 C4205, 6140 / 6140 C4206, 1000 / TAD C0000 C4207, 0000 / AND C0000 C4210, 1060 / TAD C0060 C4211, 0000 / AND C0000 C4212, 1020 / TAD C0020 C4213, 0020 / AND C0020 C4214, 4134 / JMS C0134 C4215, 6135 / 6135 C4216, 0011 / AND AI1 C4217, 1020 / TAD C0020 SPA SNA SZL CLA OSR / @@4220=7774 TAD C4200 / @@4221=1200 C4222, 0134 / AND C0134 C4223, 1460 / TAD I C0060 SPA SNA SZL CLA OSR / @@4224=7774 C4225, 6215 / 6215 C4226, 1020 / TAD C0020 C4227, 0010 / AND AI0 C4230, 4134 / JMS C0134 CDF0 / Change to data field 1. The data fie @@4231=6211 C4232, 1000 / TAD C0000 C4233, 0000 / AND C0000 C4234, 1060 / TAD C0060 C4235, 0000 / AND C0000 C4236, 0011 / AND AI1 C4237, 4134 / JMS C0134 CIF0 / Prepare to change to instruction fie @@4240=6262 C4241, 6301 / 6301 C4242, 1000 / TAD C0000 D4243, 0134 / AND C0134 TAD I C4260 / @@4244=1660 C4245, 0100 / AND C0100 C4246, 1560 / TAD I C0160 7600 / AKA "CLA" @@4247=7600 C4250, 0470 / AND I C0070 C4251, 6325 / 6325 C4252, 1020 / TAD C0020 C4253, 0004 / AND C0004 C4254, 1140 / TAD C0140 C4255, 0134 / AND C0134 C4256, 1460 / TAD I C0060 C4257, 1000 / TAD C0000 C4260, 6241 / CDF0 C4261, 6235 / 6235 C4262, 1000 / TAD C0000 C4263, 0000 / AND C0000 C4264, 1060 / TAD C0060 C4265, 0000 / AND C0000 C4266, 0062 / AND C0062 C4267, 0000 / AND C0000 C4270, 0063 / AND C0063 C4271, 0177 / AND C0177 C4272, 0064 / AND C0064 AND C4377 / @@4273=0377 C4274, 0065 / AND C0065 C4275, 0577 / AND I C0177 C4276, 0066 / AND C0066 AND I C4377 / @@4277=0777 C4300, 6265 / 6265 C4301, 1000 / TAD C0000 C4302, 0000 / AND C0000 C4303, 1060 / TAD C0060 D4304, 0000 / AND C0000 C4305, 1000 / TAD C0000 C4306, 0134 / AND C0134 C4307, 0142 / AND C0142 C4310, 0017 / AND AI7 C4311, 0146 / AND C0146 C4312, 1000 / TAD C0000 C4313, 0134 / AND C0134 C4314, 1120 / TAD C0120 AND C4200 / @@4315=0200 C4316, 0143 / AND C0143 C4317, 0017 / AND AI7 C4320, 0145 / AND C0145 C4321, 1000 / TAD C0000 C4322, 0134 / AND C0134 C4323, 0144 / AND C0144 C4324, 6304 / 6304 C4325, 1000 / TAD C0000 C4326, 0000 / AND C0000 C4327, 1060 / TAD C0060 C4330, 0000 / AND C0000 D4331, 0075 / AND C0075 SPA SNA SZL CLA HLT / @@4332=7772 C4333, 1020 / TAD C0020 AND I C4367 / @@4334=0767 C4335, 4343 / JMS C4343 C4336, 0067 / AND C0067 SPA SNA SZL CLA HLT / @@4337=7772 C4340, 0070 / AND C0070 C4341, 0001 / AND C0001 C4342, 1020 / TAD C0020 AND I C4367 / @@4343=0767 C4344, 1170 / TAD C0170 AND C4227 / @@4345=0227 C4346, 6342 / 6342 C4347, 6301 / 6301 C4350, 1020 / TAD C0020 C4351, 0004 / AND C0004 C4352, 4343 / JMS C4343 AND C4235 / @@4353=0235 C4354, 6336 / 6336 CIF0 / Prepare to change to instruction fie @@4355=6262 C4356, 6330 / 6330 ISZ D4243 / @@4357=2243 ISZ D4304 / @@4360=2304 C4361, 0503 / AND I C0103 TAD I C4370 / @@4362=1770 C4363, 5447 / JMP I C0047 C4364, 6047 / 6047 C4365, 4757 / JMS I C4357 AND C4317 / @@4366=0317 C4367, 1626 / TAD I C4226 C4370, 0522 / AND I C0122 C4371, 2440 / ISZ I C0040 C4372, 0140 / AND C0140 ISZ D4331 / @@4373=2331 C4374, 1502 / TAD I C0102 TAD I C4314 / @@4375=1714 C4376, 4016 / JMS AI6 C4377, 2515 / ISZ I C0115 C4400, 0077 / AND C0077 C4401, 0000 / AND C0000 DFSE / Skip next instruction if the complet @@4402=6621 C4403, 6405 / 6405 CLL IAC / @@4404=7103 C4405, 0075 / AND C0075 AND I C4466 / @@4406=0666 C4407, 1035 / TAD C0035 C4410, 4013 / JMS AI3 C4411, 1035 / TAD C0035 C4412, 4012 / JMS AI2 C4413, 1035 / TAD C0035 C4414, 4011 / JMS AI1 C4415, 1035 / TAD C0035 C4416, 4010 / JMS AI0 C4417, 4661 / JMS I C4461 C4420, 0067 / AND C0067 AND I C4462 / @@4421=0662 C4422, 0074 / AND C0074 C4423, 7773 / CLA MQA SCA MQL SHL + C4424, 1035 / TAD C0035 C4425, 0016 / AND AI6 C4426, 1075 / TAD C0075 C4427, 1035 / TAD C0035 C4430, 1075 / TAD C0075 AND C4434 / @@4431=0234 T1on / (Data Communications System 680/I) C @@4432=6424 C4433, 4662 / JMS I C4462 C4434, 0075 / AND C0075 C4435, 7771 / CLA MQA SCA MQL NMI C4436, 0004 / AND C0004 ISZ I C4500 / @@4437=2700 C4440, 4001 / JMS C0001 ISZ I C4502 / @@4441=2702 TAD I C4572 / @@4442=1772 C4443, 1020 / TAD C0020 C4444, 0010 / AND AI0 C4445, 2001 / ISZ C0001 JMS I C4500 / long call to S4702 @@4446=4700 ISZ I C4510 / @@4447=2710 TAD I C4420 / @@4450=1620 C4451, 4000 / JMS C0000 C4452, 4001 / JMS C0001 ISZ I C4512 / @@4453=2712 TAD I C4570 / @@4454=1770 C4455, 1020 / TAD C0020 C4456, 0010 / AND AI0 C4457, 2001 / ISZ C0001 C4460, 4710 / JMS I C4510 C4461, 0235 / AND C4435 C4462, 6437 / 6437 ISZ I C4462 / @@4463=2662 C4464, 0470 / AND I C0070 PLPR / Plotter pen right. @@4465=6511 C4466, 0075 / AND C0075 SMA SZA SNL CLA OSR HLT / @@4467=7766 C4470, 0011 / AND AI1 C4471, 4662 / JMS I C4462 ISZ I C4477 / @@4472=2677 C4473, 2661 / ISZ I C4461 C4474, C4474, 4700 / JMS I C4500 C4475, 2701 / ISZ I C4501 C4476, 1120 / TAD C0120 C4477, 7737 / CLA MQA MQL LSR + C4500, C4500, 4702 / JMS I C4502 C4501, 2707 / ISZ I C4507 C4502, 2661 / ISZ I C4461 C4503, 4710 / JMS I C4510 C4504, 2711 / ISZ I C4511 C4505, 1120 / TAD C0120 C4506, 7737 / CLA MQA MQL LSR + C4507, 4712 / JMS I C4512 C4510, 6437 / 6437 C4511, 0075 / AND C0075 C4512, 7771 / CLA MQA SCA MQL NMI C4513, 0076 / AND C0076 C4514, 7737 / CLA MQA MQL LSR + AND C4436 / @@4515=0236 C4516, 6515 / 6515 C4517, 1020 / TAD C0020 AND C4400 / @@4520=0200 C4521, 0004 / AND C0004 C4522, 4662 / JMS I C4462 ISZ I C4474 / @@4523=2674 TAD I C4420 / @@4524=1620 C4525, 4000 / JMS C0000 C4526, 4001 / JMS C0001 ISZ I C4476 / @@4527=2676 TAD I C4573 / @@4530=1773 C4531, 1020 / TAD C0020 C4532, 0020 / AND C0020 C4533, 2001 / ISZ C0001 JMS I C4474 / long call to S4700 @@4534=4674 ISZ I C4504 / @@4535=2704 C4536, 4001 / JMS C0001 ISZ I C4506 / @@4537=2706 TAD I C4571 / @@4540=1771 C4541, 1020 / TAD C0020 C4542, 0020 / AND C0020 C4543, 2001 / ISZ C0001 C4544, 4704 / JMS I C4504 AND C4435 / @@4545=0235 C4546, 6523 / 6523 ISZ I C4462 / @@4547=2662 C4550, 0470 / AND I C0070 C4551, 6577 / 6577 C4552, 0075 / AND C0075 SMA SZA SNL CLA OSR HLT / @@4553=7766 C4554, 0011 / AND AI1 C4555, 4662 / JMS I C4462 ISZ I C4473 / @@4556=2673 ISZ I C4461 / @@4557=2661 ISZ I C4461 / @@4560=2661 JMS I C4474 / long call to S4700 @@4561=4674 ISZ I C4475 / @@4562=2675 C4563, 1120 / TAD C0120 C4564, 7737 / CLA MQA MQL LSR + C4565, 4676 / JMS I C4476 ISZ I C4503 / @@4566=2703 ISZ I C4461 / @@4567=2661 C4570, 2661 / ISZ I C4461 C4571, 4704 / JMS I C4504 C4572, 2705 / ISZ I C4505 C4573, 1120 / TAD C0120 C4574, 7737 / CLA MQA MQL LSR + C4575, 4706 / JMS I C4506 C4576, 6523 / 6523 C4577, 1000 / TAD C0000 C4600, 0661 / AND I C4661 C4601, 0450 / AND I C0050 C4602, 6614 / 6614 C4603, 1020 / TAD C0020 C4604, 0004 / AND C0004 C4605, 4661 / JMS I C4661 C4606, 1020 / TAD C0020 C4607, 1127 / TAD C0127 C4610, 4425 / JMS I C0025 C4611, 0075 / AND C0075 AND I C4672 / @@4612=0672 C4613, 6420 / 6420 C4614, 1020 / TAD C0020 C4615, 0016 / AND AI6 C4616, 4425 / JMS I C0025 C4617, 6641 / 6641 TTI / Causes a JMS to be executed (N+3) if @@4620=6402 C4621, 1000 / TAD C0000 C4622, 0000 / AND C0000 C4623, 4640 / JMS I C4640 C4624, 7136 / CLL CML RTR RTL C4625, 1000 / TAD C0000 AND I C4660 / @@4626=0660 C4627, 0470 / AND I C0070 C4630, 6640 / 6640 AND C4637 / @@4631=0237 C4632, 6640 / 6640 C4633, 1000 / TAD C0000 AND I C4640 / @@4634=0640 C4635, 1120 / TAD C0120 C4636, 0001 / AND C0001 C4637, 4640 / JMS I C4640 C4640, 0000 / AND C0000 D4641, 1000 / TAD C0000 C4642, 0000 / AND C0000 C4643, 4657 / JMS I C4657 C4644, 0415 / AND I AI5 C4645, 6000 / 6000 C4646, 0500 / AND I C0100 KRB / Clear AC, clear keyboard flag, and r @@4647=6036 C4650, 1460 / TAD I C0060 AND C4706 / @@4651=0306 C4652, 6656 / 6656 C4653, 0011 / AND AI1 C4654, 4660 / JMS I C4660 C4655, 6657 / 6657 C4656, 4660 / JMS I C4660 C4657, 0000 / AND C0000 C4660, 0000 / AND C0000 C4661, 0000 / AND C0000 C4662, 0000 / AND C0000 C4663, 0010 / AND AI0 C4664, 0004 / AND C0004 C4665, 0010 / AND AI0 C4666, 0004 / AND C0004 AND I C4712 / @@4667=0712 AND I C4750 / @@4670=0750 C4671, 1006 / TAD C0006 C4672, 1044 / TAD C0044 C4673, 0450 / AND I C0050 C4674, 0000 / AND C0000 AND C4740 / @@4675=0340 C4676, 0000 / AND C0000 C4677, 0010 / AND AI0 D4700, 0000 / AND C0000 C4701, 0340 / AND C4740 D4702, 0000 / AND C0000 C4703, 0010 / AND AI0 C4704, 0000 / AND C0000 C4705, 7477 / SCA MQL LSR + C4706, 0000 / AND C0000 AND I C4600 / @@4707=0600 D4710, 0000 / AND C0000 C4711, 7477 / SCA MQL LSR + C4712, 0000 / AND C0000 C4713, 4136 / JMS C0136 C4714, 1077 / TAD C0077 C4715, 4477 / JMS I C0077 C4716, 3077 / DCA C0077 C4717, 0000 / AND C0000 C4720, 2101 / ISZ C0101 C4721, 4477 / JMS I C0077 C4722, 0177 / AND C0177 C4723, 0177 / AND C0177 C4724, 0177 / AND C0177 C4725, 0000 / AND C0000 C4726, 5121 / JMP C0121 C4727, 7741 / CLA MQA SCA C4730, 4543 / JMS I C0143 C4731, 4577 / JMS I C0177 ISZ D4641 / @@4732=2241 SPA CLA / @@4733=7710 SMA SZA CLA OSR / @@4734=7744 SMA CLA OSR HLT / @@4735=7706 C4736, 0000 / AND C0000 C4737, 0177 / AND C0177 C4740, 4044 / JMS C0044 CLA MQA / @@4741=7701 AND C4701 / @@4742=0301 AND C4701 / @@4743=0301 C4744, 0000 / AND C0000 C4745, 4651 / JMS I C4651 C4746, 0041 / AND C0041 C4747, 6151 / 6151 C4750, 4145 / JMS C0145 C4751, 4136 / JMS C0136 C4752, 1077 / TAD C0077 C4753, 4477 / JMS I C0077 C4754, 3077 / DCA C0077 C4755, 0000 / AND C0000 C4756, 4136 / JMS C0136 C4757, 1077 / TAD C0077 C4760, 4477 / JMS I C0077 C4761, 0177 / AND C0177 C4762, 4477 / JMS I C0077 C4763, 0000 / AND C0000 C4764, 5121 / JMP C0121 C4765, 7741 / CLA MQA SCA C4766, 4543 / JMS I C0143 C4767, 4577 / JMS I C0177 ISZ D4641 / @@4770=2241 SPA CLA / @@4771=7710 SMA SZA CLA OSR / @@4772=7744 SMA CLA OSR HLT / @@4773=7706 C4774, 0000 / AND C0000 DCA I D4641 / @@4775=3641 SPA CLA / @@4776=7710 SMA SZA CLA OSR / @@4777=7744 AND C5101 / @@5000=0301 C5001, 4044 / JMS C0044 L5002, C5002, 0000 / AND C0000 C5003, 4651 / JMS I C5051 C5004, 0041 / AND C0041 C5005, 6151 / 6151 C5006, 4145 / JMS C0145 C5007, 4136 / JMS C0136 L5010, C5010, 1077 / TAD C0077 C5011, 4477 / JMS I C0077 C5012, 3077 / DCA C0077 C5013, 0000 / AND C0000 C5014, 4136 / JMS C0136 C5015, 4477 / JMS I C0077 C5016, 0177 / AND C0177 C5017, 0177 / AND C0177 C5020, 0177 / AND C0177 C5021, 0000 / AND C0000 C5022, 5121 / JMP C0121 C5023, 7741 / CLA MQA SCA C5024, 4543 / JMS I C0143 C5025, 4577 / JMS I C0177 ISZ D5041 / @@5026=2241 SPA CLA / @@5027=7710 SMA SZA CLA OSR / @@5030=7744 SMA CLA OSR HLT / @@5031=7706 C5032, 0000 / AND C0000 DCA I D5041 / @@5033=3641 C5034, 4044 / JMS C0044 C5035, 7701 / CLA MQA AND C5101 / @@5036=0301 AND C5101 / @@5037=0301 C5040, 0000 / AND C0000 D5041, 4651 / JMS I C5051 C5042, 0041 / AND C0041 C5043, 6151 / 6151 C5044, 4145 / JMS C0145 C5045, 4136 / JMS C0136 C5046, 1077 / TAD C0077 C5047, 4477 / JMS I C0077 C5050, 3077 / DCA C0077 C5051, 0000 / AND C0000 C5052, 2101 / ISZ C0101 C5053, 1077 / TAD C0077 C5054, 4477 / JMS I C0077 C5055, 0177 / AND C0177 C5056, 4477 / JMS I C0077 C5057, 0000 / AND C0000 C5060, 5121 / JMP C0121 C5061, 7741 / CLA MQA SCA C5062, 4543 / JMS I C0143 C5063, 4577 / JMS I C0177 ISZ D5041 / @@5064=2241 SPA CLA / @@5065=7710 SMA SZA CLA OSR / @@5066=7744 SMA CLA OSR HLT / @@5067=7706 C5070, 0000 / AND C0000 C5071, 0177 / AND C0177 SPA CLA / @@5072=7710 SMA SZA CLA OSR / @@5073=7744 AND C5101 / @@5074=0301 C5075, 4044 / JMS C0044 C5076, 0000 / AND C0000 C5077, 4651 / JMS I C5051 C5100, 0041 / AND C0041 C5101, 6151 / 6151 C5102, 4145 / JMS C0145 C5103, 0077 / AND C0077 C5104, 6377 / 6377 DFSE / Skip next instruction if the complet @@5105=6621 CLL RAR / @@5106=7110 C5107, 6023 / 6023 C5110, 0073 / AND C0073 AND C5177 / @@5111=0377 C5112, 0074 / AND C0074 / @@5113=7400 C5114, 0075 / AND C0075 NOP / @@5115=7000 C5116, 0061 / AND C0061 C5117, 0000 / AND C0000 C5120, 1020 / TAD C0020 SPA SNA SZL CLA OSR HLT / @@5121=7776 C5122, 1140 / TAD C0140 C5123, 0013 / AND AI3 C5124, 0161 / AND C0161 C5125, 1020 / TAD C0020 C5126, 0001 / AND C0001 C5127, 1140 / TAD C0140 C5130, 0014 / AND AI4 C5131, 0141 / AND C0141 AND C5035 / @@5132=0235 STL / @@5133=7120 C5134, 6641 / 6641 CLL IAC RAL / @@5135=7105 C5136, 0440 / AND I C0040 C5137, 6000 / 6000 C5140, 0075 / AND C0075 AND I C5101 / @@5141=0701 C5142, 0076 / AND C0076 CLA CLL / AC = 0000 @@5143=7300 AND I C5043 / @@5144=0643 C5145, 6015 / 6015 C5146, 1460 / TAD I C0060 C5147, 0001 / AND C0001 C5150, 0000 / AND C0000 TAD C5100 / @@5151=1300 C5152, 5154 / JMP C0154 C5153, 0467 / AND I C0067 JMP L5002 / @@5154=5202 C5155, 1460 / TAD I C0060 C5156, 0002 / AND C0002 C5157, 0000 / AND C0000 TAD C5100 / @@5160=1300 C5161, 5163 / JMP C0163 C5162, 0467 / AND I C0067 C5163, 2504 / ISZ I C0104 C5164, 1460 / TAD I C0060 C5165, 0004 / AND C0004 C5166, 0000 / AND C0000 TAD C5100 / @@5167=1300 C5170, 5172 / JMP C0172 C5171, 0467 / AND I C0067 JMP L5010 / @@5172=5210 C5173, 1460 / TAD I C0060 C5174, 0010 / AND AI0 C5175, 0000 / AND C0000 TAD C5100 / @@5176=1300 C5177, 5201 / JMP C5001 C5200, 0467 / AND I C0067 C5201, 2520 / ISZ I C0120 C5202, 1460 / TAD I C0060 C5203, 0020 / AND C0020 C5204, 0000 / AND C0000 TAD C5300 / @@5205=1300 JMP L5210 / @@5206=5210 C5207, 0467 / AND I C0067 L5210, JMP L5240 / @@5210=5240 C5211, 1460 / TAD I C0060 C5212, 0040 / AND C0040 C5213, 0000 / AND C0000 TAD C5300 / @@5214=1300 JMP L5217 / @@5215=5217 C5216, 0467 / AND I C0067 L5217, C5217, 2577 / ISZ I C0177 C5220, 1460 / TAD I C0060 C5221, 0077 / AND C0077 C5222, 0000 / AND C0000 TAD C5300 / @@5223=1300 JMP L5226 / @@5224=5226 C5225, 0467 / AND I C0067 L5226, JMP L5276 / @@5226=5276 C5227, 1460 / TAD I C0060 C5230, 0076 / AND C0076 C5231, 0000 / AND C0000 TAD C5300 / @@5232=1300 JMP L5235 / @@5233=5235 C5234, 0467 / AND I C0067 L5235, C5235, 2575 / ISZ I C0175 C5236, 1460 / TAD I C0060 C5237, 0075 / AND C0075 L5240, C5240, 0000 / AND C0000 TAD C5300 / @@5241=1300 JMP L5244 / @@5242=5244 C5243, 0467 / AND I C0067 L5244, JMP L5273 / @@5244=5273 C5245, 1460 / TAD I C0060 C5246, 0073 / AND C0073 C5247, 0000 / AND C0000 TAD C5300 / @@5250=1300 JMP L5253 / @@5251=5253 C5252, 0467 / AND I C0067 L5253, C5253, 2567 / ISZ I C0167 C5254, 1460 / TAD I C0060 C5255, 0067 / AND C0067 C5256, 0000 / AND C0000 L5257, TAD C5300 / @@5257=1300 JMP L5262 / @@5260=5262 C5261, 0467 / AND I C0067 L5262, JMP L5257 / @@5262=5257 C5263, 1460 / TAD I C0060 C5264, 0057 / AND C0057 C5265, 0000 / AND C0000 TAD C5300 / @@5266=1300 JMP L5271 / @@5267=5271 C5270, 0467 / AND I C0067 L5271, C5271, 2537 / ISZ I C0137 C5272, 1460 / TAD I C0060 L5273, C5273, 0037 / AND C0037 C5274, 0000 / AND C0000 TAD C5300 / @@5275=1300 L5276, TAD C5300 / @@5276=1300 C5277, 0467 / AND I C0067 C5300, 0000 / AND C0000 C5301, 1460 / TAD I C0060 C5302, 0000 / AND C0000 C5303, 0000 / AND C0000 TAD C5300 / @@5304=1300 TAD C5307 / @@5305=1307 C5306, 0467 / AND I C0067 C5307, 0152 / AND C0152 C5310, 1460 / TAD I C0060 C5311, 0001 / AND C0001 C5312, 0000 / AND C0000 TAD C5300 / @@5313=1300 TAD C5316 / @@5314=1316 C5315, 0467 / AND I C0067 C5316, 0225 / AND C5225 C5317, 1460 / TAD I C0060 C5320, 0002 / AND C0002 C5321, 0000 / AND C0000 TAD C5300 / @@5322=1300 TAD C5325 / @@5323=1325 C5324, 0467 / AND I C0067 C5325, 0452 / AND I C0052 C5326, 1460 / TAD I C0060 C5327, 0004 / AND C0004 C5330, 0000 / AND C0000 TAD C5300 / @@5331=1300 TAD C5334 / @@5332=1334 C5333, 0467 / AND I C0067 C5334, 1025 / TAD C0025 C5335, 1460 / TAD I C0060 C5336, 0010 / AND AI0 C5337, 0000 / AND C0000 TAD C5300 / @@5340=1300 TAD C5343 / @@5341=1343 C5342, 0467 / AND I C0067 C5343, 2052 / ISZ C0052 C5344, 1460 / TAD I C0060 C5345, 0020 / AND C0020 C5346, 0000 / AND C0000 TAD C5300 / @@5347=1300 TAD C5352 / @@5350=1352 C5351, 0467 / AND I C0067 C5352, 4025 / JMS C0025 C5353, 1460 / TAD I C0060 C5354, 0040 / AND C0040 C5355, 0000 / AND C0000 TAD C5300 / @@5356=1300 TAD C5361 / @@5357=1361 C5360, 0467 / AND I C0067 C5361, 7752 / SPA SNA CLA HLT C5362, 1460 / TAD I C0060 C5363, 0077 / AND C0077 C5364, 0000 / AND C0000 TAD C5300 / @@5365=1300 TAD C5370 / @@5366=1370 C5367, 0467 / AND I C0067 C5370, 7625 / CLA MQL MUY + C5371, 1460 / TAD I C0060 C5372, 0076 / AND C0076 C5373, 0000 / AND C0000 TAD C5300 / @@5374=1300 TAD C5377 / @@5375=1377 C5376, 0467 / AND I C0067 C5377, 7552 / SPA SNA HLT $