TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d3fb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d3fb-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 / / 1400 locations used, 0364 code and 1014 data //////////////////////////////////////////////////////////////////////////////// *4000 C4000, 7200 / CLA SKP / @@4001=7410 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, JMP L4040 / @@4016=5240 C4017, 1725 / TAD I C4125 C4020, 0465 / AND I C0065 C4021, 6676 / 6676 C4022, 0011 / AND AI1 C4023, 0001 / AND C0001 C4024, 6752 / 6752 CML IAC RTR / @@4025=7033 C4026, 0011 / AND AI1 DCA D4173 / @@4027=3373 C4030, 4034 / JMS C0034 C4031, 0061 / AND C0061 C4032, 7773 / CLA MQA SCA MQL SHL + AND I C4136 / @@4033=0736 C4034, 0000 / AND C0000 C4035, 0003 / AND C0003 C4036, 1440 / TAD I C0040 C4037, 1044 / TAD C0044 L4040, CLA CMA CML IAC RAR / @@4040=7271 C4041, 1000 / TAD C0000 C4042, 0034 / AND C0034 DCA D4167 / @@4043=3367 C4044, 4034 / JMS C0034 AND C4021 / @@4045=0221 C4046, 6033 / 6033 C4047, 0462 / AND I C0062 PLS / Clear the punch flag, clear the bunc @@4050=6026 C4051, 0011 / AND AI1 DCA D4174 / @@4052=3374 C4053, 4057 / JMS C0057 C4054, 0061 / AND C0061 C4055, 7773 / CLA MQA SCA MQL SHL + AND I C4132 / @@4056=0732 C4057, 0000 / AND C0000 C4060, 1460 / TAD I C0060 C4061, 7777 / CLA MQA SCA MQL LSR + CLA CLL / AC = 0000 @@4062=7300 C4063, 1000 / TAD C0000 C4064, 0057 / AND C0057 DCA D4172 / @@4065=3372 C4066, 4057 / JMS C0057 AND C4021 / @@4067=0221 C4070, 6056 / 6056 CLL CMA IAC / @@4071=7141 C4072, 0463 / AND I C0063 DCX / Clear X coordinate buffer @@4073=6051 C4074, 0461 / AND I C0061 PCF / Clear punch flag and punch buffer. @@4075=6022 C4076, 6752 / 6752 CML IAC RTR / @@4077=7033 C4100, 0011 / AND AI1 AND I C4116 / @@4101=0716 DCA D4174 / @@4102=3374 C4103, 0003 / AND C0003 C4104, 1440 / TAD I C0040 C4105, 1044 / TAD C0044 CLA CLL RAL / @@4106=7304 C4107, 0462 / AND I C0062 C4110, 6100 / 6100 C4111, 0011 / AND AI1 C4112, 0712 / AND I C4112 C4113, 4374 / JMS D4174 C4114, 1460 / TAD I C0060 C4115, 7777 / CLA MQA SCA MQL LSR + C4116, 7313 / CLA CLL IAC RTR C4117, 7136 / CLL CML RTR RTL C4120, 0463 / AND I C0063 MKSF / Skip the next instruction if the key @@4121=6111 C4122, 0461 / AND I C0061 DSB / Set medium brightness @@4123=6076 C4124, 1020 / TAD C0020 C4125, 0010 / AND AI0 C4126, 0001 / AND C0001 C4127, 6752 / 6752 CML IAC RTR / @@4130=7033 C4131, 0011 / AND AI1 C4132, 3373 / DCA D4173 C4133, 4137 / JMS C0137 C4134, 0061 / AND C0061 C4135, 7773 / CLA MQA SCA MQL SHL + C4136, 0736 / AND I C4136 C4137, 0000 / AND C0000 C4140, 0021 / AND C0021 C4141, 1560 / TAD I C0160 C4142, 7767 / CLA MQA SCA MQL DVI + C4143, 0450 / AND I C0050 C4144, 0000 / AND C0000 C4145, 0416 / AND I AI6 C4146, 6145 / 6145 C4147, 0003 / AND C0003 C4150, 1440 / TAD I C0040 C4151, 1044 / TAD C0044 C4152, 7317 / CLA CLL IAC RTR RTL C4153, 1000 / TAD C0000 C4154, 0137 / AND C0137 DCA D4167 / @@4155=3367 C4156, 4137 / JMS C0137 AND C4021 / @@4157=0221 CCEC / All clock control flip-flops are fir @@4160=6136 C4161, 0462 / AND I C0062 C4162, 6131 / 6131 C4163, 0011 / AND AI1 DCA D4174 / @@4164=3374 C4165, 4171 / JMS C0171 C4166, 0061 / AND C0061 D4167, 7773 / CLA MQA SCA MQL SHL + AND I C4132 / @@4170=0732 C4171, 0000 / AND C0000 D4172, 1020 / TAD C0020 D4173, 0100 / AND C0100 D4174, 0500 / AND I C0100 C4175, 6151 / 6151 C4176, 6174 / 6174 C4177, 0003 / AND C0003 C4200, 1460 / TAD I C0060 C4201, 7777 / CLA MQA SCA MQL LSR + CLA CLL CML RTL / AC = 0002 @@4202=7326 C4203, 1000 / TAD C0000 C4204, 0171 / AND C0171 DCA D4372 / @@4205=3372 C4206, 4171 / JMS C0171 AND C4221 / @@4207=0221 C4210, 6170 / 6170 CLL CMA IAC / @@4211=7141 C4212, 0463 / AND I C0063 C4213, 6163 / 6163 C4214, 0461 / AND I C0061 MTPC / Load AC4-11 into the shift register @@4215=6124 C4216, 0011 / AND AI1 C4217, 0001 / AND C0001 C4220, 6752 / 6752 C4221, 0011 / AND AI1 DCA D4373 / @@4222=3373 JMS D4227 / @@4223=4227 C4224, 0061 / AND C0061 C4225, 7773 / CLA MQA SCA MQL SHL + AND I C4334 / @@4226=0734 D4227, 0000 / AND C0000 C4230, 1000 / TAD C0000 AND D4227 / @@4231=0227 DCA D4367 / @@4232=3367 JMS D4227 / @@4233=4227 AND C4221 / @@4234=0221 C4235, 6226 / 6226 C4236, 0462 / AND I C0062 CDF0 / Change to data field 2. The data fie @@4237=6221 C4240, 0011 / AND AI1 DCA D4374 / @@4241=3374 JMS D4246 / @@4242=4246 C4243, 0061 / AND C0061 C4244, 7773 / CLA MQA SCA MQL SHL + AND I C4330 / @@4245=0730 D4246, 0000 / AND C0000 C4247, 1000 / TAD C0000 AND D4246 / @@4250=0246 DCA D4372 / @@4251=3372 JMS D4246 / @@4252=4246 AND C4221 / @@4253=0221 C4254, 6245 / 6245 CLL CMA IAC / @@4255=7141 C4256, 0463 / AND I C0063 C4257, 6240 / 6240 C4260, 0461 / AND I C0061 C4261, 6216 / 6216 C4262, 6752 / 6752 C4263, 0011 / AND AI1 DCA D4373 / @@4264=3373 JMS D4271 / @@4265=4271 C4266, 0061 / AND C0061 C4267, 7773 / CLA MQA SCA MQL SHL + AND I C4314 / @@4270=0714 D4271, 0000 / AND C0000 CLL CML RAR / @@4272=7130 C4273, 1000 / TAD C0000 AND D4271 / @@4274=0271 DCA D4367 / @@4275=3367 JMS D4271 / @@4276=4271 AND C4221 / @@4277=0221 C4300, 6270 / 6270 C4301, 0462 / AND I C0062 C4302, 6263 / 6263 C4303, 0011 / AND AI1 DCA D4374 / @@4304=3374 JMS D4311 / @@4305=4311 C4306, 0061 / AND C0061 C4307, 7773 / CLA MQA SCA MQL SHL + C4310, 0710 / AND I C4310 D4311, 0000 / AND C0000 CLL CML RAR / @@4312=7130 C4313, 1000 / TAD C0000 C4314, 0311 / AND D4311 DCA D4372 / @@4315=3372 JMS D4311 / @@4316=4311 AND C4221 / @@4317=0221 C4320, 6310 / 6310 CLL CMA IAC / @@4321=7141 C4322, 0463 / AND I C0063 C4323, 6303 / 6303 C4324, 0461 / AND I C0061 CIF0 / Prepare to change to instruction fie @@4325=6262 C4326, 1020 / TAD C0020 C4327, 0010 / AND AI0 C4330, 0001 / AND C0001 C4331, 6752 / 6752 C4332, 0011 / AND AI1 DCA D4373 / @@4333=3373 C4334, 4340 / JMS D4340 C4335, 0061 / AND C0061 C4336, 7773 / CLA MQA SCA MQL SHL + AND I C4334 / @@4337=0734 D4340, 0000 / AND C0000 C4341, 0416 / AND I AI6 C4342, 6341 / 6341 C4343, 1000 / TAD C0000 AND D4340 / @@4344=0340 DCA D4367 / @@4345=3367 JMS D4340 / @@4346=4340 AND C4221 / @@4347=0221 C4350, 6337 / 6337 C4351, 0462 / AND I C0062 C4352, 6332 / 6332 C4353, 0011 / AND AI1 DCA D4374 / @@4354=3374 JMS D4361 / @@4355=4361 C4356, 0061 / AND C0061 C4357, 7773 / CLA MQA SCA MQL SHL + AND I C4330 / @@4360=0730 D4361, 0000 / AND C0000 C4362, 0416 / AND I AI6 C4363, 6362 / 6362 C4364, 1000 / TAD C0000 AND D4361 / @@4365=0361 DCA D4372 / @@4366=3372 D4367, 4361 / JMS D4361 AND C4221 / @@4370=0221 C4371, 6360 / 6360 D4372, 7141 / CLL CMA IAC D4373, 0463 / AND I C0063 D4374, 6353 / 6353 C4375, 0461 / AND I C0061 C4376, 6326 / 6326 C4377, 1020 / TAD C0020 C4400, 0010 / AND AI0 C4401, 0001 / AND C0001 C4402, 6752 / 6752 CLL IAC RTL / @@4403=7107 C4404, 0061 / AND C0061 C4405, 7773 / CLA MQA SCA MQL SHL + AND I C4535 / @@4406=0735 DCA D4574 / @@4407=3374 C4410, 0416 / AND I AI6 C4411, 6410 / 6410 C4412, 7075 / CMA CML IAC RAR RAL AND I C4531 / @@4413=0731 DCA D4574 / @@4414=3374 C4415, 0416 / AND I AI6 C4416, 6415 / 6415 CLL CMA IAC / @@4417=7141 C4420, 7063 / CMA CML IAC C4421, 7107 / CLL IAC RTL C4422, 6424 / T1on C4423, 6377 / 6377 AND I C4535 / @@4424=0735 DCA D4574 / @@4425=3374 C4426, 0416 / AND I AI6 C4427, 6426 / 6426 C4430, 6752 / 6752 CLL IAC RTL / @@4431=7107 AND I C4515 / @@4432=0715 DCA D4574 / @@4433=3374 C4434, 0416 / AND I AI6 T2on / (Data Communications System 680/I) s @@4435=6434 C4436, 7075 / CMA CML IAC RAR RAL AND I C4511 / @@4437=0711 DCA D4574 / @@4440=3374 C4441, 0416 / AND I AI6 C4442, 6441 / 6441 CLL CMA IAC / @@4443=7141 CMA CML IAC / @@4444=7063 CLL IAC RTL / @@4445=7107 C4446, 6450 / 6450 C4447, 6377 / 6377 AND I C4515 / @@4450=0715 DCA D4574 / @@4451=3374 C4452, 0416 / AND I AI6 C4453, 6452 / 6452 AND C4421 / @@4454=0221 C4455, 6406 / 6406 C4456, 0461 / AND I C0061 C4457, 6377 / 6377 C4460, 0011 / AND AI1 C4461, 0001 / AND C0001 CLA / @@4462=7202 CLA CML IAC RTR / @@4463=7233 CLA / @@4464=7202 C4465, 0461 / AND I C0061 C4466, 6463 / 6463 C4467, 6752 / 6752 CML IAC RTR / @@4470=7033 C4471, 1020 / TAD C0020 C4472, 3000 / DCA C0000 C4473, 4477 / JMS I C0077 C4474, 0061 / AND C0061 C4475, 7377 / CLA CLL CMA CML IAC RTR RTL AND I C4536 / @@4476=0736 C4477, 0000 / AND C0000 C4500, 0003 / AND C0003 C4501, 1440 / TAD I C0040 C4502, 1044 / TAD C0044 CLA CLL CML RTR / AC = 2000 (1024) @@4503=7332 C4504, 1000 / TAD C0000 C4505, 0477 / AND I C0077 DCA D4567 / @@4506=3367 C4507, 1040 / TAD C0040 C4510, 0514 / AND I C0114 C4511, 3367 / DCA D4567 C4512, 4477 / JMS I C0077 AND I C4533 / @@4513=0733 C4514, 0000 / AND C0000 C4515, 0450 / AND I C0050 CLA CLL CMA IAC / @@4516=7341 AND C4421 / @@4517=0221 C4520, 6476 / 6476 CLA / @@4521=7202 C4522, 0462 / AND I C0062 TTCR / (Data Communications System 680/I) T @@4523=6471 C4524, 1020 / TAD C0020 C4525, 4000 / JMS C0000 C4526, 4534 / JMS I C0134 C4527, 0061 / AND C0061 C4530, 7377 / CLA CLL CMA CML IAC RTR RTL C4531, 0062 / AND C0062 C4532, 7773 / CLA MQA SCA MQL SHL + C4533, 0732 / AND I C4532 C4534, 0000 / AND C0000 C4535, 1000 / TAD C0000 C4536, 0534 / AND I C0134 DCA D4567 / @@4537=3367 C4540, 1040 / TAD C0040 C4541, 0546 / AND I C0146 C4542, 1100 / TAD C0100 TAD C4572 / @@4543=1372 C4544, 4534 / JMS I C0134 AND I C4533 / @@4545=0733 C4546, 0000 / AND C0000 C4547, 0450 / AND I C0050 CLA CLL CMA IAC RAL / @@4550=7345 AND C4422 / @@4551=0222 C4552, 6570 / 6570 CLL CMA IAC / @@4553=7141 C4554, 0062 / AND C0062 C4555, 7773 / CLA MQA SCA MQL SHL + C4556, 6560 / 6560 C4557, 6467 / 6467 C4560, 1000 / TAD C0000 C4561, 0534 / AND I C0134 DCA D4570 / @@4562=3370 C4563, 1560 / TAD I C0160 NOP / @@4564=7000 TAD I C4420 / @@4565=1620 C4566, 4000 / JMS C0000 D4567, 4534 / JMS I C0134 D4570, 0221 / AND C4421 C4571, 6533 / 6533 C4572, 0463 / AND I C0063 PLPD / Plotter pen down. Lower pen on to p @@4573=6524 D4574, 0461 / AND I C0061 C4575, 6467 / 6467 C4576, 6752 / 6752 C4577, 0061 / AND C0061 SMA SZA SNL CLA HLT / @@4600=7762 C4601, 1020 / TAD C0020 DCA D4765 / @@4602=3365 AND C4621 / @@4603=0221 RCSF / Generates an IOP pulse (IOP 1) to te @@4604=6631 C4605, 0061 / AND C0061 SMA SZA SNL CLA HLT / @@4606=7762 C4607, 1020 / TAD C0020 C4610, 3000 / DCA C0000 AND C4621 / @@4611=0221 RCSF / Generates an IOP pulse (IOP 1) to te @@4612=6631 C4613, 0061 / AND C0061 SMA SZA SNL CLA HLT / @@4614=7762 C4615, 1020 / TAD C0020 DCA I C4747 / @@4616=3747 AND C4621 / @@4617=0221 C4620, 6631 / RCSF C4621, 7202 / CLA CLA CML IAC RTR / @@4622=7233 C4623, 0461 / AND I C0061 C4624, 6576 / 6576 C4625, 1020 / TAD C0020 AND C4607 / @@4626=0207 C4627, 7056 / CMA RTR RTL C4630, 6020 / 6020 DCA D4767 / @@4631=3367 C4632, 1040 / TAD C0040 C4633, 0657 / AND I C4657 DCA D4767 / @@4634=3367 C4635, 1040 / TAD C0040 AND I C4664 / @@4636=0664 C4637, 1000 / TAD C0000 AND I C4657 / @@4640=0657 C4641, 1560 / TAD I C0160 NOP / @@4642=7000 TAD I C4620 / @@4643=1620 C4644, 4000 / JMS C0000 C4645, 1040 / TAD C0040 AND I C4661 / @@4646=0661 DCA D4767 / @@4647=3367 C4650, 4670 / JMS I C4670 C4651, 1000 / TAD C0000 C4652, 0000 / AND C0000 C4653, 1120 / TAD C0120 C4654, 7775 / CLA MQA SCA MQL ASR + C4655, 4006 / JMS C0006 AND I C4734 / @@4656=0734 C4657, 0000 / AND C0000 AND I C4710 / @@4660=0710 C4661, 0000 / AND C0000 C4662, 7136 / CLL CML RTR RTL AND I C4714 / @@4663=0714 C4664, 0000 / AND C0000 C4665, 6667 / 6667 C4666, 6576 / 6576 AND I C4730 / @@4667=0730 C4670, 0000 / AND C0000 C4671, 7136 / CLL CML RTR RTL C4672, 1000 / TAD C0000 AND I C4657 / @@4673=0657 C4674, 6006 / 6006 C4675, 6576 / 6576 C4676, 0011 / AND AI1 C4677, 0001 / AND C0001 C4700, 6752 / 6752 CML IAC RTR / @@4701=7033 C4702, 0061 / AND C0061 NOP / @@4703=7000 C4704, 1020 / TAD C0020 C4705, 3000 / DCA C0000 C4706, 4710 / JMS I C4710 AND I C4736 / @@4707=0736 C4710, 0000 / AND C0000 C4711, 0003 / AND C0003 C4712, 1440 / TAD I C0040 C4713, 1044 / TAD C0044 C4714, 7354 / CLA CLL CMA RAR RAL C4715, 1000 / TAD C0000 AND I C4710 / @@4716=0710 DCA D4767 / @@4717=3367 C4720, 4710 / JMS I C4710 AND C4621 / @@4721=0221 KRSB / Transfer the contents of the status @@4722=6707 C4723, 0462 / AND I C0062 KSEN / Skip the next instruction if any of @@4724=6702 C4725, 0061 / AND C0061 NOP / @@4726=7000 C4727, 1020 / TAD C0020 C4730, 4000 / JMS C0000 C4731, 4733 / JMS I C4733 C4732, 0732 / AND I C4732 C4733, 0000 / AND C0000 C4734, 1460 / TAD I C0060 C4735, 7777 / CLA MQA SCA MQL LSR + C4736, 7363 / CLA CLL CMA CML IAC C4737, 1000 / TAD C0000 AND I C4733 / @@4740=0733 DCA D4767 / @@4741=3367 C4742, 4733 / JMS I C4733 AND C4621 / @@4743=0221 C4744, 6732 / 6732 C4745, 0463 / AND I C0063 C4746, 6725 / 6725 C4747, 0461 / AND I C0061 C4750, 6676 / 6676 C4751, 6020 / 6020 C4752, 0047 / AND C0047 C4753, 0000 / AND C0000 C4754, 0464 / AND I C0064 C4755, 6760 / 6760 C4756, 0444 / AND I C0044 C4757, 6776 / 6776 C4760, 0071 / AND C0071 TAD C4777 / @@4761=1377 C4762, 0073 / AND C0073 C4763, 7377 / CLA CLL CMA CML IAC RTR RTL C4764, 0516 / AND I C0116 D4765, 1071 / TAD C0071 AND C4633 / @@4766=0233 D4767, 6771 / DTSF C4770, 6007 / 6007 C4771, 0517 / AND I C0117 C4772, 1071 / TAD C0071 AND C4633 / @@4773=0233 DTXA / Status register A is loaded by an ex @@4774=6764 C4775, 6007 / 6007 C4776, 0071 / AND C0071 C4777, 1377 / TAD C4777 C5000, 0073 / AND C0073 C5001, 7377 / CLA CLL CMA CML IAC RTR RTL C5002, 0516 / AND I C0116 C5003, 0450 / AND I C0050 IAC RTL / @@5004=7007 C5005, 1020 / TAD C0020 C5006, 0011 / AND AI1 C5007, 5024 / JMP C0024 C5010, 0517 / AND I C0117 C5011, 5025 / JMP C0025 CML RTL / @@5012=7026 C5013, 5024 / JMP C0024 AND C5041 / @@5014=0241 CML RTL / @@5015=7026 C5016, 1071 / TAD C0071 C5017, 5024 / JMP C0024 C5020, 0241 / AND C5041 AND C5033 / @@5021=0233 RTR / @@5022=7012 C5023, 6007 / 6007 C5024, 0000 / AND C0000 C5025, 0000 / AND C0000 TAD C5000 / @@5026=1200 C5027, 1024 / TAD C0024 C5030, 1200 / TAD C5000 C5031, 1025 / TAD C0025 C5032, 6000 / 6000 C5033, 0073 / AND C0073 C5034, 7377 / CLA CLL CMA CML IAC RTR RTL C5035, 0071 / AND C0071 TAD C5177 / @@5036=1377 C5037, 0011 / AND AI1 C5040, 5044 / JMP C0044 C5041, 1031 / TAD C0031 C5042, 0006 / AND C0006 TAD C5020 / @@5043=1220 C5044, 0000 / AND C0000 C5045, 0011 / AND AI1 C5046, 1031 / TAD C0031 AND C5033 / @@5047=0233 CMA / @@5050=7042 C5051, 0011 / AND AI1 C5052, 0017 / AND AI7 TAD C5000 / @@5053=1200 C5054, 1044 / TAD C0044 C5055, 6000 / 6000 C5056, 0006 / AND C0006 C5057, 0500 / AND I C0100 TLS / Load the TTO from the content of AC4 @@5060=6046 C5061, 0011 / AND AI1 C5062, 6000 / 6000 C5063, 0071 / AND C0071 TAD C5177 / @@5064=1377 C5065, 0073 / AND C0073 C5066, 7377 / CLA CLL CMA CML IAC RTR RTL C5067, 0011 / AND AI1 C5070, 0006 / AND C0006 C5071, 1071 / TAD C0071 AND C5033 / @@5072=0233 CMA CML RAR / @@5073=7070 C5074, 6000 / 6000 C5075, 0072 / AND C0072 DCA I C5177 / @@5076=3777 C5077, 0073 / AND C0073 C5100, 6000 / 6000 C5101, 0011 / AND AI1 C5102, 0006 / AND C0006 C5103, 1072 / TAD C0072 AND C5033 / @@5104=0233 CLL / @@5105=7102 C5106, 6000 / 6000 C5107, 0047 / AND C0047 C5110, 0000 / AND C0000 C5111, 0070 / AND C0070 C5112, 7773 / CLA MQA SCA MQL SHL + C5113, 0072 / AND C0072 C5114, 3777 / DCA I C5177 C5115, 0071 / AND C0071 TAD C5177 / @@5116=1377 C5117, 0073 / AND C0073 C5120, 7377 / CLA CLL CMA CML IAC RTR RTL C5121, 1031 / TAD C0031 C5122, 1072 / TAD C0072 AND C5033 / @@5123=0233 CLL CML IAC / @@5124=7121 AND C5030 / @@5125=0230 C5126, 7115 / CLL IAC RAR RAL C5127, 6007 / 6007 C5130, 0011 / AND AI1 C5131, 4015 / JMS AI5 C5132, 0006 / AND C0006 AND C5035 / @@5133=0235 CLL CML RTR / @@5134=7132 C5135, 6000 / 6000 C5136, 1020 / TAD C0020 SPA SNA SZL CLA OSR HLT / @@5137=7776 C5140, 5144 / JMP C0144 C5141, 0047 / AND C0047 C5142, 0000 / AND C0000 C5143, 0070 / AND C0070 C5144, 7773 / CLA MQA SCA MQL SHL + C5145, 0072 / AND C0072 DCA I C5177 / @@5146=3777 C5147, 0071 / AND C0071 TAD C5177 / @@5150=1377 C5151, 0073 / AND C0073 C5152, 7377 / CLA CLL CMA CML IAC RTR RTL C5153, 0011 / AND AI1 C5154, 1031 / TAD C0031 C5155, 1472 / TAD I C0072 CLL CMA CML IAC RTL / @@5156=7167 AND C5033 / @@5157=0233 CLL CMA IAC RTR / @@5160=7153 AND C5030 / @@5161=0230 CLL CMA IAC RTL / @@5162=7147 C5163, 1020 / TAD C0020 C5164, 7773 / CLA MQA SCA MQL SHL + C5165, 5144 / JMP C0144 C5166, 6007 / 6007 C5167, 0460 / AND I C0060 C5170, 6000 / 6000 AND C5114 / @@5171=0314 C5172, 1012 / TAD AI2 C5173, 0000 / AND C0000 C5174, 1020 / TAD C0020 C5175, 7773 / CLA MQA SCA MQL SHL + C5176, 5144 / JMP C0144 C5177, 2007 / ISZ C0007 DCA D5371 / @@5200=3371 C5201, 6007 / 6007 C5202, 0047 / AND C0047 C5203, 0000 / AND C0000 AND I C5333 / @@5204=0733 C5205, 0000 / AND C0000 AND I C5333 / @@5206=0733 C5207, 0000 / AND C0000 C5210, 1120 / TAD C0120 C5211, 0001 / AND C0001 C5212, 1060 / TAD C0060 C5213, 0000 / AND C0000 AND I C5333 / @@5214=0733 C5215, 0000 / AND C0000 C5216, 1440 / TAD I C0040 TAD C5213 / @@5217=1213 CLA CML RAL / @@5220=7224 C5221, 0450 / AND I C0050 CLA RAR / @@5222=7210 C5223, 6007 / 6007 C5224, 0460 / AND I C0060 C5225, 6000 / 6000 AND C5314 / @@5226=0314 C5227, 1000 / TAD C0000 TAD C5213 / @@5230=1213 C5231, 0000 / AND C0000 C5232, 6007 / 6007 C5233, 0047 / AND C0047 C5234, 0000 / AND C0000 AND I C5333 / @@5235=0733 AND I C5377 / @@5236=0777 AND I C5333 / @@5237=0733 AND I C5377 / @@5240=0777 C5241, 1120 / TAD C0120 SPA SNA SZL CLA OSR HLT / @@5242=7776 C5243, 1060 / TAD C0060 C5244, 0000 / AND C0000 AND I C5333 / @@5245=0733 AND I C5377 / @@5246=0777 C5247, 1440 / TAD I C0040 TAD C5244 / @@5250=1244 CLA CMA CML / @@5251=7262 C5252, 1460 / TAD I C0060 C5253, 0001 / AND C0001 CLA CMA IAC / @@5254=7241 AND I C5333 / @@5255=0733 AND I C5377 / @@5256=0777 C5257, 0450 / AND I C0050 CLA CMA CML / @@5260=7262 C5261, 6007 / 6007 C5262, 0460 / AND I C0060 C5263, 6000 / 6000 AND C5314 / @@5264=0314 C5265, 1000 / TAD C0000 TAD C5244 / @@5266=1244 C5267, 0000 / AND C0000 C5270, 6007 / 6007 C5271, 0461 / AND I C0061 C5272, 6000 / 6000 AND C5314 / @@5273=0314 C5274, 1000 / TAD C0000 C5275, 1044 / TAD C0044 C5276, 0000 / AND C0000 PLS / Clear the punch flag, clear the bunc @@5277=6026 C5300, 0460 / AND I C0060 C5301, 6000 / 6000 C5302, 0000 / AND C0000 DCX / Clear X coordinate buffer @@5303=6051 C5304, 0460 / AND I C0060 C5305, 6000 / 6000 AND C5314 / @@5306=0314 C5307, 1000 / TAD C0000 C5310, 1044 / TAD C0044 C5311, 0000 / AND C0000 C5312, 6100 / 6100 C5313, 0460 / AND I C0060 C5314, 6000 / 6000 C5315, 0000 / AND C0000 MKSF / Skip the next instruction if the key @@5316=6111 C5317, 0460 / AND I C0060 C5320, 6000 / 6000 AND C5314 / @@5321=0314 C5322, 1000 / TAD C0000 C5323, 1044 / TAD C0044 C5324, 0000 / AND C0000 C5325, 6131 / 6131 C5326, 0460 / AND I C0060 C5327, 6000 / 6000 C5330, 0000 / AND C0000 C5331, 6163 / 6163 C5332, 0460 / AND I C0060 C5333, 6000 / 6000 AND C5314 / @@5334=0314 C5335, 1000 / TAD C0000 C5336, 1044 / TAD C0044 C5337, 0000 / AND C0000 TTCR / (Data Communications System 680/I) T @@5340=6471 C5341, 0460 / AND I C0060 C5342, 6000 / 6000 C5343, 0000 / AND C0000 TTCR / (Data Communications System 680/I) T @@5344=6471 C5345, 0460 / AND I C0060 C5346, 6000 / 6000 AND C5314 / @@5347=0314 C5350, 1000 / TAD C0000 C5351, 1044 / TAD C0044 C5352, 0000 / AND C0000 PLPD / Plotter pen down. Lower pen on to p @@5353=6524 C5354, 0460 / AND I C0060 C5355, 6000 / 6000 AND C5314 / @@5356=0314 C5357, 1000 / TAD C0000 C5360, 1044 / TAD C0044 C5361, 0000 / AND C0000 KSEN / Skip the next instruction if any of @@5362=6702 C5363, 0460 / AND I C0060 C5364, 6000 / 6000 C5365, 0000 / AND C0000 C5366, 6725 / 6725 C5367, 0001 / AND C0001 SPA SNA SZL CLA OSR HLT / @@5370=7776 D5371, 0003 / AND C0003 C5372, 1001 / TAD C0001 DCA D5374 / @@5373=3374 D5374, 4374 / JMS D5374 C5375, 1001 / TAD C0001 DCA D5374 / @@5376=3374 C5377, 4374 / JMS D5374 $