TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhrka-b-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhrka-b-pb.bin / Generated 2010 02 19 00:10:25 / 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 / / 6310 locations used, 5501 code and 0607 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0003 / / Called from: / 7331 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0003, 0 / return area *0010 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 *0020 C0020, C0020, 7101 / CLL IAC C0021, C0021, 7055 / CMA IAC RAR RAL C0022, C0022, 6000 / 6000 C0023, 6411 / TTCL D0024, 5747 / JMP I C0147 C0025, 0210 / AND AI0 C0026, C0026, 6737 / 6737 C0027, C0027, 7007 / IAC RTL C0030, C0030, 6200 / 6200 L0031, C0031, C0031, 6400 / 6400 C0032, C0032, 6415 / 6415 C0033, C0033, 6425 / 6425 C0034, C0034, 6443 / 6443 D0035, 6551 / DAL1 C0036, C0036, 6567 / 6567 C0037, D0037, 7000 / NOP D0040, 6511 / PLPR C0041, C0041, 6474 / 6474 C0042, C0042, 6466 / 6466 C0043, C0043, 6452 / 6452 D0044, 6460 / 6460 C0045, C0045, 6501 / PLSF C0046, C0046, 6600 / 6600 C0047, C0047, 6505 / 6505 C0050, C0050, 6537 / 6537 C0051, C0051, 6701 / KSDR L0052, C0052, C0052, 6656 / 6656 C0053, C0053, 6631 / RCSF C0054, C0054, 6646 / 6646 C0055, 0240 / AND D0040 C0056, C0056, 0260 / AND C0060 C0057, 0000 / AND L0000 C0060, 0001 / AND L0001 C0061, 0002 / AND D0002 C0062, 0003 / AND S0003 L0063, C0063, 0004 / AND C0004 C0064, 0006 / AND C0006 C0065, 0007 / AND C0007 C0066, 0010 / AND AI0 C0067, 0020 / AND C0020 C0070, 0037 / AND D0037 C0071, 0040 / AND D0040 C0072, 0100 / AND C0100 C0073, 0200 / AND L0000 C0074, 0207 / AND C0007 C0075, 0400 / AND I L0000 C0076, 1000 / TAD L0000 D0077, 2000 / ISZ L0000 C0100, 3777 / DCA I C0177 C0101, 4000 / JMS L0000 C0102, 7000 / NOP C0103, 7776 / SPA SNA SZL CLA OSR HLT C0104, 7775 / CLA MQA SCA MQL ASR + C0105, 7700 / SMA CLA C0106, 7740 / SMA SZA CLA C0107, 0070 / AND C0070 C0110, 0077 / AND D0077 C0111, 0377 / AND C0177 C0112, 0177 / AND C0177 C0113, 2525 / ISZ I C0125 C0114, 5252 / JMP L0052 C0115, 3740 / DCA I C0140 C0116, 3737 / DCA I C0137 D0117, 7717 / CLA MQA LSR + C0120, 4100 / JMS C0100 C0121, 7600 / 7600 C0122, 5000 / JMP L0000 C0123, 5777 / JMP I C0177 C0124, 7774 / SPA SNA SZL CLA OSR C0125, 7771 / CLA MQA SCA MQL NMI C0126, 7777 / CLA MQA SCA MQL LSR + C0127, 7774 / SPA SNA SZL CLA OSR C0130, 7773 / CLA MQA SCA MQL SHL + L0131, C0131, 7771 / CLA MQA SCA MQL NMI C0132, 7764 / SMA SZA SNL CLA OSR C0133, 7760 / SMA SZA SNL CLA D0134, 7720 / SMA SNL CLA C0135, 7600 / 7600 MQA / @@0136=7501 C0137, 7401 / NOP C0140, 7324 / CLA CLL CML RAL C0141, 0017 / AND AI7 C0142, 0215 / AND AI5 C0143, 0212 / AND AI2 C0144, 6201 / CDF0 C0145, 6244 / RMF C0146, 5403 / JMP I S0003 C0147, 3776 / DCA I C0176 D0150, 0000 / AND L0000 D0151, 0000 / AND L0000 D0152, 0000 / AND L0000 D0153, 0000 / AND L0000 D0154, 0000 / AND L0000 D0155, 0000 / AND L0000 D0156, 0000 / AND L0000 D0157, 0000 / AND L0000 D0160, 0000 / AND L0000 D0161, 0000 / AND L0000 D0162, 0000 / AND L0000 D0163, 0000 / AND L0000 D0164, 0000 / AND L0000 D0165, 0000 / AND L0000 D0166, 0000 / AND L0000 D0167, 0000 / AND L0000 D0170, 0000 / AND L0000 D0171, 0000 / AND L0000 D0172, 0000 / AND L0000 D0173, 0000 / AND L0000 C0174, 2200 / ISZ L0000 D0175, 0000 / AND L0000 C0176, C0176, 7041 / CIA *0200 D0200, 5203 / JMP L0203 JMP I C0022 / long jump to L6000 @@0201=5422 JMP I C0020 / long jump to L7101 @@0202=5420 L0203, RIF / Same as RDF except reads the instruc @@0203=6224 DCA D0172 / @@0204=3172 TAD D0172 / @@0205=1172 TAD C0144 / @@0206=1144 DCA D0210 / @@0207=3210 D0210, 7402 / HLT JMS I C0176 / long call to S7041 @@0211=4576 TAD D0173 / @@0212=1173 SZA CLA / @@0213=7640 JMP L0217 / @@0214=5217 TAD I C0126 / @@0215=1526 DCA D0175 / @@0216=3175 L0217, LAS / @@0217=7604 AND C0065 / @@0220=0065 CMA / @@0221=7040 DCA D0173 / @@0222=3173 DCA D0150 / @@0223=3150 TAD C0174 / @@0224=1174 DCA D0160 / @@0225=3160 C0226, 1150 / TAD D0150 JMS I C0034 / long call to S6443 @@0227=4434 JMS I C0032 / long call to S6415 @@0230=4432 JMS I C0027 / long call to S7007 @@0231=4427 JMS I C0030 / long call to S6200 @@0232=4430 AND C0226 / @@0233=0226 JMP L0000 / @@0234=5000 C0235, 4441 / JMS I C0041 JMS I C0027 / long call to S7007 @@0236=4427 JMS I C0030 / long call to S6200 @@0237=4430 AND C0235 / @@0240=0235 C0241, 0006 / AND C0006 C0242, 4431 / JMS I L0031 JMS I C0027 / long call to S7007 @@0243=4427 JMS I C0030 / long call to S6200 @@0244=4430 AND C0242 / @@0245=0242 C0246, 0007 / AND C0007 DCA D0160 / @@0247=3160 C0250, 4435 / JMS I D0035 SNA CLA / @@0251=7650 JMS I C0027 / long call to S7007 @@0252=4427 JMS I C0030 / long call to S6200 @@0253=4430 AND C0250 / @@0254=0250 C0255, 4201 / JMS C0201 L0256, C0256, 1174 / TAD C0174 DCA D0160 / @@0257=3160 L0260, CLA CLL IAC / AC = 0001 @@0260=7301 JMS I C0045 / long call to S6501 @@0261=4445 TAD D0150 / @@0262=1150 JMS I C0042 / long call to S6466 @@0263=4442 JMS I C0034 / long call to S6443 @@0264=4434 JMS I C0032 / long call to S6415 @@0265=4432 JMS I C0027 / long call to S7007 @@0266=4427 JMS I C0030 / long call to S6200 @@0267=4430 AND L0256 / @@0270=0256 JMP L0000 / @@0271=5000 C0272, 1150 / TAD D0150 DCA D0160 / @@0273=3160 TAD D0150 / @@0274=1150 JMS I C0041 / long call to S6474 @@0275=4441 NOP / @@0276=7000 JMS I C0032 / long call to S6415 @@0277=4432 JMS I C0027 / long call to S7007 @@0300=4427 JMS I C0030 / long call to S6200 @@0301=4430 AND C0272 / @@0302=0272 JMS AI0 / AUTO INDEX REGISTER @@0303=4010 DCA D0160 / @@0304=3160 C0305, 1150 / TAD D0150 JMS I C0043 / long call to S6452 @@0306=4443 JMS I C0032 / long call to S6415 @@0307=4432 JMS I C0027 / long call to S7007 @@0310=4427 JMS I C0030 / long call to S6200 @@0311=4430 AND C0305 / @@0312=0305 JMS AI0 / AUTO INDEX REGISTER @@0313=4010 C0314, 1150 / TAD D0150 JMS I C0042 / long call to S6466 @@0315=4442 JMS I C0032 / long call to S6415 @@0316=4432 JMS I C0027 / long call to S7007 @@0317=4427 JMS I C0030 / long call to S6200 @@0320=4430 AND C0314 / @@0321=0314 JMS AI0 / AUTO INDEX REGISTER @@0322=4010 C0323, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@0324=4445 TAD D0151 / @@0325=1151 JMS I D0044 / long call to S6460 @@0326=4444 JMS I C0032 / long call to S6415 @@0327=4432 JMS I C0027 / long call to S7007 @@0330=4427 JMS I C0030 / long call to S6200 @@0331=4430 AND C0323 / @@0332=0323 JMS AI0 / AUTO INDEX REGISTER @@0333=4010 C0334, 1150 / TAD D0150 JMS I C0045 / long call to S6501 @@0335=4445 JMS I C0032 / long call to S6415 @@0336=4432 JMS I C0027 / long call to S7007 @@0337=4427 JMS I C0030 / long call to S6200 @@0340=4430 AND C0334 / @@0341=0334 JMS AI0 / AUTO INDEX REGISTER @@0342=4010 C0343, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@0344=4445 TAD D0150 / @@0345=1150 CLL RAR / @@0346=7110 SZL CLA / @@0347=7630 STA / AC = 7777 (-0001) @@0350=7240 DCA D0160 / @@0351=3160 TAD D0160 / @@0352=1160 CMA / @@0353=7040 JMS I C0042 / long call to S6466 @@0354=4442 TAD D0160 / @@0355=1160 JMS I C0042 / long call to S6466 @@0356=4442 JMS I D0035 / long call to S6551 @@0357=4435 JMS I C0032 / long call to S6415 @@0360=4432 JMS I C0027 / long call to S7007 @@0361=4427 JMS I C0030 / long call to S6200 @@0362=4430 AND C0343 / @@0363=0343 C0364, 4201 / JMS C0201 CLA CLL IAC / AC = 0001 @@0365=7301 JMS I C0045 / long call to S6501 @@0366=4445 TAD D0150 / @@0367=1150 CLL RAR / @@0370=7110 SZL CLA / @@0371=7630 TAD C0113 / @@0372=1113 TAD C0113 / @@0373=1113 DCA D0160 / @@0374=3160 TAD D0160 / @@0375=1160 CMA / @@0376=7040 JMS I C0042 / long call to S6466 @@0377=4442 TAD D0160 / @@0400=1160 JMS I C0042 / long call to S6466 @@0401=4442 JMS I D0035 / long call to S6551 @@0402=4435 JMS I C0032 / long call to S6415 @@0403=4432 JMS I C0027 / long call to S7007 @@0404=4427 JMS I C0030 / long call to S6200 @@0405=4430 AND C0565 / @@0406=0365 C0407, 4201 / JMS C0401 TAD D0151 / @@0410=1151 JMS I C0042 / long call to S6466 @@0411=4442 TAD D0150 / @@0412=1150 DCA D0160 / @@0413=3160 TAD D0150 / @@0414=1150 JMS I C0042 / long call to S6466 @@0415=4442 JMS I D0035 / long call to S6551 @@0416=4435 JMS I C0032 / long call to S6415 @@0417=4432 JMS I C0027 / long call to S7007 @@0420=4427 JMS I C0030 / long call to S6200 @@0421=4430 AND I AI0 / AUTO INDEX REGISTER @@0422=0410 C0423, 4201 / JMS C0401 TAD D0150 / @@0424=1150 JMS I C0042 / long call to S6466 @@0425=4442 TAD D0151 / @@0426=1151 DCA D0160 / @@0427=3160 TAD D0151 / @@0430=1151 JMS I C0042 / long call to S6466 @@0431=4442 JMS I C0045 / long call to S6501 @@0432=4445 JMS I D0035 / long call to S6551 @@0433=4435 JMS I C0032 / long call to S6415 @@0434=4432 JMS I C0027 / long call to S7007 @@0435=4427 JMS I C0030 / long call to S6200 @@0436=4430 AND I D0024 / @@0437=0424 C0440, 4201 / JMS C0401 DCA D0160 / @@0441=3160 TAD D0150 / @@0442=1150 JMS I C0042 / long call to S6466 @@0443=4442 CLA CLL IAC / AC = 0001 @@0444=7301 JMS I C0045 / long call to S6501 @@0445=4445 JMS I D0035 / long call to S6551 @@0446=4435 SNA CLA / @@0447=7650 JMS I C0027 / long call to S7007 @@0450=4427 JMS I C0030 / long call to S6200 @@0451=4430 AND I C0042 / @@0452=0442 C0453, 4201 / JMS C0401 CLA CLL IAC / AC = 0001 @@0454=7301 JMS I C0045 / long call to S6501 @@0455=4445 TAD C0132 / @@0456=1132 DCA D0153 / @@0457=3153 TAD D0150 / @@0460=1150 CLL RAR / @@0461=7110 SZL CLA / @@0462=7630 CLA CLL CMA / AC = 7777 (-0001) @@0463=7340 JMS I D0044 / long call to S6460 @@0464=4444 TAD D0166 / @@0465=1166 AND C0070 / @@0466=0070 DCA D0160 / @@0467=3160 JMS I D0037 / long call to S7000 @@0470=4437 TAD C0073 / @@0471=1073 L0472, JMS I C0047 / long call to S6505 @@0472=4447 ISZ D0153 / @@0473=2153 JMP L0472 / @@0474=5272 CLA CLL / AC = 0000 @@0475=7300 TAD C0067 / @@0476=1067 JMS I C0047 / long call to S6505 @@0477=4447 DCA D0166 / @@0500=3166 TAD D0166 / @@0501=1166 JMS I C0032 / long call to S6415 @@0502=4432 JMS I C0027 / long call to S7007 @@0503=4427 JMS I C0030 / long call to S6200 @@0504=4430 AND I C0054 / @@0505=0454 C0506, 4102 / JMS C0102 C0507, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@0510=4445 TAD C0132 / @@0511=1132 DCA D0153 / @@0512=3153 TAD D0150 / @@0513=1150 AND C0070 / @@0514=0070 DCA D0160 / @@0515=3160 TAD D0150 / @@0516=1150 JMS I D0044 / long call to S6460 @@0517=4444 JMS I D0037 / long call to S7000 @@0520=4437 TAD C0073 / @@0521=1073 L0522, C0522, 4447 / JMS I C0047 ISZ D0153 / @@0523=2153 JMP L0522 / @@0524=5322 CLA CLL / AC = 0000 @@0525=7300 TAD C0067 / @@0526=1067 JMS I C0047 / long call to S6505 @@0527=4447 DCA D0166 / @@0530=3166 TAD D0166 / @@0531=1166 JMS I C0032 / long call to S6415 @@0532=4432 JMS I C0027 / long call to S7007 @@0533=4427 JMS I C0030 / long call to S6200 @@0534=4430 AND I C0107 / @@0535=0507 C0536, 4102 / JMS C0102 CLA CLL IAC / AC = 0001 @@0537=7301 JMS I C0045 / long call to S6501 @@0540=4445 TAD D0150 / @@0541=1150 CLL RAR / @@0542=7110 SZL CLA / @@0543=7630 STA / AC = 7777 (-0001) @@0544=7240 DCA D0160 / @@0545=3160 TAD D0160 / @@0546=1160 CMA / @@0547=7040 JMS I D0044 / long call to S6460 @@0550=4444 TAD D0160 / @@0551=1160 JMS I D0044 / long call to S6460 @@0552=4444 JMS I D0040 / long call to S6511 @@0553=4440 JMS I C0032 / long call to S6415 @@0554=4432 JMS I C0027 / long call to S7007 @@0555=4427 JMS I C0030 / long call to S6200 @@0556=4430 AND I C0137 / @@0557=0537 C0560, 4102 / JMS C0102 CLA CLL IAC / AC = 0001 @@0561=7301 JMS I C0045 / long call to S6501 @@0562=4445 TAD D0150 / @@0563=1150 CLL RAR / @@0564=7110 C0565, 7630 / SZL CLA TAD C0113 / @@0566=1113 TAD C0113 / @@0567=1113 DCA D0160 / @@0570=3160 TAD D0160 / @@0571=1160 CMA / @@0572=7040 JMS I D0044 / long call to S6460 @@0573=4444 TAD D0160 / @@0574=1160 JMS I D0044 / long call to S6460 @@0575=4444 JMS I D0040 / long call to S6511 @@0576=4440 JMS I C0032 / long call to S6415 @@0577=4432 JMS I C0027 / long call to S7007 @@0600=4427 JMS I C0030 / long call to S6200 @@0601=4430 AND I D0161 / @@0602=0561 C0603, 4102 / JMS C0102 C0604, 1150 / TAD D0150 DCA D0160 / @@0605=3160 TAD D0150 / @@0606=1150 JMS I D0044 / long call to S6460 @@0607=4444 JMS I D0040 / long call to S6511 @@0610=4440 JMS I C0032 / long call to S6415 @@0611=4432 JMS I C0027 / long call to S7007 @@0612=4427 JMS I C0030 / long call to S6200 @@0613=4430 AND I C0604 / @@0614=0604 C0615, 4102 / JMS C0102 C0616, 1150 / TAD D0150 DCA D0160 / @@0617=3160 TAD D0151 / @@0620=1151 JMS I D0044 / long call to S6460 @@0621=4444 TAD D0150 / @@0622=1150 JMS I D0044 / long call to S6460 @@0623=4444 JMS I C0045 / long call to S6501 @@0624=4445 JMS I D0040 / long call to S6511 @@0625=4440 JMS I C0032 / long call to S6415 @@0626=4432 JMS I C0027 / long call to S7007 @@0627=4427 JMS I C0030 / long call to S6200 @@0630=4430 AND I C0616 / @@0631=0616 C0632, 4102 / JMS C0102 C0633, 1150 / TAD D0150 DCA D0160 / @@0634=3160 TAD D0150 / @@0635=1150 JMS I D0044 / long call to S6460 @@0636=4444 CLA CLL IAC / AC = 0001 @@0637=7301 JMS I C0045 / long call to S6501 @@0640=4445 JMS I D0040 / long call to S6511 @@0641=4440 JMS I C0032 / long call to S6415 @@0642=4432 JMS I C0027 / long call to S7007 @@0643=4427 JMS I C0030 / long call to S6200 @@0644=4430 AND I C0633 / @@0645=0633 C0646, 4102 / JMS C0102 C0647, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@0650=4445 TAD D0150 / @@0651=1150 CLL RAR / @@0652=7110 SZL CLA / @@0653=7630 STA / AC = 7777 (-0001) @@0654=7240 AND C0106 / @@0655=0106 DCA D0160 / @@0656=3160 RAL / @@0657=7004 DCA D0157 / @@0660=3157 TAD D0157 / @@0661=1157 JMS I C0042 / long call to S6466 @@0662=4442 TAD D0160 / @@0663=1160 JMS I D0044 / long call to S6460 @@0664=4444 JMS I C0046 / long call to S6600 @@0665=4446 JMS I C0033 / long call to S6425 @@0666=4433 JMS I C0027 / long call to S7007 @@0667=4427 JMS I C0030 / long call to S6200 @@0670=4430 AND I C0647 / @@0671=0647 C0672, 6004 / 6004 C0673, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@0674=4445 TAD D0150 / @@0675=1150 CLL RAR / @@0676=7110 SZL CLA / @@0677=7630 TAD C0113 / @@0700=1113 TAD C0113 / @@0701=1113 AND C0106 / @@0702=0106 DCA D0160 / @@0703=3160 RAL / @@0704=7004 DCA D0157 / @@0705=3157 TAD D0157 / @@0706=1157 JMS I C0042 / long call to S6466 @@0707=4442 TAD D0160 / @@0710=1160 JMS I D0044 / long call to S6460 @@0711=4444 JMS I C0046 / long call to S6600 @@0712=4446 JMS I C0033 / long call to S6425 @@0713=4433 JMS I C0027 / long call to S7007 @@0714=4427 JMS I C0030 / long call to S6200 @@0715=4430 AND I C0673 / @@0716=0673 C0717, 6004 / 6004 C0720, 1150 / TAD D0150 CLL RTL / @@0721=7106 RTL / @@0722=7006 RAL / @@0723=7004 AND C0106 / @@0724=0106 DCA D0160 / @@0725=3160 RAL / @@0726=7004 DCA D0157 / @@0727=3157 TAD D0157 / @@0730=1157 JMS I C0042 / long call to S6466 @@0731=4442 TAD D0160 / @@0732=1160 JMS I D0044 / long call to S6460 @@0733=4444 JMS I C0046 / long call to S6600 @@0734=4446 JMS I C0033 / long call to S6425 @@0735=4433 JMS I C0027 / long call to S7007 @@0736=4427 JMS I C0030 / long call to S6200 @@0737=4430 AND I C0720 / @@0740=0720 C0741, 6004 / 6004 C0742, 1151 / TAD D0151 CLL RTL / @@0743=7106 RTL / @@0744=7006 RAL / @@0745=7004 AND C0106 / @@0746=0106 DCA D0160 / @@0747=3160 RAL / @@0750=7004 DCA D0157 / @@0751=3157 TAD D0157 / @@0752=1157 JMS I C0042 / long call to S6466 @@0753=4442 TAD D0160 / @@0754=1160 JMS I D0044 / long call to S6460 @@0755=4444 TAD D0151 / @@0756=1151 AND C0104 / @@0757=0104 JMS I C0045 / long call to S6501 @@0760=4445 JMS I C0046 / long call to S6600 @@0761=4446 JMS I C0033 / long call to S6425 @@0762=4433 JMS I C0027 / long call to S7007 @@0763=4427 JMS I C0030 / long call to S6200 @@0764=4430 AND I C0742 / @@0765=0742 C0766, 6004 / 6004 CLA CLL IAC / AC = 0001 @@0767=7301 JMS I C0045 / long call to S6501 @@0770=4445 TAD D0150 / @@0771=1150 CLL RAR / @@0772=7110 SZL CLA / @@0773=7630 TAD C0113 / @@0774=1113 TAD C0113 / @@0775=1113 AND C0106 / @@0776=0106 DCA D0160 / @@0777=3160 RAL / @@1000=7004 DCA D0157 / @@1001=3157 TAD D0157 / @@1002=1157 JMS I C0042 / long call to S6466 @@1003=4442 TAD D0160 / @@1004=1160 JMS I D0044 / long call to S6460 @@1005=4444 TAD D0151 / @@1006=1151 JMS I C0034 / long call to S6443 @@1007=4434 TAD D0151 / @@1010=1151 JMS I C0041 / long call to S6474 @@1011=4441 NOP / @@1012=7000 JMS I C0050 / long call to S6537 @@1013=4450 TAD D0151 / @@1014=1151 JMS I C0043 / long call to S6452 @@1015=4443 TAD D0151 / @@1016=1151 JMS I C0042 / long call to S6466 @@1017=4442 TAD D0150 / @@1020=1150 JMS I C0021 / long call to S7055 @@1021=4421 JMS I C0046 / long call to S6600 @@1022=4446 JMS I C0033 / long call to S6425 @@1023=4433 JMS I C0027 / long call to S7007 @@1024=4427 JMS I C0030 / long call to S6200 @@1025=4430 AND I C1167 / @@1026=0767 C1027, 6004 / 6004 CLA CLL IAC / AC = 0001 @@1030=7301 JMS I C0045 / long call to S6501 @@1031=4445 DCA D0160 / @@1032=3160 TAD D0150 / @@1033=1150 JMS I D0044 / long call to S6460 @@1034=4444 TAD D0077 / @@1035=1077 JMS I C0042 / long call to S6466 @@1036=4442 TAD D0151 / @@1037=1151 JMS I D0044 / long call to S6460 @@1040=4444 JMS I D0040 / long call to S6511 @@1041=4440 JMS I C0032 / long call to S6415 @@1042=4432 JMS I C0027 / long call to S7007 @@1043=4427 JMS I C0030 / long call to S6200 @@1044=4430 TAD C0030 / @@1045=1030 C1046, 4102 / JMS C0102 TAD D0150 / @@1047=1150 DCA D0160 / @@1050=3160 TAD D0150 / @@1051=1150 JMS I D0044 / long call to S6460 @@1052=4444 TAD D0151 / @@1053=1151 AND C0123 / @@1054=0123 JMS I C0042 / long call to S6466 @@1055=4442 TAD D0151 / @@1056=1151 JMS I C0043 / long call to S6452 @@1057=4443 TAD D0151 / @@1060=1151 JMS I C0041 / long call to S6474 @@1061=4441 NOP / @@1062=7000 JMS I C0034 / long call to S6443 @@1063=4434 TAD D0151 / @@1064=1151 JMS I C0021 / long call to S7055 @@1065=4421 JMS I C0050 / long call to S6537 @@1066=4450 CLA CLL / AC = 0000 @@1067=7300 JMS I C0045 / long call to S6501 @@1070=4445 JMS I D0040 / long call to S6511 @@1071=4440 JMS I C0032 / long call to S6415 @@1072=4432 JMS I C0027 / long call to S7007 @@1073=4427 JMS I C0030 / long call to S6200 @@1074=4430 TAD C0047 / @@1075=1047 C1076, 4102 / JMS C0102 CLA CLL IAC / AC = 0001 @@1077=7301 JMS I C0045 / long call to S6501 @@1100=4445 TAD D0150 / @@1101=1150 DCA D0160 / @@1102=3160 TAD D0150 / @@1103=1150 JMS I C0042 / long call to S6466 @@1104=4442 TAD D0151 / @@1105=1151 JMS I D0044 / long call to S6460 @@1106=4444 TAD D0151 / @@1107=1151 JMS I C0043 / long call to S6452 @@1110=4443 TAD D0151 / @@1111=1151 JMS I C0041 / long call to S6474 @@1112=4441 NOP / @@1113=7000 JMS I C0034 / long call to S6443 @@1114=4434 TAD D0151 / @@1115=1151 JMS I C0021 / long call to S7055 @@1116=4421 JMS I C0050 / long call to S6537 @@1117=4450 CLA CLL / AC = 0000 @@1120=7300 JMS I C0045 / long call to S6501 @@1121=4445 CLA CLL CML RTL / AC = 0002 @@1122=7326 JMS I C0045 / long call to S6501 @@1123=4445 JMS I D0035 / long call to S6551 @@1124=4435 JMS I C0032 / long call to S6415 @@1125=4432 JMS I C0027 / long call to S7007 @@1126=4427 JMS I C0030 / long call to S6200 @@1127=4430 TAD D0077 / @@1130=1077 C1131, 4201 / JMS C1001 CLA CLL IAC / AC = 0001 @@1132=7301 JMS I C0045 / long call to S6501 @@1133=4445 JMS I C0036 / long call to S6567 @@1134=4436 CLA CLL CML RTL / AC = 0002 @@1135=7326 JMS I C0045 / long call to S6501 @@1136=4445 CLA CLL CML RTL / AC = 0002 @@1137=7326 JMS I C0045 / long call to S6501 @@1140=4445 DCA D0160 / @@1141=3160 TAD D0150 / @@1142=1150 JMS I C0042 / long call to S6466 @@1143=4442 L1144, JMS I D0035 / long call to S6551 @@1144=4435 JMS I C0032 / long call to S6415 @@1145=4432 JMS I C0027 / long call to S7007 @@1146=4427 JMS I C0030 / long call to S6200 @@1147=4430 C1150, 1132 / TAD C0132 C1151, 4201 / JMS C1001 CLA CLL IAC / AC = 0001 @@1152=7301 JMS I C0045 / long call to S6501 @@1153=4445 JMS I C0036 / long call to S6567 @@1154=4436 TAD D0150 / @@1155=1150 DCA D0160 / @@1156=3160 TAD D0160 / @@1157=1160 JMS I D0044 / long call to S6460 @@1160=4444 CLA CLL CML RTL / AC = 0002 @@1161=7326 JMS I C0045 / long call to S6501 @@1162=4445 TAD D0151 / @@1163=1151 JMS I D0044 / long call to S6460 @@1164=4444 JMS I D0040 / long call to S6511 @@1165=4440 JMS I C0032 / long call to S6415 @@1166=4432 C1167, 4427 / JMS I C0027 JMS I C0030 / long call to S6200 @@1170=4430 TAD D0152 / @@1171=1152 C1172, 4102 / JMS C0102 CLA CLL IAC / AC = 0001 @@1173=7301 JMS I C0045 / long call to S6501 @@1174=4445 TAD D0150 / @@1175=1150 AND C0116 / @@1176=0116 DCA D0160 / @@1177=3160 TAD D0160 / @@1200=1160 JMS I C0047 / long call to S6505 @@1201=4447 JMS I C0032 / long call to S6415 @@1202=4432 JMS I C0027 / long call to S7007 @@1203=4427 JMS I C0030 / long call to S6200 @@1204=4430 TAD D0173 / @@1205=1173 JMS AI0 / AUTO INDEX REGISTER @@1206=4010 C1207, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1210=4445 TAD D0150 / @@1211=1150 AND D0117 / @@1212=0117 DCA D0160 / @@1213=3160 TAD D0160 / @@1214=1160 JMS I C0047 / long call to S6505 @@1215=4447 JMS I C0032 / long call to S6415 @@1216=4432 JMS I C0027 / long call to S7007 @@1217=4427 JMS I C0030 / long call to S6200 @@1220=4430 TAD C1207 / @@1221=1207 JMS AI0 / AUTO INDEX REGISTER @@1222=4010 C1223, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1224=4445 TAD D0150 / @@1225=1150 DCA D0160 / @@1226=3160 TAD D0150 / @@1227=1150 JMS I C0042 / long call to S6466 @@1230=4442 TAD C0132 / @@1231=1132 DCA D0153 / @@1232=3153 JMS I D0037 / long call to S7000 @@1233=4437 TAD C0075 / @@1234=1075 L1235, JMS I C0047 / long call to S6505 @@1235=4447 ISZ D0153 / @@1236=2153 JMP L1235 / @@1237=5235 CLA CLL / AC = 0000 @@1240=7300 JMS I C0047 / long call to S6505 @@1241=4447 TAD C0067 / @@1242=1067 JMS I C0047 / long call to S6505 @@1243=4447 DCA D0164 / @@1244=3164 TAD D0164 / @@1245=1164 JMS I C0032 / long call to S6415 @@1246=4432 JMS I C0027 / long call to S7007 @@1247=4427 JMS I C0030 / long call to S6200 @@1250=4430 TAD C1223 / @@1251=1223 C1252, 4405 / JMS I C0005 C1253, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1254=4445 TAD C0067 / @@1255=1067 DCA D0160 / @@1256=3160 TAD D0150 / @@1257=1150 JMS I C0042 / long call to S6466 @@1260=4442 TAD C0132 / @@1261=1132 DCA D0153 / @@1262=3153 JMS I D0037 / long call to S7000 @@1263=4437 TAD C0075 / @@1264=1075 L1265, JMS I C0047 / long call to S6505 @@1265=4447 ISZ D0153 / @@1266=2153 JMP L1265 / @@1267=5265 CLA CLL IAC / AC = 0001 @@1270=7301 JMS I C0045 / long call to S6501 @@1271=4445 TAD C0067 / @@1272=1067 JMS I C0047 / long call to S6505 @@1273=4447 JMS I C0032 / long call to S6415 @@1274=4432 JMS I C0027 / long call to S7007 @@1275=4427 JMS I C0030 / long call to S6200 @@1276=4430 TAD C1253 / @@1277=1253 JMS AI0 / AUTO INDEX REGISTER @@1300=4010 C1301, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1302=4445 TAD D0150 / @@1303=1150 CLL RAR / @@1304=7110 SZL CLA / @@1305=7630 CLA CLL CMA / AC = 7777 (-0001) @@1306=7340 DCA D0160 / @@1307=3160 TAD D0160 / @@1310=1160 AND C0141 / @@1311=0141 DCA D0157 / @@1312=3157 TAD C0133 / @@1313=1133 DCA D0153 / @@1314=3153 JMS I C0036 / long call to S6567 @@1315=4436 TAD D0150 / @@1316=1150 CLL RAL / @@1317=7104 AND C0061 / @@1320=0061 TAD C0076 / @@1321=1076 L1322, JMS I C0047 / long call to S6505 @@1322=4447 ISZ D0153 / @@1323=2153 JMP L1322 / @@1324=5322 JMS I C0046 / long call to S6600 @@1325=4446 C1326, 4433 / JMS I C0033 JMS I C0027 / long call to S7007 @@1327=4427 JMS I C0030 / long call to S6200 @@1330=4430 TAD C1301 / @@1331=1301 C1332, 6004 / 6004 C1333, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1334=4445 TAD C0114 / @@1335=1114 DCA D0160 / @@1336=3160 TAD D0160 / @@1337=1160 AND C0141 / @@1340=0141 DCA D0157 / @@1341=3157 TAD C0133 / @@1342=1133 DCA D0153 / @@1343=3153 JMS I C0036 / long call to S6567 @@1344=4436 L1345, CLA CLL / AC = 0000 @@1345=7300 TAD D0153 / @@1346=1153 RAL / @@1347=7004 AND C0061 / @@1350=0061 TAD C0076 / @@1351=1076 JMS I C0047 / long call to S6505 @@1352=4447 ISZ D0153 / @@1353=2153 JMP L1345 / @@1354=5345 JMS I C0046 / long call to S6600 @@1355=4446 JMS I C0033 / long call to S6425 @@1356=4433 JMS I C0027 / long call to S7007 @@1357=4427 JMS I C0030 / long call to S6200 @@1360=4430 TAD C1333 / @@1361=1333 C1362, 6004 / 6004 JMP I C1364 / long jump to L1400 @@1363=5764 C1364, C1364, 1400 / TAD I L0000 *1400 L1400, CLA CLL IAC / AC = 0001 @@1400=7301 JMS I C0045 / long call to S6501 @@1401=4445 TAD C0113 / @@1402=1113 DCA D0160 / @@1403=3160 TAD D0160 / @@1404=1160 AND C0141 / @@1405=0141 DCA D0157 / @@1406=3157 TAD C0133 / @@1407=1133 DCA D0153 / @@1410=3153 JMS I C0036 / long call to S6567 @@1411=4436 L1412, CLA CLL / AC = 0000 @@1412=7300 TAD D0153 / @@1413=1153 CMA RAL / @@1414=7044 AND C0061 / @@1415=0061 TAD C0076 / @@1416=1076 JMS I C0047 / long call to S6505 @@1417=4447 ISZ D0153 / @@1420=2153 JMP L1412 / @@1421=5212 JMS I C0046 / long call to S6600 @@1422=4446 JMS I C0033 / long call to S6425 @@1423=4433 JMS I C0027 / long call to S7007 @@1424=4427 JMS I C0030 / long call to S6200 @@1425=4430 TAD I L0000 / @@1426=1400 C1427, 6004 / 6004 CLA CLL IAC / AC = 0001 @@1430=7301 JMS I C0045 / long call to S6501 @@1431=4445 TAD D0150 / @@1432=1150 DCA D0160 / @@1433=3160 TAD D0150 / @@1434=1150 AND C0141 / @@1435=0141 DCA D0157 / @@1436=3157 CLA CLL IAC / AC = 0001 @@1437=7301 DCA D0153 / @@1440=3153 TAD C0133 / @@1441=1133 DCA D0154 / @@1442=3154 JMS I C0036 / long call to S6567 @@1443=4436 L1444, TAD D0150 / @@1444=1150 AND D0153 / @@1445=0153 SZA CLA / @@1446=7640 TAD C0061 / @@1447=1061 TAD C0076 / @@1450=1076 JMS I C0047 / long call to S6505 @@1451=4447 CLA CLL / AC = 0000 @@1452=7300 TAD D0153 / @@1453=1153 L1454, RAL / @@1454=7004 DCA D0153 / @@1455=3153 SZL CLA / @@1456=7630 JMP L1454 / @@1457=5254 ISZ D0154 / @@1460=2154 JMP L1444 / @@1461=5244 JMS I C0046 / long call to S6600 @@1462=4446 JMS I C0033 / long call to S6425 @@1463=4433 JMS I C0027 / long call to S7007 @@1464=4427 JMS I C0030 / long call to S6200 @@1465=4430 TAD I C0030 / @@1466=1430 C1467, 6004 / 6004 CLA CLL IAC / AC = 0001 @@1470=7301 JMS I C0045 / long call to S6501 @@1471=4445 DCA D0160 / @@1472=3160 DCA D0157 / @@1473=3157 CLA CLL IAC / AC = 0001 @@1474=7301 DCA D0153 / @@1475=3153 TAD C0133 / @@1476=1133 DCA D0154 / @@1477=3154 JMS I C0036 / long call to S6567 @@1500=4436 L1501, TAD D0151 / @@1501=1151 AND D0153 / @@1502=0153 SZA CLA / @@1503=7640 TAD C0061 / @@1504=1061 TAD C0076 / @@1505=1076 JMS I C0047 / long call to S6505 @@1506=4447 CLA CLL / AC = 0000 @@1507=7300 TAD D0153 / @@1510=1153 L1511, RAL / @@1511=7004 DCA D0153 / @@1512=3153 SZL CLA / @@1513=7630 JMP L1511 / @@1514=5311 ISZ D0154 / @@1515=2154 JMP L1501 / @@1516=5301 JMS I D0044 / long call to S6460 @@1517=4444 JMS I C0046 / long call to S6600 @@1520=4446 JMS I C0033 / long call to S6425 @@1521=4433 JMS I C0027 / long call to S7007 @@1522=4427 JMS I C0030 / long call to S6200 @@1523=4430 TAD I C0070 / @@1524=1470 C1525, 6004 / 6004 CLA CLL IAC / AC = 0001 @@1526=7301 JMS I C0045 / long call to S6501 @@1527=4445 TAD D0150 / @@1530=1150 CLL RAR / @@1531=7110 SZL CLA / @@1532=7630 STA / AC = 7777 (-0001) @@1533=7240 DCA D0160 / @@1534=3160 TAD D0160 / @@1535=1160 JMS I C0021 / long call to S7055 @@1536=4421 JMS I C0050 / long call to S6537 @@1537=4450 JMS I C0032 / long call to S6415 @@1540=4432 JMS I C0027 / long call to S7007 @@1541=4427 JMS I C0030 / long call to S6200 @@1542=4430 TAD I C0126 / @@1543=1526 C1544, 4405 / JMS I C0005 CLA CLL IAC / AC = 0001 @@1545=7301 JMS I C0045 / long call to S6501 @@1546=4445 TAD D0150 / @@1547=1150 CLL RAR / @@1550=7110 SZL CLA / @@1551=7630 TAD C0113 / @@1552=1113 TAD C0113 / @@1553=1113 DCA D0160 / @@1554=3160 TAD D0160 / @@1555=1160 JMS I C0021 / long call to S7055 @@1556=4421 JMS I C0050 / long call to S6537 @@1557=4450 JMS I C0032 / long call to S6415 @@1560=4432 JMS I C0027 / long call to S7007 @@1561=4427 JMS I C0030 / long call to S6200 @@1562=4430 TAD I C0145 / @@1563=1545 C1564, 4405 / JMS I C0005 CLA CLL IAC / AC = 0001 @@1565=7301 JMS I C0045 / long call to S6501 @@1566=4445 TAD D0151 / @@1567=1151 DCA D0160 / @@1570=3160 TAD D0160 / @@1571=1160 JMS I C0021 / long call to S7055 @@1572=4421 JMS I C0050 / long call to S6537 @@1573=4450 JMS I C0032 / long call to S6415 @@1574=4432 JMS I C0027 / long call to S7007 @@1575=4427 JMS I C0030 / long call to S6200 @@1576=4430 TAD I D0165 / @@1577=1565 C1600, 4405 / JMS I C0005 C1601, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1602=4445 TAD D0150 / @@1603=1150 DCA D0160 / @@1604=3160 TAD D0150 / @@1605=1150 JMS I C0021 / long call to S7055 @@1606=4421 JMS I C0050 / long call to S6537 @@1607=4450 JMS I C0032 / long call to S6415 @@1610=4432 JMS I C0027 / long call to S7007 @@1611=4427 JMS I C0030 / long call to S6200 @@1612=4430 TAD I C1601 / @@1613=1601 C1614, 4405 / JMS I C0005 C1615, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1616=4445 TAD D0150 / @@1617=1150 DCA D0156 / @@1620=3156 TAD C0127 / @@1621=1127 DCA D0155 / @@1622=3155 L1623, TAD D0156 / @@1623=1156 JMS I C0021 / long call to S7055 @@1624=4421 CLA CLL IAC / AC = 0001 @@1625=7301 TAD D0156 / @@1626=1156 DCA D0156 / @@1627=3156 ISZ D0155 / @@1630=2155 JMP L1623 / @@1631=5223 TAD D0150 / @@1632=1150 DCA D0160 / @@1633=3160 TAD C0127 / @@1634=1127 DCA D0155 / @@1635=3155 L1636, JMS I C0050 / long call to S6537 @@1636=4450 JMS I C0032 / long call to S6415 @@1637=4432 SKP CLA / @@1640=7610 JMP L1647 / @@1641=5247 ISZ D0160 / @@1642=2160 NOP / @@1643=7000 ISZ D0155 / @@1644=2155 JMP L1636 / @@1645=5236 JMS I C0027 / long call to S7007 @@1646=4427 L1647, JMS I C0030 / long call to S6200 @@1647=4430 TAD I C1615 / @@1650=1615 C1651, 4405 / JMS I C0005 C1652, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1653=4445 TAD D0151 / @@1654=1151 DCA D0160 / @@1655=3160 TAD C0127 / @@1656=1127 DCA D0153 / @@1657=3153 L1660, TAD D0160 / @@1660=1160 JMS I C0021 / long call to S7055 @@1661=4421 ISZ D0153 / @@1662=2153 JMP L1660 / @@1663=5260 TAD D0150 / @@1664=1150 JMS I D0044 / long call to S6460 @@1665=4444 TAD D0150 / @@1666=1150 JMS I C0043 / long call to S6452 @@1667=4443 TAD D0150 / @@1670=1150 AND C0100 / @@1671=0100 JMS I C0042 / long call to S6466 @@1672=4442 TAD D0150 / @@1673=1150 JMS I C0041 / long call to S6474 @@1674=4441 NOP / @@1675=7000 JMS I C0034 / long call to S6443 @@1676=4434 CLA CLL / AC = 0000 @@1677=7300 JMS I C0045 / long call to S6501 @@1700=4445 TAD C0127 / @@1701=1127 DCA D0153 / @@1702=3153 L1703, CLA CLL / AC = 0000 @@1703=7300 TAD C0067 / @@1704=1067 JMS I C0047 / long call to S6505 @@1705=4447 DCA D0164 / @@1706=3164 TAD D0164 / @@1707=1164 JMS I C0032 / long call to S6415 @@1710=4432 SKP CLA / @@1711=7610 JMP L1716 / @@1712=5316 ISZ D0153 / @@1713=2153 JMP L1703 / @@1714=5303 JMS I C0027 / long call to S7007 @@1715=4427 L1716, JMS I C0030 / long call to S6200 @@1716=4430 TAD I C1652 / @@1717=1652 C1720, 4405 / JMS I C0005 DCA D0153 / @@1721=3153 C1722, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1723=4445 TAD D0153 / @@1724=1153 DCA D0160 / @@1725=3160 TAD D0153 / @@1726=1153 JMS I C0021 / long call to S7055 @@1727=4421 JMS I C0050 / long call to S6537 @@1730=4450 JMS I C0032 / long call to S6415 @@1731=4432 SKP CLA / @@1732=7610 JMP L1742 / @@1733=5342 TAD D0153 / @@1734=1153 CLL RAL / @@1735=7104 SNA / @@1736=7450 IAC / @@1737=7001 DCA D0153 / @@1740=3153 JMS I C0027 / long call to S7007 @@1741=4427 L1742, JMS I C0030 / long call to S6200 @@1742=4430 TAD I C1722 / @@1743=1722 C1744, 4405 / JMS I C0005 DCA D0153 / @@1745=3153 C1746, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@1747=4445 TAD D0153 / @@1750=1153 CMA / @@1751=7040 DCA D0160 / @@1752=3160 TAD D0160 / @@1753=1160 JMS I C0021 / long call to S7055 @@1754=4421 JMS I C0050 / long call to S6537 @@1755=4450 JMS I C0032 / long call to S6415 @@1756=4432 SKP CLA / @@1757=7610 JMP L1767 / @@1760=5367 TAD D0153 / @@1761=1153 CLL RAL / @@1762=7104 SNA / @@1763=7450 IAC / @@1764=7001 DCA D0153 / @@1765=3153 JMS I C0027 / long call to S7007 @@1766=4427 L1767, JMS I C0030 / long call to S6200 @@1767=4430 TAD I C1746 / @@1770=1746 C1771, 4405 / JMS I C0005 JMP I C1773 / long jump to L2000 @@1772=5773 C1773, C1773, 2000 / ISZ L0000 *2000 L2000, D2000, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2001=4445 TAD C0174 / @@2002=1174 DCA D0160 / @@2003=3160 TAD D0150 / @@2004=1150 JMS I C0034 / long call to S6443 @@2005=4434 JMS I C0032 / long call to S6415 @@2006=4432 SKP CLA / @@2007=7610 JMP L2032 / @@2010=5232 TAD C0174 / @@2011=1174 TAD L0063 / @@2012=1063 DCA D0160 / @@2013=3160 JMS I C0036 / long call to S6567 @@2014=4436 TAD C0076 / @@2015=1076 JMS I C0047 / long call to S6505 @@2016=4447 STA / AC = 7777 (-0001) @@2017=7240 JMS I C0034 / long call to S6443 @@2020=4434 JMS I C0032 / long call to S6415 @@2021=4432 SKP CLA / @@2022=7610 JMP L2032 / @@2023=5232 TAD C0174 / @@2024=1174 DCA D0160 / @@2025=3160 JMS I C0045 / long call to S6501 @@2026=4445 JMS I C0034 / long call to S6443 @@2027=4434 JMS I C0032 / long call to S6415 @@2030=4432 JMS I C0027 / long call to S7007 @@2031=4427 L2032, JMS I C0030 / long call to S6200 @@2032=4430 ISZ L0000 / @@2033=2000 JMP L0000 / @@2034=5000 CLA CLL IAC / AC = 0001 @@2035=7301 JMS I C0045 / long call to S6501 @@2036=4445 TAD C0174 / @@2037=1174 DCA D0160 / @@2040=3160 TAD D0151 / @@2041=1151 JMS I C0034 / long call to S6443 @@2042=4434 JMS I C0032 / long call to S6415 @@2043=4432 SKP CLA / @@2044=7610 JMP L2074 / @@2045=5274 TAD D0134 / @@2046=1134 DCA D0153 / @@2047=3153 JMS I C0036 / long call to S6567 @@2050=4436 TAD C0072 / @@2051=1072 L2052, JMS I C0047 / long call to S6505 @@2052=4447 ISZ D0153 / @@2053=2153 JMP L2052 / @@2054=5252 CLA CLL / AC = 0000 @@2055=7300 JMS I C0034 / long call to S6443 @@2056=4434 JMS I C0032 / long call to S6415 @@2057=4432 SKP CLA / @@2060=7610 JMP L2074 / @@2061=5274 TAD C0072 / @@2062=1072 JMS I C0047 / long call to S6505 @@2063=4447 CLA CLL / AC = 0000 @@2064=7300 TAD C0174 / @@2065=1174 TAD L0063 / @@2066=1063 DCA D0160 / @@2067=3160 TAD D0150 / @@2070=1150 JMS I C0034 / long call to S6443 @@2071=4434 JMS I C0032 / long call to S6415 @@2072=4432 JMS I C0027 / long call to S7007 @@2073=4427 L2074, JMS I C0030 / long call to S6200 @@2074=4430 ISZ D0035 / @@2075=2035 JMP L0000 / @@2076=5000 CLA CLL IAC / AC = 0001 @@2077=7301 JMS I C0045 / long call to S6501 @@2100=4445 JMS I C0036 / long call to S6567 @@2101=4436 TAD C0076 / @@2102=1076 JMS I C0047 / long call to S6505 @@2103=4447 CLA CLL / AC = 0000 @@2104=7300 JMS I C0041 / long call to S6474 @@2105=4441 JMP L2114 / @@2106=5314 JMS I C0041 / long call to S6474 @@2107=4441 JMP L2114 / @@2110=5314 JMS I C0045 / long call to S6501 @@2111=4445 JMS I C0041 / long call to S6474 @@2112=4441 JMS I C0027 / long call to S7007 @@2113=4427 L2114, JMS I C0030 / long call to S6200 @@2114=4430 ISZ D0077 / @@2115=2077 C2116, 0006 / AND C0006 CLA CLL IAC / AC = 0001 @@2117=7301 JMS I C0045 / long call to S6501 @@2120=4445 TAD C0075 / @@2121=1075 JMS I C0042 / long call to S6466 @@2122=4442 JMS I C0036 / long call to S6567 @@2123=4436 TAD C0076 / @@2124=1076 JMS I C0047 / long call to S6505 @@2125=4447 JMS I L0031 / long call to S6400 @@2126=4431 SKP CLA / @@2127=7610 JMS I C0027 / long call to S7007 @@2130=4427 JMS I C0030 / long call to S6200 @@2131=4430 ISZ D0117 / @@2132=2117 C2133, 0007 / AND C0007 CLA CLL IAC / AC = 0001 @@2134=7301 JMS I C0045 / long call to S6501 @@2135=4445 JMS I C0036 / long call to S6567 @@2136=4436 TAD C0076 / @@2137=1076 JMS I C0047 / long call to S6505 @@2140=4447 JMS I L0031 / long call to S6400 @@2141=4431 SKP CLA / @@2142=7610 JMP L2156 / @@2143=5356 TAD C0075 / @@2144=1075 JMS I C0042 / long call to S6466 @@2145=4442 JMS I L0031 / long call to S6400 @@2146=4431 SKP CLA / @@2147=7610 JMP L2156 / @@2150=5356 TAD C0076 / @@2151=1076 JMS I C0047 / long call to S6505 @@2152=4447 JMS I L0031 / long call to S6400 @@2153=4431 SKP CLA / @@2154=7610 JMS I C0027 / long call to S7007 @@2155=4427 L2156, JMS I C0030 / long call to S6200 @@2156=4430 ISZ D0134 / @@2157=2134 C2160, 0007 / AND C0007 JMP I C2162 / long jump to L2200 @@2161=5762 C2162, C2162, 2200 / ISZ L2000 *2200 L2200, D2200, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2201=4445 TAD C0174 / @@2202=1174 TAD L0063 / @@2203=1063 DCA D0160 / @@2204=3160 JMS I C0036 / long call to S6567 @@2205=4436 TAD C0076 / @@2206=1076 JMS I C0047 / long call to S6505 @@2207=4447 CLA CLL / AC = 0000 @@2210=7300 TAD D0151 / @@2211=1151 JMS I C0034 / long call to S6443 @@2212=4434 JMS I C0032 / long call to S6415 @@2213=4432 SKP CLA / @@2214=7610 JMP L2225 / @@2215=5225 JMS I C0042 / long call to S6466 @@2216=4442 TAD C0174 / @@2217=1174 DCA D0160 / @@2220=3160 TAD D0150 / @@2221=1150 JMS I C0034 / long call to S6443 @@2222=4434 JMS I C0032 / long call to S6415 @@2223=4432 JMS I C0027 / long call to S7007 @@2224=4427 L2225, JMS I C0030 / long call to S6200 @@2225=4430 ISZ L2200 / @@2226=2200 JMP L0000 / @@2227=5000 D2230, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2231=4445 CLA CLL IAC / AC = 0001 @@2232=7301 JMS I C0045 / long call to S6501 @@2233=4445 TAD C0174 / @@2234=1174 DCA D0160 / @@2235=3160 JMS I C0034 / long call to S6443 @@2236=4434 JMS I C0032 / long call to S6415 @@2237=4432 SKP CLA / @@2240=7610 JMP L2252 / @@2241=5252 CLA CLL CML RTL / AC = 0002 @@2242=7326 TAD C0174 / @@2243=1174 DCA D0160 / @@2244=3160 CLA CLL CML RTL / AC = 0002 @@2245=7326 JMS I C0045 / long call to S6501 @@2246=4445 JMS I C0034 / long call to S6443 @@2247=4434 JMS I C0032 / long call to S6415 @@2250=4432 JMS I C0027 / long call to S7007 @@2251=4427 L2252, JMS I C0030 / long call to S6200 @@2252=4430 ISZ D2230 / @@2253=2230 JMP L0000 / @@2254=5000 D2255, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2256=4445 JMS I D0044 / long call to S6460 @@2257=4444 TAD C0174 / @@2260=1174 TAD C0061 / @@2261=1061 DCA D0160 / @@2262=3160 TAD D0150 / @@2263=1150 JMS I C0034 / long call to S6443 @@2264=4434 JMS I C0032 / long call to S6415 @@2265=4432 JMS I C0027 / long call to S7007 @@2266=4427 JMS I C0030 / long call to S6200 @@2267=4430 ISZ D2255 / @@2270=2255 JMP L0000 / @@2271=5000 D2272, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2273=4445 TAD C0075 / @@2274=1075 JMS I C0042 / long call to S6466 @@2275=4442 JMS I D0044 / long call to S6460 @@2276=4444 JMS I L0031 / long call to S6400 @@2277=4431 JMP L2305 / @@2300=5305 TAD C0075 / @@2301=1075 JMS I C0042 / long call to S6466 @@2302=4442 JMS I L0031 / long call to S6400 @@2303=4431 JMS I C0027 / long call to S7007 @@2304=4427 L2305, JMS I C0030 / long call to S6200 @@2305=4430 ISZ D2272 / @@2306=2272 C2307, 0007 / AND C0007 D2310, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2311=4445 JMS I D0044 / long call to S6460 @@2312=4444 JMS I C0041 / long call to S6474 @@2313=4441 JMP L2320 / @@2314=5320 JMS I C0041 / long call to S6474 @@2315=4441 JMP L2320 / @@2316=5320 JMS I C0027 / long call to S7007 @@2317=4427 L2320, JMS I C0030 / long call to S6200 @@2320=4430 ISZ D2310 / @@2321=2310 C2322, 0006 / AND C0006 D2323, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2324=4445 JMS I D0044 / long call to S6460 @@2325=4444 JMS I C0041 / long call to S6474 @@2326=4441 JMP L2333 / @@2327=5333 JMS I C0045 / long call to S6501 @@2330=4445 JMS I C0041 / long call to S6474 @@2331=4441 JMS I C0027 / long call to S7007 @@2332=4427 L2333, JMS I C0030 / long call to S6200 @@2333=4430 ISZ D2323 / @@2334=2323 C2335, 0006 / AND C0006 JMP I C2337 / long jump to L2400 @@2336=5737 C2337, C2337, 2400 / ISZ I L0000 *2400 L2400, C2400, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2401=4445 TAD C0064 / @@2402=1064 DCA D2420 / @@2403=3220 TAD C0075 / @@2404=1075 JMS I C0042 / long call to S6466 @@2405=4442 JMS I D0044 / long call to S6460 @@2406=4444 JMS I C0041 / long call to S6474 @@2407=4441 JMP L2416 / @@2410=5216 TAD C0065 / @@2411=1065 DCA D2420 / @@2412=3220 JMS I L0031 / long call to S6400 @@2413=4431 SKP CLA / @@2414=7610 JMS I C0027 / long call to S7007 @@2415=4427 L2416, JMS I C0030 / long call to S6200 @@2416=4430 ISZ I L0000 / @@2417=2400 D2420, 0006 / AND C0006 CLA CLL IAC / AC = 0001 @@2421=7301 JMS I C0045 / long call to S6501 @@2422=4445 TAD C0065 / @@2423=1065 DCA D2443 / @@2424=3243 TAD C0075 / @@2425=1075 JMS I C0042 / long call to S6466 @@2426=4442 JMS I C0036 / long call to S6567 @@2427=4436 TAD C0076 / @@2430=1076 JMS I C0047 / long call to S6505 @@2431=4447 JMS I L0031 / long call to S6400 @@2432=4431 JMP L2441 / @@2433=5241 TAD C0064 / @@2434=1064 DCA D2443 / @@2435=3243 JMS I C0041 / long call to S6474 @@2436=4441 SKP CLA / @@2437=7610 JMS I C0027 / long call to S7007 @@2440=4427 L2441, JMS I C0030 / long call to S6200 @@2441=4430 ISZ I C0021 / @@2442=2421 D2443, 0007 / AND C0007 CLA CLL IAC / AC = 0001 @@2444=7301 JMS I C0045 / long call to S6501 @@2445=4445 JMS I C0041 / long call to S6474 @@2446=4441 SKP CLA / @@2447=7610 JMP L2465 / @@2450=5265 CLA CLL CML RTL / AC = 0002 @@2451=7326 JMS I C0045 / long call to S6501 @@2452=4445 JMS I C0041 / long call to S6474 @@2453=4441 JMP L2465 / @@2454=5265 JMS I C0036 / long call to S6567 @@2455=4436 JMS I C0041 / long call to S6474 @@2456=4441 SKP CLA / @@2457=7610 JMP L2465 / @@2460=5265 CLA CLL CML RTL / AC = 0002 @@2461=7326 JMS I C0045 / long call to S6501 @@2462=4445 JMS I C0041 / long call to S6474 @@2463=4441 JMS I C0027 / long call to S7007 @@2464=4427 L2465, JMS I C0030 / long call to S6200 @@2465=4430 ISZ I D0044 / @@2466=2444 C2467, 0006 / AND C0006 CLA CLL IAC / AC = 0001 @@2470=7301 JMS I C0045 / long call to S6501 @@2471=4445 TAD C0174 / @@2472=1174 DCA D0160 / @@2473=3160 JMS I C0034 / long call to S6443 @@2474=4434 JMS I C0032 / long call to S6415 @@2475=4432 SKP CLA / @@2476=7610 JMP L2525 / @@2477=5325 JMS I C0036 / long call to S6567 @@2500=4436 CLA CLL CML RTL / AC = 0002 @@2501=7326 TAD C0174 / @@2502=1174 DCA D0160 / @@2503=3160 CLA CLL CML RTL / AC = 0002 @@2504=7326 JMS I C0045 / long call to S6501 @@2505=4445 JMS I C0034 / long call to S6443 @@2506=4434 JMS I C0032 / long call to S6415 @@2507=4432 SKP CLA / @@2510=7610 JMP L2525 / @@2511=5325 TAD D0150 / @@2512=1150 AND C0103 / @@2513=0103 JMS I C0045 / long call to S6501 @@2514=4445 CLA CLL CML RTL / AC = 0002 @@2515=7326 TAD C0174 / @@2516=1174 TAD C0072 / @@2517=1072 DCA D0160 / @@2520=3160 TAD D0151 / @@2521=1151 JMS I C0034 / long call to S6443 @@2522=4434 JMS I C0032 / long call to S6415 @@2523=4432 JMS I C0027 / long call to S7007 @@2524=4427 L2525, JMS I C0030 / long call to S6200 @@2525=4430 ISZ I C0070 / @@2526=2470 JMP L0000 / @@2527=5000 CLA CLL IAC / AC = 0001 @@2530=7301 JMS I C0045 / long call to S6501 @@2531=4445 TAD C0174 / @@2532=1174 DCA D0160 / @@2533=3160 JMS I C0034 / long call to S6443 @@2534=4434 JMS I C0032 / long call to S6415 @@2535=4432 SKP CLA / @@2536=7610 JMP L2565 / @@2537=5365 JMS I C0036 / long call to S6567 @@2540=4436 CLA CLL CML RTL / AC = 0002 @@2541=7326 TAD C0174 / @@2542=1174 DCA D0160 / @@2543=3160 CLA CLL CML RTL / AC = 0002 @@2544=7326 JMS I C0045 / long call to S6501 @@2545=4445 JMS I C0034 / long call to S6443 @@2546=4434 JMS I C0032 / long call to S6415 @@2547=4432 SKP CLA / @@2550=7610 JMP L2565 / @@2551=5365 CLA CLL CML RTL / AC = 0002 @@2552=7326 TAD C0174 / @@2553=1174 TAD C0101 / @@2554=1101 TAD L0063 / @@2555=1063 DCA D0160 / @@2556=3160 TAD C0076 / @@2557=1076 JMS I C0047 / long call to S6505 @@2560=4447 TAD D0150 / @@2561=1150 JMS I C0034 / long call to S6443 @@2562=4434 JMS I C0032 / long call to S6415 @@2563=4432 JMS I C0027 / long call to S7007 @@2564=4427 L2565, JMS I C0030 / long call to S6200 @@2565=4430 ISZ I C0130 / @@2566=2530 JMP L0000 / @@2567=5000 JMP I C2571 / long jump to L2600 @@2570=5771 C2571, C2571, 2600 / ISZ I L2400 *2600 L2600, C2600, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2601=4445 TAD C0174 / @@2602=1174 DCA D0160 / @@2603=3160 JMS I C0034 / long call to S6443 @@2604=4434 JMS I C0032 / long call to S6415 @@2605=4432 SKP CLA / @@2606=7610 JMP L2633 / @@2607=5233 JMS I C0036 / long call to S6567 @@2610=4436 CLA CLL CML RTL / AC = 0002 @@2611=7326 TAD C0174 / @@2612=1174 DCA D0160 / @@2613=3160 CLA CLL CML RTL / AC = 0002 @@2614=7326 JMS I C0045 / long call to S6501 @@2615=4445 JMS I C0034 / long call to S6443 @@2616=4434 JMS I C0032 / long call to S6415 @@2617=4432 SKP CLA / @@2620=7610 JMP L2633 / @@2621=5233 CLA CLL CML RTL / AC = 0002 @@2622=7326 TAD C0072 / @@2623=1072 TAD C0174 / @@2624=1174 DCA D0160 / @@2625=3160 JMS I C0043 / long call to S6452 @@2626=4443 TAD D0151 / @@2627=1151 JMS I C0034 / long call to S6443 @@2630=4434 JMS I C0032 / long call to S6415 @@2631=4432 JMS I C0027 / long call to S7007 @@2632=4427 L2633, JMS I C0030 / long call to S6200 @@2633=4430 ISZ I L2600 / @@2634=2600 JMP L0000 / @@2635=5000 C2636, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2637=4445 JMS I C0036 / long call to S6567 @@2640=4436 CLA CLL CML RTL / AC = 0002 @@2641=7326 JMS I C0045 / long call to S6501 @@2642=4445 CLA CLL CML RTL / AC = 0002 @@2643=7326 TAD C0072 / @@2644=1072 TAD C0174 / @@2645=1174 DCA D0160 / @@2646=3160 JMS I C0042 / long call to S6466 @@2647=4442 TAD D0151 / @@2650=1151 JMS I C0034 / long call to S6443 @@2651=4434 JMS I C0032 / long call to S6415 @@2652=4432 JMS I C0027 / long call to S7007 @@2653=4427 JMS I C0030 / long call to S6200 @@2654=4430 ISZ I C2636 / @@2655=2636 JMP L0000 / @@2656=5000 C2657, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2660=4445 JMS I C0036 / long call to S6567 @@2661=4436 CLA CLL CML RTL / AC = 0002 @@2662=7326 TAD C0072 / @@2663=1072 TAD C0174 / @@2664=1174 DCA D0160 / @@2665=3160 CLA CLL CML RTL / AC = 0002 @@2666=7326 JMS I C0045 / long call to S6501 @@2667=4445 JMS I D0044 / long call to S6460 @@2670=4444 JMS I C0034 / long call to S6443 @@2671=4434 JMS I C0032 / long call to S6415 @@2672=4432 JMS I C0027 / long call to S7007 @@2673=4427 JMS I C0030 / long call to S6200 @@2674=4430 ISZ I C2657 / @@2675=2657 JMP L0000 / @@2676=5000 C2677, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2700=4445 JMS I C0041 / long call to S6474 @@2701=4441 SKP CLA / @@2702=7610 JMP L2715 / @@2703=5315 JMS I C0036 / long call to S6567 @@2704=4436 CLA CLL CML RTL / AC = 0002 @@2705=7326 JMS I C0045 / long call to S6501 @@2706=4445 JMS I C0043 / long call to S6452 @@2707=4443 JMS I C0041 / long call to S6474 @@2710=4441 JMP L2715 / @@2711=5315 JMS I C0041 / long call to S6474 @@2712=4441 JMP L2715 / @@2713=5315 JMS I C0027 / long call to S7007 @@2714=4427 L2715, JMS I C0030 / long call to S6200 @@2715=4430 ISZ I C2677 / @@2716=2677 C2717, 0006 / AND C0006 C2720, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2721=4445 JMS I C0036 / long call to S6567 @@2722=4436 CLA CLL CML RTL / AC = 0002 @@2723=7326 JMS I C0045 / long call to S6501 @@2724=4445 CLA CLL CML RTL / AC = 0002 @@2725=7326 TAD C0174 / @@2726=1174 TAD C0101 / @@2727=1101 TAD L0063 / @@2730=1063 DCA D0160 / @@2731=3160 TAD C0076 / @@2732=1076 JMS I C0047 / long call to S6505 @@2733=4447 TAD D0150 / @@2734=1150 JMS I C0034 / long call to S6443 @@2735=4434 JMS I C0032 / long call to S6415 @@2736=4432 SKP CLA / @@2737=7610 JMP L2750 / @@2740=5350 JMS I C0045 / long call to S6501 @@2741=4445 TAD C0174 / @@2742=1174 DCA D0160 / @@2743=3160 TAD D0151 / @@2744=1151 JMS I C0034 / long call to S6443 @@2745=4434 JMS I C0032 / long call to S6415 @@2746=4432 JMS I C0027 / long call to S7007 @@2747=4427 L2750, JMS I C0030 / long call to S6200 @@2750=4430 ISZ I C2720 / @@2751=2720 JMP L0000 / @@2752=5000 C2753, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@2754=4445 TAD C0075 / @@2755=1075 JMS I C0042 / long call to S6466 @@2756=4442 JMS I C0036 / long call to S6567 @@2757=4436 CLA CLL CML RTL / AC = 0002 @@2760=7326 JMS I C0045 / long call to S6501 @@2761=4445 JMS I L0031 / long call to S6400 @@2762=4431 SKP CLA / @@2763=7610 JMP L2774 / @@2764=5374 JMS I C0045 / long call to S6501 @@2765=4445 JMS I L0031 / long call to S6400 @@2766=4431 JMP L2774 / @@2767=5374 JMS I C0045 / long call to S6501 @@2770=4445 JMS I L0031 / long call to S6400 @@2771=4431 SKP CLA / @@2772=7610 JMS I C0027 / long call to S7007 @@2773=4427 L2774, JMS I C0030 / long call to S6200 @@2774=4430 ISZ I C2753 / @@2775=2753 C2776, 0007 / AND C0007 CLA CLL IAC / AC = 0001 @@2777=7301 D3000, 4445 / JMS I C0045 JMS I C0036 / long call to S6567 @@3001=4436 CLA CLL CML RTL / AC = 0002 @@3002=7326 JMS I C0045 / long call to S6501 @@3003=4445 TAD C0076 / @@3004=1076 JMS I C0047 / long call to S6505 @@3005=4447 CLA CLL CML RTL / AC = 0002 @@3006=7326 TAD C0174 / @@3007=1174 TAD L0063 / @@3010=1063 TAD C0101 / @@3011=1101 DCA D0160 / @@3012=3160 JMS I C0050 / long call to S6537 @@3013=4450 TAD D0150 / @@3014=1150 JMS I C0034 / long call to S6443 @@3015=4434 TAD D0151 / @@3016=1151 JMS I C0043 / long call to S6452 @@3017=4443 TAD D0150 / @@3020=1150 JMS I C0041 / long call to S6474 @@3021=4441 NOP / @@3022=7000 JMS I D0044 / long call to S6460 @@3023=4444 TAD D0150 / @@3024=1150 JMS I C0021 / long call to S7055 @@3025=4421 TAD D0151 / @@3026=1151 JMS I C0034 / long call to S6443 @@3027=4434 JMS I C0032 / long call to S6415 @@3030=4432 SKP CLA / @@3031=7610 JMP L3041 / @@3032=5241 JMS I C0045 / long call to S6501 @@3033=4445 TAD C0174 / @@3034=1174 DCA D0160 / @@3035=3160 JMS I C0034 / long call to S6443 @@3036=4434 JMS I C0032 / long call to S6415 @@3037=4432 JMS I C0027 / long call to S7007 @@3040=4427 L3041, JMS I C0030 / long call to S6200 @@3041=4430 C3042, 2777 / ISZ I C3177 JMP L0000 / @@3043=5000 STA / AC = 7777 (-0001) @@3044=7240 DCA D0150 / @@3045=3150 CLA CLL IAC / AC = 0001 @@3046=7301 JMS I C0045 / long call to S6501 @@3047=4445 TAD C0174 / @@3050=1174 DCA D0160 / @@3051=3160 CLA CLL CML RTL / AC = 0002 @@3052=7326 TAD C0132 / @@3053=1132 DCA D0153 / @@3054=3153 TAD C0137 / @@3055=1137 DCA D0154 / @@3056=3154 JMS I C0036 / long call to S6567 @@3057=4436 L3060, TAD C0132 / @@3060=1132 DCA D0155 / @@3061=3155 TAD C0072 / @@3062=1072 L3063, JMS I C0047 / long call to S6505 @@3063=4447 ISZ D0155 / @@3064=2155 JMP L3063 / @@3065=5263 JMS I C0050 / long call to S6537 @@3066=4450 JMS I C0034 / long call to S6443 @@3067=4434 JMS I C0032 / long call to S6415 @@3070=4432 SKP CLA / @@3071=7610 JMP L3115 / @@3072=5315 ISZ D0154 / @@3073=2154 JMP L3060 / @@3074=5260 TAD C0072 / @@3075=1072 L3076, JMS I C0047 / long call to S6505 @@3076=4447 ISZ D0153 / @@3077=2153 JMP L3076 / @@3100=5276 JMS I C0034 / long call to S6443 @@3101=4434 JMS I C0032 / long call to S6415 @@3102=4432 SKP CLA / @@3103=7610 JMP L3115 / @@3104=5315 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@3105=7330 TAD C0174 / @@3106=1174 DCA D0160 / @@3107=3160 TAD C0072 / @@3110=1072 JMS I C0047 / long call to S6505 @@3111=4447 JMS I C0034 / long call to S6443 @@3112=4434 JMS I C0032 / long call to S6415 @@3113=4432 JMS I C0027 / long call to S7007 @@3114=4427 L3115, JMS I C0030 / long call to S6200 @@3115=4430 DCA D0044 / @@3116=3044 JMP L0000 / @@3117=5000 JMP I C3121 / long jump to L3200 @@3120=5721 C3121, C3121, 3200 / DCA D3000 *3200 L3200, D3200, 7240 / STA DCA D0150 / @@3201=3150 TAD C0137 / @@3202=1137 DCA D0156 / @@3203=3156 L3204, CLA CLL IAC / AC = 0001 @@3204=7301 JMS I C0045 / long call to S6501 @@3205=4445 TAD D0156 / @@3206=1156 DCA D0153 / @@3207=3153 L3210, TAD C0132 / @@3210=1132 DCA D0154 / @@3211=3154 JMS I C0036 / long call to S6567 @@3212=4436 TAD C0072 / @@3213=1072 L3214, JMS I C0047 / long call to S6505 @@3214=4447 ISZ D0154 / @@3215=2154 JMP L3214 / @@3216=5214 JMS I C0050 / long call to S6537 @@3217=4450 ISZ D0153 / @@3220=2153 JMP L3210 / @@3221=5210 CLA CLL IAC / AC = 0001 @@3222=7301 JMS I C0045 / long call to S6501 @@3223=4445 TAD C0174 / @@3224=1174 DCA D0160 / @@3225=3160 TAD C0132 / @@3226=1132 DCA D0153 / @@3227=3153 TAD C0137 / @@3230=1137 DCA D0154 / @@3231=3154 JMS I C0036 / long call to S6567 @@3232=4436 L3233, TAD C0132 / @@3233=1132 DCA D0155 / @@3234=3155 TAD C0072 / @@3235=1072 L3236, JMS I C0047 / long call to S6505 @@3236=4447 ISZ D0155 / @@3237=2155 JMP L3236 / @@3240=5236 JMS I C0050 / long call to S6537 @@3241=4450 JMS I C0034 / long call to S6443 @@3242=4434 JMS I C0032 / long call to S6415 @@3243=4432 SKP CLA / @@3244=7610 JMP L3266 / @@3245=5266 ISZ D0154 / @@3246=2154 JMP L3233 / @@3247=5233 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@3250=7330 TAD C0174 / @@3251=1174 DCA D0160 / @@3252=3160 TAD C0072 / @@3253=1072 L3254, JMS I C0047 / long call to S6505 @@3254=4447 ISZ D0153 / @@3255=2153 JMP L3254 / @@3256=5254 JMS I C0034 / long call to S6443 @@3257=4434 JMS I C0032 / long call to S6415 @@3260=4432 SKP CLA / @@3261=7610 JMP L3266 / @@3262=5266 ISZ D0156 / @@3263=2156 JMP L3204 / @@3264=5204 JMS I C0027 / long call to S7007 @@3265=4427 L3266, JMS I C0030 / long call to S6200 @@3266=4430 DCA L3200 / @@3267=3200 JMP L0000 / @@3270=5000 D3271, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@3272=4445 TAD C0072 / @@3273=1072 JMS I C0042 / long call to S6466 @@3274=4442 CLA CLL CMA / AC = 7777 (-0001) @@3275=7340 DCA D0150 / @@3276=3150 TAD C0135 / @@3277=1135 DCA D0153 / @@3300=3153 JMS I C0036 / long call to S6567 @@3301=4436 L3302, DCA D0160 / @@3302=3160 TAD C0132 / @@3303=1132 DCA D0154 / @@3304=3154 CLA CLL / AC = 0000 @@3305=7300 TAD C0072 / @@3306=1072 L3307, JMS I C0047 / long call to S6505 @@3307=4447 ISZ D0154 / @@3310=2154 JMP L3307 / @@3311=5307 JMS I C0050 / long call to S6537 @@3312=4450 JMS I C0032 / long call to S6415 @@3313=4432 SKP CLA / @@3314=7610 JMP L3340 / @@3315=5340 ISZ D0153 / @@3316=2153 JMP L3302 / @@3317=5302 TAD C0135 / @@3320=1135 DCA D0153 / @@3321=3153 L3322, TAD C0132 / @@3322=1132 DCA D0154 / @@3323=3154 CLA CLL CML RTL / AC = 0002 @@3324=7326 TAD C0072 / @@3325=1072 L3326, JMS I C0047 / long call to S6505 @@3326=4447 ISZ D0154 / @@3327=2154 JMP L3326 / @@3330=5326 JMS I C0050 / long call to S6537 @@3331=4450 JMS I C0032 / long call to S6415 @@3332=4432 SKP CLA / @@3333=7610 JMP L3340 / @@3334=5340 ISZ D0153 / @@3335=2153 JMP L3322 / @@3336=5322 JMS I C0027 / long call to S7007 @@3337=4427 L3340, JMS I C0030 / long call to S6200 @@3340=4430 DCA D3271 / @@3341=3271 C3342, 4405 / JMS I C0005 CLA CLL CMA / AC = 7777 (-0001) @@3343=7340 DCA D0150 / @@3344=3150 CLA CLL IAC / AC = 0001 @@3345=7301 JMS I C0045 / long call to S6501 @@3346=4445 TAD C0137 / @@3347=1137 DCA D0153 / @@3350=3153 TAD C0132 / @@3351=1132 DCA D0154 / @@3352=3154 JMS I C0036 / long call to S6567 @@3353=4436 L3354, TAD C0132 / @@3354=1132 DCA D0155 / @@3355=3155 TAD C0072 / @@3356=1072 L3357, JMS I C0047 / long call to S6505 @@3357=4447 ISZ D0155 / @@3360=2155 JMP L3357 / @@3361=5357 JMS I C0050 / long call to S6537 @@3362=4450 JMS I C0041 / long call to S6474 @@3363=4441 SKP CLA / @@3364=7610 JMP L3377 / @@3365=5377 ISZ D0153 / @@3366=2153 JMP L3354 / @@3367=5354 TAD C0072 / @@3370=1072 L3371, JMS I C0047 / long call to S6505 @@3371=4447 ISZ D0154 / @@3372=2154 JMP L3371 / @@3373=5371 JMS I C0041 / long call to S6474 @@3374=4441 SKP CLA / @@3375=7610 JMS I C0027 / long call to S7007 @@3376=4427 L3377, JMS I C0030 / long call to S6200 @@3377=4430 DCA D3543 / @@3400=3343 C3401, 0006 / AND C0006 CLA CLL CMA / AC = 7777 (-0001) @@3402=7340 DCA D0150 / @@3403=3150 CLA CLL IAC / AC = 0001 @@3404=7301 JMS I C0045 / long call to S6501 @@3405=4445 TAD C0137 / @@3406=1137 DCA D0153 / @@3407=3153 TAD C0132 / @@3410=1132 DCA D0154 / @@3411=3154 TAD C0075 / @@3412=1075 JMS I C0042 / long call to S6466 @@3413=4442 JMS I C0036 / long call to S6567 @@3414=4436 L3415, TAD C0132 / @@3415=1132 DCA D0155 / @@3416=3155 TAD C0072 / @@3417=1072 L3420, JMS I C0047 / long call to S6505 @@3420=4447 ISZ D0155 / @@3421=2155 JMP L3420 / @@3422=5220 JMS I C0050 / long call to S6537 @@3423=4450 JMS I L0031 / long call to S6400 @@3424=4431 SKP CLA / @@3425=7610 JMP L3440 / @@3426=5240 ISZ D0153 / @@3427=2153 JMP L3415 / @@3430=5215 TAD C0072 / @@3431=1072 L3432, JMS I C0047 / long call to S6505 @@3432=4447 ISZ D0154 / @@3433=2154 JMP L3432 / @@3434=5232 JMS I L0031 / long call to S6400 @@3435=4431 SKP CLA / @@3436=7610 JMS I C0027 / long call to S7007 @@3437=4427 L3440, JMS I C0030 / long call to S6200 @@3440=4430 DCA I D0002 / @@3441=3402 C3442, 0007 / AND C0007 CLA CLL IAC / AC = 0001 @@3443=7301 JMS I C0045 / long call to S6501 @@3444=4445 JMS I C0036 / long call to S6567 @@3445=4436 TAD D0172 / @@3446=1172 TAD C0101 / @@3447=1101 JMS I C0042 / long call to S6466 @@3450=4442 TAD D0150 / @@3451=1150 CLL RAR / @@3452=7110 SZL CLA / @@3453=7630 CLA CLL CMA / AC = 7777 (-0001) @@3454=7340 DCA D0160 / @@3455=3160 TAD D0160 / @@3456=1160 DCA L0000 / @@3457=3000 CLA CLL CMA / AC = 7777 (-0001) @@3460=7340 JMS I C0043 / long call to S6452 @@3461=4443 JMS I C0043 / long call to S6452 @@3462=4443 TAD C0071 / @@3463=1071 JMS I C0047 / long call to S6505 @@3464=4447 JMS I C0050 / long call to S6537 @@3465=4450 JMS I C0032 / long call to S6415 @@3466=4432 JMS I C0027 / long call to S7007 @@3467=4427 JMS I C0030 / long call to S6200 @@3470=4430 DCA I C0043 / @@3471=3443 C3472, 4263 / JMS C3463 CLA CLL IAC / AC = 0001 @@3473=7301 JMS I C0045 / long call to S6501 @@3474=4445 JMS I C0036 / long call to S6567 @@3475=4436 TAD D0150 / @@3476=1150 CLL RAR / @@3477=7110 SZL CLA / @@3500=7630 TAD C0113 / @@3501=1113 TAD C0113 / @@3502=1113 DCA D0160 / @@3503=3160 TAD D0160 / @@3504=1160 DCA L0000 / @@3505=3000 TAD D0172 / @@3506=1172 TAD C0122 / @@3507=1122 JMS I C0042 / long call to S6466 @@3510=4442 TAD D0151 / @@3511=1151 JMS I C0043 / long call to S6452 @@3512=4443 JMS I C0043 / long call to S6452 @@3513=4443 TAD C0071 / @@3514=1071 JMS I C0047 / long call to S6505 @@3515=4447 JMS I C0050 / long call to S6537 @@3516=4450 JMS I C0032 / long call to S6415 @@3517=4432 JMS I C0027 / long call to S7007 @@3520=4427 JMS I C0030 / long call to S6200 @@3521=4430 DCA I C0073 / @@3522=3473 C3523, 4263 / JMS C3463 CLA CLL IAC / AC = 0001 @@3524=7301 JMS I C0045 / long call to S6501 @@3525=4445 JMS I C0036 / long call to S6567 @@3526=4436 TAD D0150 / @@3527=1150 CLL RAR / @@3530=7110 SZL CLA / @@3531=7630 CLA CLL CMA / AC = 7777 (-0001) @@3532=7340 DCA D0160 / @@3533=3160 TAD D0160 / @@3534=1160 DCA I C0126 / @@3535=3526 TAD D0150 / @@3536=1150 JMS I C0043 / long call to S6452 @@3537=4443 CLA CLL CMA / AC = 7777 (-0001) @@3540=7340 JMS I C0043 / long call to S6452 @@3541=4443 TAD D0172 / @@3542=1172 D3543, 1101 / TAD C0101 JMS I C0042 / long call to S6466 @@3544=4442 TAD C0071 / @@3545=1071 JMS I C0047 / long call to S6505 @@3546=4447 JMS I C0050 / long call to S6537 @@3547=4450 JMS I C0032 / long call to S6415 @@3550=4432 JMS I C0027 / long call to S7007 @@3551=4427 JMS I C0030 / long call to S6200 @@3552=4430 DCA I C0124 / @@3553=3524 C3554, 4263 / JMS C3463 CLA CLL IAC / AC = 0001 @@3555=7301 JMS I C0045 / long call to S6501 @@3556=4445 JMS I C0036 / long call to S6567 @@3557=4436 TAD D0150 / @@3560=1150 CLL RAR / @@3561=7110 SZL CLA / @@3562=7630 TAD C0113 / @@3563=1113 TAD C0113 / @@3564=1113 DCA D0160 / @@3565=3160 TAD D0160 / @@3566=1160 DCA I C0126 / @@3567=3526 TAD D0172 / @@3570=1172 TAD C0122 / @@3571=1122 JMS I C0042 / long call to S6466 @@3572=4442 TAD D0151 / @@3573=1151 JMS I C0043 / long call to S6452 @@3574=4443 CLA CLL CMA / AC = 7777 (-0001) @@3575=7340 JMS I C0043 / long call to S6452 @@3576=4443 TAD C0071 / @@3577=1071 JMS I C0047 / long call to S6505 @@3600=4447 JMS I C0050 / long call to S6537 @@3601=4450 JMS I C0032 / long call to S6415 @@3602=4432 JMS I C0027 / long call to S7007 @@3603=4427 JMS I C0030 / long call to S6200 @@3604=4430 DCA I D0155 / @@3605=3555 C3606, 4263 / JMS C3663 C3607, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@3610=4445 JMS I C0036 / long call to S6567 @@3611=4436 TAD D0151 / @@3612=1151 DCA D0160 / @@3613=3160 TAD D0160 / @@3614=1160 DCA L0000 / @@3615=3000 JMS I C0043 / long call to S6452 @@3616=4443 TAD D0172 / @@3617=1172 TAD C0101 / @@3620=1101 JMS I C0042 / long call to S6466 @@3621=4442 TAD C0071 / @@3622=1071 JMS I C0047 / long call to S6505 @@3623=4447 JMS I C0050 / long call to S6537 @@3624=4450 JMS I C0032 / long call to S6415 @@3625=4432 SKP CLA / @@3626=7610 JMP L3635 / @@3627=5235 TAD L0000 / @@3630=1000 DCA D0170 / @@3631=3170 TAD D0170 / @@3632=1170 JMS I C0032 / long call to S6415 @@3633=4432 JMS I C0027 / long call to S7007 @@3634=4427 L3635, JMS I C0030 / long call to S6200 @@3635=4430 DCA I C3607 / @@3636=3607 C3637, 4263 / JMS C3663 C3640, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@3641=4445 JMS I C0036 / long call to S6567 @@3642=4436 TAD D0150 / @@3643=1150 DCA D0160 / @@3644=3160 TAD D0160 / @@3645=1160 DCA I C0126 / @@3646=3526 CLA CLL CMA / AC = 7777 (-0001) @@3647=7340 JMS I C0043 / long call to S6452 @@3650=4443 TAD D0172 / @@3651=1172 TAD C0122 / @@3652=1122 JMS I C0042 / long call to S6466 @@3653=4442 TAD C0071 / @@3654=1071 JMS I C0047 / long call to S6505 @@3655=4447 JMS I C0050 / long call to S6537 @@3656=4450 JMS I C0032 / long call to S6415 @@3657=4432 SKP CLA / @@3660=7610 JMP L3667 / @@3661=5267 TAD I C0126 / @@3662=1526 DCA D0170 / @@3663=3170 TAD D0170 / @@3664=1170 JMS I C0032 / long call to S6415 @@3665=4432 JMS I C0027 / long call to S7007 @@3666=4427 L3667, JMS I C0030 / long call to S6200 @@3667=4430 DCA I C3640 / @@3670=3640 C3671, 4263 / JMS C3663 C3672, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@3673=4445 JMS I C0036 / long call to S6567 @@3674=4436 TAD D0150 / @@3675=1150 DCA D0160 / @@3676=3160 TAD D0160 / @@3677=1160 DCA I C0103 / @@3700=3503 TAD D0151 / @@3701=1151 DCA L0000 / @@3702=3000 TAD D0172 / @@3703=1172 TAD C0101 / @@3704=1101 JMS I C0042 / long call to S6466 @@3705=4442 CLA CLL CMA RAL / AC = 7776 (-0002) @@3706=7344 JMS I C0043 / long call to S6452 @@3707=4443 TAD C0071 / @@3710=1071 JMS I C0047 / long call to S6505 @@3711=4447 JMS I C0050 / long call to S6537 @@3712=4450 JMS I C0032 / long call to S6415 @@3713=4432 SKP CLA / @@3714=7610 JMP L3734 / @@3715=5334 CLA CLL IAC / AC = 0001 @@3716=7301 JMS I C0045 / long call to S6501 @@3717=4445 JMS I C0036 / long call to S6567 @@3720=4436 DCA D0167 / @@3721=3167 TAD D0172 / @@3722=1172 TAD C0122 / @@3723=1122 JMS I C0042 / long call to S6466 @@3724=4442 TAD D0151 / @@3725=1151 DCA D0160 / @@3726=3160 TAD C0071 / @@3727=1071 JMS I C0047 / long call to S6505 @@3730=4447 JMS I C0050 / long call to S6537 @@3731=4450 JMS I C0032 / long call to S6415 @@3732=4432 JMS I C0027 / long call to S7007 @@3733=4427 L3734, JMS I C0030 / long call to S6200 @@3734=4430 DCA I C3672 / @@3735=3672 C3736, 4263 / JMS C3663 C3737, 7301 / CLA CLL IAC C3740, 4445 / JMS I C0045 TAD D0150 / @@3741=1150 DCA L0000 / @@3742=3000 TAD D0151 / @@3743=1151 DCA I C0126 / @@3744=3526 CLA CLL CMA / AC = 7777 (-0001) @@3745=7340 JMS I C0043 / long call to S6452 @@3746=4443 JMS I C0036 / long call to S6567 @@3747=4436 TAD C0122 / @@3750=1122 TAD D0172 / @@3751=1172 JMS I C0042 / long call to S6466 @@3752=4442 CLA CLL CMA RAL / AC = 7776 (-0002) @@3753=7344 DCA D0153 / @@3754=3153 TAD C0071 / @@3755=1071 L3756, JMS I C0047 / long call to S6505 @@3756=4447 ISZ D0153 / @@3757=2153 JMP L3756 / @@3760=5356 CLA CLL / AC = 0000 @@3761=7300 TAD D0151 / @@3762=1151 DCA D0160 / @@3763=3160 JMS I C0050 / long call to S6537 @@3764=4450 JMS I C0032 / long call to S6415 @@3765=4432 SKP CLA / @@3766=7610 JMP L3776 / @@3767=5376 DCA D0167 / @@3770=3167 TAD D0150 / @@3771=1150 DCA D0160 / @@3772=3160 JMS I C0050 / long call to S6537 @@3773=4450 JMS I C0032 / long call to S6415 @@3774=4432 JMS I C0027 / long call to S7007 @@3775=4427 L3776, JMS I C0030 / long call to S6200 @@3776=4430 C3777, 3737 / DCA I C3737 C4000, 4263 / JMS C4063 CLA CLL IAC / AC = 0001 @@4001=7301 JMS I C0045 / long call to S6501 @@4002=4445 CLA CLL CMA / AC = 7777 (-0001) @@4003=7340 C4004, 3150 / DCA D0150 TAD C0073 / @@4005=1073 DCA D0154 / @@4006=3154 TAD C0073 / @@4007=1073 JMS I C0043 / long call to S6452 @@4010=4443 L4011, JMS I C0036 / long call to S6567 @@4011=4436 JMS I D0044 / long call to S6460 @@4012=4444 TAD I D0154 / @@4013=1554 DCA D0153 / @@4014=3153 TAD D0154 / @@4015=1154 CLL RAR / @@4016=7110 SZL CLA / @@4017=7630 STA / AC = 7777 (-0001) @@4020=7240 DCA D0160 / @@4021=3160 TAD D0160 / @@4022=1160 DCA I D0154 / @@4023=3554 TAD D0172 / @@4024=1172 TAD C0101 / @@4025=1101 JMS I C0042 / long call to S6466 @@4026=4442 TAD C0071 / @@4027=1071 JMS I C0047 / long call to S6505 @@4030=4447 CLA CLL / AC = 0000 @@4031=7300 TAD D0153 / @@4032=1153 DCA I D0154 / @@4033=3554 TAD D0154 / @@4034=1154 DCA D0167 / @@4035=3167 JMS I C0050 / long call to S6537 @@4036=4450 JMS I C0032 / long call to S6415 @@4037=4432 SKP CLA / @@4040=7610 JMP L4051 / @@4041=5251 TAD D0154 / @@4042=1154 TAD C0147 / @@4043=1147 SNA CLA / @@4044=7650 JMP L4050 / @@4045=5250 ISZ D0154 / @@4046=2154 JMP L4011 / @@4047=5211 L4050, JMS I C0027 / long call to S7007 @@4050=4427 L4051, JMS I C0030 / long call to S6200 @@4051=4430 C4052, 4001 / JMS L0001 C4053, 4263 / JMS C4063 CLA CLL CMA / AC = 7777 (-0001) @@4054=7340 DCA D0150 / @@4055=3150 TAD C0137 / @@4056=1137 DCA D0153 / @@4057=3153 L4060, CLA CLL IAC / AC = 0001 @@4060=7301 JMS I C0045 / long call to S6501 @@4061=4445 TAD D0153 / @@4062=1153 DCA D0154 / @@4063=3154 JMS I C0036 / long call to S6567 @@4064=4436 TAD D0172 / @@4065=1172 TAD C0101 / @@4066=1101 JMS I C0042 / long call to S6466 @@4067=4442 L4070, JMS I C0043 / long call to S6452 @@4070=4443 CLA CLL CMA / AC = 7777 (-0001) @@4071=7340 DCA L0000 / @@4072=3000 CLA CLL CMA / AC = 7777 (-0001) @@4073=7340 DCA D0160 / @@4074=3160 TAD C0071 / @@4075=1071 JMS I C0047 / long call to S6505 @@4076=4447 JMS I C0050 / long call to S6537 @@4077=4450 JMS I C0032 / long call to S6415 @@4100=4432 SKP CLA / @@4101=7610 JMP L4152 / @@4102=5352 ISZ D0154 / @@4103=2154 JMP L4070 / @@4104=5270 CLA CLL IAC / AC = 0001 @@4105=7301 JMS I C0045 / long call to S6501 @@4106=4445 CLA CLL CMA / AC = 7777 (-0001) @@4107=7340 TAD C0137 / @@4110=1137 DCA D0154 / @@4111=3154 L4112, CLA CLL / AC = 0000 @@4112=7300 DCA L0000 / @@4113=3000 DCA D0160 / @@4114=3160 JMS I C0036 / long call to S6567 @@4115=4436 JMS I C0043 / long call to S6452 @@4116=4443 TAD C0122 / @@4117=1122 TAD D0172 / @@4120=1172 JMS I C0042 / long call to S6466 @@4121=4442 TAD C0071 / @@4122=1071 JMS I C0047 / long call to S6505 @@4123=4447 JMS I C0050 / long call to S6537 @@4124=4450 JMS I C0032 / long call to S6415 @@4125=4432 SKP CLA / @@4126=7610 JMP L4152 / @@4127=5352 ISZ D0154 / @@4130=2154 JMP L4112 / @@4131=5312 TAD C0102 / @@4132=1102 DCA D0155 / @@4133=3155 L4134, CLA CLL CMA / AC = 7777 (-0001) @@4134=7340 DCA L0000 / @@4135=3000 JMS I C0043 / long call to S6452 @@4136=4443 TAD C0071 / @@4137=1071 JMS I C0047 / long call to S6505 @@4140=4447 JMS I C0050 / long call to S6537 @@4141=4450 JMS I C0032 / long call to S6415 @@4142=4432 SKP CLA / @@4143=7610 JMP L4152 / @@4144=5352 ISZ D0155 / @@4145=2155 JMP L4134 / @@4146=5334 ISZ D0153 / @@4147=2153 JMP L4060 / @@4150=5260 JMS I C0027 / long call to S7007 @@4151=4427 L4152, JMS I C0030 / long call to S6200 @@4152=4430 C4153, 4054 / JMS C0054 C4154, 4263 / JMS C4063 JMP I C4156 / long jump to L4200 @@4155=5756 C4156, C4156, 4200 / JMS C4000 *4200 L4200, CLA CLL CMA / AC = 7777 (-0001) @@4200=7340 DCA D0150 / @@4201=3150 TAD C0137 / @@4202=1137 DCA D0153 / @@4203=3153 L4204, CLA CLL IAC / AC = 0001 @@4204=7301 JMS I C0045 / long call to S6501 @@4205=4445 TAD D0153 / @@4206=1153 DCA D0154 / @@4207=3154 JMS I C0036 / long call to S6567 @@4210=4436 TAD C0072 / @@4211=1072 TAD D0172 / @@4212=1172 TAD C0101 / @@4213=1101 JMS I C0042 / long call to S6466 @@4214=4442 L4215, JMS I C0043 / long call to S6452 @@4215=4443 CLA CLL CMA / AC = 7777 (-0001) @@4216=7340 DCA L0000 / @@4217=3000 CLA CLL CMA / AC = 7777 (-0001) @@4220=7340 DCA D0160 / @@4221=3160 TAD C0071 / @@4222=1071 JMS I C0047 / long call to S6505 @@4223=4447 JMS I C0050 / long call to S6537 @@4224=4450 JMS I C0032 / long call to S6415 @@4225=4432 SKP CLA / @@4226=7610 JMP L4271 / @@4227=5271 ISZ D0154 / @@4230=2154 JMP L4215 / @@4231=5215 JMS I D0044 / long call to S6460 @@4232=4444 TAD C0135 / @@4233=1135 DCA D0154 / @@4234=3154 L4235, CLA CLL / AC = 0000 @@4235=7300 DCA L0000 / @@4236=3000 DCA D0160 / @@4237=3160 JMS I C0043 / long call to S6452 @@4240=4443 TAD C0071 / @@4241=1071 JMS I C0047 / long call to S6505 @@4242=4447 JMS I C0050 / long call to S6537 @@4243=4450 JMS I C0032 / long call to S6415 @@4244=4432 SKP CLA / @@4245=7610 JMP L4271 / @@4246=5271 ISZ D0154 / @@4247=2154 JMP L4235 / @@4250=5235 TAD C0102 / @@4251=1102 DCA D0155 / @@4252=3155 L4253, CLA CLL CMA / AC = 7777 (-0001) @@4253=7340 DCA L0000 / @@4254=3000 JMS I C0043 / long call to S6452 @@4255=4443 TAD C0071 / @@4256=1071 JMS I C0047 / long call to S6505 @@4257=4447 JMS I C0050 / long call to S6537 @@4260=4450 JMS I C0032 / long call to S6415 @@4261=4432 SKP CLA / @@4262=7610 JMP L4271 / @@4263=5271 ISZ D0155 / @@4264=2155 JMP L4253 / @@4265=5253 ISZ D0153 / @@4266=2153 JMP L4204 / @@4267=5204 JMS I C0027 / long call to S7007 @@4270=4427 L4271, JMS I C0030 / long call to S6200 @@4271=4430 C4272, 4200 / JMS L4200 C4273, 4263 / JMS C4263 CLA CLL IAC / AC = 0001 @@4274=7301 JMS I C0045 / long call to S6501 @@4275=4445 TAD D0172 / @@4276=1172 JMS I C0042 / long call to S6466 @@4277=4442 TAD D0150 / @@4300=1150 CLL RAR / @@4301=7110 SZL CLA / @@4302=7630 STA / AC = 7777 (-0001) @@4303=7240 DCA D0160 / @@4304=3160 TAD D0160 / @@4305=1160 JMS I C0021 / long call to S7055 @@4306=4421 TAD C0071 / @@4307=1071 JMS I C0047 / long call to S6505 @@4310=4447 CLA CLL / AC = 0000 @@4311=7300 DCA D0167 / @@4312=3167 TAD L0000 / @@4313=1000 DCA D0170 / @@4314=3170 TAD D0170 / @@4315=1170 JMS I C0032 / long call to S6415 @@4316=4432 JMS I C0027 / long call to S7007 @@4317=4427 JMS I C0030 / long call to S6200 @@4320=4430 C4321, 4274 / JMS C4274 C4322, 4263 / JMS C4263 CLA CLL IAC / AC = 0001 @@4323=7301 JMS I C0045 / long call to S6501 @@4324=4445 TAD C0076 / @@4325=1076 TAD D0172 / @@4326=1172 JMS I C0042 / long call to S6466 @@4327=4442 TAD D0150 / @@4330=1150 CLL RAR / @@4331=7110 SZL CLA / @@4332=7630 STA / AC = 7777 (-0001) @@4333=7240 DCA D0160 / @@4334=3160 STA / AC = 7777 (-0001) @@4335=7240 JMS I C0043 / long call to S6452 @@4336=4443 TAD D0160 / @@4337=1160 JMS I C0021 / long call to S7055 @@4340=4421 TAD C0071 / @@4341=1071 JMS I C0047 / long call to S6505 @@4342=4447 CLA CLL / AC = 0000 @@4343=7300 TAD I C0126 / @@4344=1526 DCA D0170 / @@4345=3170 TAD D0170 / @@4346=1170 JMS I C0032 / long call to S6415 @@4347=4432 JMS I C0027 / long call to S7007 @@4350=4427 JMS I C0030 / long call to S6200 @@4351=4430 C4352, 4323 / JMS C4323 C4353, 4263 / JMS C4263 CLA CLL IAC / AC = 0001 @@4354=7301 JMS I C0045 / long call to S6501 @@4355=4445 TAD D0172 / @@4356=1172 JMS I C0042 / long call to S6466 @@4357=4442 TAD D0150 / @@4360=1150 CLL RAR / @@4361=7110 SZL CLA / @@4362=7630 TAD C0113 / @@4363=1113 TAD C0113 / @@4364=1113 DCA D0160 / @@4365=3160 TAD D0160 / @@4366=1160 JMS I C0021 / long call to S7055 @@4367=4421 JMS I C0043 / long call to S6452 @@4370=4443 TAD C0071 / @@4371=1071 JMS I C0047 / long call to S6505 @@4372=4447 CLA CLL / AC = 0000 @@4373=7300 TAD L0000 / @@4374=1000 DCA D0170 / @@4375=3170 TAD L0000 / @@4376=1000 JMS I C0032 / long call to S6415 @@4377=4432 JMS I C0027 / long call to S7007 @@4400=4427 JMS I C0030 / long call to S6200 @@4401=4430 C4402, 4354 / JMS C4554 C4403, 4263 / JMS C4463 CLA CLL IAC / AC = 0001 @@4404=7301 JMS I C0045 / long call to S6501 @@4405=4445 TAD D0172 / @@4406=1172 JMS I C0042 / long call to S6466 @@4407=4442 STA / AC = 7777 (-0001) @@4410=7240 JMS I C0043 / long call to S6452 @@4411=4443 TAD D0150 / @@4412=1150 CLL RAR / @@4413=7110 SZL CLA / @@4414=7630 TAD C0113 / @@4415=1113 TAD C0113 / @@4416=1113 DCA D0160 / @@4417=3160 TAD D0160 / @@4420=1160 JMS I C0021 / long call to S7055 @@4421=4421 TAD C0071 / @@4422=1071 JMS I C0047 / long call to S6505 @@4423=4447 CLA CLL / AC = 0000 @@4424=7300 TAD I C0126 / @@4425=1526 DCA D0170 / @@4426=3170 C4427, 1170 / TAD D0170 JMS I C0032 / long call to S6415 @@4430=4432 JMS I C0027 / long call to S7007 @@4431=4427 JMS I C0030 / long call to S6200 @@4432=4430 C4433, 4404 / JMS I C0004 C4434, 4263 / JMS C4463 CLA CLL IAC / AC = 0001 @@4435=7301 JMS I C0045 / long call to S6501 @@4436=4445 JMS I C0036 / long call to S6567 @@4437=4436 TAD C0127 / @@4440=1127 DCA D0153 / @@4441=3153 TAD D0150 / @@4442=1150 DCA D0154 / @@4443=3154 TAD D0172 / @@4444=1172 TAD C0101 / @@4445=1101 JMS I C0042 / long call to S6466 @@4446=4442 L4447, JMS I C0043 / long call to S6452 @@4447=4443 TAD D0154 / @@4450=1154 DCA L0000 / @@4451=3000 TAD C0071 / @@4452=1071 JMS I C0047 / long call to S6505 @@4453=4447 CLA CLL / AC = 0000 @@4454=7300 ISZ D0154 / @@4455=2154 NOP / @@4456=7000 ISZ D0153 / @@4457=2153 JMP L4447 / @@4460=5247 TAD C0127 / @@4461=1127 DCA D0153 / @@4462=3153 TAD D0150 / @@4463=1150 DCA D0160 / @@4464=3160 L4465, JMS I C0050 / long call to S6537 @@4465=4450 JMS I C0032 / long call to S6415 @@4466=4432 SKP CLA / @@4467=7610 JMP L4476 / @@4470=5276 ISZ D0160 / @@4471=2160 NOP / @@4472=7000 ISZ D0153 / @@4473=2153 JMP L4465 / @@4474=5265 JMS I C0027 / long call to S7007 @@4475=4427 L4476, JMS I C0030 / long call to S6200 @@4476=4430 JMS I D0035 / long call to S6551 @@4477=4435 C4500, 4263 / JMS C4463 JMP I C4502 / long jump to L4600 @@4501=5702 C4502, C4502, 4600 / JMS I C4400 *4600 L4600, CLA CLL IAC / AC = 0001 @@4600=7301 JMS I C0045 / long call to S6501 @@4601=4445 TAD D0172 / @@4602=1172 JMS I C0042 / long call to S6466 @@4603=4442 DCA D0167 / @@4604=3167 TAD D0151 / @@4605=1151 DCA D0160 / @@4606=3160 TAD D0160 / @@4607=1160 JMS I C0021 / long call to S7055 @@4610=4421 TAD C0071 / @@4611=1071 JMS I C0047 / long call to S6505 @@4612=4447 CLA CLL / AC = 0000 @@4613=7300 TAD L0000 / @@4614=1000 DCA D0170 / @@4615=3170 TAD D0170 / @@4616=1170 JMS I C0032 / long call to S6415 @@4617=4432 JMS I C0027 / long call to S7007 @@4620=4427 JMS I C0030 / long call to S6200 @@4621=4430 C4622, 4600 / JMS I L4600 C4623, 4263 / JMS C4663 CLA CLL IAC / AC = 0001 @@4624=7301 JMS I C0045 / long call to S6501 @@4625=4445 TAD D0150 / @@4626=1150 DCA D0160 / @@4627=3160 TAD D0160 / @@4630=1160 JMS I C0021 / long call to S7055 @@4631=4421 TAD D0160 / @@4632=1160 CMA / @@4633=7040 DCA L0000 / @@4634=3000 JMS I C0043 / long call to S6452 @@4635=4443 TAD D0172 / @@4636=1172 TAD D0077 / @@4637=1077 JMS I C0042 / long call to S6466 @@4640=4442 TAD C0071 / @@4641=1071 JMS I C0047 / long call to S6505 @@4642=4447 CLA CLL / AC = 0000 @@4643=7300 TAD L0000 / @@4644=1000 DCA D0170 / @@4645=3170 TAD D0170 / @@4646=1170 JMS I C0032 / long call to S6415 @@4647=4432 JMS I C0027 / long call to S7007 @@4650=4427 JMS I C0030 / long call to S6200 @@4651=4430 C4652, 4624 / JMS I C4624 C4653, 4263 / JMS C4663 CLA CLL IAC / AC = 0001 @@4654=7301 JMS I C0045 / long call to S6501 @@4655=4445 TAD D0151 / @@4656=1151 DCA D0160 / @@4657=3160 TAD D0160 / @@4660=1160 JMS I C0021 / long call to S7055 @@4661=4421 TAD D0160 / @@4662=1160 CMA / @@4663=7040 DCA L0000 / @@4664=3000 JMS I C0043 / long call to S6452 @@4665=4443 TAD D0172 / @@4666=1172 TAD C0076 / @@4667=1076 TAD D0077 / @@4670=1077 JMS I C0042 / long call to S6466 @@4671=4442 TAD C0071 / @@4672=1071 JMS I C0047 / long call to S6505 @@4673=4447 CLA CLL / AC = 0000 @@4674=7300 TAD L0000 / @@4675=1000 DCA D0170 / @@4676=3170 TAD D0170 / @@4677=1170 JMS I C0032 / long call to S6415 @@4700=4432 JMS I C0027 / long call to S7007 @@4701=4427 JMS I C0030 / long call to S6200 @@4702=4430 C4703, 4654 / JMS I C4654 C4704, 4263 / JMS C4663 JMP I C4706 / long jump to L5000 @@4705=5706 C4706, C4706, 5000 / JMP L0000 *5000 L5000, C5000, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@5001=4445 TAD D0150 / @@5002=1150 DCA D0160 / @@5003=3160 TAD D0160 / @@5004=1160 JMS I C0021 / long call to S7055 @@5005=4421 TAD D0160 / @@5006=1160 CMA / @@5007=7040 DCA L0000 / @@5010=3000 JMS I C0043 / long call to S6452 @@5011=4443 TAD D0172 / @@5012=1172 TAD C0101 / @@5013=1101 TAD D0077 / @@5014=1077 JMS I C0042 / long call to S6466 @@5015=4442 TAD C0071 / @@5016=1071 JMS I C0047 / long call to S6505 @@5017=4447 CLA CLL / AC = 0000 @@5020=7300 TAD L0000 / @@5021=1000 DCA D0170 / @@5022=3170 TAD D0170 / @@5023=1170 JMS I C0032 / long call to S6415 @@5024=4432 JMS I C0027 / long call to S7007 @@5025=4427 JMS I C0030 / long call to S6200 @@5026=4430 JMP L0000 / @@5027=5000 C5030, 4263 / JMS C5063 CLA CLL IAC / AC = 0001 @@5031=7301 JMS I C0045 / long call to S6501 @@5032=4445 TAD D0151 / @@5033=1151 DCA D0160 / @@5034=3160 TAD D0160 / @@5035=1160 JMS I C0021 / long call to S7055 @@5036=4421 TAD D0160 / @@5037=1160 CMA / @@5040=7040 DCA L0000 / @@5041=3000 JMS I C0043 / long call to S6452 @@5042=4443 TAD D0172 / @@5043=1172 TAD C0101 / @@5044=1101 TAD C0076 / @@5045=1076 TAD D0077 / @@5046=1077 JMS I C0042 / long call to S6466 @@5047=4442 TAD C0071 / @@5050=1071 JMS I C0047 / long call to S6505 @@5051=4447 CLA CLL / AC = 0000 @@5052=7300 TAD L0000 / @@5053=1000 DCA D0170 / @@5054=3170 TAD D0170 / @@5055=1170 JMS I C0032 / long call to S6415 @@5056=4432 JMS I C0027 / long call to S7007 @@5057=4427 JMS I C0030 / long call to S6200 @@5060=4430 JMP L0031 / @@5061=5031 C5062, 4263 / JMS C5063 CLA CLL IAC / AC = 0001 @@5063=7301 JMS I C0045 / long call to S6501 @@5064=4445 TAD D0151 / @@5065=1151 DCA D0156 / @@5066=3156 TAD C0127 / @@5067=1127 DCA D0155 / @@5070=3155 L5071, TAD D0156 / @@5071=1156 JMS I C0021 / long call to S7055 @@5072=4421 CLA CLL CMA / AC = 7777 (-0001) @@5073=7340 TAD D0156 / @@5074=1156 DCA D0156 / @@5075=3156 ISZ D0155 / @@5076=2155 JMP L5071 / @@5077=5271 TAD D0151 / @@5100=1151 DCA D0160 / @@5101=3160 TAD C0127 / @@5102=1127 DCA D0155 / @@5103=3155 TAD D0172 / @@5104=1172 JMS I C0042 / long call to S6466 @@5105=4442 L5106, JMS I C0043 / long call to S6452 @@5106=4443 TAD C0071 / @@5107=1071 JMS I C0047 / long call to S6505 @@5110=4447 CLA CLL / AC = 0000 @@5111=7300 TAD L0000 / @@5112=1000 DCA D0170 / @@5113=3170 TAD D0170 / @@5114=1170 JMS I C0032 / long call to S6415 @@5115=4432 SKP CLA / @@5116=7610 JMP L5126 / @@5117=5326 CLA CLL CMA / AC = 7777 (-0001) @@5120=7340 TAD D0160 / @@5121=1160 DCA D0160 / @@5122=3160 ISZ D0155 / @@5123=2155 JMP L5106 / @@5124=5306 JMS I C0027 / long call to S7007 @@5125=4427 L5126, JMS I C0030 / long call to S6200 @@5126=4430 JMP L0063 / @@5127=5063 C5130, 4263 / JMS C5063 CLA CLL IAC / AC = 0001 @@5131=7301 JMS I C0045 / long call to S6501 @@5132=4445 JMS I C0036 / long call to S6567 @@5133=4436 CLA CLL CMA / AC = 7777 (-0001) @@5134=7340 JMS I C0043 / long call to S6452 @@5135=4443 TAD D0151 / @@5136=1151 DCA I C0126 / @@5137=3526 TAD D0172 / @@5140=1172 TAD C0101 / @@5141=1101 JMS I C0042 / long call to S6466 @@5142=4442 TAD C0071 / @@5143=1071 JMS I C0047 / long call to S6505 @@5144=4447 CLA CLL / AC = 0000 @@5145=7300 TAD D0172 / @@5146=1172 JMS I C0042 / long call to S6466 @@5147=4442 TAD C0071 / @@5150=1071 JMS I C0047 / long call to S6505 @@5151=4447 CLA CLL / AC = 0000 @@5152=7300 ISZ D0167 / @@5153=2167 NOP / @@5154=7000 TAD D0151 / @@5155=1151 DCA D0160 / @@5156=3160 TAD L0000 / @@5157=1000 DCA D0170 / @@5160=3170 TAD L0000 / @@5161=1000 JMS I C0032 / long call to S6415 @@5162=4432 JMS I C0027 / long call to S7007 @@5163=4427 JMS I C0030 / long call to S6200 @@5164=4430 JMP L0131 / @@5165=5131 C5166, 4263 / JMS C5063 CLA CLL IAC / AC = 0001 @@5167=7301 TAD D0173 / @@5170=1173 SNA CLA / @@5171=7650 JMP I D0024 / long jump to L5747 @@5172=5424 JMP I C5174 / long jump to L5200 @@5173=5774 C5174, C5174, 5200 / JMP L5000 *5200 L5200, CLA CLL IAC / AC = 0001 @@5200=7301 JMS I C0045 / long call to S6501 @@5201=4445 JMS I C0036 / long call to S6567 @@5202=4436 TAD C0144 / @@5203=1144 DCA D5225 / @@5204=3225 TAD D0173 / @@5205=1173 DCA D0153 / @@5206=3153 TAD I C0025 / @@5207=1425 DCA D5227 / @@5210=3227 TAD D0150 / @@5211=1150 CLL RAR / @@5212=7110 SZL CLA / @@5213=7630 STA / AC = 7777 (-0001) @@5214=7240 DCA D0160 / @@5215=3160 L5216, JMS I C0043 / long call to S6452 @@5216=4443 TAD D5225 / @@5217=1225 CIA / @@5220=7041 TAD D5227 / @@5221=1227 SNA CLA / @@5222=7650 JMP L5242 / @@5223=5242 TAD D0160 / @@5224=1160 D5225, 7402 / HLT DCA I C0057 / @@5226=3457 D5227, 7402 / HLT TAD D5225 / @@5230=1225 AND C0107 / @@5231=0107 TAD C0101 / @@5232=1101 JMS I C0042 / long call to S6466 @@5233=4442 TAD C0071 / @@5234=1071 JMS I C0047 / long call to S6505 @@5235=4447 JMS I C0050 / long call to S6537 @@5236=4450 JMS I C0032 / long call to S6415 @@5237=4432 SKP CLA / @@5240=7610 JMP L5252 / @@5241=5252 L5242, ISZ D0153 / @@5242=2153 SKP CLA / @@5243=7610 JMP L5251 / @@5244=5251 TAD D5225 / @@5245=1225 TAD C0066 / @@5246=1066 DCA D5225 / @@5247=3225 JMP L5216 / @@5250=5216 L5251, JMS I C0027 / long call to S7007 @@5251=4427 L5252, JMS I C0030 / long call to S6200 @@5252=4430 JMP L5200 / @@5253=5200 C5254, 4263 / JMS C5263 JMP I C5256 / long jump to L5400 @@5255=5656 C5256, C5256, 5400 / JMP I L0000 *5400 L5400, CLA CLL IAC / AC = 0001 @@5400=7301 JMS I C0045 / long call to S6501 @@5401=4445 JMS I C0036 / long call to S6567 @@5402=4436 TAD C0144 / @@5403=1144 DCA D5426 / @@5404=3226 TAD D0173 / @@5405=1173 DCA D0153 / @@5406=3153 TAD I C0025 / @@5407=1425 DCA D5430 / @@5410=3230 TAD D0150 / @@5411=1150 CLL RAR / @@5412=7110 SZL CLA / @@5413=7630 TAD C0113 / @@5414=1113 TAD C0113 / @@5415=1113 DCA D0160 / @@5416=3160 L5417, JMS I C0043 / long call to S6452 @@5417=4443 TAD D5426 / @@5420=1226 CIA / @@5421=7041 TAD D5430 / @@5422=1230 SNA CLA / @@5423=7650 JMP L5443 / @@5424=5243 TAD D0160 / @@5425=1160 D5426, 7402 / HLT DCA I C0057 / @@5427=3457 D5430, 7402 / HLT TAD D5426 / @@5431=1226 AND C0107 / @@5432=0107 TAD C0101 / @@5433=1101 JMS I C0042 / long call to S6466 @@5434=4442 TAD C0071 / @@5435=1071 JMS I C0047 / long call to S6505 @@5436=4447 JMS I C0050 / long call to S6537 @@5437=4450 JMS I C0032 / long call to S6415 @@5440=4432 SKP CLA / @@5441=7610 JMP L5453 / @@5442=5253 L5443, ISZ D0153 / @@5443=2153 SKP CLA / @@5444=7610 JMP L5452 / @@5445=5252 TAD D5426 / @@5446=1226 TAD C0066 / @@5447=1066 DCA D5426 / @@5450=3226 JMP L5417 / @@5451=5217 L5452, JMS I C0027 / long call to S7007 @@5452=4427 L5453, JMS I C0030 / long call to S6200 @@5453=4430 JMP I L0000 / long jump to L0000 @@5454=5400 C5455, 4263 / JMS C5463 CLA CLL IAC / AC = 0001 @@5456=7301 JMS I C0045 / long call to S6501 @@5457=4445 JMS I C0036 / long call to S6567 @@5460=4436 TAD C0144 / @@5461=1144 DCA D5504 / @@5462=3304 TAD D0173 / @@5463=1173 DCA D0153 / @@5464=3153 TAD I C0025 / @@5465=1425 DCA D5506 / @@5466=3306 TAD D0150 / @@5467=1150 CLL RAR / @@5470=7110 SZL CLA / @@5471=7630 STA / AC = 7777 (-0001) @@5472=7240 DCA D0160 / @@5473=3160 L5474, STA / AC = 7777 (-0001) @@5474=7240 JMS I C0043 / long call to S6452 @@5475=4443 TAD D5504 / @@5476=1304 CIA / @@5477=7041 TAD D5506 / @@5500=1306 SNA CLA / @@5501=7650 JMP L5521 / @@5502=5321 TAD D0160 / @@5503=1160 D5504, 7402 / HLT DCA I C0126 / @@5505=3526 D5506, 7402 / HLT TAD D5504 / @@5507=1304 AND C0107 / @@5510=0107 TAD C0101 / @@5511=1101 JMS I C0042 / long call to S6466 @@5512=4442 TAD C0071 / @@5513=1071 JMS I C0047 / long call to S6505 @@5514=4447 JMS I C0050 / long call to S6537 @@5515=4450 JMS I C0032 / long call to S6415 @@5516=4432 SKP CLA / @@5517=7610 JMP L5531 / @@5520=5331 L5521, ISZ D0153 / @@5521=2153 SKP CLA / @@5522=7610 JMP L5530 / @@5523=5330 TAD D5504 / @@5524=1304 TAD C0066 / @@5525=1066 DCA D5504 / @@5526=3304 JMP L5474 / @@5527=5274 L5530, JMS I C0027 / long call to S7007 @@5530=4427 L5531, JMS I C0030 / long call to S6200 @@5531=4430 JMP I C0056 / long jump to L0260 @@5532=5456 C5533, 4263 / JMS C5463 JMP I C5535 / long jump to L5600 @@5534=5735 C5535, C5535, 5600 / JMP I L5400 *5600 L5600, C5600, C5600, 7301 / CLA CLL IAC JMS I C0045 / long call to S6501 @@5601=4445 JMS I C0036 / long call to S6567 @@5602=4436 TAD C0144 / @@5603=1144 DCA D5627 / @@5604=3227 TAD D0173 / @@5605=1173 DCA D0153 / @@5606=3153 TAD I C0025 / @@5607=1425 DCA D5631 / @@5610=3231 TAD D0150 / @@5611=1150 CLL RAR / @@5612=7110 SZL CLA / @@5613=7630 TAD C0113 / @@5614=1113 TAD C0113 / @@5615=1113 DCA D0160 / @@5616=3160 L5617, STA / AC = 7777 (-0001) @@5617=7240 JMS I C0043 / long call to S6452 @@5620=4443 TAD D5627 / @@5621=1227 CIA / @@5622=7041 TAD D5631 / @@5623=1231 SNA CLA / @@5624=7650 JMP L5644 / @@5625=5244 TAD D0160 / @@5626=1160 D5627, 7402 / HLT DCA I C0126 / @@5630=3526 D5631, 7402 / HLT TAD D5627 / @@5632=1227 AND C0107 / @@5633=0107 TAD C0101 / @@5634=1101 JMS I C0042 / long call to S6466 @@5635=4442 TAD C0071 / @@5636=1071 JMS I C0047 / long call to S6505 @@5637=4447 JMS I C0050 / long call to S6537 @@5640=4450 JMS I C0032 / long call to S6415 @@5641=4432 SKP CLA / @@5642=7610 JMP L5654 / @@5643=5254 L5644, ISZ D0153 / @@5644=2153 SKP CLA / @@5645=7610 JMP L5653 / @@5646=5253 TAD D5627 / @@5647=1227 TAD C0066 / @@5650=1066 DCA D5627 / @@5651=3227 JMP L5617 / @@5652=5217 L5653, JMS I C0027 / long call to S7007 @@5653=4427 L5654, JMS I C0030 / long call to S6200 @@5654=4430 JMP I L5600 / long jump to L7301 @@5655=5600 C5656, 4263 / JMS C5663 C5657, C5657, 1144 / TAD C0144 DCA D5700 / @@5660=3300 TAD D0173 / @@5661=1173 DCA D0153 / @@5662=3153 TAD I C0025 / @@5663=1425 DCA D5724 / @@5664=3324 TAD D0150 / @@5665=1150 DCA D0160 / @@5666=3160 L5667, CLA CLL IAC / AC = 0001 @@5667=7301 JMS I C0045 / long call to S6501 @@5670=4445 JMS I C0036 / long call to S6567 @@5671=4436 TAD D5700 / @@5672=1300 CIA / @@5673=7041 TAD D5724 / @@5674=1324 SNA CLA / @@5675=7650 JMP L5734 / @@5676=5334 TAD D0160 / @@5677=1160 D5700, 0000 / AND L0000 DCA I D0151 / @@5701=3551 TAD D5700 / @@5702=1300 AND C0107 / @@5703=0107 TAD C0101 / @@5704=1101 JMS I C0042 / long call to S6466 @@5705=4442 TAD D0151 / @@5706=1151 JMS I C0043 / long call to S6452 @@5707=4443 TAD C0071 / @@5710=1071 JMS I C0047 / long call to S6505 @@5711=4447 CLA CLL IAC / AC = 0001 @@5712=7301 TAD D0151 / @@5713=1151 DCA D0167 / @@5714=3167 TAD D5700 / @@5715=1300 AND C0107 / @@5716=0107 JMS I C0042 / long call to S6466 @@5717=4442 TAD C0071 / @@5720=1071 JMS I C0047 / long call to S6505 @@5721=4447 CLA CLL / AC = 0000 @@5722=7300 TAD I D0167 / @@5723=1567 D5724, 0000 / AND L0000 DCA D0170 / @@5725=3170 TAD D0170 / @@5726=1170 JMS I C0032 / long call to S6415 @@5727=4432 SKP CLA / @@5730=7610 JMP L5744 / @@5731=5344 ISZ D0160 / @@5732=2160 NOP / @@5733=7000 L5734, ISZ D0153 / @@5734=2153 SKP CLA / @@5735=7610 JMP L5743 / @@5736=5343 TAD D5700 / @@5737=1300 TAD C0066 / @@5740=1066 DCA D5700 / @@5741=3300 JMP L5667 / @@5742=5267 L5743, JMS I C0027 / long call to S7007 @@5743=4427 L5744, JMS I C0030 / long call to S6200 @@5744=4430 JMP I C5657 / long jump to L1144 @@5745=5657 C5746, 4263 / JMS C5663 JMS I C0176 / long call to S7041 @@5747=4576 TAD D0175 / @@5750=1175 DCA I C0126 / @@5751=3526 JMS I C0054 / long call to S6646 @@5752=4454 JMS I C0051 / long call to S6701 @@5753=4451 CLA CLL CML / @@5754=7320 LAS / @@5755=7604 RAL / @@5756=7004 SMA CLA / @@5757=7700 HLT / @@5760=7402 CLA CLL IAC / AC = 0001 @@5761=7301 JMS I C0045 / long call to S6501 @@5762=4445 JMP I C5764 / long jump to L0256 @@5763=5764 C5764, C5764, 0256 / AND C5656 *6000 L6000, CLA CLL IAC / AC = 0001 @@6000=7301 JMS I C0045 / long call to S6501 @@6001=4445 JMS I C0036 / long call to S6567 @@6002=4436 TAD C0072 / @@6003=1072 L6004, JMS I C0047 / long call to S6505 @@6004=4447 JMP L6004 / @@6005=5204 JMP L6004 / @@6006=5204 *6200 D6200, 0000 / AND L0000 CLA CLL / AC = 0000 @@6201=7300 TAD I D6200 / @@6202=1600 DCA D6335 / @@6203=3335 LAS / @@6204=7604 SMA CLA / @@6205=7700 JMP L6216 / @@6206=5216 LAS / @@6207=7604 RTL / @@6210=7006 SPA CLA / @@6211=7710 JMP I D6335 / long jump to L0000 @@6212=5735 TAD C0074 / @@6213=1074 JMS I C0026 / long call to S6737 @@6214=4426 JMP I D6335 / long jump to L0000 @@6215=5735 L6216, ISZ D6200 / @@6216=2200 JMS I C0054 / long call to S6646 @@6217=4454 JMS I C0054 / long call to S6646 @@6220=4454 TAD I D6200 / @@6221=1600 AND C0141 / @@6222=0141 TAD C6343 / @@6223=1343 DCA D6225 / @@6224=3225 D6225, 7402 / HLT DCA D6230 / @@6226=3230 JMS I C0051 / long call to S6701 @@6227=4451 D6230, 7402 / HLT JMS I C0054 / long call to S6646 @@6231=4454 JMS I C0051 / long call to S6701 @@6232=4451 C6233, 7136 / CLL CML RTR RTL CLA CLL CMA / AC = 7777 (-0001) @@6234=7340 TAD D6200 / @@6235=1200 JMS I L0052 / long call to S6656 @@6236=4452 TAD I D6200 / @@6237=1600 CLL RAL / @@6240=7104 SNL / @@6241=7420 JMP L6256 / @@6242=5256 DCA D6200 / @@6243=3200 C6244, 4451 / JMS I C0051 CLL CMA / @@6245=7140 TAD D6200 / @@6246=1200 SMA CLA / @@6247=7700 JMP L6253 / @@6250=5253 TAD D0157 / @@6251=1157 JMS I C0053 / long call to S6631 @@6252=4453 L6253, TAD D0160 / @@6253=1160 JMS I L0052 / long call to S6656 @@6254=4452 SKP CLA / @@6255=7610 L6256, DCA D6200 / @@6256=3200 TAD D6200 / @@6257=1200 CLL RAL / @@6260=7104 SNL / @@6261=7420 JMP L6273 / @@6262=5273 DCA D6200 / @@6263=3200 JMS I C0051 / long call to S6701 @@6264=4451 CLL CMA / @@6265=7142 TAD D0161 / @@6266=1161 JMS I C0053 / long call to S6631 @@6267=4453 TAD D0162 / @@6270=1162 JMS I L0052 / long call to S6656 @@6271=4452 SKP CLA / @@6272=7610 L6273, DCA D6200 / @@6273=3200 TAD C6337 / @@6274=1337 DCA D6342 / @@6275=3342 TAD C6340 / @@6276=1340 DCA AI0 / AUTO INDEX REGISTER @@6277=3010 TAD C0125 / @@6300=1125 DCA D6341 / @@6301=3341 L6302, TAD D6200 / @@6302=1200 SMA / @@6303=7500 JMP L6327 / @@6304=5327 CLL RAL / @@6305=7104 DCA D6200 / @@6306=3200 TAD D6342 / @@6307=1342 ISZ D6342 / @@6310=2342 ISZ D6342 / @@6311=2342 DCA D6314 / @@6312=3314 JMS I C0051 / long call to S6701 @@6313=4451 D6314, 7402 / HLT TAD I AI0 / AUTO INDEX REGISTER @@6315=1410 JMS I L0052 / long call to S6656 @@6316=4452 L6317, ISZ D6341 / @@6317=2341 JMP L6302 / @@6320=5302 TAD D0175 / @@6321=1175 DCA I C0126 / @@6322=3526 HLT / @@6323=7402 JMS I C6336 / long call to S6746 @@6324=4736 JMP I D6335 / long jump to L0000 @@6325=5735 JMP L6256 / @@6326=5256 L6327, CLL RAL / @@6327=7104 DCA D6200 / @@6330=3200 ISZ D6342 / @@6331=2342 ISZ D6342 / @@6332=2342 ISZ AI0 / AUTO INDEX REGISTER @@6333=2010 JMP L6317 / @@6334=5317 D6335, 0000 / AND L0000 C6336, C6336, 6746 / 6746 C6337, 7144 / CLL CMA RAL C6340, 0162 / AND D0162 D6341, 0000 / AND L0000 D6342, 0000 / AND L0000 C6343, 1344 / TAD C6344 CLL CMA CML / @@6344=7162 C6345, 7175 / CLL CMA CML IAC RAR RAL CLA IAC RAR / @@6346=7211 CLA CML IAC RTL / @@6347=7227 STA / AC = 7777 (-0001) @@6350=7240 CLA CMA RTR / @@6351=7252 CLA CMA CML RAL / @@6352=7264 C6353, 7274 / CLA CMA CML RAR RAL CLA CLL IAC RTL / AC = 0004 @@6354=7307 *6400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6400 / / Called from: / 2126 2141 2146 2153 2277 2303 2413 2432 2762 2766 2771 3424 3435 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S6400, 0 / return area CLA CLL / AC = 0000 @@6401=7300 TAD C0105 / @@6402=1105 DCA S6415 / @@6403=3215 ION / Enable Interrupts @@6404=6001 L6405, ISZ S6415 / @@6405=2215 JMP L6405 / @@6406=5205 IOF / Disable Interrupts @@6407=6002 JMP I S6400 / return @@6410=5600 ISZ S6400 / @@6411=2200 JMS I C0041 / long call to S6474 @@6412=4441 HLT / @@6413=7402 JMP I S6400 / return @@6414=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6415 / / Called from: / 0230 0265 0277 0307 0316 0327 0336 0360 0403 0417 0434 0502 0532 0554 0577 / 0611 0626 0642 1042 1072 1125 1145 1166 1202 1216 1246 1274 1540 1560 1574 / 1610 1637 1710 1731 1756 2006 2021 2030 2043 2057 2072 2213 2223 2237 2250 / 2265 2475 2507 2523 2535 2547 2563 2605 2617 2631 2652 2672 2736 2746 3030 / 3037 3070 3102 3113 3243 3260 3313 3332 3466 3517 3550 3602 3625 3633 3657 / 3665 3713 3732 3765 3774 4037 4100 4125 4142 4225 4244 4261 4316 4347 4377 / 4430 4466 4617 4647 4700 5024 5056 5115 5162 5237 5440 5516 5641 5727 / Total 0150 (104) calls //////////////////////////////////////////////////////////////////////////////// S6415, 0 / return area DCA D0171 / @@6416=3171 TAD D0171 / @@6417=1171 CIA / @@6420=7041 TAD D0160 / @@6421=1160 SZA CLA / @@6422=7640 ISZ S6415 / @@6423=2215 JMP I S6415 / return @@6424=5615 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6425 / / Called from: / 0666 0713 0735 0762 1023 1356 1423 1463 1521 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S6425, 0 / return area CLA CLL / AC = 0000 @@6426=7300 TAD D0157 / @@6427=1157 AND C0141 / @@6430=0141 CIA / @@6431=7041 TAD D0161 / @@6432=1161 SZA CLA / @@6433=7640 JMP L6441 / @@6434=5241 TAD D0162 / @@6435=1162 CIA / @@6436=7041 TAD D0160 / @@6437=1160 SZA CLA / @@6440=7640 L6441, ISZ S6425 / @@6441=2225 JMP I S6425 / return @@6442=5625 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6443 / / Called from: / 0227 0264 1007 1063 1114 1676 2005 2020 2027 2042 2056 2071 2212 2222 2236 / 2247 2264 2474 2506 2522 2534 2546 2562 2604 2616 2630 2651 2671 2735 2745 / 3015 3027 3036 3067 3101 3112 3242 3257 6753 / Total 0047 (39) calls //////////////////////////////////////////////////////////////////////////////// S6443, 0 / return area C6444, 6745 / 6745 SKP / @@6445=7410 HLT / @@6446=7402 DCA D0163 / @@6447=3163 TAD D0163 / @@6450=1163 JMP I S6443 / return @@6451=5643 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6452 / / Called from: / 0306 1015 1057 1110 1667 2626 2707 3017 3461 3462 3512 3513 3537 3541 3574 / 3576 3616 3650 3707 3746 4010 4070 4116 4136 4215 4240 4255 4336 4370 4411 / 4447 4635 4665 5011 5042 5106 5135 5216 5417 5475 5620 5707 / Total 0052 (42) calls //////////////////////////////////////////////////////////////////////////////// S6452, 0 / return area DCA D0167 / @@6453=3167 TAD D0167 / @@6454=1167 C6455, 6744 / 6744 JMP I S6452 / return @@6456=5652 HLT / @@6457=7402 C6460, C6460, 0000 / AND L0000 DCA D0166 / @@6461=3166 TAD D0166 / @@6462=1166 C6463, 6743 / 6743 JMP I C6460 / long jump to L0000 @@6464=5660 HLT / @@6465=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6466 / / Called from: / 0263 0315 0354 0356 0377 0401 0411 0415 0425 0431 0443 0662 0707 0731 0753 / 1003 1017 1036 1055 1104 1143 1230 1260 1672 2122 2145 2216 2275 2302 2405 / 2426 2647 2756 3274 3413 3450 3510 3544 3572 3621 3653 3705 3724 3752 4026 / 4067 4121 4214 4277 4327 4357 4407 4446 4603 4640 4671 5015 5047 5105 5142 / 5147 5233 5434 5512 5635 5705 5717 / Total 0103 (67) calls //////////////////////////////////////////////////////////////////////////////// S6466, 0 / return area DCA D0165 / @@6467=3165 TAD D0165 / @@6470=1165 C6471, 6746 / 6746 JMP I S6466 / return @@6472=5666 HLT / @@6473=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6474 / / Called from: / 0275 1011 1061 1112 1674 2105 2107 2112 2313 2315 2326 2331 2407 2436 2446 / 2453 2456 2463 2701 2710 2712 3021 3363 3374 6412 / Total 0031 (25) calls //////////////////////////////////////////////////////////////////////////////// S6474, 0 / return area C6475, 6741 / 6741 SKP / @@6476=7410 ISZ S6474 / @@6477=2274 JMP I S6474 / return @@6500=5674 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6501 / / Called from: / 0261 0324 0335 0344 0366 0432 0445 0455 0510 0540 0562 0624 0640 0650 0674 / 0760 0770 1031 1070 1100 1121 1123 1133 1136 1140 1153 1162 1174 1210 1224 / 1254 1271 1302 1334 1401 1431 1471 1527 1546 1566 1602 1616 1653 1700 1723 / 1747 2001 2026 2036 2100 2111 2120 2135 2201 2231 2233 2246 2256 2273 2311 / 2324 2330 2401 2422 2445 2452 2462 2471 2505 2514 2531 2545 2601 2615 2637 / 2642 2660 2667 2700 2706 2721 2724 2741 2754 2761 2765 2770 3003 3033 3047 / 3205 3223 3272 3346 3405 3444 3474 3525 3556 3610 3641 3673 3717 4002 4061 / 4106 4205 4275 4324 4355 4405 4436 4601 4625 4655 5001 5032 5064 5132 5201 / 5401 5457 5601 5670 5762 6001 / Total 0176 (126) calls //////////////////////////////////////////////////////////////////////////////// S6501, 0 / return area C6502, 6742 / 6742 JMP I S6501 / return @@6503=5701 HLT / @@6504=7402 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6505 / / Called from: / 0472 0477 0527 1201 1215 1235 1241 1243 1265 1273 1322 1352 1417 1451 1506 / 1705 2016 2052 2063 2103 2125 2140 2152 2207 2431 2560 2733 3005 3063 3076 / 3111 3214 3236 3254 3307 3326 3357 3371 3420 3432 3464 3515 3546 3600 3623 / 3655 3711 3730 3756 4030 4076 4123 4140 4223 4242 4257 4310 4342 4372 4423 / 4453 4612 4642 4673 5017 5051 5110 5144 5151 5235 5436 5514 5637 5711 5721 / 6004 6517 6526 6533 6541 6543 6556 6563 6571 6605 6612 6620 6625 6761 6766 / 7002 7004 7071 / Total 0135 (93) calls //////////////////////////////////////////////////////////////////////////////// S6505, 0 / return area C6506, 6747 / 6747 JMP I S6505 / return @@6507=5705 HLT / @@6510=7402 C6511, C6511, 0000 / AND L0000 JMS I D0037 / long call to S7000 @@6512=4437 TAD C0130 / @@6513=1130 DCA D0152 / @@6514=3152 TAD C0076 / @@6515=1076 TAD C0073 / @@6516=1073 L6517, JMS I C0047 / long call to S6505 @@6517=4447 ISZ D0152 / @@6520=2152 JMP L6517 / @@6521=5317 CLA CLL / AC = 0000 @@6522=7300 TAD L0131 / @@6523=1131 DCA D0152 / @@6524=3152 TAD C0076 / @@6525=1076 L6526, JMS I C0047 / long call to S6505 @@6526=4447 ISZ D0152 / @@6527=2152 JMP L6526 / @@6530=5326 CLA CLL / AC = 0000 @@6531=7300 TAD C0067 / @@6532=1067 JMS I C0047 / long call to S6505 @@6533=4447 DCA D0166 / @@6534=3166 TAD D0166 / @@6535=1166 JMP I C6511 / long jump to L0000 @@6536=5711 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6537 / / Called from: / 1013 1066 1117 1537 1557 1573 1607 1636 1730 1755 3013 3066 3217 3241 3312 / 3331 3362 3423 3465 3516 3547 3601 3624 3656 3712 3731 3764 3773 4036 4077 / 4124 4141 4224 4243 4260 4465 5236 5437 5515 5640 6754 / Total 0051 (41) calls //////////////////////////////////////////////////////////////////////////////// S6537, 0 / return area CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@6540=7330 JMS I C0047 / long call to S6505 @@6541=4447 TAD C0067 / @@6542=1067 JMS I C0047 / long call to S6505 @@6543=4447 DCA D0164 / @@6544=3164 TAD D0164 / @@6545=1164 DCA D0170 / @@6546=3170 TAD D0170 / @@6547=1170 JMP I S6537 / return @@6550=5737 C6551, C6551, 0000 / AND L0000 JMS I D0037 / long call to S7000 @@6552=4437 TAD C0132 / @@6553=1132 DCA D0152 / @@6554=3152 TAD C0075 / @@6555=1075 L6556, JMS I C0047 / long call to S6505 @@6556=4447 ISZ D0152 / @@6557=2152 JMP L6556 / @@6560=5356 CLA CLL / AC = 0000 @@6561=7300 TAD C0067 / @@6562=1067 JMS I C0047 / long call to S6505 @@6563=4447 DCA D0165 / @@6564=3165 TAD D0165 / @@6565=1165 JMP I C6551 / long jump to L0000 @@6566=5751 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6567 / / Called from: / 1134 1154 1315 1344 1411 1443 1500 2014 2050 2101 2123 2136 2205 2427 2455 / 2500 2540 2610 2640 2661 2704 2722 2757 3001 3057 3212 3232 3301 3353 3414 / 3445 3475 3526 3557 3611 3642 3674 3720 3747 4011 4064 4115 4210 4437 5133 / 5202 5402 5460 5602 5671 6002 7063 / Total 0064 (52) calls //////////////////////////////////////////////////////////////////////////////// S6567, 0 / return area CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@6570=7330 JMS I C0047 / long call to S6505 @@6571=4447 CLA CLL / AC = 0000 @@6572=7300 JMP I S6567 / return @@6573=5767 *6600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6600 / / Called from: / 0665 0712 0734 0761 1022 1325 1355 1422 1462 1520 6770 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S6600, 0 / return area JMS I D0037 / long call to S7000 @@6601=4437 TAD C0132 / @@6602=1132 DCA D0152 / @@6603=3152 TAD C0076 / @@6604=1076 L6605, JMS I C0047 / long call to S6505 @@6605=4447 ISZ D0152 / @@6606=2152 JMP L6605 / @@6607=5205 CLA CLL / AC = 0000 @@6610=7300 TAD C0067 / @@6611=1067 JMS I C0047 / long call to S6505 @@6612=4447 DCA D0162 / @@6613=3162 JMS I D0037 / long call to S7000 @@6614=4437 TAD C0132 / @@6615=1132 DCA D0152 / @@6616=3152 TAD C0076 / @@6617=1076 L6620, JMS I C0047 / long call to S6505 @@6620=4447 ISZ D0152 / @@6621=2152 JMP L6620 / @@6622=5220 CLA CLL / AC = 0000 @@6623=7300 TAD C0067 / @@6624=1067 JMS I C0047 / long call to S6505 @@6625=4447 AND C0141 / @@6626=0141 DCA D0161 / @@6627=3161 JMP I S6600 / return @@6630=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6631 / / Called from: / 6252 6267 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S6631, 0 / return area DCA D0152 / @@6632=3152 TAD D0152 / @@6633=1152 RAR / @@6634=7010 RTR / @@6635=7012 AND C0065 / @@6636=0065 TAD C0056 / @@6637=1056 JMS I C0026 / long call to S6737 @@6640=4426 TAD D0152 / @@6641=1152 AND C0065 / @@6642=0065 TAD C0056 / @@6643=1056 JMS I C0026 / long call to S6737 @@6644=4426 JMP I S6631 / return @@6645=5631 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6646 / / Called from: / 5752 6217 6220 6231 6772 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S6646, 0 / return area CLA CLL / AC = 0000 @@6647=7300 TAD C0142 / @@6650=1142 JMS I C0026 / long call to S6737 @@6651=4426 TAD C0143 / @@6652=1143 JMS I C0026 / long call to S6737 @@6653=4426 JMS I C0026 / long call to S6737 @@6654=4426 JMP I S6646 / return @@6655=5646 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6656 / / Called from: / 6236 6254 6271 6316 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S6656, 0 / return area RTL / @@6657=7006 RTL / @@6660=7006 DCA S6646 / @@6661=3246 TAD C0124 / @@6662=1124 DCA S6631 / @@6663=3231 L6664, TAD S6646 / @@6664=1246 AND C0065 / @@6665=0065 TAD C0056 / @@6666=1056 JMS I C0026 / long call to S6737 @@6667=4426 TAD S6646 / @@6670=1246 RTL / @@6671=7006 RAL / @@6672=7004 DCA S6646 / @@6673=3246 ISZ S6631 / @@6674=2231 JMP L6664 / @@6675=5264 TAD C0055 / @@6676=1055 JMS I C0026 / long call to S6737 @@6677=4426 JMP I S6656 / return @@6700=5656 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6701 / / Called from: / 5753 6227 6232 6264 6313 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S6701, 0 / return area CLA CLL / AC = 0000 @@6702=7300 TAD I S6701 / @@6703=1701 ISZ S6701 / @@6704=2301 DCA S6656 / @@6705=3256 L6706, TAD I S6656 / @@6706=1656 AND C0105 / @@6707=0105 SNA / @@6710=7450 JMP L6735 / @@6711=5335 SMA / @@6712=7500 CML / @@6713=7020 IAC / @@6714=7001 RTR / @@6715=7012 RTR / @@6716=7012 RTR / @@6717=7012 JMS I C0026 / long call to S6737 @@6720=4426 TAD I S6656 / @@6721=1656 AND C0110 / @@6722=0110 SNA / @@6723=7450 JMP L6735 / @@6724=5335 TAD C0115 / @@6725=1115 SMA / @@6726=7500 TAD C0120 / @@6727=1120 TAD C0055 / @@6730=1055 JMS I C0026 / long call to S6737 @@6731=4426 ISZ S6656 / @@6732=2256 CLA CLL / AC = 0000 @@6733=7300 JMP L6706 / @@6734=5306 L6735, CLA CLL / AC = 0000 @@6735=7300 JMP I S6701 / return @@6736=5701 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6737 / / Called from: / 6214 6640 6644 6651 6653 6654 6667 6677 6720 6731 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S6737, 0 / return area TLS / Load the TTO from the content of AC4 @@6740=6046 L6741, TSF / Skip if teleprinter flag is a 1. @@6741=6041 JMP L6741 / @@6742=5341 TCF / Clear teleprinter flag. @@6743=6042 CLA / @@6744=7200 JMP I S6737 / return @@6745=5737 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6746 / / Called from: / 6324 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S6746, 0 / return area LAS / @@6747=7604 AND C0075 / @@6750=0075 SNA CLA / @@6751=7650 JMP I S6746 / return @@6752=5746 JMS I C0034 / long call to S6443 @@6753=4434 JMS I C0050 / long call to S6537 @@6754=4450 CLA CLL / AC = 0000 @@6755=7300 TAD C0132 / @@6756=1132 DCA S6737 / @@6757=3337 TAD C0073 / @@6760=1073 L6761, JMS I C0047 / long call to S6505 @@6761=4447 ISZ S6737 / @@6762=2337 JMP L6761 / @@6763=5361 CLA CLL / AC = 0000 @@6764=7300 TAD C0067 / @@6765=1067 JMS I C0047 / long call to S6505 @@6766=4447 DCA D0166 / @@6767=3166 JMS I C0046 / long call to S6600 @@6770=4446 JMS I D0035 / long call to S6551 @@6771=4435 JMS I C0054 / long call to S6646 @@6772=4454 TAD C0121 / @@6773=1121 ISZ S6746 / @@6774=2346 JMP I S6746 / return @@6775=5746 *7000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7000 / / Never called //////////////////////////////////////////////////////////////////////////////// S7000, 0 / return area CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@7001=7330 JMS I C0047 / long call to S6505 @@7002=4447 RAR / @@7003=7010 JMS I C0047 / long call to S6505 @@7004=4447 CLA CLL / AC = 0000 @@7005=7300 JMP I S7000 / return @@7006=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7007 / / Called from: / 0231 0236 0243 0252 0266 0300 0310 0317 0330 0337 0361 0404 0420 0435 0450 / 0503 0533 0555 0600 0612 0627 0643 0667 0714 0736 0763 1024 1043 1073 1126 / 1146 1203 1217 1247 1275 1327 1357 1424 1464 1522 1541 1561 1575 1611 1646 / 1715 1741 1766 2031 2073 2113 2130 2155 2224 2251 2266 2304 2317 2332 2415 / 2440 2464 2524 2564 2632 2653 2673 2714 2747 2773 3040 3114 3265 3337 3376 / 3437 3467 3520 3551 3603 3634 3666 3733 3775 4050 4151 4270 4317 4350 4400 / 4431 4475 4620 4650 4701 5025 5057 5125 5163 5251 5452 5530 5653 5743 / Total 0150 (104) calls //////////////////////////////////////////////////////////////////////////////// S7007, 0 / return area LAS / @@7010=7604 AND C0073 / @@7011=0073 SNA CLA / @@7012=7650 JMP L7017 / @@7013=5217 TAD D0175 / @@7014=1175 DCA I C0126 / @@7015=3526 HLT / @@7016=7402 L7017, D7017, 2207 / ISZ S7007 TAD I S7007 / @@7020=1607 DCA D7040 / @@7021=3240 LAS / @@7022=7604 SPA CLA / @@7023=7710 JMP I D7040 / long jump to L0000 @@7024=5640 ISZ D0150 / @@7025=2150 SKP CLA / @@7026=7610 JMP L7034 / @@7027=5234 TAD D0150 / @@7030=1150 CLL CMA / @@7031=7140 DCA D0151 / @@7032=3151 JMP I D7040 / long jump to L0000 @@7033=5640 L7034, ISZ S7007 / @@7034=2207 ISZ S7007 / @@7035=2207 JMP I S7007 / return @@7036=5607 D7037, 0000 / AND L0000 D7040, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7041 / / Called from: / 0211 5747 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7041, 0 / return area TAD I C0025 / @@7042=1425 DCA D7053 / @@7043=3253 TAD C0145 / @@7044=1145 CDF0 / Change to data field 0. The data fie @@7045=6201 DCA I C0060 / @@7046=3460 TAD C0146 / @@7047=1146 DCA I C0061 / @@7050=3461 TAD C0023 / @@7051=1023 DCA I C0062 / @@7052=3462 D7053, 7402 / HLT JMP I S7041 / return @@7054=5641 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7055 / / Called from: / 1021 1065 1116 1536 1556 1572 1606 1624 1661 1727 1754 3025 4306 4340 4367 / 4421 4610 4631 4661 5005 5036 5072 / Total 0026 (22) calls //////////////////////////////////////////////////////////////////////////////// S7055, 0 / return area DCA D7037 / @@7056=3237 CLA CLL IAC / AC = 0001 @@7057=7301 DCA D7040 / @@7060=3240 TAD C0132 / @@7061=1132 DCA S7007 / @@7062=3207 JMS I C0036 / long call to S6567 @@7063=4436 L7064, TAD D7037 / @@7064=1237 AND D7040 / @@7065=0240 SZA CLA / @@7066=7640 TAD C0061 / @@7067=1061 TAD C0072 / @@7070=1072 JMS I C0047 / long call to S6505 @@7071=4447 CLA CLL / AC = 0000 @@7072=7300 TAD D7040 / @@7073=1240 CLL RAL / @@7074=7104 DCA D7040 / @@7075=3240 ISZ S7007 / @@7076=2207 JMP L7064 / @@7077=5264 JMP I S7055 / return @@7100=5655 L7101, LAS / @@7101=7604 AND D7124 / @@7102=0324 DCA D7037 / @@7103=3237 C7104, 1326 / TAD C7126 DCA S7055 / @@7105=3255 TAD C7125 / @@7106=1325 DCA D7040 / @@7107=3240 L7110, TAD I S7055 / @@7110=1655 DCA S7041 / @@7111=3241 TAD I S7041 / @@7112=1641 AND C7123 / @@7113=0323 TAD D7037 / @@7114=1237 C7115, 3641 / DCA I S7041 ISZ S7055 / @@7116=2255 C7117, 2240 / ISZ D7040 JMP L7110 / @@7120=5310 L7121, HLT / @@7121=7402 C7122, 5321 / JMP L7121 C7123, 7007 / IAC RTL D7124, 0770 / AND I C7170 C7125, 7771 / CLA MQA SCA MQL NMI C7126, 7127 / CLL CML IAC RTL C7127, 6475 / 6475 PLCF / Clear plotter flag. @@7130=6502 C7131, 6463 / 6463 C7132, 6455 / 6455 C7133, 6444 / 6444 TTCR / (Data Communications System 680/I) T @@7134=6471 C7135, 6506 / 6506 ISZ S0003 / @@7136=2003 CLA / @@7137=7200 AND I C7104 / @@7140=0704 CLA / @@7141=7200 AND C7122 / @@7142=0322 CLA / @@7143=7200 ISZ D7124 / @@7144=2324 CLA / @@7145=7200 AND I D0002 / @@7146=0402 CLA / @@7147=7200 AND C7115 / @@7150=0315 CLA / @@7151=7200 AND I L0001 / @@7152=0401 CLA / @@7153=7200 AND C0104 / @@7154=0104 CLA / @@7155=7200 AND I D0024 / @@7156=0424 CLA / @@7157=7200 AND C0103 / @@7160=0103 CLA / @@7161=7200 ISZ D7124 / @@7162=2324 AND C0124 / @@7163=0124 ISZ I C0123 / @@7164=2523 C7165, 4022 / JMS C0022 AND I C0107 / @@7166=0507 TAD C0123 / @@7167=1123 C7170, 2405 / ISZ I C0005 ISZ D7040 / @@7171=2240 AND I C0122 / @@7172=0522 ISZ L7017 / @@7173=2217 ISZ S7000 / @@7174=2200 AND C7117 / @@7175=0317 TAD I C0115 / @@7176=1515 AND C0116 / @@7177=0116 D7200, 0440 / AND I D0040 ISZ D7205 / @@7201=2205 AND I C7311 / @@7202=0711 ISZ D7324 / @@7203=2324 AND I C0122 / @@7204=0522 D7205, 4005 / JMS C0005 ISZ D7222 / @@7206=2222 TAD I C7322 / @@7207=1722 AND L0000 / @@7210=0000 C7211, 0411 / AND I AI1 ISZ D7313 / @@7212=2313 D7213, 4001 / JMS L0001 C7214, 0404 / AND I C0004 ISZ D7205 / @@7215=2205 ISZ D7323 / @@7216=2323 D7217, 4022 / JMS C0022 AND I C0107 / @@7220=0507 TAD C0123 / @@7221=1123 D7222, 2405 / ISZ I C0005 ISZ D7240 / @@7223=2240 C7224, 0522 / AND I C0122 D7225, 2217 / ISZ D7217 ISZ D7200 / @@7226=2200 AND I L0001 / @@7227=0401 ISZ I L0001 / @@7230=2401 JMS D0002 / @@7231=4002 ISZ D7205 / @@7232=2205 AND C0113 / @@7233=0113 C7234, 4005 / JMS C0005 ISZ D7222 / @@7235=2222 TAD I C7322 / @@7236=1722 AND L0000 / @@7237=0000 D7240, 0322 / AND C7322 C7241, 0340 / AND C7340 ISZ D7205 / @@7242=2205 AND I C7311 / @@7243=0711 ISZ D7324 / @@7244=2324 AND I C0122 / @@7245=0522 C7246, 4005 / JMS C0005 ISZ D7222 / @@7247=2222 TAD I C7322 / @@7250=1722 AND L0000 / @@7251=0000 AND I L0001 / @@7252=0401 ISZ I L0001 / @@7253=2401 C7254, 4022 / JMS C0022 AND I C0107 / @@7255=0507 TAD C0123 / @@7256=1123 C7257, 2405 / ISZ I C0005 ISZ D7240 / @@7260=2240 AND I C0122 / @@7261=0522 ISZ D7217 / @@7262=2217 ISZ D7200 / @@7263=2200 C7264, 0411 / AND I AI1 ISZ D7313 / @@7265=2313 C7266, 4023 / JMS C0023 TAD C7311 / @@7267=1311 ISZ D0040 / @@7270=2040 AND I C0122 / @@7271=0522 ISZ D7217 / @@7272=2217 ISZ D7200 / @@7273=2200 C7274, 0411 / AND I AI1 ISZ D7313 / @@7275=2313 C7276, 4011 / JMS AI1 TAD I C7224 / @@7277=1624 AND I C0122 / @@7300=0522 L7301, D7301, 2225 / ISZ D7225 ISZ D0024 / @@7302=2024 C7303, 4005 / JMS C0005 ISZ D7222 / @@7304=2222 TAD I C7322 / @@7305=1722 AND L0000 / @@7306=0000 AND C0103 / @@7307=0103 C7310, 4022 / JMS C0022 C7311, 0507 / AND I C0107 TAD C0123 / @@7312=1123 D7313, 2405 / ISZ I C0005 ISZ D7240 / @@7314=2240 C7315, 0522 / AND I C0122 ISZ D7217 / @@7316=2217 ISZ D7200 / @@7317=2200 ISZ D7213 / @@7320=2213 IAC RAL / @@7321=7005 C7322, 4004 / JMS C0004 D7323, 1123 / TAD C0123 D7324, 1314 / TAD C7314 AND I C0123 / @@7325=0523 C7326, 2340 / ISZ C7340 ISZ L0001 / @@7327=2001 ISZ D7323 / @@7330=2323 JMS S0003 / @@7331=4003 TAD I C7315 / @@7332=1715 C7333, 2014 / ISZ AI4 AND I C0124 / @@7334=0524 AND I C0100 / @@7335=0500 $