TITLE "AUTOMATIC DISASSEMBLY OF decus-5-3.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-5-3.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 / / 1356 locations used, 0720 code and 0436 data //////////////////////////////////////////////////////////////////////////////// *0162 PLS / Clear the punch flag, clear the bunc @@0162=6026 L0163, C0163, 6106 / 6106 C0164, 6154 / 6154 C0165, 6155 / 6155 C0166, 6156 / 6156 C0167, 6157 / 6157 C0170, 6160 / 6160 C0171, 6161 / 6161 C0172, 6164 / 6164 C0173, 6170 / 6170 C0174, 6171 / 6171 C0175, C0175, 5775 / JMP I C0175 PPC / Load the punch buffer from bits 4 th @@0176=6024 C0177, 6025 / 6025 *4640 D4640, 7402 / HLT TAD I D4640 / @@4641=1640 DCA D4775 / @@4642=3375 ISZ D4640 / @@4643=2240 TAD I D4640 / @@4644=1640 DCA D4660 / @@4645=3260 ISZ D4640 / @@4646=2240 TAD C4657 / @@4647=1257 DCA I C4777 / @@4650=3777 L4651, TAD C4774 / @@4651=1374 C4652, 4773 / JMS I C4773 TAD I D4775 / @@4653=1775 SNA / @@4654=7450 JMP L4667 / @@4655=5267 C4656, 4772 / JMS I C4772 C4657, 7760 / SMA SZA SNL CLA D4660, 7402 / HLT TAD C4776 / @@4661=1376 DCA D4767 / @@4662=3367 SZL CLA / @@4663=7630 JMP L4675 / @@4664=5275 TAD I D4775 / @@4665=1775 C4666, 4765 / JMS I C4765 L4667, TAD C4766 / @@4667=1366 L4670, DCA I D4775 / @@4670=3775 ISZ D4775 / @@4671=2375 ISZ I C4777 / @@4672=2777 JMP L4651 / @@4673=5251 JMP I D4640 / long jump to L7402 @@4674=5640 L4675, TAD I D4767 / @@4675=1767 JMP L4670 / @@4676=5270 C4677, 1607 / TAD I C4607 L4700, LAS / @@4700=7604 CLL CML IAC / @@4701=7121 SZA / @@4702=7440 L4703, JMP I C4764 / long jump to L5012 @@4703=5764 TAD C4657 / @@4704=1257 DCA I C4777 / @@4705=3777 TAD C4737 / @@4706=1337 DCA D4640 / @@4707=3240 L4710, C4710, 4763 / JMS I C4763 TAD I D4640 / @@4711=1640 SNA / @@4712=7450 JMP L4725 / @@4713=5325 C4714, 4765 / JMS I C4765 TAD C4774 / @@4715=1374 C4716, 4773 / JMS I C4773 TAD D4640 / @@4717=1240 C4720, 4757 / JMS I C4757 CLA / @@4721=7200 ISZ D4640 / @@4722=2240 L4723, ISZ I C4777 / @@4723=2777 JMP L4710 / @@4724=5310 L4725, C4725, 4777 / JMS I C4777 C4726, 5500 / JMP I C0100 C4727, 5460 / JMP I C0060 C4730, 4763 / JMS I C4763 TAD C4762 / @@4731=1362 C4732, 4765 / JMS I C4765 TAD C4761 / @@4733=1361 C4734, 4765 / JMS I C4765 C4735, 4240 / JMS D4640 C4736, 5500 / JMP I C0100 C4737, 0160 / AND C0160 C4740, 4777 / JMS I C4777 L4741, C4741, 5460 / JMP I C0060 C4742, 5500 / JMP I C0100 C4743, 4763 / JMS I C4763 TAD C4760 / @@4744=1360 C4745, 4765 / JMS I C4765 TAD C4677 / @@4746=1277 C4747, 4765 / JMS I C4765 C4750, 4777 / JMS I C4777 C4751, 0160 / AND C0160 C4752, 5460 / JMP I C0060 C4753, 4240 / JMS D4640 C4754, 0160 / AND C0160 C4755, 5500 / JMP I C0100 JMP L4770 / @@4756=5370 JMP L4703 / @@4757=5303 C4760, 1523 / TAD I C0123 C4761, 2201 / ISZ C4601 C4762, 3024 / DCA C0024 JMP L0163 / @@4763=5163 C4764, C4764, 5012 / JMP AI2 JMP L4741 / @@4765=5341 C4766, 4767 / JMS I D4767 D4767, 7402 / HLT L4770, HLT / @@4770=7402 JMP L4770 / @@4771=5370 C4772, 5110 / JMP C0110 JMP L4723 / @@4773=5323 C4774, 0240 / AND D4640 D4775, 7402 / HLT C4776, 0020 / AND C0020 C4777, 5550 / JMP I C0150 KCC / Clear AC and clear keyboard flag. @@5000=6032 TLS / Load the TTO from the content of AC4 @@5001=6046 C5002, 4363 / JMS D5163 L5003, C5003, 4255 / JMS D5055 C5004, 0160 / AND C0160 DCA I C5070 / @@5005=3670 C5006, 4255 / JMS D5055 C5007, 5500 / JMP I C0100 TAD C5073 / @@5010=1273 DCA I C5072 / @@5011=3672 L5012, C5012, 7604 / LAS C5013, 4733 / JMS I C5133 C5014, 6177 / 6177 C5015, 6440 / 6440 LAS / @@5016=7604 SNL / @@5017=7420 DCA I C5072 / @@5020=3672 JMP I C5022 / long jump to L5570 @@5021=5622 C5022, C5022, 5570 / JMP I C0170 L5023, DCA I C5052 / @@5023=3652 C5024, 4255 / JMS D5055 C5025, 5460 / JMP I C0060 L5026, C5026, 4244 / JMS C5044 DCA I C5172 / @@5027=3772 C5030, 4310 / JMS D5110 SMA SZA SNL CLA / @@5031=7760 C5032, 5500 / JMP I C0100 DCA D5055 / @@5033=3255 SNL / @@5034=7420 JMP L5177 / @@5035=5377 TAD I C5172 / @@5036=1772 DCA I D5055 / @@5037=3655 C5040, 2671 / ISZ I C5071 ISZ I C5070 / @@5041=2670 L5042, C5042, 4244 / JMS C5044 L5043, JMP L5042 / @@5043=5242 C5044, C5044, 7402 / HLT C5045, 4674 / JMS I C5074 JMP I C5054 / long jump to L5647 @@5046=5654 JMP I C5053 / long jump to L5203 @@5047=5653 JMP L5026 / @@5050=5226 JMP I C5044 / long jump to L7402 @@5051=5644 C5052, 5366 / JMP C5166 C5053, C5053, 5203 / JMP L5003 C5054, C5054, 5647 / JMP I C5047 D5055, 7402 / HLT TAD C5175 / @@5056=1375 DCA D5163 / @@5057=3363 TAD I D5055 / @@5060=1655 DCA D5075 / @@5061=3275 ISZ D5055 / @@5062=2255 L5063, DCA I D5075 / @@5063=3675 ISZ D5075 / @@5064=2275 ISZ D5163 / @@5065=2363 JMP L5063 / @@5066=5263 JMP I D5055 / long jump to L7402 @@5067=5655 C5070, 5453 / JMP I C0053 C5071, 5454 / JMP I C0054 C5072, 5764 / JMP I C5164 C5073, 0200 / AND C5000 JMP L5043 / @@5074=5243 D5075, 7402 / HLT DCA D5107 / @@5076=3307 L5077, KSF / Skip if keyboard flag is a 1. @@5077=6031 JMP L5077 / @@5100=5277 KRB / Clear AC, clear keyboard flag, and r @@5101=6036 TAD D5107 / @@5102=1307 JMP I D5075 / long jump to L7402 @@5103=5675 NOP / @@5104=7000 NOP / @@5105=7000 NOP / @@5106=7000 D5107, 5675 / JMP I D5075 D5110, 7402 / HLT DCA D5163 / @@5111=3363 TAD I D5110 / @@5112=1710 ISZ D5110 / @@5113=2310 DCA D5055 / @@5114=3255 TAD I D5110 / @@5115=1710 ISZ D5110 / @@5116=2310 DCA D5075 / @@5117=3275 L5120, TAD D5163 / @@5120=1363 CLL CMA IAC / @@5121=7141 TAD I D5075 / @@5122=1675 L5123, SNA / @@5123=7450 JMP L5131 / @@5124=5331 CLA CLL / AC = 0000 @@5125=7300 ISZ D5075 / @@5126=2275 ISZ D5055 / @@5127=2255 JMP L5120 / @@5130=5320 L5131, TAD D5075 / @@5131=1275 JMP I D5110 / long jump to L7402 @@5132=5710 C5133, 5540 / JMP I C0140 D5134, 7402 / HLT CLA CLL / AC = 0000 @@5135=7300 C5136, 4275 / JMS D5075 DCA D5173 / @@5137=3373 TAD D5173 / @@5140=1373 TAD C5171 / @@5141=1371 SNA CLA / @@5142=7650 JMP I D5134 / long jump to L7402 @@5143=5734 ISZ D5134 / @@5144=2334 TAD D5173 / @@5145=1373 C5146, 4756 / JMS I C5156 TAD D5173 / @@5147=1373 C5150, 4310 / JMS D5110 SPA SNA SZL CLA OSR / @@5151=7774 C5152, 5157 / JMP C0157 SNL CLA / @@5153=7620 TAD D5173 / @@5154=1373 JMP I D5134 / long jump to L7402 @@5155=5734 JMP L5123 / @@5156=5323 C5157, 0000 / AND C0000 AND L5177 / @@5160=0377 AND C5040 / @@5161=0240 C5162, 0212 / AND L5012 D5163, 7402 / HLT TAD C5174 / @@5164=1374 C5165, 4756 / JMS I C5156 TAD C5162 / @@5166=1362 C5167, 4756 / JMS I C5156 JMP I D5163 / long jump to L7402 @@5170=5763 C5171, 7600 / 7600 C5172, 5334 / JMP D5134 D5173, 7402 / HLT C5174, 0215 / AND C5015 C5175, 7760 / SMA SZA SNL CLA C5176, 3016 / DCA AI6 L5177, C5177, 1376 / TAD C5176 L5200, C5200, 4341 / JMS D5341 L5201, HLT / @@5201=7402 JMP L5201 / @@5202=5201 L5203, C5203, 4243 / JMS D5243 JMP I C5376 / long jump to L5674 @@5204=5776 JMP L5236 / @@5205=5236 JMP L5203 / @@5206=5203 DCA D5303 / @@5207=3303 TAD D5303 / @@5210=1303 C5211, 4765 / JMS I C5365 SMA SZA SNL CLA / @@5212=7760 C5213, 0160 / AND C0160 SZL / @@5214=7430 JMP L5372 / @@5215=5372 CLA / @@5216=7200 C5217, 4765 / JMS I C5365 SMA SZA SNL CLA / @@5220=7760 C5221, 0160 / AND C0160 DCA D5243 / @@5222=3243 SNL / @@5223=7420 JMP L5367 / @@5224=5367 L5225, TAD D5303 / @@5225=1303 DCA I D5243 / @@5226=3643 TAD C5374 / @@5227=1374 TAD D5243 / @@5230=1243 DCA D5243 / @@5231=3243 TAD C5375 / @@5232=1375 TAD D5366 / @@5233=1366 DCA I D5243 / @@5234=3643 ISZ D5366 / @@5235=2366 L5236, C5236, 4243 / JMS D5243 JMP I C5376 / long jump to L5674 @@5237=5776 JMP L5236 / @@5240=5236 JMP L5203 / @@5241=5203 JMP L5236 / @@5242=5236 D5243, 7402 / HLT C5244, 4256 / JMS C5256 CLL RAL / @@5245=7104 C5246, 4334 / JMS D5334 DCA D5334 / @@5247=3334 C5250, 4256 / JMS C5256 TAD D5334 / @@5251=1334 ISZ D5243 / @@5252=2243 L5253, ISZ D5243 / @@5253=2243 L5254, ISZ D5243 / @@5254=2243 JMP I D5243 / long jump to L7402 @@5255=5643 C5256, C5256, 7402 / HLT L5257, C5257, 4666 / JMS I C5266 JMP I D5243 / long jump to L7402 @@5260=5643 SNA / @@5261=7450 JMP L5257 / @@5262=5257 C5263, 4267 / JMS C5267 AND C5360 / @@5264=0360 JMP I C5256 / long jump to L7402 @@5265=5656 C5266, 5134 / JMP C0134 C5267, C5267, 7402 / HLT TAD C5301 / @@5270=1301 SNA / @@5271=7450 JMP L5253 / @@5272=5253 TAD C5302 / @@5273=1302 SNA / @@5274=7450 JMP L5254 / @@5275=5254 TAD C5300 / @@5276=1300 JMP I C5267 / long jump to L7402 @@5277=5667 C5300, 0215 / AND C5215 C5301, 7524 / SMA SNL OSR C5302, 0037 / AND C0037 D5303, 7402 / HLT SKP / @@5304=7410 L5305, TAD D5341 / @@5305=1341 RTL / @@5306=7006 RAL / @@5307=7004 DCA D5341 / @@5310=3341 TAD D5341 / @@5311=1341 RAL / @@5312=7004 AND C5361 / @@5313=0361 TAD C5363 / @@5314=1363 C5315, 4323 / JMS C5323 ISZ D5357 / @@5316=2357 JMP L5305 / @@5317=5305 TAD C5364 / @@5320=1364 DCA D5357 / @@5321=3357 JMP I D5303 / long jump to L7402 @@5322=5703 C5323, C5323, 7402 / HLT L5324, TSF / Skip if teleprinter flag is a 1. @@5324=6041 JMP L5324 / @@5325=5324 TLS / Load the TTO from the content of AC4 @@5326=6046 NOP / @@5327=7000 NOP / @@5330=7000 NOP / @@5331=7000 CLA CML / @@5332=7220 JMP I C5323 / long jump to L7402 @@5333=5723 D5334, 7402 / HLT RTL / @@5335=7006 RTL / @@5336=7006 RAL / @@5337=7004 JMP I D5334 / long jump to L7402 @@5340=5734 D5341, 7402 / HLT DCA D5303 / @@5342=3303 TAD D5303 / @@5343=1303 C5344, 4334 / JMS D5334 RTL / @@5345=7006 CLL / @@5346=7100 JMP L5351 / @@5347=5351 L5350, TAD D5303 / @@5350=1303 L5351, AND C5360 / @@5351=0360 TAD C5362 / @@5352=1362 C5353, 4323 / JMS C5323 SZL / @@5354=7430 JMP L5350 / @@5355=5350 JMP I D5341 / long jump to L7402 @@5356=5741 D5357, 7774 / SPA SNA SZL CLA OSR C5360, 0077 / AND C0077 C5361, 0007 / AND C0007 C5362, 0300 / AND C5300 C5363, 0260 / AND C5260 C5364, 7774 / SPA SNA SZL CLA OSR C5365, 5110 / JMP C0110 D5366, 7402 / HLT L5367, TAD C5371 / @@5367=1371 JMP L5200 / @@5370=5200 C5371, 3023 / DCA C0023 L5372, DCA D5243 / @@5372=3243 JMP L5225 / @@5373=5225 C5374, 5300 / JMP C5300 C5375, 4560 / JMS I C0160 C5376, C5376, 5674 / JMP I C5274 C5377, 0000 / AND C0000 D5400, 7402 / HLT CLA CLL / AC = 0000 @@5401=7300 C5402, 1247 / TAD D5447 DCA D5446 / @@5403=3246 C5404, 1244 / TAD D5444 DCA D5445 / @@5405=3245 C5406, 4656 / JMS I C5456 C5407, 4655 / JMS I C5455 SZL / @@5410=7430 JMP L5441 / @@5411=5241 DCA D5444 / @@5412=3244 TAD D5444 / @@5413=1244 RAL / @@5414=7004 C5415, 4656 / JMS I C5456 DCA D5447 / @@5416=3247 ISZ D5400 / @@5417=2200 TAD D5445 / @@5420=1245 RAL / @@5421=7004 SNL CLA / @@5422=7620 ISZ D5400 / @@5423=2200 JMP L5427 / @@5424=5227 ISZ D5450 / @@5425=2250 C5426, 0177 / AND C0177 L5427, TAD D5446 / @@5427=1246 C5430, 4655 / JMS I C5455 RTL / @@5431=7006 AND C5426 / @@5432=0226 TAD D5450 / @@5433=1250 DCA D5450 / @@5434=3250 TAD D5446 / @@5435=1246 AND C5451 / @@5436=0251 TAD D5450 / @@5437=1250 DCA D5450 / @@5440=3250 L5441, CLA / @@5441=7200 TAD D5446 / @@5442=1246 JMP I D5400 / long jump to L7402 @@5443=5600 D5444, 7402 / HLT D5445, 7402 / HLT D5446, 7402 / HLT D5447, 7402 / HLT D5450, 7402 / HLT C5451, 0077 / AND C0077 C5452, 7760 / SMA SZA SNL CLA D5453, 7402 / HLT D5454, 7402 / HLT C5455, 5334 / JMP L5534 C5456, 5075 / JMP C0075 C5457, 0000 / AND C0000 HLT / @@5460=7402 C5461, 0000 / AND C0000 C5462, 0000 / AND C0000 C5463, 0000 / AND C0000 C5464, 0000 / AND C0000 C5465, 0000 / AND C0000 C5466, 0000 / AND C0000 C5467, 0000 / AND C0000 C5470, 0000 / AND C0000 C5471, 0000 / AND C0000 C5472, 0000 / AND C0000 C5473, 0000 / AND C0000 C5474, 0000 / AND C0000 C5475, 0000 / AND C0000 C5476, 0000 / AND C0000 C5477, 0000 / AND C0000 HLT / @@5500=7402 C5501, 0000 / AND C0000 C5502, 0000 / AND C0000 C5503, 0000 / AND C0000 C5504, 0000 / AND C0000 C5505, 0000 / AND C0000 C5506, 0000 / AND C0000 C5507, 0000 / AND C0000 C5510, 0000 / AND C0000 C5511, 0000 / AND C0000 C5512, 0000 / AND C0000 C5513, 0000 / AND C0000 C5514, 0000 / AND C0000 C5515, 0000 / AND C0000 C5516, 0000 / AND C0000 C5517, 0000 / AND C0000 / @@5520=7400 AND C5402 / @@5521=0202 C5522, 0400 / AND I C0000 C5523, 0402 / AND I C0002 AND I D5400 / @@5524=0600 AND I C5402 / @@5525=0602 AND I C5404 / @@5526=0604 C5527, 1000 / TAD C0000 DCA I D5400 / @@5530=3600 DCA I C5402 / @@5531=3602 DCA I C5404 / @@5532=3604 C5533, 4000 / JMS C0000 L5534, C5534, 4002 / JMS C0002 C5535, 0000 / AND C0000 C5536, 0000 / AND C0000 C5537, 0000 / AND C0000 D5540, 7402 / HLT CLL CMA IAC / @@5541=7141 TAD I D5540 / @@5542=1740 ISZ D5540 / @@5543=2340 SZL / @@5544=7430 TAD I D5540 / @@5545=1740 ISZ D5540 / @@5546=2340 JMP I D5540 / long jump to L7402 @@5547=5740 D5550, 7402 / HLT TAD I D5550 / @@5551=1750 DCA D5540 / @@5552=3340 ISZ D5550 / @@5553=2350 TAD I D5550 / @@5554=1750 DCA D5400 / @@5555=3200 ISZ D5550 / @@5556=2350 TAD C5452 / @@5557=1252 DCA I C5455 / @@5560=3655 L5561, TAD I D5540 / @@5561=1740 DCA I D5400 / @@5562=3600 ISZ D5540 / @@5563=2340 ISZ D5400 / @@5564=2200 ISZ I C5455 / @@5565=2655 JMP L5561 / @@5566=5361 JMP I D5550 / long jump to L7402 @@5567=5750 L5570, C5570, 4656 / JMS I C5456 CLA CLL / AC = 0000 @@5571=7300 DCA D5450 / @@5572=3250 DCA D5444 / @@5573=3244 DCA D5447 / @@5574=3247 DCA D5454 / @@5575=3254 JMP I C5577 / long jump to L5023 @@5576=5777 C5577, C5577, 5023 / JMP C0023 L5600, C5600, 4765 / JMS I C5765 JMP I C5766 / long jump to L6060 @@5601=5766 JMP I C5746 / long jump to L6126 @@5602=5746 L5603, DCA D5762 / @@5603=3362 TAD D5762 / @@5604=1362 SNA / @@5605=7450 JMP L5622 / @@5606=5222 AND C5747 / @@5607=0347 DCA D5633 / @@5610=3233 TAD D5762 / @@5611=1362 C5612, 4672 / JMS I C5672 SMA SZA SNL CLA / @@5613=7760 C5614, 5460 / JMP I C0060 SNL / @@5615=7420 JMP L5622 / @@5616=5222 AND C5673 / @@5617=0273 TAD D5633 / @@5620=1233 DCA D5762 / @@5621=3362 L5622, CLA CLL / AC = 0000 @@5622=7300 TAD D5764 / @@5623=1364 C5624, 4655 / JMS I C5655 TAD D5762 / @@5625=1362 SNL / @@5626=7420 DCA I D5764 / @@5627=3764 ISZ D5764 / @@5630=2364 NOP / @@5631=7000 JMP L5600 / @@5632=5200 D5633, 7402 / HLT L5634, C5634, 4765 / JMS I C5765 JMP L5634 / @@5635=5234 NOP / @@5636=7000 C5637, 4765 / JMS I C5765 NOP / @@5640=7000 L5641, DCA D5763 / @@5641=3363 C5642, 4765 / JMS I C5765 HLT / @@5643=7402 JMP L5641 / @@5644=5241 DCA D5762 / @@5645=3362 JMP I D5633 / long jump to L7402 @@5646=5633 L5647, C5647, 4233 / JMS D5633 TAD D5763 / @@5650=1363 DCA D5764 / @@5651=3364 DCA D5756 / @@5652=3356 DCA D5755 / @@5653=3355 JMP L5721 / @@5654=5321 DSF / (Light Pen Type 370) Skip if display @@5655=6071 JMP L0163 / @@5656=5163 C5657, C5657, 7402 / HLT LAS / @@5660=7604 RAR / @@5661=7010 SZL CLA / @@5662=7630 JMP I C5657 / long jump to L7402 @@5663=5657 C5664, 4656 / JMS I C5656 TAD D5764 / @@5665=1364 C5666, 4671 / JMS I C5671 CLA / @@5667=7200 JMP I C5657 / long jump to L7402 @@5670=5657 JMP L5703 / @@5671=5303 C5672, 5110 / JMP C0110 C5673, 0017 / AND AI7 L5674, C5674, 4233 / JMS D5633 TAD D5763 / @@5675=1363 AND C5761 / @@5676=0361 DCA D5633 / @@5677=3233 TAD D5764 / @@5700=1364 AND C5761 / @@5701=0361 CIA / @@5702=7041 L5703, TAD D5633 / @@5703=1233 SMA CLA / @@5704=7700 JMP L5707 / @@5705=5307 TAD C5760 / @@5706=1360 L5707, TAD D5764 / @@5707=1364 AND C5757 / @@5710=0357 TAD D5633 / @@5711=1233 DCA D5764 / @@5712=3364 TAD D5763 / @@5713=1363 CIA / @@5714=7041 TAD D5764 / @@5715=1364 DCA D5756 / @@5716=3356 TAD D5756 / @@5717=1356 DCA D5755 / @@5720=3355 L5721, TAD I C5754 / @@5721=1754 CIA / @@5722=7041 SNA / @@5723=7450 JMP L5743 / @@5724=5343 DCA D5633 / @@5725=3233 TAD C5753 / @@5726=1353 TAD I C5752 / @@5727=1752 TAD D5633 / @@5730=1233 DCA D5763 / @@5731=3363 TAD D5764 / @@5732=1364 DCA D5751 / @@5733=3351 L5734, TAD D5751 / @@5734=1351 DCA I D5763 / @@5735=3763 ISZ D5751 / @@5736=2351 ISZ D5751 / @@5737=2351 ISZ D5763 / @@5740=2363 ISZ D5633 / @@5741=2233 JMP L5734 / @@5742=5334 L5743, C5743, 4257 / JMS C5657 TAD D5762 / @@5744=1362 JMP L5603 / @@5745=5203 C5746, C5746, 6126 / MTLS C5747, 7760 / SMA SZA SNL CLA HLT / @@5750=7402 D5751, 7402 / HLT C5752, 5453 / JMP I C0053 C5753, 5520 / JMP I C0120 C5754, 5454 / JMP I C0054 D5755, 7402 / HLT D5756, 7402 / HLT C5757, 7600 / 7600 C5760, 0200 / AND L5600 C5761, 0177 / AND C0177 D5762, 7402 / HLT D5763, 7402 / HLT D5764, 7402 / HLT C5765, 5400 / JMP I C0000 C5766, C5766, 6060 / 6060 CLA CLL / AC = 0000 @@5767=7300 C5770, 4775 / JMS I L5775 C5771, 5460 / JMP I C0060 C5772, 0160 / AND C0160 JMP I C5774 / long jump to L5012 @@5773=5774 C5774, C5774, 5012 / JMP AI2 L5775, C5775, 5550 / JMP I C0150 C5776, 5444 / JMP I C0044 C5777, 5447 / JMP I C0047 L6000, TAD C6030 / @@6000=1230 SKP / @@6001=7410 L6002, TAD C6027 / @@6002=1227 DCA D6007 / @@6003=3207 L6004, C6004, 4754 / JMS I C6154 JMP L6060 / @@6005=5260 JMP L6126 / @@6006=5326 D6007, 7402 / HLT DCA D6032 / @@6010=3232 TAD D6032 / @@6011=1232 C6012, 4271 / JMS D6071 SZL CLA / @@6013=7630 JMP L6004 / @@6014=5204 TAD I D6032 / @@6015=1632 TAD I C6155 / @@6016=1755 DCA I D6032 / @@6017=3632 JMP L6004 / @@6020=5204 L6021, TAD C6031 / @@6021=1231 C6022, 4770 / JMS I C6170 JMP L6070 / @@6023=5270 C6024, C6024, 4700 / JMS I C6100 JMP L0163 / @@6025=5163 C6026, 5450 / JMP I C0050 C6027, 1755 / TAD I C6155 C6030, 7000 / NOP C6031, 0313 / AND L6113 D6032, 7402 / HLT LAS / @@6033=7604 RAR / @@6034=7010 SZL CLA / @@6035=7630 JMP I D6032 / long jump to L7402 @@6036=5632 TAD C6163 / @@6037=1363 C6040, 4770 / JMS I C6170 TAD C6162 / @@6041=1362 C6042, 4770 / JMS I C6170 TAD C6165 / @@6043=1365 TAD I C6161 / @@6044=1761 C6045, 4760 / JMS I C6160 CLA / @@6046=7200 JMP I D6032 / long jump to L7402 @@6047=5632 L6050, CLA CLL / AC = 0000 @@6050=7300 DCA I C6164 / @@6051=3764 JMP L6144 / @@6052=5344 L6053, DCA I C6164 / @@6053=3764 L6054, C6054, 4754 / JMS I C6154 JMP L6060 / @@6055=5260 JMP L6126 / @@6056=5326 C6057, C6057, 5254 / JMP L6054 L6060, DCA D6071 / @@6060=3271 C6061, 4232 / JMS D6032 C6062, 4625 / JMS I C6025 TAD I C6026 / @@6063=1626 CIA / @@6064=7041 TAD D6071 / @@6065=1271 SZA CLA / @@6066=7640 JMP L6021 / @@6067=5221 L6070, JMP L6173 / @@6070=5373 D6071, 7402 / HLT DCA D6172 / @@6072=3372 TAD D6172 / @@6073=1372 SNA CLA / @@6074=7650 JMP L6113 / @@6075=5313 TAD D6172 / @@6076=1372 C6077, 4771 / JMS I C6171 AND C0177 / @@6100=0177 SMA SZA SNL CLA / @@6101=7760 SZL CLA / @@6102=7630 L6103, JMP L6117 / @@6103=5317 TAD D6172 / @@6104=1372 C6105, 4771 / JMS I C6171 C6106, 6177 / 6177 C6107, 6440 / 6440 SZL CLA / @@6110=7630 JMP L6121 / @@6111=5321 JMP I D6071 / long jump to L7402 @@6112=5671 L6113, TAD C6125 / @@6113=1325 L6114, C6114, 4770 / JMS I C6170 CLA CLL CMA IAC / @@6115=7341 JMP I D6071 / long jump to L7402 @@6116=5671 L6117, TAD C6124 / @@6117=1324 JMP L6114 / @@6120=5314 L6121, TAD C6123 / @@6121=1323 JMP L6114 / @@6122=5314 C6123, 2214 / ISZ C6014 C6124, 3222 / DCA C6022 C6125, 2003 / ISZ C0003 L6126, DCA D6167 / @@6126=3367 TAD C6166 / @@6127=1366 CLL / @@6130=7100 TAD D6167 / @@6131=1367 SNL / @@6132=7420 JMP L6050 / @@6133=5250 SNA / @@6134=7450 JMP L6053 / @@6135=5253 TAD C6165 / @@6136=1365 SNA / @@6137=7450 JMP L6000 / @@6140=5200 L6141, TAD C6165 / @@6141=1365 SNA CLA / @@6142=7650 JMP L6002 / @@6143=5202 L6144, C6144, 4232 / JMS D6032 TAD D6167 / @@6145=1367 TAD I C6164 / @@6146=1764 DCA I C6161 / @@6147=3761 TAD I C6155 / @@6150=1755 DCA I C6164 / @@6151=3764 C6152, 4757 / JMS I C6157 JMP I C6156 / long jump to L5600 @@6153=5756 C6154, 5400 / JMP I C0000 C6155, 5755 / JMP I C6155 C6156, C6156, 5600 / JMP I L6000 JMP I C6057 / long jump to L5254 @@6157=5657 JMP L6103 / @@6160=5303 C6161, 5764 / JMP I C6164 C6162, 1735 / TAD I C6135 C6163, 3324 / DCA C6124 C6164, 5756 / JMP I C6156 C6165, 7777 / CLA MQA SCA MQL LSR + C6166, 7620 / SNL CLA D6167, 7402 / HLT JMP L6141 / @@6170=5341 C6171, 5540 / JMP I C0140 D6172, 7402 / HLT L6173, HLT / @@6173=7402 JMP I C6024 / long jump to L4700 @@6174=5624 C6175, 4004 / JMS C0004 C6176, 4006 / JMS C0006 C6177, 4010 / JMS AI0 $