TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhtaa-c-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhtaa-c-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 / / 7136 locations used, 5717 code and 1217 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0002 / / Called from: / 2750 6667 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S0002, 0 / return area D0003, 0003 / AND D0003 AND L0000 / @@0004=0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0005 / / Called from: / 5636 6016 6066 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0005, 0 / return area C0006, 5402 / JMP I S0002 C0007, 4156 / JMS C0156 AI0, 0000 / AUTO-INDEX REGISTER AND L0000 AI1, 0000 / AUTO-INDEX REGISTER AND L0000 AI2, 0000 / AUTO-INDEX REGISTER AND L0000 AI3, 0000 / AUTO-INDEX REGISTER AND L0000 *0020 D0020, 4000 / JMS L0000 C0021, C0021, 4006 / JMS C0006 L0022, D0022, 4013 / JMS AI3 C0023, C0023, 4020 / JMS D0020 D0024, 4025 / JMS C0025 C0025, C0025, 4032 / JMS L0032 C0026, C0026, 4037 / JMS C0037 C0027, C0027, 4044 / JMS C0044 C0030, C0030, 4106 / JMS D0106 C0031, C0031, 4400 / JMS I L0000 L0032, C0032, C0032, 4600 / JMS I L0000 C0033, C0033, 4423 / JMS I C0023 C0034, C0034, 4436 / JMS I C0036 C0035, C0035, 4665 / JMS I D0065 C0036, C0036, 4200 / JMS L0000 C0037, C0037, 4302 / JMS L0102 C0040, C0040, 4072 / JMS C0072 C0041, C0041, 5000 / JMP L0000 L0042, C0042, C0042, 4731 / JMS I D0131 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0043 / / Called from: / 4312 4403 4427 4522 4604 4671 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0043, 0 / return area DCA D0051 / @@0044=3051 C0045, 7040 / CMA TAD D0051 / @@0046=1051 C0047, 3051 / DCA D0051 C0050, 5443 / JMP I S0043 D0051, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0052 / / Called from: / 0231 0236 0243 0260 0275 0331 0337 0411 0451 0520 0600 0611 0625 0636 0667 / 1002 1006 1021 1025 1071 1120 1204 1210 1216 1224 1230 1237 1246 1261 1274 / 1302 1317 1334 1344 1400 1415 1507 1515 1553 1626 1656 1700 1727 2112 2250 / 2343 2447 2600 2646 3125 3200 3321 3432 5303 5320 5402 5422 5442 5470 7220 / 7547 / Total 0075 (61) calls //////////////////////////////////////////////////////////////////////////////// S0052, 0 / return area JMP I S0052 / return @@0053=5452 D0054, 0000 / AND L0000 AND L0000 / @@0055=0000 L0056, C0056, 0010 / AND AI0 C0057, 0020 / AND D0020 C0060, 0030 / AND C0030 C0061, 0040 / AND C0040 C0062, 0050 / AND C0050 C0063, 0060 / AND C0060 C0064, 0070 / AND D0070 D0065, 0000 / AND L0000 L0066, D0066, 0000 / AND L0000 D0067, 0000 / AND L0000 D0070, 0000 / AND L0000 C0071, 7777 / CLA MQA SCA MQL LSR + C0072, 7772 / SPA SNA SZL CLA HLT C0073, 7770 / SPA SNA SZL CLA C0074, 7737 / CLA MQA MQL LSR + C0075, 7766 / SMA SZA SNL CLA OSR HLT D0076, 0000 / AND L0000 D0077, 0000 / AND L0000 C0100, 0100 / AND C0100 C0101, 0200 / AND L0000 L0102, C0102, 0201 / AND L0001 C0103, 0300 / AND C0100 C0104, 0377 / AND C0177 C0105, 7400 / D0106, 0000 / AND L0000 D0107, 0000 / AND L0000 C0110, C0110, 4051 / JMS D0051 D0111, 0000 / AND L0000 D0112, 0000 / AND L0000 D0113, 0000 / AND L0000 C0114, C0114, 5102 / JMP L0102 C0115, C0115, 5200 / JMP L0000 C0116, C0116, 5256 / JMP L0056 D0117, 0000 / AND L0000 C0120, C0120, 4063 / JMS C0063 C0121, C0121, 5042 / JMP L0042 C0122, C0122, 4121 / JMS C0121 C0123, C0123, 4132 / JMS S0132 D0124, 7774 / SPA SNA SZL CLA OSR D0125, 7773 / CLA MQA SCA MQL SHL + C0126, 7772 / SPA SNA SZL CLA HLT D0127, 0000 / AND L0000 D0130, 0000 / AND L0000 D0131, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0132 / / Never called //////////////////////////////////////////////////////////////////////////////// S0132, 0 / return area D0133, 0000 / AND L0000 D0134, 0000 / AND L0000 *0161 C0161, 7547 / MQA SCA DVI + C0162, 7421 / MQL AND D0134 / @@0163=0134 TAD D0020 / @@0164=1220 JMP I C0036 / long jump to L4200 @@0165=5436 JMP I S0132 / return @@0166=5532 JMP I D0107 / long jump to L0000 @@0167=5507 ISZ S0005 / @@0170=2005 ISZ I C0047 / @@0171=2447 C0172, 7513 / MQA SHL + JMP L0066 / @@0173=5066 CLA CLL CML RAL / @@0174=7324 JMP I L0022 / long jump to L4013 @@0175=5422 JMP I S0005 / return @@0176=5405 C0177, 7747 / CLA MQA SCA DVI + JMP I C0377 / long jump to L5716 @@0200=5777 JMP I C0376 / long jump to L5736 @@0201=5776 JMP I C0375 / long jump to L6325 @@0202=5775 JMP I C0374 / long jump to L6344 @@0203=5774 JMP I C0373 / long jump to L2722 @@0204=5773 JMP I C0372 / long jump to L5303 @@0205=5772 JMP I C0371 / long jump to L5400 @@0206=5771 JMP I C0370 / long jump to L5422 @@0207=5770 JMP I C0367 / long jump to L5466 @@0210=5767 JMP I C0366 / long jump to L5507 @@0211=5766 JMP I C0365 / long jump to L5320 @@0212=5765 JMP I C0364 / long jump to L5600 @@0213=5764 JMP I C0363 / long jump to L5442 @@0214=5763 L0215, TAD C0006 / @@0215=1006 DCA L0001 / @@0216=3001 TAD C0007 / @@0217=1007 DCA S0002 / @@0220=3002 L0221, TAD C0073 / @@0221=1073 DCA D0113 / @@0222=3113 L0223, JMS I D0020 / long call to S4000 @@0223=4420 DCA D0051 / @@0224=3051 TAD C0104 / @@0225=1104 JMS I C0027 / long call to S4044 @@0226=4427 SZA / @@0227=7440 HLT / @@0230=7402 JMS S0052 / @@0231=4052 CLA / @@0232=7200 TAD C0104 / @@0233=1104 JMS I L0042 / long call to S4731 @@0234=4442 JMS I C0120 / long call to S4063 @@0235=4520 JMS S0052 / @@0236=4052 CLA CLL / AC = 0000 @@0237=7300 L0240, JMS I L0042 / long call to S4731 @@0240=4442 JMS I C0041 / long call to S5000 @@0241=4441 JMS I C0120 / long call to S4063 @@0242=4520 JMS S0052 / @@0243=4052 TAD C0073 / @@0244=1073 DCA D0107 / @@0245=3107 CLL IAC / @@0246=7101 DCA D0111 / @@0247=3111 L0250, TAD D0111 / @@0250=1111 JMS I L0042 / long call to S4731 @@0251=4442 TAD D0111 / @@0252=1111 CLL RAL / @@0253=7104 DCA D0111 / @@0254=3111 ISZ D0107 / @@0255=2107 JMP L0250 / @@0256=5250 JMS I C0120 / long call to S4063 @@0257=4520 JMS S0052 / @@0260=4052 DCA D0111 / @@0261=3111 TAD C0104 / @@0262=1104 CIA / @@0263=7041 DCA D0107 / @@0264=3107 L0265, TAD D0111 / @@0265=1111 JMS I L0042 / long call to S4731 @@0266=4442 ISZ D0111 / @@0267=2111 ISZ D0107 / @@0270=2107 JMP L0265 / @@0271=5265 JMS I D0020 / long call to S4000 @@0272=4420 JMS I C0041 / long call to S5000 @@0273=4441 JMS I C0120 / long call to S4063 @@0274=4520 JMS S0052 / @@0275=4052 TAD C0362 / @@0276=1362 DCA D0107 / @@0277=3107 C0300, 3111 / DCA D0111 L0301, TAD D0111 / @@0301=1111 JMS I L0042 / long call to S4731 @@0302=4442 L0303, JMS I C0026 / long call to S4037 @@0303=4426 JMS I C0021 / long call to S4006 @@0304=4421 SKP CLA / @@0305=7610 JMS I C0361 / long call to S6400 @@0306=4761 JMS I C0122 / long call to S4121 @@0307=4522 JMS I L0022 / long call to S4013 @@0310=4422 SKP / @@0311=7410 JMS I C0360 / long call to S6263 @@0312=4760 JMS I C0122 / long call to S4121 @@0313=4522 JMS I C0023 / long call to S4020 @@0314=4423 SKP / @@0315=7410 JMS I C0357 / long call to S6304 @@0316=4757 JMS I C0122 / long call to S4121 @@0317=4522 L0320, JMS I C0025 / long call to S4032 @@0320=4425 SKP CLA / @@0321=7610 C0322, 4756 / JMS I C0356 JMS I C0122 / long call to S4121 @@0323=4522 JMS I C0041 / long call to S5000 @@0324=4441 ISZ D0111 / @@0325=2111 ISZ D0107 / @@0326=2107 JMP L0301 / @@0327=5301 JMS I C0120 / long call to S4063 @@0330=4520 JMS S0052 / @@0331=4052 CLA CLL / AC = 0000 @@0332=7300 TAD D0067 / @@0333=1067 JMS I L0042 / long call to S4731 @@0334=4442 JMS I C0041 / long call to S5000 @@0335=4441 JMS I C0120 / long call to S4063 @@0336=4520 JMS S0052 / @@0337=4052 TAD C0101 / @@0340=1101 TAD D0067 / @@0341=1067 JMS I L0042 / long call to S4731 @@0342=4442 TAD C0075 / @@0343=1075 JMS I C0041 / long call to S5000 @@0344=4441 JMS I C0120 / long call to S4063 @@0345=4520 LAS / @@0346=7604 RTR / @@0347=7012 SZL CLA / @@0350=7630 JMP I C0355 / long jump to L0411 @@0351=5755 JMP I C0354 / long jump to L0400 @@0352=5754 *0354 C0354, C0354, 0400 / AND I L0000 C0355, C0355, 0411 / AND I AI1 T1skip / (Data Communications System 680/I) C @@0356=6421 C0357, C0357, 6304 / 6304 C0360, C0360, 6263 / 6263 C0361, C0361, 6400 / 6400 C0362, 7601 / CLA C0363, C0363, 5442 / JMP I L0042 C0364, C0364, 5600 / JMP I C0200 C0365, C0365, 5320 / JMP L0320 C0366, C0366, 5507 / JMP I D0107 C0367, C0367, 5466 / JMP I L0066 C0370, C0370, 5422 / JMP I L0022 C0371, C0371, 5400 / JMP I L0000 C0372, C0372, 5303 / JMP L0303 C0373, C0373, 2722 / ISZ I C0322 C0374, C0374, 6344 / 6344 C0375, C0375, 6325 / 6325 C0376, C0376, 5736 / JMP I C0336 C0377, C0377, 5716 / JMP I C0316 L0400, C0400, 4052 / JMS S0052 TAD C0101 / @@0401=1101 TAD D0067 / @@0402=1067 JMS I L0042 / long call to S4731 @@0403=4442 TAD C0075 / @@0404=1075 JMS I C0041 / long call to S5000 @@0405=4441 C0406, 6007 / 6007 JMS I C0041 / long call to S5000 @@0407=4441 JMS I C0120 / long call to S4063 @@0410=4520 L0411, JMS S0052 / @@0411=4052 CLA / @@0412=7200 TAD C0577 / @@0413=1377 DCA D0107 / @@0414=3107 DCA D0111 / @@0415=3111 L0416, TAD C0101 / @@0416=1101 TAD D0067 / @@0417=1067 TAD D0111 / @@0420=1111 JMS I L0042 / long call to S4731 @@0421=4442 JMS I C0026 / long call to S4037 @@0422=4426 JMS I C0021 / long call to S4006 @@0423=4421 SKP / @@0424=7410 JMS I C0576 / long call to S6400 @@0425=4776 JMS I C0122 / long call to S4121 @@0426=4522 JMS I L0022 / long call to S4013 @@0427=4422 JMS I C0575 / long call to S6110 @@0430=4775 JMS I C0123 / long call to S4132 @@0431=4523 JMS I C0023 / long call to S4020 @@0432=4423 SKP CLA / @@0433=7610 JMS I C0574 / long call to S6304 @@0434=4774 JMS I C0122 / long call to S4121 @@0435=4522 JMS I C0025 / long call to S4032 @@0436=4425 JMS I C0573 / long call to S6242 @@0437=4773 JMS I C0123 / long call to S4132 @@0440=4523 TAD C0075 / @@0441=1075 JMS I C0041 / long call to S5000 @@0442=4441 JMS I D0020 / long call to S4000 @@0443=4420 JMS I C0041 / long call to S5000 @@0444=4441 ISZ D0111 / @@0445=2111 ISZ D0107 / @@0446=2107 JMP L0416 / @@0447=5216 JMS I C0120 / long call to S4063 @@0450=4520 JMS S0052 / @@0451=4052 CLA CLL / AC = 0000 @@0452=7300 DCA D0107 / @@0453=3107 L0454, TAD C0101 / @@0454=1101 TAD D0067 / @@0455=1067 JMS I L0042 / long call to S4731 @@0456=4442 JMS I C0026 / long call to S4037 @@0457=4426 CLA / @@0460=7200 JMS I C0021 / long call to S4006 @@0461=4421 SKP / @@0462=7410 JMS I C0576 / long call to S6400 @@0463=4776 JMS I C0122 / long call to S4121 @@0464=4522 JMS I C0110 / long call to S4051 @@0465=4510 SZA CLA / @@0466=7640 JMS I C0572 / long call to S6477 @@0467=4772 JMS I L0022 / long call to S4013 @@0470=4422 JMS I C0575 / long call to S6110 @@0471=4775 JMS I C0123 / long call to S4132 @@0472=4523 JMS I C0110 / long call to S4051 @@0473=4510 SZA CLA / @@0474=7640 JMS I C0572 / long call to S6477 @@0475=4772 JMS I C0023 / long call to S4020 @@0476=4423 SKP / @@0477=7410 JMS I C0574 / long call to S6304 @@0500=4774 JMS I C0122 / long call to S4121 @@0501=4522 JMS I C0110 / long call to S4051 @@0502=4510 SZA CLA / @@0503=7640 JMS I C0572 / long call to S6477 @@0504=4772 JMS I C0025 / long call to S4032 @@0505=4425 JMS I C0573 / long call to S6242 @@0506=4773 JMS I C0123 / long call to S4132 @@0507=4523 JMS I C0110 / long call to S4051 @@0510=4510 SZA CLA / @@0511=7640 JMS I C0572 / long call to S6477 @@0512=4772 TAD C0075 / @@0513=1075 JMS I C0041 / long call to S5000 @@0514=4441 ISZ D0107 / @@0515=2107 JMP L0454 / @@0516=5254 JMS I C0120 / long call to S4063 @@0517=4520 JMS S0052 / @@0520=4052 CLA / @@0521=7200 DCA D0107 / @@0522=3107 L0523, TAD L0102 / @@0523=1102 TAD D0067 / @@0524=1067 JMS I L0042 / long call to S4731 @@0525=4442 JMS I C0021 / long call to S4006 @@0526=4421 SKP / @@0527=7410 JMS I C0576 / long call to S6400 @@0530=4776 JMS I C0122 / long call to S4121 @@0531=4522 JMS I C0110 / long call to S4051 @@0532=4510 SNA CLA / @@0533=7650 JMS I C0571 / long call to S6523 @@0534=4771 JMS I L0022 / long call to S4013 @@0535=4422 JMS I C0575 / long call to S6110 @@0536=4775 JMS I C0123 / long call to S4132 @@0537=4523 JMS I C0110 / long call to S4051 @@0540=4510 SNA CLA / @@0541=7650 JMS I C0571 / long call to S6523 @@0542=4771 JMS I C0023 / long call to S4020 @@0543=4423 SKP / @@0544=7410 JMS I C0574 / long call to S6304 @@0545=4774 JMS I C0122 / long call to S4121 @@0546=4522 JMS I C0110 / long call to S4051 @@0547=4510 SNA CLA / @@0550=7650 JMS I C0571 / long call to S6523 @@0551=4771 JMS I C0025 / long call to S4032 @@0552=4425 JMS I C0573 / long call to S6242 @@0553=4773 JMS I C0123 / long call to S4132 @@0554=4523 JMS I C0110 / long call to S4051 @@0555=4510 SNA CLA / @@0556=7650 JMS I C0571 / long call to S6523 @@0557=4771 TAD C0075 / @@0560=1075 JMS I C0041 / long call to S5000 @@0561=4441 ISZ D0107 / @@0562=2107 JMP L0523 / @@0563=5323 JMS I C0120 / long call to S4063 @@0564=4520 JMP I C0570 / long jump to L0600 @@0565=5770 *0570 C0570, C0570, 0600 / AND I L0400 C0571, C0571, 6523 / 6523 C0572, C0572, 6477 / 6477 C0573, C0573, 6242 / CIF0 C0574, C0574, 6304 / 6304 C0575, C0575, 6110 / 6110 C0576, C0576, 6400 / 6400 C0577, 7701 / CLA MQA L0600, JMS S0052 / @@0600=4052 CLA CLL CMA RAL / AC = 7776 (-0002) @@0601=7344 DCA D0070 / @@0602=3070 TAD C0104 / @@0603=1104 L0604, DCA D0111 / @@0604=3111 JMS S0751 / @@0605=4351 ISZ D0070 / @@0606=2070 JMP L0604 / @@0607=5204 JMS I C0120 / long call to S4063 @@0610=4520 JMS S0052 / @@0611=4052 TAD C0073 / @@0612=1073 DCA D0070 / @@0613=3070 CLL IAC / @@0614=7101 DCA D0111 / @@0615=3111 L0616, JMS S0751 / @@0616=4351 TAD D0111 / @@0617=1111 CLL RAL / @@0620=7104 DCA D0111 / @@0621=3111 ISZ D0070 / @@0622=2070 JMP L0616 / @@0623=5216 JMS I C0120 / long call to S4063 @@0624=4520 JMS S0052 / @@0625=4052 TAD C0777 / @@0626=1377 DCA D0070 / @@0627=3070 DCA D0111 / @@0630=3111 L0631, JMS S0751 / @@0631=4351 ISZ D0111 / @@0632=2111 ISZ D0070 / @@0633=2070 JMP L0631 / @@0634=5231 JMS I C0120 / long call to S4063 @@0635=4520 JMS S0052 / @@0636=4052 TAD C0777 / @@0637=1377 DCA D0070 / @@0640=3070 DCA D0111 / @@0641=3111 L0642, TAD C0057 / @@0642=1057 JMS I L0042 / long call to S4731 @@0643=4442 TAD D0111 / @@0644=1111 JMS I C0026 / long call to S4037 @@0645=4426 CLA / @@0646=7200 JMS I L0042 / long call to S4731 @@0647=4442 TAD C0063 / @@0650=1063 JMS I L0042 / long call to S4731 @@0651=4442 JMS I C0026 / long call to S4037 @@0652=4426 DCA D0112 / @@0653=3112 TAD D0111 / @@0654=1111 CIA / @@0655=7041 TAD D0112 / @@0656=1112 SZA CLA / @@0657=7640 JMS I C0776 / long call to S6442 @@0660=4776 JMS I C0775 / long call to S1143 @@0661=4775 JMP L0642 / @@0662=5242 ISZ D0111 / @@0663=2111 ISZ D0070 / @@0664=2070 JMP L0642 / @@0665=5242 JMS I C0120 / long call to S4063 @@0666=4520 JMS S0052 / @@0667=4052 JMS I L0042 / long call to S4731 @@0670=4442 CMA / @@0671=7040 JMS I C0026 / long call to S4037 @@0672=4426 SPA CLA / @@0673=7710 HLT / @@0674=7402 TAD L0056 / @@0675=1056 JMS I L0042 / long call to S4731 @@0676=4442 CMA / @@0677=7040 JMS I C0026 / long call to S4037 @@0700=4426 SMA CLA / @@0701=7700 HLT / @@0702=7402 TAD C0057 / @@0703=1057 JMS I L0042 / long call to S4731 @@0704=4442 CMA / @@0705=7040 JMS I C0026 / long call to S4037 @@0706=4426 SMA CLA / @@0707=7700 HLT / @@0710=7402 TAD C0060 / @@0711=1060 JMS I L0042 / long call to S4731 @@0712=4442 CMA / @@0713=7040 JMS I C0026 / long call to S4037 @@0714=4426 SMA CLA / @@0715=7700 HLT / @@0716=7402 TAD C0061 / @@0717=1061 JMS I L0042 / long call to S4731 @@0720=4442 CMA / @@0721=7040 JMS I C0026 / long call to S4037 @@0722=4426 SMA CLA / @@0723=7700 HLT / @@0724=7402 TAD C0062 / @@0725=1062 JMS I L0042 / long call to S4731 @@0726=4442 CMA / @@0727=7040 JMS I C0026 / long call to S4037 @@0730=4426 SMA CLA / @@0731=7700 HLT / @@0732=7402 TAD C0063 / @@0733=1063 JMS I L0042 / long call to S4731 @@0734=4442 CMA / @@0735=7040 JMS I C0026 / long call to S4037 @@0736=4426 SPA CLA / @@0737=7710 HLT / @@0740=7402 TAD C0064 / @@0741=1064 JMS I L0042 / long call to S4731 @@0742=4442 CMA / @@0743=7040 JMS I C0026 / long call to S4037 @@0744=4426 SMA CLA / @@0745=7700 HLT / @@0746=7402 JMS I C0120 / long call to S4063 @@0747=4520 JMP I C0774 / long jump to L6137 @@0750=5774 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0751 / / Called from: / 0605 0616 0631 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0751, 0 / return area L0752, TAD C0057 / @@0752=1057 JMS I L0042 / long call to S4731 @@0753=4442 TAD D0111 / @@0754=1111 JMS I C0026 / long call to S4037 @@0755=4426 CLA / @@0756=7200 JMS I L0042 / long call to S4731 @@0757=4442 JMS I C0026 / long call to S4037 @@0760=4426 DCA D0112 / @@0761=3112 TAD D0111 / @@0762=1111 CIA / @@0763=7041 TAD D0112 / @@0764=1112 SZA CLA / @@0765=7640 JMS I C0776 / long call to S6442 @@0766=4776 JMS I C0775 / long call to S1143 @@0767=4775 JMP L0752 / @@0770=5352 JMP I S0751 / return @@0771=5751 *0774 C0774, C0774, 6137 / CECI C0775, C0775, 1143 / TAD C0143 C0776, C0776, 6442 / 6442 C0777, 7401 / NOP L1000, C1000, 4420 / JMS I D0020 DCA D0051 / @@1001=3051 JMS S0052 / @@1002=4052 JMS I L0042 / long call to S4731 @@1003=4442 JMS I C0041 / long call to S5000 @@1004=4441 JMS I C0120 / long call to S4063 @@1005=4520 JMS S0052 / @@1006=4052 TAD C0101 / @@1007=1101 TAD D0067 / @@1010=1067 JMS I L0042 / long call to S4731 @@1011=4442 JMS I C0027 / long call to S4044 @@1012=4427 TAD C0071 / @@1013=1071 SNA CLA / @@1014=7650 JMP L1021 / @@1015=5221 TAD C0074 / @@1016=1074 JMS I C0041 / long call to S5000 @@1017=4441 JMS I C0120 / long call to S4063 @@1020=4520 L1021, JMS S0052 / @@1021=4052 JMS I D0020 / long call to S4000 @@1022=4420 JMS I C0041 / long call to S5000 @@1023=4441 JMS I C0120 / long call to S4063 @@1024=4520 JMS S0052 / @@1025=4052 JMS I D0020 / long call to S4000 @@1026=4420 TAD C0101 / @@1027=1101 TAD D0067 / @@1030=1067 JMS I L0042 / long call to S4731 @@1031=4442 JMS I C0027 / long call to S4044 @@1032=4427 TAD C0071 / @@1033=1071 SNA CLA / @@1034=7650 JMP L1044 / @@1035=5244 TAD C0074 / @@1036=1074 JMS I C0041 / long call to S5000 @@1037=4441 JMS I L0022 / long call to S4013 @@1040=4422 JMS I C1177 / long call to S6110 @@1041=4777 JMS I C0123 / long call to S4132 @@1042=4523 JMP L1050 / @@1043=5250 L1044, JMS I L0022 / long call to S4013 @@1044=4422 SKP / @@1045=7410 JMS I C1176 / long call to S6263 @@1046=4776 JMS I C0122 / long call to S4121 @@1047=4522 L1050, JMS I C0021 / long call to S4006 @@1050=4421 SKP / @@1051=7410 JMS I C1175 / long call to S6400 @@1052=4775 JMS I C0122 / long call to S4121 @@1053=4522 JMS I C0023 / long call to S4020 @@1054=4423 JMS I C1174 / long call to S6200 @@1055=4774 JMS I C0123 / long call to S4132 @@1056=4523 JMS I C0025 / long call to S4032 @@1057=4425 JMS I C1173 / long call to S6242 @@1060=4773 JMS I C0123 / long call to S4132 @@1061=4523 TAD L0102 / @@1062=1102 TAD D0067 / @@1063=1067 JMS I L0042 / long call to S4731 @@1064=4442 JMS I C0110 / long call to S4051 @@1065=4510 SNA CLA / @@1066=7650 JMS I C1172 / long call to S6523 @@1067=4772 JMS I C0120 / long call to S4063 @@1070=4520 JMS S0052 / @@1071=4052 JMS I D0020 / long call to S4000 @@1072=4420 JMS I C0041 / long call to S5000 @@1073=4441 JMS I C0021 / long call to S4006 @@1074=4421 SKP / @@1075=7410 JMS I C1175 / long call to S6400 @@1076=4775 JMS I C0122 / long call to S4121 @@1077=4522 JMS I L0022 / long call to S4013 @@1100=4422 SKP / @@1101=7410 JMS I C1176 / long call to S6263 @@1102=4776 C1103, 4522 / JMS I C0122 JMS I C0023 / long call to S4020 @@1104=4423 SKP / @@1105=7410 JMS I C1171 / long call to S6304 @@1106=4771 JMS I C0122 / long call to S4121 @@1107=4522 JMS I C0025 / long call to S4032 @@1110=4425 SKP / @@1111=7410 JMS I C1170 / long call to S6421 @@1112=4770 JMS I C0122 / long call to S4121 @@1113=4522 JMS I C0110 / long call to S4051 @@1114=4510 SZA CLA / @@1115=7640 JMS I C1167 / long call to S6477 @@1116=4767 JMS I C0120 / long call to S4063 @@1117=4520 JMS S0052 / @@1120=4052 DCA D0111 / @@1121=3111 L1122, TAD D0111 / @@1122=1111 AND C1166 / @@1123=0366 JMS I L0042 / long call to S4731 @@1124=4442 JMS I C0026 / long call to S4037 @@1125=4426 CLA / @@1126=7200 JMS I C0041 / long call to S5000 @@1127=4441 JMS I C0025 / long call to S4032 @@1130=4425 SKP / @@1131=7410 JMS I C1170 / long call to S6421 @@1132=4770 JMS I C0122 / long call to S4121 @@1133=4522 ISZ D0111 / @@1134=2111 TAD D0111 / @@1135=1111 TAD C1165 / @@1136=1365 SZA CLA / @@1137=7640 JMP L1122 / @@1140=5322 JMS I C0120 / long call to S4063 @@1141=4520 JMP I C1164 / long jump to L1200 @@1142=5764 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1143 / / Called from: / 0661 0767 3464 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1143, 0 / return area LAS / @@1144=7604 SPA CLA / @@1145=7710 JMP I S1143 / return @@1146=5743 ISZ S1143 / @@1147=2343 JMP I S1143 / return @@1150=5743 *1164 C1164, C1164, 1200 / TAD L1000 C1165, 7601 / CLA C1166, 0177 / AND C0177 C1167, C1167, 6477 / 6477 C1170, C1170, 6421 / T1skip C1171, C1171, 6304 / 6304 C1172, C1172, 6523 / 6523 C1173, C1173, 6242 / CIF0 C1174, C1174, 6200 / 6200 C1175, C1175, 6400 / 6400 C1176, C1176, 6263 / 6263 C1177, C1177, 6110 / 6110 L1200, JMS I D0020 / long call to S4000 @@1200=4420 DCA D0127 / @@1201=3127 DCA D0130 / @@1202=3130 JMS I C1377 / long call to S4535 @@1203=4777 JMS S0052 / @@1204=4052 JMS I L0032 / long call to S4600 @@1205=4432 JMS I C0031 / long call to S4400 @@1206=4431 JMS I C0120 / long call to S4063 @@1207=4520 JMS S0052 / @@1210=4052 JMS I L0032 / long call to S4600 @@1211=4432 JMS I C0031 / long call to S4400 @@1212=4431 STA / AC = 7777 (-0001) @@1213=7240 JMS I C0037 / long call to S4302 @@1214=4437 JMS I C0120 / long call to S4063 @@1215=4520 JMS S0052 / @@1216=4052 JMS I L0032 / long call to S4600 @@1217=4432 STA / AC = 7777 (-0001) @@1220=7240 JMS I C0036 / long call to S4200 @@1221=4436 JMS I C0031 / long call to S4400 @@1222=4431 JMS I C0120 / long call to S4063 @@1223=4520 JMS S0052 / @@1224=4052 JMS I L0032 / long call to S4600 @@1225=4432 JMS I C0033 / long call to S4423 @@1226=4433 JMS I C0120 / long call to S4063 @@1227=4520 JMS S0052 / @@1230=4052 JMS I L0032 / long call to S4600 @@1231=4432 JMS I C0033 / long call to S4423 @@1232=4433 JMS I C0035 / long call to S4665 @@1233=4435 STA / AC = 7777 (-0001) @@1234=7240 JMS I C0036 / long call to S4200 @@1235=4436 JMS I C0120 / long call to S4063 @@1236=4520 JMS S0052 / @@1237=4052 JMS I L0032 / long call to S4600 @@1240=4432 JMS I C0033 / long call to S4423 @@1241=4433 JMS I C0034 / long call to S4436 @@1242=4434 STA / AC = 7777 (-0001) @@1243=7240 JMS I C0036 / long call to S4200 @@1244=4436 JMS I C0120 / long call to S4063 @@1245=4520 JMS S0052 / @@1246=4052 JMS I L0032 / long call to S4600 @@1247=4432 STA / AC = 7777 (-0001) @@1250=7240 JMS I C0036 / long call to S4200 @@1251=4436 JMS I C0031 / long call to S4400 @@1252=4431 CLA CLL CMA RAL / AC = 7776 (-0002) @@1253=7344 JMS I C0037 / long call to S4302 @@1254=4437 JMS I C0035 / long call to S4665 @@1255=4435 CLA CLL CMA RAL / AC = 7776 (-0002) @@1256=7344 JMS I C0036 / long call to S4200 @@1257=4436 JMS I C0120 / long call to S4063 @@1260=4520 JMS S0052 / @@1261=4052 JMS I L0032 / long call to S4600 @@1262=4432 STA / AC = 7777 (-0001) @@1263=7240 JMS I C0036 / long call to S4200 @@1264=4436 JMS I C0031 / long call to S4400 @@1265=4431 CLA CLL CMA RAL / AC = 7776 (-0002) @@1266=7344 JMS I C0037 / long call to S4302 @@1267=4437 JMS I C0034 / long call to S4436 @@1270=4434 CLA CLL CMA RAL / AC = 7776 (-0002) @@1271=7344 JMS I C0036 / long call to S4200 @@1272=4436 JMS I C0120 / long call to S4063 @@1273=4520 JMS S0052 / @@1274=4052 JMS I L0032 / long call to S4600 @@1275=4432 JMS I C0033 / long call to S4423 @@1276=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1277=7344 JMS I C0036 / long call to S4200 @@1300=4436 JMS I C0120 / long call to S4063 @@1301=4520 JMS S0052 / @@1302=4052 JMS I L0032 / long call to S4600 @@1303=4432 JMS I C0033 / long call to S4423 @@1304=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1305=7344 JMS I C0036 / long call to S4200 @@1306=4436 JMS I C0035 / long call to S4665 @@1307=4435 CLA CLL CMA RAL / AC = 7776 (-0002) @@1310=7344 JMS I C0036 / long call to S4200 @@1311=4436 JMS I C0035 / long call to S4665 @@1312=4435 JMS I C0035 / long call to S4665 @@1313=4435 STA / AC = 7777 (-0001) @@1314=7240 JMS I C0036 / long call to S4200 @@1315=4436 JMS I C0120 / long call to S4063 @@1316=4520 JMS S0052 / @@1317=4052 JMS I L0032 / long call to S4600 @@1320=4432 JMS I C0033 / long call to S4423 @@1321=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1322=7344 JMS I C0036 / long call to S4200 @@1323=4436 JMS I C0034 / long call to S4436 @@1324=4434 CLA CLL CMA RAL / AC = 7776 (-0002) @@1325=7344 JMS I C0036 / long call to S4200 @@1326=4436 JMS I C0034 / long call to S4436 @@1327=4434 JMS I C0034 / long call to S4436 @@1330=4434 STA / AC = 7777 (-0001) @@1331=7240 JMS I C0036 / long call to S4200 @@1332=4436 JMS I C0120 / long call to S4063 @@1333=4520 JMS S0052 / @@1334=4052 JMS I L0032 / long call to S4600 @@1335=4432 STA / AC = 7777 (-0001) @@1336=7240 JMS I C0036 / long call to S4200 @@1337=4436 JMS I C0033 / long call to S4423 @@1340=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1341=7344 JMS I C0036 / long call to S4200 @@1342=4436 JMS I C0120 / long call to S4063 @@1343=4520 JMS S0052 / @@1344=4052 JMS I L0032 / long call to S4600 @@1345=4432 JMS I C0031 / long call to S4400 @@1346=4431 STA / AC = 7777 (-0001) @@1347=7240 JMS I C0037 / long call to S4302 @@1350=4437 JMS I C0035 / long call to S4665 @@1351=4435 STA / AC = 7777 (-0001) @@1352=7240 JMS I C0036 / long call to S4200 @@1353=4436 JMS I C0035 / long call to S4665 @@1354=4435 STA / AC = 7777 (-0001) @@1355=7240 JMS I C0036 / long call to S4200 @@1356=4436 JMS I C0034 / long call to S4436 @@1357=4434 STA / AC = 7777 (-0001) @@1360=7240 JMS I C0036 / long call to S4200 @@1361=4436 JMS I C0120 / long call to S4063 @@1362=4520 JMP I C1376 / long jump to L1400 @@1363=5776 *1376 C1376, C1376, 1400 / TAD I L0000 C1377, C1377, 4535 / JMS I C0135 L1400, JMS S0052 / @@1400=4052 JMS I L0032 / long call to S4600 @@1401=4432 STA / AC = 7777 (-0001) @@1402=7240 JMS I C0036 / long call to S4200 @@1403=4436 JMS I C0031 / long call to S4400 @@1404=4431 JMS I C0034 / long call to S4436 @@1405=4434 STA / AC = 7777 (-0001) @@1406=7240 JMS I C0036 / long call to S4200 @@1407=4436 JMS I C0031 / long call to S4400 @@1410=4431 JMS I C0035 / long call to S4665 @@1411=4435 STA / AC = 7777 (-0001) @@1412=7240 JMS I C0036 / long call to S4200 @@1413=4436 JMS I C0120 / long call to S4063 @@1414=4520 JMS S0052 / @@1415=4052 JMS I L0032 / long call to S4600 @@1416=4432 STA / AC = 7777 (-0001) @@1417=7240 JMS I C0036 / long call to S4200 @@1420=4436 JMS I C0031 / long call to S4400 @@1421=4431 CLA CLL CMA RAL / AC = 7776 (-0002) @@1422=7344 JMS I C0037 / long call to S4302 @@1423=4437 JMS I C0035 / long call to S4665 @@1424=4435 CLA CLL CMA RAL / AC = 7776 (-0002) @@1425=7344 JMS I C0036 / long call to S4200 @@1426=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1427=7346 JMS I C0037 / long call to S4302 @@1430=4437 JMS I C0035 / long call to S4665 @@1431=4435 CLA CLL CMA RTL / AC = 7775 (-0003) @@1432=7346 JMS I C0036 / long call to S4200 @@1433=4436 JMS I C0034 / long call to S4436 @@1434=4434 CLA CLL CMA RAL / AC = 7776 (-0002) @@1435=7344 JMS I C0036 / long call to S4200 @@1436=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1437=7346 JMS I C0036 / long call to S4200 @@1440=4436 JMS I C0035 / long call to S4665 @@1441=4435 JMS I C0035 / long call to S4665 @@1442=4435 CLA CLL CMA RAL / AC = 7776 (-0002) @@1443=7344 JMS I C0036 / long call to S4200 @@1444=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1445=7346 JMS I C0036 / long call to S4200 @@1446=4436 JMS I C0034 / long call to S4436 @@1447=4434 JMS I C0034 / long call to S4436 @@1450=4434 STA / AC = 7777 (-0001) @@1451=7240 JMS I C0036 / long call to S4200 @@1452=4436 JMS I C0033 / long call to S4423 @@1453=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1454=7344 JMS I C0036 / long call to S4200 @@1455=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1456=7346 JMS I C0036 / long call to S4200 @@1457=4436 JMS I C0034 / long call to S4436 @@1460=4434 JMS I C0035 / long call to S4665 @@1461=4435 STA / AC = 7777 (-0001) @@1462=7240 JMS I C0036 / long call to S4200 @@1463=4436 JMS I C0034 / long call to S4436 @@1464=4434 JMS I C0033 / long call to S4423 @@1465=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1466=7344 JMS I C0036 / long call to S4200 @@1467=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1470=7346 JMS I C0036 / long call to S4200 @@1471=4436 JMS I C0031 / long call to S4400 @@1472=4431 TAD D0124 / @@1473=1124 JMS I C0037 / long call to S4302 @@1474=4437 JMS I C0034 / long call to S4436 @@1475=4434 TAD D0124 / @@1476=1124 JMS I C0036 / long call to S4200 @@1477=4436 TAD D0125 / @@1500=1125 JMS I C0037 / long call to S4302 @@1501=4437 JMS I C0035 / long call to S4665 @@1502=4435 TAD D0125 / @@1503=1125 JMS I C0036 / long call to S4200 @@1504=4436 JMS I C0035 / long call to S4665 @@1505=4435 JMS I C0120 / long call to S4063 @@1506=4520 JMS S0052 / @@1507=4052 JMS I L0032 / long call to S4600 @@1510=4432 JMS I L0032 / long call to S4600 @@1511=4432 STA / AC = 7777 (-0001) @@1512=7240 JMS I C0036 / long call to S4200 @@1513=4436 JMS I C0120 / long call to S4063 @@1514=4520 JMS S0052 / @@1515=4052 JMS I L0032 / long call to S4600 @@1516=4432 JMS I C0033 / long call to S4423 @@1517=4433 JMS I C0035 / long call to S4665 @@1520=4435 STA / AC = 7777 (-0001) @@1521=7240 JMS I C0036 / long call to S4200 @@1522=4436 JMS I C0035 / long call to S4665 @@1523=4435 JMS I C0033 / long call to S4423 @@1524=4433 JMS I C0033 / long call to S4423 @@1525=4433 TAD D0124 / @@1526=1124 JMS I C0036 / long call to S4200 @@1527=4436 TAD D0125 / @@1530=1125 JMS I C0036 / long call to S4200 @@1531=4436 JMS I C0035 / long call to S4665 @@1532=4435 JMS I C0035 / long call to S4665 @@1533=4435 TAD D0124 / @@1534=1124 JMS I C0036 / long call to S4200 @@1535=4436 TAD D0125 / @@1536=1125 JMS I C0037 / long call to S4302 @@1537=4437 TAD C0126 / @@1540=1126 JMS I C0037 / long call to S4302 @@1541=4437 JMS I C0035 / long call to S4665 @@1542=4435 JMS I C0035 / long call to S4665 @@1543=4435 TAD D0125 / @@1544=1125 JMS I C0036 / long call to S4200 @@1545=4436 TAD C0126 / @@1546=1126 JMS I C0036 / long call to S4200 @@1547=4436 JMS I C0031 / long call to S4400 @@1550=4431 JMS I C0034 / long call to S4436 @@1551=4434 JMS I C0120 / long call to S4063 @@1552=4520 JMS S0052 / @@1553=4052 JMS I L0032 / long call to S4600 @@1554=4432 STA / AC = 7777 (-0001) @@1555=7240 JMS I C0036 / long call to S4200 @@1556=4436 JMS I C0033 / long call to S4423 @@1557=4433 JMS I C0034 / long call to S4436 @@1560=4434 STA / AC = 7777 (-0001) @@1561=7240 JMS I C0036 / long call to S4200 @@1562=4436 JMS I C0033 / long call to S4423 @@1563=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1564=7344 JMS I C0036 / long call to S4200 @@1565=4436 JMS I C0033 / long call to S4423 @@1566=4433 JMS I C0035 / long call to S4665 @@1567=4435 CLA CLL CMA RTL / AC = 7775 (-0003) @@1570=7346 JMS I C0036 / long call to S4200 @@1571=4436 JMS I C0033 / long call to S4423 @@1572=4433 TAD D0124 / @@1573=1124 JMS I C0036 / long call to S4200 @@1574=4436 TAD D0125 / @@1575=1125 JMS I C0036 / long call to S4200 @@1576=4436 TAD C0126 / @@1577=1126 JMS I C0036 / long call to S4200 @@1600=4436 JMS I C0035 / long call to S4665 @@1601=4435 JMS I C0035 / long call to S4665 @@1602=4435 TAD D0125 / @@1603=1125 JMS I C0036 / long call to S4200 @@1604=4436 JMS I C0035 / long call to S4665 @@1605=4435 JMS I C0034 / long call to S4436 @@1606=4434 TAD D0124 / @@1607=1124 JMS I C0036 / long call to S4200 @@1610=4436 JMS I C0034 / long call to S4436 @@1611=4434 JMS I C0035 / long call to S4665 @@1612=4435 CLA CLL CMA RTL / AC = 7775 (-0003) @@1613=7346 JMS I C0036 / long call to S4200 @@1614=4436 JMS I C0035 / long call to S4665 @@1615=4435 JMS I C0035 / long call to S4665 @@1616=4435 CLA CLL CMA RAL / AC = 7776 (-0002) @@1617=7344 JMS I C0036 / long call to S4200 @@1620=4436 JMS I C0034 / long call to S4436 @@1621=4434 JMS I C0035 / long call to S4665 @@1622=4435 STA / AC = 7777 (-0001) @@1623=7240 JMS I C0036 / long call to S4200 @@1624=4436 JMS I C0120 / long call to S4063 @@1625=4520 JMS S0052 / @@1626=4052 JMS I L0032 / long call to S4600 @@1627=4432 STA / AC = 7777 (-0001) @@1630=7240 JMS I C0036 / long call to S4200 @@1631=4436 IAC / @@1632=7001 DCA D0130 / @@1633=3130 JMS I C0036 / long call to S4200 @@1634=4436 CLA CLL CMA RAL / AC = 7776 (-0002) @@1635=7344 JMS I C0036 / long call to S4200 @@1636=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1637=7346 JMS I C0036 / long call to S4200 @@1640=4436 IAC / @@1641=7001 DCA D0130 / @@1642=3130 JMS I C0036 / long call to S4200 @@1643=4436 TAD D0124 / @@1644=1124 JMS I C0036 / long call to S4200 @@1645=4436 TAD D0125 / @@1646=1125 JMS I C0036 / long call to S4200 @@1647=4436 TAD C0126 / @@1650=1126 JMS I C0036 / long call to S4200 @@1651=4436 IAC / @@1652=7001 DCA D0130 / @@1653=3130 JMS I C0036 / long call to S4200 @@1654=4436 JMS I C0120 / long call to S4063 @@1655=4520 JMS S0052 / @@1656=4052 JMS I L0032 / long call to S4600 @@1657=4432 STA / AC = 7777 (-0001) @@1660=7240 JMS I C0036 / long call to S4200 @@1661=4436 JMS I C0033 / long call to S4423 @@1662=4433 CLA CLL CMA RAL / AC = 7776 (-0002) @@1663=7344 JMS I C0036 / long call to S4200 @@1664=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1665=7346 JMS I C0036 / long call to S4200 @@1666=4436 JMS I C0033 / long call to S4423 @@1667=4433 TAD D0124 / @@1670=1124 JMS I C0036 / long call to S4200 @@1671=4436 TAD D0125 / @@1672=1125 JMS I C0036 / long call to S4200 @@1673=4436 TAD C0126 / @@1674=1126 JMS I C0036 / long call to S4200 @@1675=4436 JMS I C0033 / long call to S4423 @@1676=4433 JMS I C0120 / long call to S4063 @@1677=4520 JMS S0052 / @@1700=4052 JMS I L0032 / long call to S4600 @@1701=4432 JMS I C0033 / long call to S4423 @@1702=4433 JMS I C0034 / long call to S4436 @@1703=4434 STA / AC = 7777 (-0001) @@1704=7240 JMS I C0036 / long call to S4200 @@1705=4436 JMS I C0033 / long call to S4423 @@1706=4433 JMS I C0033 / long call to S4423 @@1707=4433 JMS I C0034 / long call to S4436 @@1710=4434 CLA CLL CMA RAL / AC = 7776 (-0002) @@1711=7344 JMS I C0036 / long call to S4200 @@1712=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1713=7346 JMS I C0036 / long call to S4200 @@1714=4436 JMS I C0033 / long call to S4423 @@1715=4433 JMS I C0033 / long call to S4423 @@1716=4433 JMS I C0034 / long call to S4436 @@1717=4434 TAD D0124 / @@1720=1124 JMS I C0036 / long call to S4200 @@1721=4436 TAD D0125 / @@1722=1125 JMS I C0036 / long call to S4200 @@1723=4436 TAD C0126 / @@1724=1126 JMS I C0036 / long call to S4200 @@1725=4436 JMS I C0120 / long call to S4063 @@1726=4520 JMS S0052 / @@1727=4052 JMS I L0032 / long call to S4600 @@1730=4432 JMS I C0033 / long call to S4423 @@1731=4433 JMS I C0035 / long call to S4665 @@1732=4435 STA / AC = 7777 (-0001) @@1733=7240 JMS I C0036 / long call to S4200 @@1734=4436 IAC / @@1735=7001 DCA D0130 / @@1736=3130 JMS I C0036 / long call to S4200 @@1737=4436 JMS I C0033 / long call to S4423 @@1740=4433 JMS I C0035 / long call to S4665 @@1741=4435 JMS I C0035 / long call to S4665 @@1742=4435 CLA CLL CMA RAL / AC = 7776 (-0002) @@1743=7344 JMS I C0036 / long call to S4200 @@1744=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@1745=7346 JMS I C0036 / long call to S4200 @@1746=4436 IAC / @@1747=7001 DCA D0130 / @@1750=3130 JMS I C0036 / long call to S4200 @@1751=4436 JMS I C0033 / long call to S4423 @@1752=4433 JMS I C0035 / long call to S4665 @@1753=4435 JMS I C0035 / long call to S4665 @@1754=4435 JMS I C0035 / long call to S4665 @@1755=4435 TAD D0124 / @@1756=1124 JMS I C0036 / long call to S4200 @@1757=4436 TAD D0125 / @@1760=1125 JMS I C0036 / long call to S4200 @@1761=4436 TAD C0126 / @@1762=1126 JMS I C0036 / long call to S4200 @@1763=4436 JMS I C0120 / long call to S4063 @@1764=4520 JMP I C1777 / long jump to L2000 @@1765=5777 *1777 C1777, C1777, 2000 / ISZ L0000 L2000, D2000, 4052 / JMS S0052 TAD C2177 / @@2001=1377 DCA AI3 / AUTO INDEX REGISTER @@2002=3013 JMS I L0032 / long call to S4600 @@2003=4432 JMS I C0031 / long call to S4400 @@2004=4431 CLA CLL CMA RAL / AC = 7776 (-0002) @@2005=7344 DCA D0070 / @@2006=3070 DCA D0051 / @@2007=3051 TAD C0057 / @@2010=1057 TAD D0067 / @@2011=1067 TAD L0102 / @@2012=1102 JMS I L0042 / long call to S4731 @@2013=4442 L2014, TAD I AI3 / AUTO INDEX REGISTER @@2014=1413 JMS I C0026 / long call to S4037 @@2015=4426 CLA / @@2016=7200 JMS I C0041 / long call to S5000 @@2017=4441 JMS I C0040 / long call to S4072 @@2020=4440 JMS I C0041 / long call to S5000 @@2021=4441 JMS I C0021 / long call to S4006 @@2022=4421 JMS I C2176 / long call to S6221 @@2023=4776 JMS I L0022 / long call to S4013 @@2024=4422 SKP / @@2025=7410 JMS I C2175 / long call to S6263 @@2026=4775 JMS I C0023 / long call to S4020 @@2027=4423 SKP / @@2030=7410 JMS I C2174 / long call to S6304 @@2031=4774 ISZ D0070 / @@2032=2070 JMP L2014 / @@2033=5214 TAD C0177 / @@2034=1177 DCA D0117 / @@2035=3117 JMS I C0116 / long call to S5256 @@2036=4516 TAD C2173 / @@2037=1373 JMS I C0041 / long call to S5000 @@2040=4441 JMS I C0021 / long call to S4006 @@2041=4421 JMS I C2176 / long call to S6221 @@2042=4776 JMS I L0022 / long call to S4013 @@2043=4422 JMS I C2172 / long call to S6110 @@2044=4772 JMS I C0023 / long call to S4020 @@2045=4423 SKP / @@2046=7410 JMS I C2174 / long call to S6304 @@2047=4774 TAD C2171 / @@2050=1371 DCA D0117 / @@2051=3117 JMS I C0116 / long call to S5256 @@2052=4516 TAD C2170 / @@2053=1370 JMS I C0041 / long call to S5000 @@2054=4441 JMS I C0021 / long call to S4006 @@2055=4421 JMS I C2176 / long call to S6221 @@2056=4776 JMS I L0022 / long call to S4013 @@2057=4422 JMS I C2172 / long call to S6110 @@2060=4772 JMS I C0023 / long call to S4020 @@2061=4423 JMS I C2167 / long call to S6200 @@2062=4767 JMS I C0110 / long call to S4051 @@2063=4510 SNA CLA / @@2064=7650 JMS I C2166 / long call to S6523 @@2065=4766 JMS I C2165 / long call to S4143 @@2066=4765 JMS I D0020 / long call to S4000 @@2067=4420 TAD C0101 / @@2070=1101 TAD D0067 / @@2071=1067 JMS I L0042 / long call to S4731 @@2072=4442 JMS I C0021 / long call to S4006 @@2073=4421 SKP / @@2074=7410 JMS I C2164 / long call to S6400 @@2075=4764 JMS I L0022 / long call to S4013 @@2076=4422 SKP / @@2077=7410 JMS I C2175 / long call to S6263 @@2100=4775 JMS I C0025 / long call to S4032 @@2101=4425 JMS I C2163 / long call to S6242 @@2102=4763 JMS I C0023 / long call to S4020 @@2103=4423 JMS I C2167 / long call to S6200 @@2104=4767 JMS I D0020 / long call to S4000 @@2105=4420 D2106, 4432 / JMS I L0032 CLA CLL CMA RAL / AC = 7776 (-0002) @@2107=7344 JMS I C0036 / long call to S4200 @@2110=4436 JMS I C0120 / long call to S4063 @@2111=4520 JMS S0052 / @@2112=4052 JMS I L0032 / long call to S4600 @@2113=4432 JMS I C0031 / long call to S4400 @@2114=4431 TAD C0126 / @@2115=1126 JMS I C0037 / long call to S4302 @@2116=4437 JMS I C0035 / long call to S4665 @@2117=4435 TAD C0126 / @@2120=1126 JMS I C0036 / long call to S4200 @@2121=4436 JMS I C0035 / long call to S4665 @@2122=4435 TAD L0102 / @@2123=1102 TAD D0067 / @@2124=1067 JMS I L0042 / long call to S4731 @@2125=4442 CLA CLL CMA RTL / AC = 7775 (-0003) @@2126=7346 DCA D0070 / @@2127=3070 DCA D0051 / @@2130=3051 L2131, JMS I C0026 / long call to S4037 @@2131=4426 CLA / @@2132=7200 JMS I C0041 / long call to S5000 @@2133=4441 JMS I C0040 / long call to S4072 @@2134=4440 JMS I C0021 / long call to S4006 @@2135=4421 JMS I C2176 / long call to S6221 @@2136=4776 JMS I C0023 / long call to S4020 @@2137=4423 SKP / @@2140=7410 JMS I C2174 / long call to S6304 @@2141=4774 JMS I L0022 / long call to S4013 @@2142=4422 SKP / @@2143=7410 JMS I C2175 / long call to S6263 @@2144=4775 ISZ D0070 / @@2145=2070 JMP L2131 / @@2146=5331 TAD C0177 / @@2147=1177 DCA D0117 / @@2150=3117 JMS I C0116 / long call to S5256 @@2151=4516 TAD C2173 / @@2152=1373 JMS I C0041 / long call to S5000 @@2153=4441 JMS I C0026 / long call to S4037 @@2154=4426 CLA / @@2155=7200 JMS I C0021 / long call to S4006 @@2156=4421 JMS I C2176 / long call to S6221 @@2157=4776 JMP I C2162 / long jump to L2200 @@2160=5762 *2162 C2162, C2162, 2200 / ISZ L2000 C2163, C2163, 6242 / CIF0 C2164, C2164, 6400 / 6400 C2165, C2165, 4143 / JMS C0143 C2166, C2166, 6523 / 6523 C2167, C2167, 6200 / 6200 C2170, 7677 / CLA SCA MQL LSR + C2171, 6422 / T1off C2172, C2172, 6110 / 6110 C2173, 7700 / SMA CLA C2174, C2174, 6304 / 6304 C2175, C2175, 6263 / 6263 C2176, C2176, 6221 / CDF0 C2177, 6777 / 6777 L2200, JMS I C0023 / long call to S4020 @@2200=4423 SKP / @@2201=7410 JMS I C2377 / long call to S6304 @@2202=4777 JMS I L0022 / long call to S4013 @@2203=4422 JMS I C2376 / long call to S6110 @@2204=4776 JMS I C0026 / long call to S4037 @@2205=4426 CLA / @@2206=7200 JMS I C0021 / long call to S4006 @@2207=4421 SKP / @@2210=7410 JMS I C2375 / long call to S6400 @@2211=4775 TAD C2374 / @@2212=1374 JMS I C0041 / long call to S5000 @@2213=4441 L2214, JMS I C0023 / long call to S4020 @@2214=4423 JMP L2214 / @@2215=5214 TAD C2373 / @@2216=1373 JMS I C0041 / long call to S5000 @@2217=4441 JMS I L0022 / long call to S4013 @@2220=4422 JMS I C2376 / long call to S6110 @@2221=4776 JMS I C0021 / long call to S4006 @@2222=4421 JMS I C2372 / long call to S6221 @@2223=4772 JMS I C0110 / long call to S4051 @@2224=4510 SNA CLA / @@2225=7650 JMS I C2371 / long call to S6523 @@2226=4771 JMS I C2370 / long call to S4143 @@2227=4770 JMS I D0020 / long call to S4000 @@2230=4420 TAD C0101 / @@2231=1101 TAD D0067 / @@2232=1067 JMS I L0042 / long call to S4731 @@2233=4442 TAD C0071 / @@2234=1071 JMS I C0041 / long call to S5000 @@2235=4441 JMS I C0023 / long call to S4020 @@2236=4423 JMS I C2367 / long call to S6200 @@2237=4767 JMS I L0022 / long call to S4013 @@2240=4422 SKP / @@2241=7410 JMS I C2366 / long call to S6263 @@2242=4766 JMS I C0021 / long call to S4006 @@2243=4421 SKP / @@2244=7410 JMS I C2375 / long call to S6400 @@2245=4775 JMS I D0020 / long call to S4000 @@2246=4420 JMS I C0120 / long call to S4063 @@2247=4520 JMS S0052 / @@2250=4052 TAD C2365 / @@2251=1365 DCA AI2 / AUTO INDEX REGISTER @@2252=3012 JMS I L0032 / long call to S4600 @@2253=4432 TAD L0102 / @@2254=1102 TAD D0067 / @@2255=1067 JMS I L0042 / long call to S4731 @@2256=4442 TAD C2364 / @@2257=1364 DCA D0070 / @@2260=3070 DCA D0051 / @@2261=3051 JMS I C0026 / long call to S4037 @@2262=4426 CLA / @@2263=7200 JMS I C0041 / long call to S5000 @@2264=4441 L2265, JMS I C0040 / long call to S4072 @@2265=4440 JMS I C0041 / long call to S5000 @@2266=4441 JMS I C0021 / long call to S4006 @@2267=4421 JMS I C2372 / long call to S6221 @@2270=4772 JMS I C0023 / long call to S4020 @@2271=4423 SKP / @@2272=7410 JMS I C2377 / long call to S6304 @@2273=4777 JMS I L0022 / long call to S4013 @@2274=4422 SKP / @@2275=7410 JMS I C2366 / long call to S6263 @@2276=4766 JMS I C0026 / long call to S4037 @@2277=4426 L2300, DCA I AI2 / AUTO INDEX REGISTER @@2300=3412 ISZ D0070 / @@2301=2070 JMP L2265 / @@2302=5265 TAD C0063 / @@2303=1063 TAD D0067 / @@2304=1067 TAD L0102 / @@2305=1102 JMS I L0042 / long call to S4731 @@2306=4442 JMS I C0026 / long call to S4037 @@2307=4426 CLA / @@2310=7200 JMS I C0040 / long call to S4072 @@2311=4440 JMS I C0021 / long call to S4006 @@2312=4421 JMS I C2372 / long call to S6221 @@2313=4772 JMS I C0026 / long call to S4037 @@2314=4426 DCA I AI2 / AUTO INDEX REGISTER @@2315=3412 L2316, JMS I C0023 / long call to S4020 @@2316=4423 JMP L2316 / @@2317=5316 TAD C2363 / @@2320=1363 JMS I C0041 / long call to S5000 @@2321=4441 JMS I C0021 / long call to S4006 @@2322=4421 SKP / @@2323=7410 JMS I C2375 / long call to S6400 @@2324=4775 JMS I L0022 / long call to S4013 @@2325=4422 JMS I C2376 / long call to S6110 @@2326=4776 JMS I C0110 / long call to S4051 @@2327=4510 SNA CLA / @@2330=7650 JMS I C2371 / long call to S6523 @@2331=4771 JMS I C2370 / long call to S4143 @@2332=4770 JMS I D0020 / long call to S4000 @@2333=4420 TAD C0101 / @@2334=1101 TAD D0067 / @@2335=1067 JMS I L0042 / long call to S4731 @@2336=4442 TAD C0071 / @@2337=1071 JMS I C0041 / long call to S5000 @@2340=4441 JMS I D0020 / long call to S4000 @@2341=4420 JMS I C0120 / long call to S4063 @@2342=4520 JMS S0052 / @@2343=4052 TAD C2365 / @@2344=1365 DCA AI2 / AUTO INDEX REGISTER @@2345=3012 JMS I L0032 / long call to S4600 @@2346=4432 TAD C0073 / @@2347=1073 DCA D0070 / @@2350=3070 DCA D0051 / @@2351=3051 TAD L0102 / @@2352=1102 TAD D0067 / @@2353=1067 JMS I L0042 / long call to S4731 @@2354=4442 JMS I C0026 / long call to S4037 @@2355=4426 CLA / @@2356=7200 JMP I C2362 / long jump to L2400 @@2357=5762 *2362 C2362, C2362, 2400 / ISZ I L0000 C2363, 7577 / MQA SCA MQL LSR + C2364, 7773 / CLA MQA SCA MQL SHL + C2365, 7177 / CLL CMA CML IAC RTR RTL C2366, C2366, 6263 / 6263 C2367, C2367, 6200 / 6200 C2370, C2370, 4143 / JMS C0143 C2371, C2371, 6523 / 6523 C2372, C2372, 6221 / CDF0 C2373, 7477 / SCA MQL LSR + C2374, 7700 / SMA CLA C2375, C2375, 6400 / 6400 C2376, C2376, 6110 / 6110 C2377, C2377, 6304 / 6304 L2400, C2400, 4441 / JMS I C0041 JMS I C0040 / long call to S4072 @@2401=4440 JMS I C0041 / long call to S5000 @@2402=4441 JMS I C0021 / long call to S4006 @@2403=4421 JMS I C2577 / long call to S6221 @@2404=4777 JMS I L0022 / long call to S4013 @@2405=4422 SKP / @@2406=7410 JMS I C2576 / long call to S6263 @@2407=4776 D2410, 4423 / JMS I C0023 SKP / @@2411=7410 JMS I C2575 / long call to S6304 @@2412=4775 JMS I C0026 / long call to S4037 @@2413=4426 DCA I AI2 / AUTO INDEX REGISTER @@2414=3412 JMS I C0041 / long call to S5000 @@2415=4441 JMS I C0021 / long call to S4006 @@2416=4421 SKP / @@2417=7410 JMS I C2574 / long call to S6400 @@2420=4774 ISZ D0070 / @@2421=2070 JMP L2400 / @@2422=5200 JMS I C0040 / long call to S4072 @@2423=4440 TAD C2573 / @@2424=1373 JMS I C0041 / long call to S5000 @@2425=4441 JMS I C0023 / long call to S4020 @@2426=4423 JMS I C2572 / long call to S6200 @@2427=4772 JMS I L0022 / long call to S4013 @@2430=4422 JMS I C2571 / long call to S6110 @@2431=4771 JMS I C0021 / long call to S4006 @@2432=4421 SKP / @@2433=7410 JMS I C2574 / long call to S6400 @@2434=4774 JMS I C0110 / long call to S4051 @@2435=4510 SNA CLA / @@2436=7650 JMS I C2570 / long call to S6523 @@2437=4770 JMS I C2567 / long call to S4143 @@2440=4767 JMS I D0020 / long call to S4000 @@2441=4420 JMS I C0041 / long call to S5000 @@2442=4441 JMS I C0021 / long call to S4006 @@2443=4421 SKP / @@2444=7410 JMS I C2574 / long call to S6400 @@2445=4774 JMS I C0120 / long call to S4063 @@2446=4520 L2447, JMS S0052 / @@2447=4052 JMS I L0032 / long call to S4600 @@2450=4432 DCA D0051 / @@2451=3051 CLA CLL CMA RAL / AC = 7776 (-0002) @@2452=7344 DCA D0113 / @@2453=3113 L2454, TAD C0060 / @@2454=1060 TAD C0101 / @@2455=1101 TAD D0067 / @@2456=1067 JMS I L0042 / long call to S4731 @@2457=4442 JMS I C0026 / long call to S4037 @@2460=4426 CLA / @@2461=7200 JMS I C0041 / long call to S5000 @@2462=4441 TAD C2566 / @@2463=1366 DCA D0117 / @@2464=3117 JMS I C0116 / long call to S5256 @@2465=4516 TAD C0074 / @@2466=1074 JMS I C0041 / long call to S5000 @@2467=4441 JMS I C2567 / long call to S4143 @@2470=4767 JMS I D0020 / long call to S4000 @@2471=4420 ISZ D0113 / @@2472=2113 JMP L2454 / @@2473=5254 JMS I C0120 / long call to S4063 @@2474=4520 D2475, 4052 / JMS S0052 JMS I L0032 / long call to S4600 @@2476=4432 TAD C2565 / @@2477=1365 DCA D0070 / @@2500=3070 DCA D0051 / @@2501=3051 L2502, TAD C0101 / @@2502=1101 TAD D0067 / @@2503=1067 JMS I L0042 / long call to S4731 @@2504=4442 JMS I C0026 / long call to S4037 @@2505=4426 CLA / @@2506=7200 JMS I D0020 / long call to S4000 @@2507=4420 DCA D0117 / @@2510=3117 TAD C0060 / @@2511=1060 TAD C0101 / @@2512=1101 TAD D0067 / @@2513=1067 JMS I L0042 / long call to S4731 @@2514=4442 JMS I C0026 / long call to S4037 @@2515=4426 CLA / @@2516=7200 JMS I C0041 / long call to S5000 @@2517=4441 JMS I C0116 / long call to S5256 @@2520=4516 JMS I C0041 / long call to S5000 @@2521=4441 JMS I L0022 / long call to S4013 @@2522=4422 SKP / @@2523=7410 JMS I C2576 / long call to S6263 @@2524=4776 JMS I C0025 / long call to S4032 @@2525=4425 SKP / @@2526=7410 JMS I C2564 / long call to S6421 @@2527=4764 JMS I C0021 / long call to S4006 @@2530=4421 SKP / @@2531=7410 JMS I C2574 / long call to S6400 @@2532=4774 JMS I C0023 / long call to S4020 @@2533=4423 SKP / @@2534=7410 JMS I C2575 / long call to S6304 @@2535=4775 JMS I C2567 / long call to S4143 @@2536=4767 JMS I D0020 / long call to S4000 @@2537=4420 TAD C0101 / @@2540=1101 TAD D0067 / @@2541=1067 JMS I L0042 / long call to S4731 @@2542=4442 TAD C0074 / @@2543=1074 JMS I C0041 / long call to S5000 @@2544=4441 JMS I C0025 / long call to S4032 @@2545=4425 JMS I C2563 / long call to S6242 @@2546=4763 JMS I L0022 / long call to S4013 @@2547=4422 JMS I C2571 / long call to S6110 @@2550=4771 JMS I C0023 / long call to S4020 @@2551=4423 JMS I C2572 / long call to S6200 @@2552=4772 JMS I C0021 / long call to S4006 @@2553=4421 SKP CLA / @@2554=7610 JMS I C2574 / long call to S6400 @@2555=4774 ISZ D0070 / @@2556=2070 JMP L2502 / @@2557=5302 JMS I C0120 / long call to S4063 @@2560=4520 JMP I C2562 / long jump to L2600 @@2561=5762 C2562, C2562, 2600 / ISZ I L2400 C2563, C2563, 6242 / CIF0 C2564, C2564, 6421 / T1skip C2565, 7764 / SMA SZA SNL CLA OSR C2566, 7242 / CLA CMA C2567, C2567, 4143 / JMS C0143 C2570, C2570, 6523 / 6523 C2571, C2571, 6110 / 6110 C2572, C2572, 6200 / 6200 C2573, 7577 / MQA SCA MQL LSR + C2574, C2574, 6400 / 6400 C2575, C2575, 6304 / 6304 C2576, C2576, 6263 / 6263 C2577, C2577, 6221 / CDF0 L2600, JMS S0052 / @@2600=4052 JMS I L0032 / long call to S4600 @@2601=4432 JMS I C0031 / long call to S4400 @@2602=4431 TAD D0067 / @@2603=1067 SNA CLA / @@2604=7650 TAD C0100 / @@2605=1100 TAD C2777 / @@2606=1377 JMS I D0024 / long call to S4025 @@2607=4424 JMS I C0026 / long call to S4037 @@2610=4426 CLA / @@2611=7200 JMS I D0020 / long call to S4000 @@2612=4420 STA / AC = 7777 (-0001) @@2613=7240 JMS I C0037 / long call to S4302 @@2614=4437 JMS I C0034 / long call to S4436 @@2615=4434 STA / AC = 7777 (-0001) @@2616=7240 JMS I C0036 / long call to S4200 @@2617=4436 JMS I C0035 / long call to S4665 @@2620=4435 STA / AC = 7777 (-0001) @@2621=7240 JMS I C0036 / long call to S4200 @@2622=4436 CLA CLL CMA RAL / AC = 7776 (-0002) @@2623=7344 JMS I C0037 / long call to S4302 @@2624=4437 JMS I C0035 / long call to S4665 @@2625=4435 CLA CLL CMA RAL / AC = 7776 (-0002) @@2626=7344 JMS I C0036 / long call to S4200 @@2627=4436 JMS I C0034 / long call to S4436 @@2630=4434 STA / AC = 7777 (-0001) @@2631=7240 JMS I C0036 / long call to S4200 @@2632=4436 CLA CLL CMA RAL / AC = 7776 (-0002) @@2633=7344 JMS I C0036 / long call to S4200 @@2634=4436 TAD D0067 / @@2635=1067 SNA CLA / @@2636=7650 TAD C0100 / @@2637=1100 TAD C2777 / @@2640=1377 JMS I D0024 / long call to S4025 @@2641=4424 CLA / @@2642=7200 JMS I C0040 / long call to S4072 @@2643=4440 JMS I D0020 / long call to S4000 @@2644=4420 JMS I C0120 / long call to S4063 @@2645=4520 JMS S0052 / @@2646=4052 JMS I L0032 / long call to S4600 @@2647=4432 JMS I C0031 / long call to S4400 @@2650=4431 STA / AC = 7777 (-0001) @@2651=7240 JMS I C0037 / long call to S4302 @@2652=4437 JMS I C0035 / long call to S4665 @@2653=4435 STA / AC = 7777 (-0001) @@2654=7240 JMS I C0036 / long call to S4200 @@2655=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@2656=7346 DCA D0111 / @@2657=3111 SKP / @@2660=7410 L2661, JMS I C0035 / long call to S4665 @@2661=4435 CLA CLL CMA RTL / AC = 7775 (-0003) @@2662=7346 JMS I C0037 / long call to S4302 @@2663=4437 JMS I C0035 / long call to S4665 @@2664=4435 CLA CLL CMA RTL / AC = 7775 (-0003) @@2665=7346 JMS I C0036 / long call to S4200 @@2666=4436 ISZ D0111 / @@2667=2111 JMP L2661 / @@2670=5261 JMS I C0034 / long call to S4436 @@2671=4434 STA / AC = 7777 (-0001) @@2672=7240 JMS I C0036 / long call to S4200 @@2673=4436 CLA CLL CMA RTL / AC = 7775 (-0003) @@2674=7346 JMS I C0036 / long call to S4200 @@2675=4436 JMS I C0120 / long call to S4063 @@2676=4520 JMS I C2776 / long call to S7512 @@2677=4776 JMS I C2775 / long call to S7546 @@2700=4775 TAD D0067 / @@2701=1067 SZA CLA / @@2702=7640 JMP L2706 / @@2703=5306 TAD I C2774 / @@2704=1774 SKP / @@2705=7410 L2706, TAD I C2773 / @@2706=1773 JMS I C2772 / long call to S6733 @@2707=4772 LAS / @@2710=7604 RTR / @@2711=7012 SPA CLA / @@2712=7710 JMP I C2771 / long jump to L1000 @@2713=5771 TAD D0067 / @@2714=1067 SZA CLA / @@2715=7640 SKP / @@2716=7410 TAD C0100 / @@2717=1100 DCA D0067 / @@2720=3067 JMP I C2771 / long jump to L1000 @@2721=5771 L2722, C2722, 7604 / LAS AND C2770 / @@2723=0370 DCA D2744 / @@2724=3344 TAD C2767 / @@2725=1367 DCA D0070 / @@2726=3070 TAD C2746 / @@2727=1346 DCA D2745 / @@2730=3345 L2731, TAD I D2745 / @@2731=1745 DCA D2747 / @@2732=3347 TAD I D2747 / @@2733=1747 AND C2766 / @@2734=0366 TAD D2744 / @@2735=1344 DCA I D2747 / @@2736=3747 ISZ D2745 / @@2737=2345 ISZ D0070 / @@2740=2070 JMP L2731 / @@2741=5331 L2742, HLT / @@2742=7402 JMP L2742 / @@2743=5342 D2744, 0000 / AND L0000 D2745, 0000 / AND L0000 C2746, 2750 / ISZ I C2750 D2747, 0000 / AND L0000 JMS S0002 / @@2750=4002 C2751, 4007 / JMS C0007 C2752, 4014 / JMS AI4 C2753, 4021 / JMS C0021 C2754, 4026 / JMS C0026 C2755, 4033 / JMS C0033 C2756, 4040 / JMS C0040 C2757, 4045 / JMS C0045 C2760, 4114 / JMS C0114 *2766 C2766, 6007 / 6007 C2767, 7767 / CLA MQA SCA MQL DVI + C2770, 0770 / AND I C2770 C2771, C2771, 1000 / TAD L0000 C2772, C2772, 6733 / 6733 C2773, 3123 / DCA C0123 C2774, 3122 / DCA C0122 C2775, C2775, 7546 / SMA SZA OSR HLT C2776, C2776, 7512 / SPA HLT C2777, 0210 / AND C2610 L3000, D3000, 7300 / CLA CLL L3001, DCA S0132 / @@3001=3132 JMS I C3177 / long call to S3741 @@3002=4777 JMS I C3176 / long call to S3431 @@3003=4776 TAD C0104 / @@3004=1104 DCA S0132 / @@3005=3132 JMS I C3177 / long call to S3741 @@3006=4777 JMS I C3176 / long call to S3431 @@3007=4776 TAD C3175 / @@3010=1375 DCA S0132 / @@3011=3132 JMS I C3177 / long call to S3741 @@3012=4777 JMS I C3176 / long call to S3431 @@3013=4776 TAD C3174 / @@3014=1374 DCA S0132 / @@3015=3132 JMS I C3177 / long call to S3741 @@3016=4777 JMS I C3176 / long call to S3431 @@3017=4776 TAD C3173 / @@3020=1373 DCA S0132 / @@3021=3132 JMS I C3177 / long call to S3741 @@3022=4777 JMS I C3176 / long call to S3431 @@3023=4776 TAD C3172 / @@3024=1372 DCA S0132 / @@3025=3132 JMS I C3177 / long call to S3741 @@3026=4777 JMS I C3176 / long call to S3431 @@3027=4776 CLA CLL / AC = 0000 @@3030=7300 DCA S0132 / @@3031=3132 JMS I C3171 / long call to S3400 @@3032=4771 JMS I C3176 / long call to S3431 @@3033=4776 TAD C0101 / @@3034=1101 DCA S0132 / @@3035=3132 JMS I C3171 / long call to S3400 @@3036=4771 JMS I C3176 / long call to S3431 @@3037=4776 DCA S0132 / @@3040=3132 JMS I C3170 / long call to S3413 @@3041=4770 JMS I C3176 / long call to S3431 @@3042=4776 TAD C0104 / @@3043=1104 DCA S0132 / @@3044=3132 JMS I C3170 / long call to S3413 @@3045=4770 JMS I C3176 / long call to S3431 @@3046=4776 TAD C3175 / @@3047=1375 DCA S0132 / @@3050=3132 D3051, 4770 / JMS I C3170 JMS I C3176 / long call to S3431 @@3052=4776 TAD C3174 / @@3053=1374 DCA S0132 / @@3054=3132 JMS I C3170 / long call to S3413 @@3055=4770 JMS I C3176 / long call to S3431 @@3056=4776 TAD C3173 / @@3057=1373 DCA S0132 / @@3060=3132 JMS I C3170 / long call to S3413 @@3061=4770 JMS I C3176 / long call to S3431 @@3062=4776 TAD C3172 / @@3063=1372 DCA S0132 / @@3064=3132 JMS I C3170 / long call to S3413 @@3065=4770 JMS I C3176 / long call to S3431 @@3066=4776 TAD C3167 / @@3067=1367 DCA I C3166 / @@3070=3766 TAD C0073 / @@3071=1073 DCA D3100 / @@3072=3300 L3073, C3073, 4765 / JMS I C3165 JMS I C3176 / long call to S3431 @@3074=4776 C3075, C3075, 2300 / ISZ D3100 C3076, 5273 / JMP L3073 SKP / @@3077=7410 D3100, 0000 / AND L0000 TAD D0067 / @@3101=1067 SZA CLA / @@3102=7640 JMP L3106 / @@3103=5306 TAD C3122 / @@3104=1322 SKP / @@3105=7410 L3106, TAD C3123 / @@3106=1323 JMS I C3164 / long call to S6733 @@3107=4764 LAS / @@3110=7604 RTR / @@3111=7012 SPA CLA / @@3112=7710 JMP L3001 / @@3113=5201 TAD D0067 / @@3114=1067 SZA CLA / @@3115=7640 SKP / @@3116=7410 TAD C0100 / @@3117=1100 DCA D0067 / @@3120=3067 JMP L3001 / @@3121=5201 C3122, 0301 / AND C3101 C3123, 0302 / AND C3102 L3124, JMS I C3163 / long call to S4535 @@3124=4763 L3125, JMS S0052 / @@3125=4052 JMS I L0032 / long call to S4600 @@3126=4432 JMS I C0031 / long call to S4400 @@3127=4431 STA / AC = 7777 (-0001) @@3130=7240 JMS I C0037 / long call to S4302 @@3131=4437 JMS I C0035 / long call to S4665 @@3132=4435 STA / AC = 7777 (-0001) @@3133=7240 JMS I C0036 / long call to S4200 @@3134=4436 JMS I C3162 / long call to S3470 @@3135=4762 JMS I C0120 / long call to S4063 @@3136=4520 JMS I C3161 / long call to S7400 @@3137=4761 JMS I C3160 / long call to S7441 @@3140=4760 C3141, 7402 / HLT JMS I C0120 / long call to S4063 @@3142=4520 JMP I C3157 / long jump to L3200 @@3143=5757 *3157 C3157, C3157, 3200 / DCA L3000 C3160, C3160, 7441 / SCA C3161, C3161, 7400 / C3162, C3162, 3470 / DCA I D0070 C3163, C3163, 4535 / JMS I C0135 C3164, C3164, 6733 / 6733 JMP I C3075 / long jump to L2300 @@3165=5675 C3166, 5715 / JMP I C3115 C3167, 2525 / ISZ I D0125 C3170, C3170, 3413 / DCA I AI3 C3171, C3171, 3400 / DCA I L0000 C3172, 0314 / AND C3114 C3173, 0063 / AND C0063 C3174, 0125 / AND D0125 C3175, 0252 / AND C3052 C3176, C3176, 3431 / DCA I C0031 C3177, C3177, 3741 / DCA I C3141 L3200, JMS S0052 / @@3200=4052 DCA D0051 / @@3201=3051 TAD L0056 / @@3202=1056 TAD C0101 / @@3203=1101 TAD D0067 / @@3204=1067 JMS I L0042 / long call to S4731 @@3205=4442 JMS I C0027 / long call to S4044 @@3206=4427 TAD C3377 / @@3207=1377 SNA CLA / @@3210=7650 JMP L3214 / @@3211=5214 TAD C3376 / @@3212=1376 JMS I C0041 / long call to S5000 @@3213=4441 L3214, JMS I C0026 / long call to S4037 @@3214=4426 CLA / @@3215=7200 TAD C0072 / @@3216=1072 JMS I C0041 / long call to S5000 @@3217=4441 JMS I C0040 / long call to S4072 @@3220=4440 TAD C3376 / @@3221=1376 JMS I C0041 / long call to S5000 @@3222=4441 JMS I C0023 / long call to S4020 @@3223=4423 JMS I C3375 / long call to S6200 @@3224=4775 JMS I C0025 / long call to S4032 @@3225=4425 JMS I C3374 / long call to S6242 @@3226=4774 JMS I L0022 / long call to S4013 @@3227=4422 JMS I C3373 / long call to S6110 @@3230=4773 JMS I C0021 / long call to S4006 @@3231=4421 SKP CLA / @@3232=7610 JMS I C3372 / long call to S6400 @@3233=4772 JMS I C3371 / long call to S4143 @@3234=4771 JMS I D0020 / long call to S4000 @@3235=4420 JMS I C0041 / long call to S5000 @@3236=4441 CLA CLL CMA RTL / AC = 7775 (-0003) @@3237=7346 DCA D0070 / @@3240=3070 TAD C0061 / @@3241=1061 TAD C0101 / @@3242=1101 TAD D0067 / @@3243=1067 JMS I L0042 / long call to S4731 @@3244=4442 TAD C3376 / @@3245=1376 JMS I C0041 / long call to S5000 @@3246=4441 L3247, JMS I C0026 / long call to S4037 @@3247=4426 CLA CLL CMA RAL / AC = 7776 (-0002) @@3250=7344 JMS I C0041 / long call to S5000 @@3251=4441 JMS I L0022 / long call to S4013 @@3252=4422 JMS I C3373 / long call to S6110 @@3253=4773 JMS I C0025 / long call to S4032 @@3254=4425 JMS I C3374 / long call to S6242 @@3255=4774 JMS I C0021 / long call to S4006 @@3256=4421 SKP CLA / @@3257=7610 JMS I C3372 / long call to S6400 @@3260=4772 JMS I C0023 / long call to S4020 @@3261=4423 SKP CLA / @@3262=7610 JMS I C3370 / long call to S6304 @@3263=4770 L3264, JMS I C0023 / long call to S4020 @@3264=4423 JMP L3264 / @@3265=5264 CLA CLL CMA RTL / AC = 7775 (-0003) @@3266=7346 JMS I C0041 / long call to S5000 @@3267=4441 JMS I L0022 / long call to S4013 @@3270=4422 JMS I C3373 / long call to S6110 @@3271=4773 JMS I C0025 / long call to S4032 @@3272=4425 JMS I C3374 / long call to S6242 @@3273=4774 JMS I C0021 / long call to S4006 @@3274=4421 SKP CLA / @@3275=7610 JMS I C3372 / long call to S6400 @@3276=4772 JMS I C3371 / long call to S4143 @@3277=4771 ISZ D0070 / @@3300=2070 JMP L3247 / @@3301=5247 JMS I D0020 / long call to S4000 @@3302=4420 TAD C0101 / @@3303=1101 TAD D0067 / @@3304=1067 JMS I L0042 / long call to S4731 @@3305=4442 CLA CLL CMA RTL / AC = 7775 (-0003) @@3306=7346 JMS I C0041 / long call to S5000 @@3307=4441 JMS I L0022 / long call to S4013 @@3310=4422 SKP / @@3311=7410 JMS I C3367 / long call to S6263 @@3312=4767 JMS I D0020 / long call to S4000 @@3313=4420 JMS I C0120 / long call to S4063 @@3314=4520 JMS I C3366 / long call to S7400 @@3315=4766 JMS I C3365 / long call to S7463 @@3316=4765 HLT / @@3317=7402 JMS I C0120 / long call to S4063 @@3320=4520 JMS S0052 / @@3321=4052 JMS I L0032 / long call to S4600 @@3322=4432 STA / AC = 7777 (-0001) @@3323=7240 JMS I C0036 / long call to S4200 @@3324=4436 JMS I C3364 / long call to S3470 @@3325=4764 JMS I C0120 / long call to S4063 @@3326=4520 JMS I C3363 / long call to S7504 @@3327=4763 HLT / @@3330=7402 JMS I C0120 / long call to S4063 @@3331=4520 LAS / @@3332=7604 RTR / @@3333=7012 SPA CLA / @@3334=7710 JMP I C3362 / long jump to L3125 @@3335=5762 TAD D0067 / @@3336=1067 SZA CLA / @@3337=7640 SKP / @@3340=7410 TAD C0100 / @@3341=1100 DCA D0067 / @@3342=3067 JMP I C3362 / long jump to L3125 @@3343=5762 *3362 C3362, C3362, 3125 / DCA D0125 C3363, C3363, 7504 / SMA OSR C3364, C3364, 3470 / DCA I D0070 C3365, C3365, 7463 / SCA MQL SCL + C3366, C3366, 7400 / C3367, C3367, 6263 / 6263 C3370, C3370, 6304 / 6304 C3371, C3371, 4143 / JMS C0143 C3372, C3372, 6400 / 6400 C3373, C3373, 6110 / 6110 C3374, C3374, 6242 / CIF0 C3375, C3375, 6200 / 6200 C3376, 7735 / CLA MQA MQL ASR + C3377, 7775 / CLA MQA SCA MQL ASR + //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3400 / / Called from: / 3032 3036 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3400, 0 / return area TAD C3577 / @@3401=1377 DCA I C3576 / @@3402=3776 TAD C3575 / @@3403=1375 DCA AI3 / AUTO INDEX REGISTER @@3404=3013 L3405, ISZ S0132 / @@3405=2132 TAD S0132 / @@3406=1132 DCA I AI3 / AUTO INDEX REGISTER @@3407=3413 ISZ I C3576 / @@3410=2776 JMP L3405 / @@3411=5205 JMP I S3400 / return @@3412=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3413 / / Called from: / 3041 3045 3055 3061 3065 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S3413, 0 / return area TAD C3577 / @@3414=1377 DCA I C3576 / @@3415=3776 TAD C3575 / @@3416=1375 DCA AI3 / AUTO INDEX REGISTER @@3417=3013 L3420, TAD S0132 / @@3420=1132 DCA I AI3 / AUTO INDEX REGISTER @@3421=3413 TAD S0132 / @@3422=1132 CMA / @@3423=7040 AND C0104 / @@3424=0104 DCA S0132 / @@3425=3132 ISZ I C3576 / @@3426=2776 JMP L3420 / @@3427=5220 JMP I S3413 / return @@3430=5613 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3431 / / Called from: / 3003 3007 3013 3017 3023 3027 3033 3037 3042 3046 3052 3056 3062 3066 3074 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S3431, 0 / return area JMS S0052 / @@3432=4052 L3433, JMS I L0032 / long call to S4600 @@3433=4432 JMS I C0031 / long call to S4400 @@3434=4431 TAD C0073 / @@3435=1073 JMS I C0037 / long call to S4302 @@3436=4437 JMS I C0035 / long call to S4665 @@3437=4435 TAD C0073 / @@3440=1073 JMS I C0036 / long call to S4200 @@3441=4436 JMS S3470 / @@3442=4270 TAD C3574 / @@3443=1374 JMS I C0037 / long call to S4302 @@3444=4437 JMS I C0031 / long call to S4400 @@3445=4431 JMS I C0035 / long call to S4665 @@3446=4435 TAD C3574 / @@3447=1374 JMS I C0036 / long call to S4200 @@3450=4436 JMS S3470 / @@3451=4270 JMS I C0034 / long call to S4436 @@3452=4434 JMS I C0033 / long call to S4423 @@3453=4433 JMS I C0035 / long call to S4665 @@3454=4435 JMS I C0035 / long call to S4665 @@3455=4435 TAD C0073 / @@3456=1073 JMS I C0036 / long call to S4200 @@3457=4436 JMS S3470 / @@3460=4270 TAD C3574 / @@3461=1374 JMS I C0036 / long call to S4200 @@3462=4436 JMS S3470 / @@3463=4270 JMS I C3573 / long call to S1143 @@3464=4773 JMP L3433 / @@3465=5233 JMS I C0120 / long call to S4063 @@3466=4520 JMP I S3431 / return @@3467=5631 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3470 / / Called from: / 3135 3325 3442 3451 3460 3463 5440 5525 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S3470, 0 / return area CLA CLL / AC = 0000 @@3471=7300 TAD C3572 / @@3472=1372 DCA AI2 / AUTO INDEX REGISTER @@3473=3012 TAD C3575 / @@3474=1375 DCA AI3 / AUTO INDEX REGISTER @@3475=3013 TAD D0131 / @@3476=1131 DCA I C3576 / @@3477=3776 LAS / @@3500=7604 RTL / @@3501=7006 RTL / @@3502=7006 RTL / @@3503=7006 SPA CLA / @@3504=7710 JMP I S3470 / return @@3505=5670 L3506, TAD I AI2 / AUTO INDEX REGISTER @@3506=1412 DCA D0112 / @@3507=3112 TAD I AI3 / AUTO INDEX REGISTER @@3510=1413 DCA D0111 / @@3511=3111 TAD D0111 / @@3512=1111 CIA / @@3513=7041 TAD D0112 / @@3514=1112 SZA CLA / @@3515=7640 JMS I C3571 / long call to S6646 @@3516=4771 ISZ I C3576 / @@3517=2776 JMP L3506 / @@3520=5306 L3521, TAD C3575 / @@3521=1375 DCA AI3 / AUTO INDEX REGISTER @@3522=3013 DCA I C3570 / @@3523=3770 DCA I C3567 / @@3524=3767 TAD D0131 / @@3525=1131 DCA I C3576 / @@3526=3776 L3527, TAD I AI3 / AUTO INDEX REGISTER @@3527=1413 DCA I C3566 / @@3530=3766 JMS I C3565 / long call to S3600 @@3531=4765 ISZ I C3576 / @@3532=2776 JMP L3527 / @@3533=5327 TAD I AI2 / AUTO INDEX REGISTER @@3534=1412 DCA I C3566 / @@3535=3766 TAD I AI2 / AUTO INDEX REGISTER @@3536=1412 DCA I C3564 / @@3537=3764 TAD I C3566 / @@3540=1766 CIA / @@3541=7041 TAD I C3570 / @@3542=1770 SZA CLA / @@3543=7640 JMS I C3563 / long call to S5624 @@3544=4763 TAD I C3564 / @@3545=1764 CIA / @@3546=7041 TAD I C3567 / @@3547=1767 SZA CLA / @@3550=7640 JMS I C3563 / long call to S5624 @@3551=4763 DCA D0054 / @@3552=3054 L3553, JMP I S3470 / return @@3553=5670 *3563 C3563, C3563, 5624 / JMP I C3424 C3564, 3740 / DCA I C3540 C3565, C3565, 3600 / DCA I S3400 C3566, 3737 / DCA I C3537 C3567, 3735 / DCA I C3535 C3570, 3734 / DCA I C3534 C3571, C3571, 6646 / 6646 C3572, 7177 / CLL CMA CML IAC RTR RTL C3573, C3573, 1143 / TAD C0143 C3574, 7602 / CLA HLT C3575, 6777 / 6777 C3576, 4547 / JMS I C0147 C3577, 7600 / 7600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3600 / / Called from: / 3531 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3600, 0 / return area CLA CLL / AC = 0000 @@3601=7300 TAD C0073 / @@3602=1073 DCA D3732 / @@3603=3332 L3604, TAD D3734 / @@3604=1334 AND C3777 / @@3605=0377 SZA CLA / @@3606=7640 TAD C3776 / @@3607=1376 DCA D3733 / @@3610=3333 TAD D3734 / @@3611=1334 AND C3775 / @@3612=0375 SZA CLA / @@3613=7640 TAD C3776 / @@3614=1376 DCA D3730 / @@3615=3330 TAD D3735 / @@3616=1335 AND C0100 / @@3617=0100 SZA CLA / @@3620=7640 TAD C3776 / @@3621=1376 DCA D3731 / @@3622=3331 TAD D3737 / @@3623=1337 CLL RTR / @@3624=7112 AND C3776 / @@3625=0376 TAD D3733 / @@3626=1333 DCA D3722 / @@3627=3322 DCA D3736 / @@3630=3336 CLA CLL / AC = 0000 @@3631=7300 TAD D3722 / @@3632=1322 TAD D3730 / @@3633=1330 CLL RAL / @@3634=7104 TAD C3777 / @@3635=1377 SNL / @@3636=7420 CLA / @@3637=7200 TAD D3736 / @@3640=1336 DCA D3736 / @@3641=3336 CLA CLL / AC = 0000 @@3642=7300 TAD D3722 / @@3643=1322 TAD D3731 / @@3644=1331 CLL RAL / @@3645=7104 TAD C0061 / @@3646=1061 SNL / @@3647=7420 CLA / @@3650=7200 TAD D3736 / @@3651=1336 DCA D3736 / @@3652=3336 TAD D3722 / @@3653=1322 CLL RAL / @@3654=7104 TAD C0101 / @@3655=1101 SNL / @@3656=7420 CLA / @@3657=7200 TAD D3736 / @@3660=1336 DCA D3736 / @@3661=3336 TAD D3735 / @@3662=1335 CLL RAR / @@3663=7110 AND C3724 / @@3664=0324 DCA D3722 / @@3665=3322 TAD D3736 / @@3666=1336 AND C3725 / @@3667=0325 DCA D3723 / @@3670=3323 JMS S3714 / @@3671=4314 DCA D3735 / @@3672=3335 TAD D3734 / @@3673=1334 RAR / @@3674=7010 SPA / @@3675=7510 TAD C0101 / @@3676=1101 AND C3726 / @@3677=0326 DCA D3722 / @@3700=3322 TAD D3736 / @@3701=1336 AND C3727 / @@3702=0327 DCA D3723 / @@3703=3323 JMS S3714 / @@3704=4314 DCA D3734 / @@3705=3334 TAD D3737 / @@3706=1337 CLL RAR / @@3707=7110 DCA D3737 / @@3710=3337 ISZ D3732 / @@3711=2332 JMP L3604 / @@3712=5204 JMP I S3600 / return @@3713=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3714 / / Called from: / 3671 3704 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S3714, 0 / return area TAD D3722 / @@3715=1322 CMA / @@3716=7040 AND D3723 / @@3717=0323 TAD D3722 / @@3720=1322 JMP I S3714 / return @@3721=5714 D3722, 0000 / AND L0000 D3723, 0000 / AND L0000 C3724, 0137 / AND C0137 C3725, 0240 / AND C3640 C3726, 0376 / AND C3776 C3727, 0001 / AND L0001 D3730, 0000 / AND L0000 D3731, 0000 / AND L0000 D3732, 0000 / AND L0000 D3733, 0000 / AND L0000 D3734, 0000 / AND L0000 D3735, 0000 / AND L0000 D3736, 0000 / AND L0000 D3737, 0000 / AND L0000 D3740, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3741 / / Called from: / 3002 3006 3012 3016 3022 3026 5555 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3741, 0 / return area TAD C3774 / @@3742=1374 DCA I C3773 / @@3743=3773 TAD C3772 / @@3744=1372 DCA AI3 / AUTO INDEX REGISTER @@3745=3013 L3746, TAD S0132 / @@3746=1132 DCA I AI3 / AUTO INDEX REGISTER @@3747=3413 ISZ I C3773 / @@3750=2773 JMP L3746 / @@3751=5346 JMP I S3741 / return @@3752=5741 *3772 C3772, 6777 / 6777 C3773, 4547 / JMS I C0147 C3774, 7600 / 7600 C3775, 0002 / AND S0002 C3776, 4000 / JMS L0000 C3777, 0001 / AND L0001 C4000, C4000, 0000 / AND L0000 DCA D0065 / @@4001=3065 KCLR / Clear All; clear the status A and B @@4002=6700 JMP I C4000 / long jump to L0000 @@4003=5600 HLT / @@4004=7402 JMP I C4000 / long jump to L0000 @@4005=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4006 / / Called from: / 0304 0423 0461 0526 1050 1074 2022 2041 2055 2073 2135 2156 2207 2222 2243 / 2267 2312 2322 2403 2416 2432 2443 2530 2553 3231 3256 3274 4247 4327 4475 / 4640 4714 / Total 0040 (32) calls //////////////////////////////////////////////////////////////////////////////// S4006, 0 / return area KSDR / Skip the next instruction if the dat @@4007=6701 JMP I S4006 / return @@4010=5606 ISZ S4006 / @@4011=2206 JMP I S4006 / return @@4012=5606 D4013, 0000 / AND L0000 KSEN / Skip the next instruction if any of @@4014=6702 JMP I D4013 / long jump to L0000 @@4015=5613 ISZ D4013 / @@4016=2213 JMP I D4013 / long jump to L0000 @@4017=5613 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4020 / / Called from: / 0314 0432 0476 0543 1054 1104 2027 2045 2061 2103 2137 2200 2214 2236 2271 / 2316 2426 2533 2551 3223 3261 3264 4254 4334 4471 4632 4707 / Total 0033 (27) calls //////////////////////////////////////////////////////////////////////////////// S4020, 0 / return area KSBF / Skip the next instruction if the rea @@4021=6703 JMP I S4020 / return @@4022=5620 ISZ S4020 / @@4023=2220 JMP I S4020 / return @@4024=5620 C4025, C4025, 0000 / AND L0000 KLSA / Load status A from AC4-AC11, clear t @@4026=6704 JMP I C4025 / long jump to L0000 @@4027=5625 HLT / @@4030=7402 JMP I C4025 / long jump to L0000 @@4031=5625 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4032 / / Called from: / 0320 0436 0505 0552 1057 1110 1130 2101 2525 2545 3225 3254 3272 4634 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S4032, 0 / return area KSAF / Skip on any flag or error condition @@4033=6705 JMP I S4032 / return @@4034=5632 ISZ S4032 / @@4035=2232 JMP I S4032 / return @@4036=5632 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4037 / / Called from: / 0303 0422 0457 0645 0652 0672 0700 0706 0714 0722 0730 0736 0744 0755 0760 / 1125 2015 2131 2154 2205 2262 2277 2307 2314 2355 2413 2460 2505 2515 2610 / 3214 3247 4242 4262 4322 4463 4623 4701 5447 5605 7014 7531 7562 / Total 0053 (43) calls //////////////////////////////////////////////////////////////////////////////// S4037, 0 / return area KGOA / Assert the contents of the status A @@4040=6706 JMP I S4037 / return @@4041=5637 HLT / @@4042=7402 JMP I S4037 / return @@4043=5637 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4044 / / Called from: / 0226 1012 1032 3206 4611 5002 5312 5411 5431 5460 5477 5516 5616 7015 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S4044, 0 / return area KRSB / Transfer the contents of the status @@4045=6707 JMP I S4044 / return @@4046=5644 HLT / @@4047=7402 JMP I S4044 / return @@4050=5644 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4051 / / Called from: / 0465 0473 0502 0510 0532 0540 0547 0555 1065 1114 2063 2224 2327 2435 4257 / 4337 4500 4515 4643 4661 4717 4725 / Total 0026 (22) calls //////////////////////////////////////////////////////////////////////////////// S4051, 0 / return area C4052, 6031 / KSF SKP / @@4053=7410 KCC / Clear AC and clear keyboard flag. @@4054=6032 DCA D0106 / @@4055=3106 ION / Enable Interrupts @@4056=6001 NOP / @@4057=7000 IOF / Disable Interrupts @@4060=6002 TAD D0106 / @@4061=1106 JMP I S4051 / return @@4062=5651 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4063 / / Called from: / 0235 0242 0257 0274 0330 0336 0345 0410 0450 0517 0564 0610 0624 0635 0666 / 0747 1005 1020 1024 1070 1117 1141 1207 1215 1223 1227 1236 1245 1260 1273 / 1301 1316 1333 1343 1362 1414 1506 1514 1552 1625 1655 1677 1726 1764 2111 / 2247 2342 2446 2474 2560 2645 2676 3136 3142 3314 3320 3326 3331 3466 5673 / 6127 6217 6261 6323 6475 6521 6551 6731 7244 7544 7573 / Total 0107 (71) calls //////////////////////////////////////////////////////////////////////////////// S4063, 0 / return area LAS / @@4064=7604 RAL / @@4065=7004 SMA CLA / @@4066=7700 JMP I S4063 / return @@4067=5663 JMS I D0020 / long call to S4000 @@4070=4420 JMP I S0052 / long jump to L0000 @@4071=5452 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4072 / / Called from: / 2020 2134 2265 2311 2401 2423 2643 3220 4245 4325 4466 4627 4704 5451 5607 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S4072, 0 / return area D4073, 7200 / CLA DCA D4105 / @@4074=3305 L4075, JMS I C0030 / long call to S4106 @@4075=4430 SKP / @@4076=7410 JMP I S4072 / return @@4077=5672 ISZ D4105 / @@4100=2305 JMP L4075 / @@4101=5275 JMS I D0020 / long call to S4000 @@4102=4420 D4103, 7402 / HLT JMP I S4072 / return @@4104=5672 D4105, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4106 / / Called from: / 4075 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4106, 0 / return area CLA / @@4107=7200 DCA D4120 / @@4110=3320 L4111, ISZ D4120 / @@4111=2320 SKP / @@4112=7410 JMP I S4106 / return @@4113=5706 KSAF / Skip on any flag or error condition @@4114=6705 JMP L4111 / @@4115=5311 ISZ S4106 / @@4116=2306 JMP I S4106 / return @@4117=5706 D4120, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4121 / / Called from: / 0307 0313 0317 0323 0426 0435 0464 0501 0531 0546 1047 1053 1077 1107 1113 / 1133 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S4121, 0 / return area LAS / @@4122=7604 RTL / @@4123=7006 SMA CLA / @@4124=7700 JMP I S4121 / return @@4125=5721 TAD S4121 / @@4126=1321 TAD C4177 / @@4127=1377 DCA S4121 / @@4130=3321 JMP I S4121 / return @@4131=5721 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4132 / / Called from: / 0431 0440 0472 0507 0537 0554 1042 1056 1061 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S4132, 0 / return area LAS / @@4133=7604 RTL / @@4134=7006 SMA CLA / @@4135=7700 JMP I S4132 / return @@4136=5732 TAD S4132 / @@4137=1332 TAD C4176 / @@4140=1376 DCA S4132 / @@4141=3332 JMP I S4132 / return @@4142=5732 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4143 / / Called from: / 2066 2227 2332 2440 2470 2536 3234 3277 4503 4646 4722 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S4143, 0 / return area LAS / @@4144=7604 RTL / @@4145=7006 RTL / @@4146=7006 RAL / @@4147=7004 SMA CLA / @@4150=7700 JMP I S4143 / return @@4151=5743 TAD C4175 / @@4152=1375 DCA D0117 / @@4153=3117 JMS I C0116 / long call to S5256 @@4154=4516 JMP I S4143 / return @@4155=5743 STA / AC = 7777 (-0001) @@4156=7240 DCA D0106 / @@4157=3106 JMP I L0000 / long jump to L0000 @@4160=5400 *4175 C4175, 4060 / JMS C0060 C4176, 7775 / CLA MQA SCA MQL ASR + C4177, 7774 / SPA SNA SZL CLA OSR L4200, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4200 / / Called from: / 1221 1235 1244 1251 1257 1264 1272 1300 1306 1311 1315 1323 1326 1332 1337 / 1342 1353 1356 1361 1403 1407 1413 1420 1426 1433 1436 1440 1444 1446 1452 / 1455 1457 1463 1467 1471 1477 1504 1513 1522 1527 1531 1535 1545 1547 1556 / 1562 1565 1571 1574 1576 1600 1604 1610 1614 1620 1624 1631 1634 1636 1640 / 1643 1645 1647 1651 1654 1661 1664 1666 1671 1673 1675 1705 1712 1714 1721 / 1723 1725 1734 1737 1744 1746 1751 1757 1761 1763 2110 2121 2617 2622 2627 / 2632 2634 2655 2666 2673 2675 3134 3324 3441 3450 3457 3462 5437 5524 5530 / / Total 0151 (105) calls //////////////////////////////////////////////////////////////////////////////// S4200, 0 / return area DCA D0131 / @@4201=3131 TAD D0131 / @@4202=1131 TAD C0071 / @@4203=1071 DCA D0070 / @@4204=3070 DCA D4353 / @@4205=3353 CLA CLL CMA RAL / AC = 7776 (-0002) @@4206=7344 DCA D0113 / @@4207=3113 DCA D0054 / @@4210=3054 TAD S4200 / @@4211=1200 JMS I C4377 / long call to S4521 @@4212=4777 TAD D0127 / @@4213=1127 SNA CLA / @@4214=7650 JMP L4226 / @@4215=5226 TAD L0102 / @@4216=1102 TAD D0067 / @@4217=1067 JMS I L0042 / long call to S4731 @@4220=4442 TAD C0074 / @@4221=1074 JMS I C0041 / long call to S5000 @@4222=4441 DCA D0127 / @@4223=3127 DCA D0130 / @@4224=3130 JMP L4242 / @@4225=5242 L4226, TAD D0130 / @@4226=1130 SNA CLA / @@4227=7650 JMP L4235 / @@4230=5235 TAD L0102 / @@4231=1102 TAD D0067 / @@4232=1067 JMS I C4376 / long call to S4451 @@4233=4776 JMP I S4200 / return @@4234=5600 L4235, TAD L0102 / @@4235=1102 TAD D0067 / @@4236=1067 JMS I L0042 / long call to S4731 @@4237=4442 TAD C0071 / @@4240=1071 JMS I C0041 / long call to S5000 @@4241=4441 L4242, JMS I C0026 / long call to S4037 @@4242=4426 L4243, CLA / @@4243=7200 JMS I C0041 / long call to S5000 @@4244=4441 JMS I C0040 / long call to S4072 @@4245=4440 JMS I C0041 / long call to S5000 @@4246=4441 JMS I C0021 / long call to S4006 @@4247=4421 JMS I C4375 / long call to S6221 @@4250=4775 JMS I L0022 / long call to S4013 @@4251=4422 SKP / @@4252=7410 JMS I C4374 / long call to S6263 @@4253=4774 JMS I C0023 / long call to S4020 @@4254=4423 SKP / @@4255=7410 JMS I C4373 / long call to S6304 @@4256=4773 JMS I C0110 / long call to S4051 @@4257=4510 SNA CLA / @@4260=7650 JMS I C4372 / long call to S6523 @@4261=4772 JMS I C0026 / long call to S4037 @@4262=4426 DCA I AI2 / AUTO INDEX REGISTER @@4263=3412 ISZ D0070 / @@4264=2070 JMP L4243 / @@4265=5243 TAD C0071 / @@4266=1071 DCA D0070 / @@4267=3070 ISZ D0113 / @@4270=2113 SKP CLA / @@4271=7610 JMP L4300 / @@4272=5300 TAD C0063 / @@4273=1063 TAD L0102 / @@4274=1102 TAD D0067 / @@4275=1067 JMS I L0042 / long call to S4731 @@4276=4442 JMP L4242 / @@4277=5242 L4300, JMS I C4371 / long call to S4700 @@4300=4771 JMP I S4200 / return @@4301=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4302 / / Called from: / 1214 1254 1267 1350 1423 1430 1474 1501 1537 1541 2116 2614 2624 2652 2663 / 3131 3436 3444 5417 5505 / Total 0024 (20) calls //////////////////////////////////////////////////////////////////////////////// S4302, 0 / return area DCA D0070 / @@4303=3070 DCA D0054 / @@4304=3054 CMA / @@4305=7040 DCA D4353 / @@4306=3353 TAD C4370 / @@4307=1370 DCA AI3 / AUTO INDEX REGISTER @@4310=3013 TAD S4302 / @@4311=1302 JMS S0043 / @@4312=4043 TAD C0057 / @@4313=1057 TAD L0102 / @@4314=1102 TAD D0067 / @@4315=1067 JMS I L0042 / long call to S4731 @@4316=4442 TAD C0071 / @@4317=1071 JMS I C0041 / long call to S5000 @@4320=4441 L4321, TAD I AI3 / AUTO INDEX REGISTER @@4321=1413 JMS I C0026 / long call to S4037 @@4322=4426 CLA / @@4323=7200 JMS I C0041 / long call to S5000 @@4324=4441 JMS I C0040 / long call to S4072 @@4325=4440 JMS I C0041 / long call to S5000 @@4326=4441 JMS I C0021 / long call to S4006 @@4327=4421 JMS I C4375 / long call to S6221 @@4330=4775 JMS I L0022 / long call to S4013 @@4331=4422 SKP / @@4332=7410 JMS I C4374 / long call to S6263 @@4333=4774 JMS I C0023 / long call to S4020 @@4334=4423 SKP / @@4335=7410 JMS I C4373 / long call to S6304 @@4336=4773 JMS I C0110 / long call to S4051 @@4337=4510 SNA CLA / @@4340=7650 JMS I C4372 / long call to S6523 @@4341=4772 ISZ D0070 / @@4342=2070 JMP L4321 / @@4343=5321 TAD C0063 / @@4344=1063 TAD L0102 / @@4345=1102 TAD D0067 / @@4346=1067 JMS I L0042 / long call to S4731 @@4347=4442 JMS I C4371 / long call to S4700 @@4350=4771 DCA D4353 / @@4351=3353 L4352, JMP I S4302 / return @@4352=5702 D4353, 0000 / AND L0000 *4370 C4370, 6777 / 6777 C4371, C4371, 4700 / JMS I L4300 C4372, C4372, 6523 / 6523 C4373, C4373, 6304 / 6304 C4374, C4374, 6263 / 6263 C4375, C4375, 6221 / CDF0 C4376, C4376, 4451 / JMS I D0051 C4377, C4377, 4521 / JMS I C0121 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4400 / / Called from: / 1206 1212 1222 1252 1265 1346 1404 1410 1421 1472 1550 2004 2114 2602 2650 / 3127 3434 3445 5305 5472 7553 / Total 0025 (21) calls //////////////////////////////////////////////////////////////////////////////// S4400, 0 / return area DCA D0054 / @@4401=3054 TAD S4400 / @@4402=1200 JMS S0043 / @@4403=4043 TAD C0061 / @@4404=1061 TAD L0102 / @@4405=1102 TAD D0067 / @@4406=1067 JMS I L0042 / long call to S4731 @@4407=4442 TAD D0127 / @@4410=1127 SNA CLA / @@4411=7650 JMP L4416 / @@4412=5216 TAD C0074 / @@4413=1074 JMS I C0041 / long call to S5000 @@4414=4441 JMP L4420 / @@4415=5220 L4416, D4416, 1071 / TAD C0071 D4417, 4441 / JMS I C0041 L4420, DCA D0127 / @@4420=3127 JMS I C4577 / long call to S4700 @@4421=4777 JMP I S4400 / return @@4422=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4423 / / Called from: / 1226 1232 1241 1276 1304 1321 1340 1453 1465 1517 1524 1525 1557 1563 1566 / 1572 1662 1667 1676 1702 1706 1707 1715 1716 1731 1740 1752 3453 5322 / Total 0035 (29) calls //////////////////////////////////////////////////////////////////////////////// S4423, 0 / return area CLA CLL / AC = 0000 @@4424=7300 DCA D0054 / @@4425=3054 C4426, 1223 / TAD S4423 JMS S0043 / @@4427=4043 DCA D0107 / @@4430=3107 TAD C0064 / @@4431=1064 TAD L0102 / @@4432=1102 TAD D0067 / @@4433=1067 JMS S4451 / @@4434=4251 JMP I S4423 / return @@4435=5623 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4436 / / Called from: / 1242 1270 1324 1327 1330 1357 1405 1434 1447 1450 1460 1464 1475 1551 1560 / 1606 1611 1621 1703 1710 1717 2615 2630 2671 3452 5611 / Total 0032 (26) calls //////////////////////////////////////////////////////////////////////////////// S4436, 0 / return area CLA CLL / AC = 0000 @@4437=7300 DCA D0054 / @@4440=3054 C4441, 1236 / TAD S4436 D4442, 4043 / JMS S0043 DCA D0107 / @@4443=3107 TAD C0060 / @@4444=1060 TAD L0102 / @@4445=1102 TAD D0067 / @@4446=1067 JMS S4451 / @@4447=4251 JMP I S4436 / return @@4450=5636 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4451 / / Called from: / 4233 4434 4447 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S4451, 0 / return area JMS I L0042 / long call to S4731 @@4452=4442 TAD D0127 / @@4453=1127 SNA CLA / @@4454=7650 JMP L4461 / @@4455=5261 TAD C0074 / @@4456=1074 JMS I C0041 / long call to S5000 @@4457=4441 JMP L4463 / @@4460=5263 L4461, TAD C0071 / @@4461=1071 JMS I C0041 / long call to S5000 @@4462=4441 L4463, JMS I C0026 / long call to S4037 @@4463=4426 CLA / @@4464=7200 JMS I C0041 / long call to S5000 @@4465=4441 JMS I C0040 / long call to S4072 @@4466=4440 TAD C4576 / @@4467=1376 JMS I C0041 / long call to S5000 @@4470=4441 JMS I C0023 / long call to S4020 @@4471=4423 JMS I C4575 / long call to S6200 @@4472=4775 JMS I L0022 / long call to S4013 @@4473=4422 JMS I C4574 / long call to S6110 @@4474=4774 JMS I C0021 / long call to S4006 @@4475=4421 SKP CLA / @@4476=7610 JMS I C4573 / long call to S6400 @@4477=4773 JMS I C0110 / long call to S4051 @@4500=4510 SNA CLA / @@4501=7650 JMS I C4572 / long call to S6523 @@4502=4772 JMS I C4571 / long call to S4143 @@4503=4771 JMS I D0020 / long call to S4000 @@4504=4420 TAD C0101 / @@4505=1101 TAD D0067 / @@4506=1067 JMS I L0042 / long call to S4731 @@4507=4442 TAD C0071 / @@4510=1071 JMS I C0041 / long call to S5000 @@4511=4441 DCA D0127 / @@4512=3127 DCA D0130 / @@4513=3130 JMS I D0020 / long call to S4000 @@4514=4420 JMS I C0110 / long call to S4051 @@4515=4510 SZA CLA / @@4516=7640 JMS I C4570 / long call to S6477 @@4517=4770 JMP I S4451 / return @@4520=5651 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4521 / / Called from: / 4212 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4521, 0 / return area JMS S0043 / @@4522=4043 TAD C4567 / @@4523=1367 DCA D4547 / @@4524=3347 TAD C4566 / @@4525=1366 DCA AI2 / AUTO INDEX REGISTER @@4526=3012 L4527, DCA I AI2 / AUTO INDEX REGISTER @@4527=3412 ISZ D4547 / @@4530=2347 JMP L4527 / @@4531=5327 TAD C4566 / @@4532=1366 DCA AI2 / AUTO INDEX REGISTER @@4533=3012 JMP I S4521 / return @@4534=5721 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4535 / / Called from: / 1203 3124 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4535, 0 / return area TAD C4567 / @@4536=1367 DCA D4547 / @@4537=3347 TAD C4565 / @@4540=1365 DCA AI3 / AUTO INDEX REGISTER @@4541=3013 L4542, TAD C0104 / @@4542=1104 C4543, 3413 / DCA I AI3 ISZ D4547 / @@4544=2347 JMP L4542 / @@4545=5342 JMP I S4535 / return @@4546=5735 D4547, 0000 / AND L0000 *4565 C4565, 6777 / 6777 C4566, 7177 / CLL CMA CML IAC RTR RTL C4567, 7600 / 7600 C4570, C4570, 6477 / 6477 C4571, C4571, 4143 / JMS C0143 C4572, C4572, 6523 / 6523 C4573, C4573, 6400 / 6400 C4574, C4574, 6110 / 6110 C4575, C4575, 6200 / 6200 C4576, 7757 / CLA MQA SCA LSR + C4577, C4577, 4700 / JMS I C4500 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4600 / / Called from: / 1205 1211 1217 1225 1231 1240 1247 1262 1275 1303 1320 1335 1345 1401 1416 / 1510 1511 1516 1554 1627 1657 1701 1730 2003 2113 2253 2346 2450 2476 2601 / 2647 3126 3322 3433 5304 5471 7514 7552 / Total 0046 (38) calls //////////////////////////////////////////////////////////////////////////////// S4600, 0 / return area CLA CLL / AC = 0000 @@4601=7300 DCA D0054 / @@4602=3054 TAD S4600 / @@4603=1200 JMS S0043 / @@4604=4043 DCA D0107 / @@4605=3107 TAD L0102 / @@4606=1102 TAD D0067 / @@4607=1067 JMS I L0042 / long call to S4731 @@4610=4442 JMS I C0027 / long call to S4044 @@4611=4427 TAD C0071 / @@4612=1071 SNA CLA / @@4613=7650 JMP L4617 / @@4614=5217 TAD C0074 / @@4615=1074 JMS I C0041 / long call to S5000 @@4616=4441 L4617, TAD L0056 / @@4617=1056 TAD L0102 / @@4620=1102 TAD D0067 / @@4621=1067 JMS I L0042 / long call to S4731 @@4622=4442 JMS I C0026 / long call to S4037 @@4623=4426 CLA / @@4624=7200 TAD C0072 / @@4625=1072 JMS I C0041 / long call to S5000 @@4626=4441 JMS I C0040 / long call to S4072 @@4627=4440 TAD C0074 / @@4630=1074 JMS I C0041 / long call to S5000 @@4631=4441 JMS I C0023 / long call to S4020 @@4632=4423 JMS I C4777 / long call to S6200 @@4633=4777 JMS I C0025 / long call to S4032 @@4634=4425 JMS I C4776 / long call to S6242 @@4635=4776 JMS I L0022 / long call to S4013 @@4636=4422 JMS I C4775 / long call to S6110 @@4637=4775 JMS I C0021 / long call to S4006 @@4640=4421 SKP CLA / @@4641=7610 JMS I C4774 / long call to S6400 @@4642=4774 JMS I C0110 / long call to S4051 @@4643=4510 SNA CLA / @@4644=7650 JMS I C4773 / long call to S6523 @@4645=4773 JMS I C4772 / long call to S4143 @@4646=4772 JMS I D0020 / long call to S4000 @@4647=4420 TAD C0101 / @@4650=1101 TAD D0067 / @@4651=1067 JMS I L0042 / long call to S4731 @@4652=4442 TAD C0074 / @@4653=1074 JMS I C0041 / long call to S5000 @@4654=4441 IAC / @@4655=7001 DCA D0127 / @@4656=3127 DCA D0130 / @@4657=3130 JMS I D0020 / long call to S4000 @@4660=4420 JMS I C0110 / long call to S4051 @@4661=4510 SZA CLA / @@4662=7640 JMS I C4771 / long call to S6477 @@4663=4771 JMP I S4600 / return @@4664=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4665 / / Called from: / 1233 1255 1307 1312 1313 1351 1354 1411 1424 1431 1441 1442 1461 1502 1505 / 1520 1523 1532 1533 1542 1543 1567 1601 1602 1605 1612 1615 1616 1622 1732 / 1741 1742 1753 1754 1755 2117 2122 2620 2625 2653 2661 2664 3132 3437 3446 / 3454 3455 5453 / Total 0060 (48) calls //////////////////////////////////////////////////////////////////////////////// S4665, 0 / return area CLA CLL / AC = 0000 @@4666=7300 DCA D0054 / @@4667=3054 TAD S4665 / @@4670=1265 JMS S0043 / @@4671=4043 TAD C0062 / @@4672=1062 TAD L0102 / @@4673=1102 TAD D0067 / @@4674=1067 JMS I L0042 / long call to S4731 @@4675=4442 JMS S4700 / @@4676=4300 JMP I S4665 / return @@4677=5665 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4700 / / Called from: / 4300 4350 4421 4676 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S4700, 0 / return area JMS I C0026 / long call to S4037 @@4701=4426 CLA / @@4702=7200 JMS I C0041 / long call to S5000 @@4703=4441 JMS I C0040 / long call to S4072 @@4704=4440 TAD C0071 / @@4705=1071 JMS I C0041 / long call to S5000 @@4706=4441 JMS I C0023 / long call to S4020 @@4707=4423 JMS I C4777 / long call to S6200 @@4710=4777 JMS I L0022 / long call to S4013 @@4711=4422 SKP / @@4712=7410 JMS I C4770 / long call to S6263 @@4713=4770 JMS I C0021 / long call to S4006 @@4714=4421 SKP CLA / @@4715=7610 JMS I C4774 / long call to S6400 @@4716=4774 JMS I C0110 / long call to S4051 @@4717=4510 SNA CLA / @@4720=7650 JMS I C4773 / long call to S6523 @@4721=4773 JMS I C4772 / long call to S4143 @@4722=4772 JMS I D0020 / long call to S4000 @@4723=4420 JMS I C0041 / long call to S5000 @@4724=4441 JMS I C0110 / long call to S4051 @@4725=4510 SZA CLA / @@4726=7640 JMS I C4771 / long call to S6477 @@4727=4771 JMP I S4700 / return @@4730=5700 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4731 / / Called from: / 0234 0240 0251 0266 0302 0334 0342 0403 0421 0456 0525 0643 0647 0651 0670 / 0676 0704 0712 0720 0726 0734 0742 0753 0757 1003 1011 1031 1064 1124 2013 / 2072 2125 2233 2256 2306 2336 2354 2457 2504 2514 2542 3205 3244 3305 4220 / 4237 4276 4316 4347 4407 4452 4507 4610 4622 4652 4675 7225 7530 7560 / Total 0073 (59) calls //////////////////////////////////////////////////////////////////////////////// S4731, 0 / return area DCA D0065 / @@4732=3065 L4733, TAD D0065 / @@4733=1065 JMS I D0024 / long call to S4025 @@4734=4424 DCA L0066 / @@4735=3066 TAD D0065 / @@4736=1065 TAD C0105 / @@4737=1105 TAD L0066 / @@4740=1066 CMA / @@4741=7040 SNA CLA / @@4742=7650 JMP L4753 / @@4743=5353 CMA / @@4744=7040 DCA D0054 / @@4745=3054 JMS I C4767 / long call to S5022 @@4746=4767 SKP CLA / @@4747=7610 JMS I C4766 / long call to S6000 @@4750=4766 JMS I C4765 / long call to S5032 @@4751=4765 HLT / @@4752=7402 L4753, LAS / @@4753=7604 RAL / @@4754=7004 SMA CLA / @@4755=7700 JMP I S4731 / return @@4756=5731 TAD D0054 / @@4757=1054 SNA CLA / @@4760=7650 JMP I S4731 / return @@4761=5731 DCA D0054 / @@4762=3054 JMP L4733 / @@4763=5333 JMP I S4731 / return @@4764=5731 C4765, C4765, 5032 / JMP L0032 C4766, C4766, 6000 / 6000 C4767, C4767, 5022 / JMP L0022 C4770, C4770, 6263 / 6263 C4771, C4771, 6477 / 6477 C4772, C4772, 4143 / JMS C0143 C4773, C4773, 6523 / 6523 C4774, C4774, 6400 / 6400 C4775, C4775, 6110 / 6110 C4776, C4776, 6242 / CIF0 C4777, C4777, 6200 / 6200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5000 / / Called from: / 0241 0273 0324 0335 0344 0405 0407 0442 0444 0514 0561 1004 1017 1023 1037 / 1073 1127 2017 2021 2040 2054 2133 2153 2213 2217 2235 2264 2266 2321 2340 / 2402 2415 2425 2442 2462 2467 2517 2521 2544 3213 3217 3222 3236 3246 3251 / 3267 3307 4222 4241 4244 4246 4320 4324 4326 4414 4457 4462 4465 4470 4511 / 4616 4626 4631 4654 4703 4706 4724 7533 7567 / Total 0105 (69) calls //////////////////////////////////////////////////////////////////////////////// S5000, 0 / return area C5001, 3076 / DCA D0076 JMS I C0027 / long call to S4044 @@5002=4427 DCA D0077 / @@5003=3077 TAD D0077 / @@5004=1077 TAD D0076 / @@5005=1076 SNA CLA / @@5006=7650 JMP L5017 / @@5007=5217 CMA / @@5010=7040 DCA D0054 / @@5011=3054 JMS S5022 / @@5012=4222 SKP CLA / @@5013=7610 JMS I C5177 / long call to S6041 @@5014=4777 JMS S5032 / @@5015=4232 HLT / @@5016=7402 L5017, JMS I C0121 / long call to S5042 @@5017=4521 JMS I C5176 / long call to S6600 @@5020=4776 JMP I S5000 / return @@5021=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5022 / / Called from: / 4746 5012 5625 6111 6201 6222 6243 6264 6401 6422 6443 6500 6524 6647 6716 / 6723 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S5022, 0 / return area LAS / @@5023=7604 RTL / @@5024=7006 RAL / @@5025=7004 SPA CLA / @@5026=7710 JMP I S5022 / return @@5027=5622 ISZ S5022 / @@5030=2222 JMP I S5022 / return @@5031=5622 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5032 / / Called from: / 4751 5015 5671 6125 6215 6236 6257 6300 6321 6415 6436 6473 6517 6547 6727 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S5032, 0 / return area LAS / @@5033=7604 RTL / @@5034=7006 RTL / @@5035=7006 SMA CLA / @@5036=7700 JMP I S5032 / return @@5037=5632 ISZ S5032 / @@5040=2232 JMP I S5032 / return @@5041=5632 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5042 / / Called from: / 5017 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5042, 0 / return area LAS / @@5043=7604 RAL / @@5044=7004 SMA CLA / @@5045=7700 JMP I S5042 / return @@5046=5642 TAD D0054 / @@5047=1054 SNA CLA / @@5050=7650 JMP I S5042 / return @@5051=5642 JMS I D0020 / long call to S4000 @@5052=4420 DCA D0054 / @@5053=3054 DCA I C5175 / @@5054=3775 JMP I S0052 / long jump to L0000 @@5055=5452 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5056 / / Called from: / 6277 6320 6414 6435 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S5056, 0 / return area JMS I C0115 / long call to S5200 @@5057=4515 ISZ D5113 / @@5060=2313 TAD C0120 / @@5061=1120 ISZ S0005 / @@5062=2005 AND I C0045 / @@5063=0445 JMS D5100 / @@5064=4300 JMP I S5056 / return @@5065=5656 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5066 / / Called from: / 6124 6214 6235 6256 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S5066, 0 / return area JMS I C0115 / long call to S5200 @@5067=4515 AND I C5001 / @@5070=0601 TAD C0114 / @@5071=1114 AND I C0104 / @@5072=0504 C5073, 4024 / JMS D0024 TAD I C5140 / @@5074=1740 ISZ D5113 / @@5075=2313 TAD C0120 / @@5076=1120 C5077, 4543 / JMS I C0143 AND L0000 / @@5100=0000 JMP I S5066 / return @@5101=5666 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5102 / / Called from: / 5632 5646 5652 5661 5665 6004 6014 6025 6034 6045 6054 6064 6074 6103 6116 / 6206 6227 6250 6271 6312 6406 6427 6450 6462 6467 6505 6531 6654 6677 6704 / / Total 0036 (30) calls //////////////////////////////////////////////////////////////////////////////// S5102, 0 / return area DCA D5142 / @@5103=3342 TAD D5142 / @@5104=1342 RTR / @@5105=7012 RTR / @@5106=7012 RTR / @@5107=7012 DCA D5137 / @@5110=3337 TAD D5137 / @@5111=1337 AND C5145 / @@5112=0345 D5113, 1343 / TAD C5143 DCA D5136 / @@5114=3336 TAD D5137 / @@5115=1337 RTL / @@5116=7006 RAL / @@5117=7004 AND C5144 / @@5120=0344 TAD D5136 / @@5121=1336 DCA D5136 / @@5122=3336 TAD D5142 / @@5123=1342 AND C5145 / @@5124=0345 TAD C5143 / @@5125=1343 DCA D5137 / @@5126=3337 TAD D5142 / @@5127=1342 RTL / @@5130=7006 RAL / @@5131=7004 AND C5144 / @@5132=0344 TAD D5137 / @@5133=1337 DCA D5137 / @@5134=3337 JMS I C0115 / long call to S5200 @@5135=4515 D5136, 0000 / AND L0000 D5137, 0000 / AND L0000 C5140, 0000 / AND L0000 JMP I S5102 / return @@5141=5702 D5142, 0000 / AND L0000 C5143, 6060 / 6060 C5144, 0700 / AND I D5100 C5145, 0007 / AND C0007 *5175 C5175, 4353 / JMS C5153 C5176, C5176, 6600 / 6600 C5177, C5177, 6041 / TSF C5200, 0000 / AND L0000 STA / AC = 7777 (-0001) @@5201=7240 TAD C5200 / @@5202=1200 DCA AI0 / AUTO INDEX REGISTER @@5203=3010 L5204, TAD I AI0 / AUTO INDEX REGISTER @@5204=1410 DCA D5216 / @@5205=3216 TAD D5216 / @@5206=1216 RTR / @@5207=7012 RTR / @@5210=7012 RTR / @@5211=7012 JMS S5217 / @@5212=4217 TAD D5216 / @@5213=1216 JMS S5217 / @@5214=4217 JMP L5204 / @@5215=5204 D5216, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5217 / / Called from: / 5212 5214 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S5217, 0 / return area AND C5255 / @@5220=0255 SNA / @@5221=7450 JMP I AI0 / AUTO INDEX REGISTERlong jump to L0000 @@5222=5410 TAD C5377 / @@5223=1377 SMA / @@5224=7500 JMP L5230 / @@5225=5230 TAD C5251 / @@5226=1251 JMP L5243 / @@5227=5243 L5230, TAD C5376 / @@5230=1376 SZA / @@5231=7440 JMP L5235 / @@5232=5235 TAD C5252 / @@5233=1252 JMP L5243 / @@5234=5243 L5235, TAD C5375 / @@5235=1375 SZA / @@5236=7440 JMP L5242 / @@5237=5242 TAD C5253 / @@5240=1253 JMP L5243 / @@5241=5243 L5242, TAD C5254 / @@5242=1254 L5243, TLS / Load the TTO from the content of AC4 @@5243=6046 L5244, TSF / Skip if teleprinter flag is a 1. @@5244=6041 JMP L5244 / @@5245=5244 CLA / @@5246=7200 TCF / Clear teleprinter flag. @@5247=6042 JMP I S5217 / return @@5250=5617 C5251, 0340 / AND C5340 C5252, 0212 / AND C5212 C5253, 0215 / AND C5215 C5254, 0245 / AND C5245 C5255, 0077 / AND D0077 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5256 / / Called from: / 2036 2052 2151 2465 2520 4154 7231 7536 7563 7564 7565 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S5256, 0 / return area CLA CLL / AC = 0000 @@5257=7300 TAD D0117 / @@5260=1117 DCA D5300 / @@5261=3300 L5262, TAD C5301 / @@5262=1301 DCA D5302 / @@5263=3302 L5264, ISZ D5302 / @@5264=2302 JMP L5264 / @@5265=5264 D5266, 7200 / CLA D5267, 7200 / CLA CLA / @@5270=7200 CLA / @@5271=7200 ISZ D5300 / @@5272=2300 SKP CLA / @@5273=7610 JMP I S5256 / return @@5274=5656 AND I S5256 / @@5275=0656 AND I S5256 / @@5276=0656 JMP L5262 / @@5277=5262 D5300, 0000 / AND L0000 C5301, 7754 / SPA SNA CLA OSR D5302, 0000 / AND L0000 L5303, JMS S0052 / @@5303=4052 JMS I L0032 / long call to S4600 @@5304=4432 L5305, JMS I C0031 / long call to S4400 @@5305=4431 TAD C0101 / @@5306=1101 TAD D0067 / @@5307=1067 JMS I D0024 / long call to S4025 @@5310=4424 CLA / @@5311=7200 JMS I C0027 / long call to S4044 @@5312=4427 TAD C0074 / @@5313=1074 SNA CLA / @@5314=7650 HLT / @@5315=7402 JMS I D0020 / long call to S4000 @@5316=4420 JMP L5305 / @@5317=5305 L5320, JMS S0052 / @@5320=4052 D5321, 4432 / JMS I L0032 L5322, JMS I C0033 / long call to S4423 @@5322=4433 TAD C0101 / @@5323=1101 TAD D0067 / @@5324=1067 JMS I D0024 / long call to S4025 @@5325=4424 CLA / @@5326=7200 C5327, 4427 / JMS I C0027 TAD C0074 / @@5330=1074 SNA CLA / @@5331=7650 HLT / @@5332=7402 JMS I D0020 / long call to S4000 @@5333=4420 JMP L5322 / @@5334=5322 *5375 C5375, 7776 / SPA SNA SZL CLA OSR HLT C5376, 7775 / CLA MQA SCA MQL ASR + C5377, 7740 / SMA SZA CLA L5400, D5400, 7402 / HLT JMS S5532 / @@5401=4332 JMS S0052 / @@5402=4052 D5403, 4432 / JMS I L0032 D5404, 4431 / JMS I C0031 L5405, TAD C0101 / @@5405=1101 TAD D0067 / @@5406=1067 JMS I D0024 / long call to S4025 @@5407=4424 CLA / @@5410=7200 JMS I C0027 / long call to S4044 @@5411=4427 TAD C0074 / @@5412=1074 SNA CLA / @@5413=7650 HLT / @@5414=7402 JMS I D0020 / long call to S4000 @@5415=4420 TAD D5421 / @@5416=1221 JMS I C0037 / long call to S4302 @@5417=4437 D5420, 5205 / JMP L5405 D5421, 0000 / AND L0000 L5422, JMS S0052 / @@5422=4052 D5423, 4432 / JMS I L0032 D5424, 5236 / JMP L5436 L5425, TAD C0101 / @@5425=1101 TAD D0067 / @@5426=1067 JMS I D0024 / long call to S4025 @@5427=4424 CLA / @@5430=7200 JMS I C0027 / long call to S4044 @@5431=4427 TAD C0074 / @@5432=1074 SNA CLA / @@5433=7650 HLT / @@5434=7402 JMS I D0020 / long call to S4000 @@5435=4420 L5436, TAD D5421 / @@5436=1221 JMS I C0036 / long call to S4200 @@5437=4436 JMS I C5577 / long call to S3470 @@5440=4777 JMP L5425 / @@5441=5225 L5442, JMS S0052 / @@5442=4052 TAD C0101 / @@5443=1101 TAD D0067 / @@5444=1067 TAD C0062 / @@5445=1062 JMS I D0024 / long call to S4025 @@5446=4424 JMS I C0026 / long call to S4037 @@5447=4426 CLA / @@5450=7200 JMS I C0040 / long call to S4072 @@5451=4440 JMS I D0020 / long call to S4000 @@5452=4420 L5453, JMS I C0035 / long call to S4665 @@5453=4435 TAD C0101 / @@5454=1101 TAD D0067 / @@5455=1067 JMS I D0024 / long call to S4025 @@5456=4424 CLA / @@5457=7200 JMS I C0027 / long call to S4044 @@5460=4427 TAD C0074 / @@5461=1074 SNA CLA / @@5462=7650 HLT / @@5463=7402 JMS I D0020 / long call to S4000 @@5464=4420 JMP L5453 / @@5465=5253 L5466, HLT / @@5466=7402 JMS S5532 / @@5467=4332 JMS S0052 / @@5470=4052 JMS I L0032 / long call to S4600 @@5471=4432 L5472, JMS I C0031 / long call to S4400 @@5472=4431 TAD C0101 / @@5473=1101 TAD D0067 / @@5474=1067 JMS I D0024 / long call to S4025 @@5475=4424 CLA / @@5476=7200 JMS I C0027 / long call to S4044 @@5477=4427 TAD C0074 / @@5500=1074 SNA CLA / @@5501=7650 HLT / @@5502=7402 JMS I D0020 / long call to S4000 @@5503=4420 TAD D5421 / @@5504=1221 JMS I C0037 / long call to S4302 @@5505=4437 JMP L5472 / @@5506=5272 L5507, D5507, 4052 / JMS S0052 D5510, 4432 / JMS I L0032 D5511, 5323 / JMP L5523 L5512, TAD C0101 / @@5512=1101 TAD D0067 / @@5513=1067 JMS I D0024 / long call to S4025 @@5514=4424 CLA / @@5515=7200 JMS I C0027 / long call to S4044 @@5516=4427 TAD C0074 / @@5517=1074 SNA CLA / @@5520=7650 HLT / @@5521=7402 JMS I D0020 / long call to S4000 @@5522=4420 L5523, TAD D5421 / @@5523=1221 JMS I C0036 / long call to S4200 @@5524=4436 JMS I C5577 / long call to S3470 @@5525=4777 IAC / @@5526=7001 DCA D0130 / @@5527=3130 JMS I C0036 / long call to S4200 @@5530=4436 JMP L5512 / @@5531=5312 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5532 / / Called from: / 5401 5467 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S5532, 0 / return area D5533, 7604 / LAS AND C5576 / @@5534=0376 SNA / @@5535=7450 IAC / @@5536=7001 DCA D5421 / @@5537=3221 TAD D5421 / @@5540=1221 C5541, 1375 / TAD C5575 SPA SNA CLA / @@5542=7750 JMP L5546 / @@5543=5346 TAD C5574 / @@5544=1374 DCA D5421 / @@5545=3221 L5546, TAD D5421 / @@5546=1221 CIA / @@5547=7041 DCA D5421 / @@5550=3221 HLT / @@5551=7402 LAS / @@5552=7604 AND C5576 / @@5553=0376 DCA S0132 / @@5554=3132 JMS I C5573 / long call to S3741 @@5555=4773 JMP I S5532 / return @@5556=5732 *5573 C5573, C5573, 3741 / DCA I C5541 C5574, 0176 / AND C0176 C5575, 7602 / CLA HLT C5576, 0377 / AND C5577 C5577, C5577, 3470 / DCA I D0070 L5600, C5600, 4052 / JMS S0052 C5601, 1101 / TAD C0101 TAD D0067 / @@5602=1067 D5603, 1060 / TAD C0060 JMS I D0024 / long call to S4025 @@5604=4424 JMS I C0026 / long call to S4037 @@5605=4426 CLA / @@5606=7200 JMS I C0040 / long call to S4072 @@5607=4440 JMS I D0020 / long call to S4000 @@5610=4420 L5611, JMS I C0034 / long call to S4436 @@5611=4434 TAD C0101 / @@5612=1101 TAD D0067 / @@5613=1067 JMS I D0024 / long call to S4025 @@5614=4424 C5615, 7200 / CLA JMS I C0027 / long call to S4044 @@5616=4427 D5617, 1074 / TAD C0074 SNA CLA / @@5620=7650 HLT / @@5621=7402 D5622, 4420 / JMS I D0020 JMP L5611 / @@5623=5211 C5624, 0000 / AND L0000 JMS I C5777 / long call to S5022 @@5625=4777 JMP L5671 / @@5626=5271 JMS I C5776 / long call to S6131 @@5627=4776 CMA / @@5630=7040 TAD C5624 / @@5631=1224 JMS I C0114 / long call to S5102 @@5632=4514 JMS I C0115 / long call to S5200 @@5633=4515 JMS D0003 / @@5634=4003 ISZ D5603 / @@5635=2203 JMS S0005 / @@5636=4005 ISZ D5622 / @@5637=2222 TAD I C5722 / @@5640=1722 C5641, 4543 / JMS I C0143 AND I C5717 / @@5642=0717 TAD I C5704 / @@5643=1704 JMS L0000 / @@5644=4000 TAD I C5775 / @@5645=1775 JMS I C0114 / long call to S5102 @@5646=4514 JMS I C0115 / long call to S5200 @@5647=4515 JMS L0000 / @@5650=4000 TAD I C5774 / @@5651=1774 JMS I C0114 / long call to S5102 @@5652=4514 JMS I C0115 / long call to S5200 @@5653=4515 C5654, 4543 / JMS I C0143 AND C5601 / @@5655=0201 AND I C0040 / @@5656=0440 JMS L0000 / @@5657=4000 TAD I C5773 / @@5660=1773 JMS I C0114 / long call to S5102 @@5661=4514 JMS I C0115 / long call to S5200 @@5662=4515 JMS L0000 / @@5663=4000 TAD I C5772 / @@5664=1772 JMS I C0114 / long call to S5102 @@5665=4514 JMS I C0115 / long call to S5200 @@5666=4515 C5667, 4543 / JMS I C0143 AND L0000 / @@5670=0000 L5671, JMS I C5771 / long call to S5032 @@5671=4771 HLT / @@5672=7402 JMS I C0120 / long call to S4063 @@5673=4520 JMP I C5770 / long jump to L3553 @@5674=5770 C5675, C5675, 7200 / CLA TAD C5767 / @@5676=1367 DCA AI3 / AUTO INDEX REGISTER @@5677=3013 TAD C5766 / @@5700=1366 DCA I C5765 / @@5701=3765 L5702, TAD D5715 / @@5702=1315 CLL RAL / @@5703=7104 C5704, 7430 / SZL TAD C5764 / @@5705=1364 DCA D5715 / @@5706=3315 TAD D5715 / @@5707=1315 AND C0104 / @@5710=0104 DCA I AI3 / AUTO INDEX REGISTER @@5711=3413 ISZ I C5765 / @@5712=2765 JMP L5702 / @@5713=5302 JMP I C5675 / long jump to L7200 @@5714=5675 D5715, 0000 / AND L0000 L5716, JMS I C0115 / long call to S5200 @@5716=4515 C5717, 4543 / JMS I C0143 ISZ D5724 / @@5720=2324 AND D0124 / @@5721=0124 C5722, 1103 / TAD C0103 C5723, 4024 / JMS D0024 D5724, 0523 / AND I C0123 ISZ I C0045 / @@5725=2445 C5726, 4300 / JMS C5700 TAD C5763 / @@5727=1363 DCA I C5762 / @@5730=3762 HLT / @@5731=7402 LAS / @@5732=7604 DCA D0067 / @@5733=3067 HLT / @@5734=7402 JMP I C5761 / long jump to L0215 @@5735=5761 L5736, JMS I C0115 / long call to S5200 @@5736=4515 C5737, 4543 / JMS I C0143 AND C5717 / @@5740=0317 TAD I C5624 / @@5741=1624 ISZ D5617 / @@5742=2217 TAD I C0040 / @@5743=1440 ISZ I S0005 / @@5744=2405 ISZ D5724 / @@5745=2324 C5746, 4543 / JMS I C0143 AND L0000 / @@5747=0000 TAD C5763 / @@5750=1363 DCA I C5762 / @@5751=3762 HLT / @@5752=7402 LAS / @@5753=7604 DCA D0067 / @@5754=3067 HLT / @@5755=7402 JMP I C5760 / long jump to L1000 @@5756=5760 *5760 C5760, C5760, 1000 / TAD L0000 C5761, C5761, 0215 / AND C5615 C5762, 6751 / 6751 C5763, 7716 / SPA CLA OSR HLT C5764, 0003 / AND D0003 C5765, 4547 / JMS I C0147 C5766, 7600 / 7600 C5767, 6777 / 6777 C5770, C5770, 3553 / DCA I C0153 C5771, C5771, 5032 / JMP L0032 C5772, 3740 / DCA I C5740 C5773, 3737 / DCA I C5737 C5774, 3735 / DCA I C5735 C5775, 3734 / DCA I C5734 C5776, C5776, 6131 / 6131 C5777, C5777, 5022 / JMP L0022 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6000 / / Called from: / 4750 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S6000, 0 / return area JMS S6131 / @@6001=4331 CMA / @@6002=7040 TAD I C6177 / @@6003=1777 JMS I C0114 / long call to S5102 @@6004=4514 JMS I C0115 / long call to S5200 @@6005=4515 C6006, 4543 / JMS I C0143 C6007, 1417 / TAD I AI7 AND C0104 / @@6010=0104 C6011, 0140 / AND C0140 AND L0000 / @@6012=0000 TAD D0065 / @@6013=1065 JMS I C0114 / long call to S5102 @@6014=4514 JMS I C0115 / long call to S5200 @@6015=4515 JMS S0005 / @@6016=4005 DCA D0020 / @@6017=3020 C6020, 0140 / AND C0140 C6021, 0000 / AND L0000 TAD D0065 / @@6022=1065 C6023, 7040 / CMA AND C0104 / @@6024=0104 JMS I C0114 / long call to S5102 @@6025=4514 JMS I C0115 / long call to S5200 @@6026=4515 C6027, 4022 / JMS L0022 AND I C0103 / @@6030=0503 C6031, 0140 / AND C0140 AND L0000 / @@6032=0000 TAD L0066 / @@6033=1066 JMS I C0114 / long call to S5102 @@6034=4514 JMS I C0115 / long call to S5200 @@6035=4515 C6036, 4543 / JMS I C0143 AND L0000 / @@6037=0000 C6040, 5600 / JMP I S6000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6041 / / Called from: / 5014 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S6041, 0 / return area JMS S6131 / @@6042=4331 CMA / @@6043=7040 TAD I C6176 / @@6044=1776 JMS I C0114 / long call to S5102 @@6045=4514 TAD D0051 / @@6046=1051 SNA CLA / @@6047=7650 JMP L6055 / @@6050=5255 JMS I C0115 / long call to S5200 @@6051=4515 JMP I C6100 / long jump to L0240 @@6052=5700 TAD D0051 / @@6053=1051 JMS I C0114 / long call to S5102 @@6054=4514 L6055, JMS I C0115 / long call to S5200 @@6055=4515 C6056, 4543 / JMS I C0143 AND C0123 / @@6057=0123 ISZ I L0001 / @@6060=2401 ISZ I C0040 / @@6061=2440 AND L0000 / @@6062=0000 TAD D0065 / @@6063=1065 JMS I C0114 / long call to S5102 @@6064=4514 JMS I C0115 / long call to S5200 @@6065=4515 JMS S0005 / @@6066=4005 DCA D0020 / @@6067=3020 AND C6040 / @@6070=0240 AND L0000 / @@6071=0000 TAD D0076 / @@6072=1076 CIA / @@6073=7041 JMS I C0114 / long call to S5102 @@6074=4514 JMS I C0115 / long call to S5200 @@6075=4515 C6076, 4022 / JMS L0022 AND I C0103 / @@6077=0503 C6100, C6100, 0240 / AND C6040 AND L0000 / @@6101=0000 TAD D0077 / @@6102=1077 JMS I C0114 / long call to S5102 @@6103=4514 JMS I C0115 / long call to S5200 @@6104=4515 D6105, 4543 / JMS I C0143 AND L0000 / @@6106=0000 JMP I S6041 / return @@6107=5641 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6110 / / Called from: / 0430 0471 0536 1041 2044 2060 2204 2221 2326 2431 2550 3230 3253 3271 4474 / 4637 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S6110, 0 / return area JMS I C6175 / long call to S5022 @@6111=4775 JMP L6125 / @@6112=5325 JMS S6131 / @@6113=4331 CMA / @@6114=7040 TAD S6110 / @@6115=1310 JMS I C0114 / long call to S5102 @@6116=4514 JMS I C0115 / long call to S5200 @@6117=4515 JMS AI3 / AUTO INDEX REGISTER @@6120=4013 ISZ D6105 / @@6121=2305 TAD I C6040 / @@6122=1640 AND L0000 / @@6123=0000 JMS I C6174 / long call to S5066 @@6124=4774 L6125, JMS I C6173 / long call to S5032 @@6125=4773 HLT / @@6126=7402 JMS I C0120 / long call to S4063 @@6127=4520 JMP I S6110 / return @@6130=5710 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6131 / / Called from: / 5627 6001 6042 6113 6203 6224 6245 6266 6307 6403 6502 6526 6651 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S6131, 0 / return area JMS I C0115 / long call to S5200 @@6132=4515 C6133, 4543 / JMS I C0143 ISZ D0003 / @@6134=2003 SMA / @@6135=7500 JMP I S6131 / return @@6136=5731 L6137, LAS / @@6137=7604 RTR / @@6140=7012 SPA CLA / @@6141=7710 JMP L6150 / @@6142=5350 TAD D0067 / @@6143=1067 SZA CLA / @@6144=7640 SKP / @@6145=7410 TAD C0100 / @@6146=1100 DCA D0067 / @@6147=3067 L6150, ISZ D0113 / @@6150=2113 D6151, 5772 / JMP I C6172 TAD C6155 / @@6152=1355 JMS I C6171 / long call to S6733 @@6153=4771 JMP I C6170 / long jump to L0221 @@6154=5770 C6155, 0323 / AND C6123 *6170 C6170, C6170, 0221 / AND C6021 C6171, C6171, 6733 / 6733 C6172, C6172, 0223 / AND C6023 C6173, C6173, 5032 / JMP L0032 C6174, C6174, 5066 / JMP L0066 C6175, C6175, 5022 / JMP L0022 C6176, 5000 / JMP L0000 C6177, 4731 / JMS I S6131 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6200 / / Called from: / 1055 2062 2104 2237 2427 2552 3224 4472 4633 4710 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S6200, 0 / return area JMS I C6377 / long call to S5022 @@6201=4777 JMP L6215 / @@6202=5215 JMS I C6376 / long call to S6131 @@6203=4776 CMA / @@6204=7040 TAD S6200 / @@6205=1200 JMS I C0114 / long call to S5102 @@6206=4514 JMS I C0115 / long call to S5200 @@6207=4515 JMS AI3 / AUTO INDEX REGISTER @@6210=4013 ISZ D6302 / @@6211=2302 AND I D6240 / @@6212=0640 AND L0000 / @@6213=0000 JMS I C6375 / long call to S5066 @@6214=4775 L6215, JMS I C6374 / long call to S5032 @@6215=4774 HLT / @@6216=7402 JMS I C0120 / long call to S4063 @@6217=4520 JMP I S6200 / return @@6220=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6221 / / Called from: / 2023 2042 2056 2136 2157 2223 2270 2313 2404 4250 4330 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S6221, 0 / return area JMS I C6377 / long call to S5022 @@6222=4777 JMP L6236 / @@6223=5236 JMS I C6376 / long call to S6131 @@6224=4776 CMA / @@6225=7040 TAD S6221 / @@6226=1221 JMS I C0114 / long call to S5102 @@6227=4514 JMS I C0115 / long call to S5200 @@6230=4515 JMS AI3 / AUTO INDEX REGISTER @@6231=4013 ISZ S6304 / @@6232=2304 ISZ D6240 / @@6233=2240 AND L0000 / @@6234=0000 JMS I C6375 / long call to S5066 @@6235=4775 L6236, JMS I C6374 / long call to S5032 @@6236=4774 HLT / @@6237=7402 D6240, 4520 / JMS I C0120 JMP I S6221 / return @@6241=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6242 / / Called from: / 0437 0506 0553 1060 2102 2546 3226 3255 3273 4635 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S6242, 0 / return area JMS I C6377 / long call to S5022 @@6243=4777 JMP L6257 / @@6244=5257 JMS I C6376 / long call to S6131 @@6245=4776 CMA / @@6246=7040 TAD S6242 / @@6247=1242 JMS I C0114 / long call to S5102 @@6250=4514 JMS I C0115 / long call to S5200 @@6251=4515 JMS AI3 / AUTO INDEX REGISTER @@6252=4013 ISZ D6301 / @@6253=2301 AND I D6240 / @@6254=0640 AND L0000 / @@6255=0000 JMS I C6375 / long call to S5066 @@6256=4775 L6257, JMS I C6374 / long call to S5032 @@6257=4774 HLT / @@6260=7402 JMS I C0120 / long call to S4063 @@6261=4520 JMP I S6242 / return @@6262=5642 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6263 / / Called from: / 0312 1046 1102 2026 2100 2144 2242 2276 2407 2524 3312 4253 4333 4713 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S6263, 0 / return area JMS I C6377 / long call to S5022 @@6264=4777 JMP L6300 / @@6265=5300 JMS I C6376 / long call to S6131 @@6266=4776 CMA / @@6267=7040 TAD S6263 / @@6270=1263 JMS I C0114 / long call to S5102 @@6271=4514 JMS I C0115 / long call to S5200 @@6272=4515 JMS AI3 / AUTO INDEX REGISTER @@6273=4013 ISZ D6305 / @@6274=2305 TAD I D6240 / @@6275=1640 AND L0000 / @@6276=0000 JMS I C6373 / long call to S5056 @@6277=4773 L6300, JMS I C6374 / long call to S5032 @@6300=4774 D6301, 7402 / HLT D6302, 4520 / JMS I C0120 JMP I S6263 / return @@6303=5663 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6304 / / Called from: / 0316 0434 0500 0545 1106 2031 2047 2141 2202 2273 2412 2535 3263 4256 4336 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S6304, 0 / return area D6305, 4777 / JMS I C6377 JMP L6321 / @@6306=5321 JMS I C6376 / long call to S6131 @@6307=4776 CMA / @@6310=7040 TAD S6304 / @@6311=1304 JMS I C0114 / long call to S5102 @@6312=4514 JMS I C0115 / long call to S5200 @@6313=4515 JMS AI3 / AUTO INDEX REGISTER @@6314=4013 ISZ D6302 / @@6315=2302 AND I D6240 / @@6316=0640 AND L0000 / @@6317=0000 JMS I C6373 / long call to S5056 @@6320=4773 L6321, JMS I C6374 / long call to S5032 @@6321=4774 C6322, 7402 / HLT JMS I C0120 / long call to S4063 @@6323=4520 D6324, 5704 / JMP I S6304 L6325, JMS I C0115 / long call to S5200 @@6325=4515 C6326, 4543 / JMS I C0143 AND I L0001 / @@6327=0401 ISZ I L0001 / @@6330=2401 C6331, 4024 / JMS D0024 AND I C0123 / @@6332=0523 ISZ I C0045 / @@6333=2445 C6334, 4300 / JMS L6300 TAD C6372 / @@6335=1372 DCA I C6371 / @@6336=3771 HLT / @@6337=7402 LAS / @@6340=7604 DCA D0067 / @@6341=3067 HLT / @@6342=7402 JMP I C6370 / long jump to L3000 @@6343=5770 L6344, JMS I C0115 / long call to S5200 @@6344=4515 C6345, 4543 / JMS I C0143 ISZ I C6322 / @@6346=2722 TAD D0124 / @@6347=1124 C6350, 0540 / AND I C0140 ISZ L0022 / @@6351=2022 TAD I D6324 / @@6352=1724 AND I C0103 / @@6353=0503 ISZ I C0040 / @@6354=2440 ISZ I S0005 / @@6355=2405 ISZ D6324 / @@6356=2324 C6357, 4543 / JMS I C0143 AND L0000 / @@6360=0000 HLT / @@6361=7402 LAS / @@6362=7604 DCA D0067 / @@6363=3067 HLT / @@6364=7402 JMP I C6367 / long jump to L3124 @@6365=5767 *6367 C6367, C6367, 3124 / DCA D0124 C6370, C6370, 3000 / DCA L0000 C6371, 6751 / 6751 C6372, 7716 / SPA CLA OSR HLT C6373, C6373, 5056 / JMP L0056 C6374, C6374, 5032 / JMP L0032 C6375, C6375, 5066 / JMP L0066 C6376, C6376, 6131 / 6131 C6377, C6377, 5022 / JMP L0022 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6400 / / Called from: / 0306 0425 0463 0530 1052 1076 2075 2211 2245 2324 2420 2434 2445 2532 2555 / 3233 3260 3276 4477 4642 4716 / Total 0025 (21) calls //////////////////////////////////////////////////////////////////////////////// S6400, 0 / return area JMS I C6577 / long call to S5022 @@6401=4777 JMP L6415 / @@6402=5215 JMS I C6576 / long call to S6131 @@6403=4776 CMA / @@6404=7040 TAD S6400 / @@6405=1200 JMS I C0114 / long call to S5102 @@6406=4514 JMS I C0115 / long call to S5200 @@6407=4515 JMS AI3 / AUTO INDEX REGISTER @@6410=4013 ISZ D6504 / @@6411=2304 ISZ D6440 / @@6412=2240 AND L0000 / @@6413=0000 JMS I C6575 / long call to S5056 @@6414=4775 L6415, JMS I C6574 / long call to S5032 @@6415=4774 HLT / @@6416=7402 D6417, 4520 / JMS I C0120 JMP I S6400 / return @@6420=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6421 / / Called from: / 1112 1132 2527 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S6421, 0 / return area JMS I C6577 / long call to S5022 @@6422=4777 JMP L6436 / @@6423=5236 C6424, 4776 / JMS I C6576 D6425, 7040 / CMA TAD S6421 / @@6426=1221 JMS I C0114 / long call to S5102 @@6427=4514 JMS I C0115 / long call to S5200 @@6430=4515 JMS AI3 / AUTO INDEX REGISTER @@6431=4013 ISZ D6501 / @@6432=2301 AND I D6440 / @@6433=0640 AND L0000 / @@6434=0000 JMS I C6575 / long call to S5056 @@6435=4775 L6436, JMS I C6574 / long call to S5032 @@6436=4774 HLT / @@6437=7402 D6440, 4520 / JMS I C0120 JMP I S6421 / return @@6441=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6442 / / Called from: / 0660 0766 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S6442, 0 / return area JMS I C6577 / long call to S5022 @@6443=4777 JMP L6473 / @@6444=5273 D6445, 4776 / JMS I C6576 CMA / @@6446=7040 TAD S6442 / @@6447=1242 JMS I C0114 / long call to S5102 @@6450=4514 JMS I C0115 / long call to S5200 @@6451=4515 JMS D0004 / @@6452=4004 AND D0124 / @@6453=0124 C6454, 0140 / AND C0140 AND I C0122 / @@6455=0522 ISZ D6417 / @@6456=2217 ISZ D6445 / @@6457=2245 C6460, 4300 / JMS C6500 TAD D0111 / @@6461=1111 JMS I C0114 / long call to S5102 @@6462=4514 JMS I C0115 / long call to S5200 @@6463=4515 C6464, 4040 / JMS C0040 AND L0000 / @@6465=0000 TAD D0112 / @@6466=1112 JMS I C0114 / long call to S5102 @@6467=4514 JMS I C0115 / long call to S5200 @@6470=4515 C6471, 4543 / JMS I C0143 AND L0000 / @@6472=0000 L6473, JMS I C6574 / long call to S5032 @@6473=4774 HLT / @@6474=7402 JMS I C0120 / long call to S4063 @@6475=4520 JMP I S6442 / return @@6476=5642 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6477 / / Called from: / 0467 0475 0504 0512 1116 4517 4663 4727 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S6477, 0 / return area JMS I C6577 / long call to S5022 @@6500=4777 D6501, 5317 / JMP C6517 JMS I C6576 / long call to S6131 @@6502=4776 CMA / @@6503=7040 D6504, 1277 / TAD S6477 JMS I C0114 / long call to S5102 @@6505=4514 JMS I C0115 / long call to S5200 @@6506=4515 JMS AI1 / AUTO INDEX REGISTER @@6507=4011 TAD I C6424 / @@6510=1624 AND I C0122 / @@6511=0522 ISZ D6425 / @@6512=2225 ISZ D0024 / @@6513=2024 AND I C0104 / @@6514=0504 C6515, 4543 / JMS I C0143 AND L0000 / @@6516=0000 JMS I C6574 / long call to S5032 @@6517=4774 HLT / @@6520=7402 JMS I C0120 / long call to S4063 @@6521=4520 JMP I S6477 / return @@6522=5677 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6523 / / Called from: / 0534 0542 0551 0557 1067 2065 2226 2331 2437 4261 4341 4502 4645 4721 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S6523, 0 / return area JMS I C6577 / long call to S5022 @@6524=4777 JMP L6547 / @@6525=5347 JMS I C6576 / long call to S6131 @@6526=4776 CMA / @@6527=7040 TAD S6523 / @@6530=1323 JMS I C0114 / long call to S5102 @@6531=4514 JMS I C0115 / long call to S5200 @@6532=4515 C6533, 4006 / JMS C0006 AND D0111 / @@6534=0111 TAD I S0005 / @@6535=1405 AND I C0040 / @@6536=0440 C6537, 2417 / ISZ I AI7 JMS AI1 / AUTO INDEX REGISTER @@6540=4011 TAD I C6424 / @@6541=1624 AND I C0122 / @@6542=0522 ISZ D6425 / @@6543=2225 ISZ D0024 / @@6544=2024 C6545, 4543 / JMS I C0143 AND L0000 / @@6546=0000 L6547, JMS I C6574 / long call to S5032 @@6547=4774 HLT / @@6550=7402 JMS I C0120 / long call to S4063 @@6551=4520 JMP I S6523 / return @@6552=5723 *6574 C6574, C6574, 5032 / JMP L0032 C6575, C6575, 5056 / JMP L0056 C6576, C6576, 6131 / 6131 C6577, C6577, 5022 / JMP L0022 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6600 / / Called from: / 5020 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S6600, 0 / return area TAD D0051 / @@6601=1051 SNA CLA / @@6602=7650 JMP I S6600 / return @@6603=5600 TAD D0054 / @@6604=1054 SNA CLA / @@6605=7650 JMP I S6600 / return @@6606=5600 TAD D0065 / @@6607=1065 AND C6777 / @@6610=0377 SNA CLA / @@6611=7650 JMP L6625 / @@6612=5225 TAD D0065 / @@6613=1065 AND C6777 / @@6614=0377 TAD C6776 / @@6615=1376 SNA CLA / @@6616=7650 D6617, 5225 / JMP L6625 TAD D0065 / @@6620=1065 AND C6777 / @@6621=0377 TAD C6775 / @@6622=1375 SZA CLA / @@6623=7640 JMP I S6600 / return @@6624=5600 L6625, TAD D0065 / @@6625=1065 AND C6774 / @@6626=0374 SNA CLA / @@6627=7650 JMP I S6600 / return @@6630=5600 TAD D0076 / @@6631=1076 SZA CLA / @@6632=7640 JMP I S6600 / return @@6633=5600 TAD I C6773 / @@6634=1773 SNA CLA / @@6635=7650 JMP L6643 / @@6636=5243 JMS I D0020 / long call to S4000 @@6637=4420 DCA D0054 / @@6640=3054 DCA I C6773 / @@6641=3773 JMP I C6772 / long jump to L4352 @@6642=5772 L6643, JMS I D0020 / long call to S4000 @@6643=4420 DCA D0054 / @@6644=3054 D6645, 5771 / JMP I C6771 C6646, 0000 / AND L0000 JMS I C6770 / long call to S5022 @@6647=4770 JMP L6727 / @@6650=5327 JMS I C6767 / long call to S6131 @@6651=4767 CMA / @@6652=7040 TAD C6646 / @@6653=1246 JMS I C0114 / long call to S5102 @@6654=4514 JMS I C0115 / long call to S5200 @@6655=4515 JMS D0004 / @@6656=4004 AND D0124 / @@6657=0124 C6660, 0140 / AND C0140 AND I C0122 / @@6661=0522 ISZ D6617 / @@6662=2217 ISZ D6645 / @@6663=2245 C6664, 4307 / JMS C6707 TAD I C6717 / @@6665=1717 AND I C0040 / @@6666=0440 JMS S0002 / @@6667=4002 AND C0104 / @@6670=0104 C6671, 4543 / JMS I C0143 AND L0000 / @@6672=0000 L6673, JMS I C0115 / long call to S5200 @@6673=4515 C6674, 4543 / JMS I C0143 AND L0000 / @@6675=0000 TAD D0111 / @@6676=1111 JMS I C0114 / long call to S5102 @@6677=4514 JMS I C0115 / long call to S5200 @@6700=4515 C6701, 4040 / JMS C0040 AND L0000 / @@6702=0000 TAD D0112 / @@6703=1112 JMS I C0114 / long call to S5102 @@6704=4514 L6705, TAD I AI2 / AUTO INDEX REGISTER @@6705=1412 DCA D0112 / @@6706=3112 TAD I AI3 / AUTO INDEX REGISTER @@6707=1413 DCA D0111 / @@6710=3111 TAD D0111 / @@6711=1111 CIA / @@6712=7041 TAD D0112 / @@6713=1112 SNA CLA / @@6714=7650 JMP L6723 / @@6715=5323 JMS I C6770 / long call to S5022 @@6716=4770 C6717, 5327 / JMP L6727 ISZ I C6766 / @@6720=2766 JMP L6673 / @@6721=5273 JMP L6727 / @@6722=5327 L6723, JMS I C6770 / long call to S5022 @@6723=4770 JMP L6727 / @@6724=5327 ISZ I C6766 / @@6725=2766 JMP L6705 / @@6726=5305 L6727, JMS I C6765 / long call to S5032 @@6727=4765 HLT / @@6730=7402 JMS I C0120 / long call to S4063 @@6731=4520 JMP I C6764 / long jump to L3521 @@6732=5764 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S6733 / / Called from: / 2707 3107 6153 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S6733, 0 / return area TLS / Load the TTO from the content of AC4 @@6734=6046 L6735, TSF / Skip if teleprinter flag is a 1. @@6735=6041 JMP L6735 / @@6736=5335 CLA / @@6737=7200 TCF / Clear teleprinter flag. @@6740=6042 ISZ D6751 / @@6741=2351 JMP I S6733 / return @@6742=5733 TAD C6763 / @@6743=1363 DCA D6751 / @@6744=3351 JMS I C0115 / long call to S5200 @@6745=4515 C6746, 4543 / JMS I C0143 AND L0000 / @@6747=0000 JMP I S6733 / return @@6750=5733 D6751, 0000 / AND L0000 *6763 C6763, 7716 / SPA CLA OSR HLT C6764, C6764, 3521 / DCA I C0121 C6765, C6765, 5032 / JMP L0032 C6766, 4547 / JMS I C0147 C6767, C6767, 6131 / 6131 C6770, C6770, 5022 / JMP L0022 C6771, 4301 / JMS C6701 C6772, C6772, 4352 / JMS C6752 C6773, 4353 / JMS C6753 C6774, 0200 / AND S6600 C6775, 7760 / SMA SZA SNL CLA C6776, 7720 / SMA SNL CLA C6777, 0070 / AND D0070 JMP L7007 / @@7000=5207 JMP L7020 / @@7001=5220 JMP I C7177 / long jump to L5320 @@7002=5777 JMP I C7176 / long jump to L5600 @@7003=5776 JMP L7022 / @@7004=5222 JMP L7025 / @@7005=5225 JMP L7030 / @@7006=5230 L7007, TAD C7175 / @@7007=1375 JMS S7012 / @@7010=4212 JMP L7007 / @@7011=5207 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7012 / / Called from: / 7010 7026 7031 7034 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S7012, 0 / return area JMS I D0024 / long call to S4025 @@7013=4424 JMS I C0026 / long call to S4037 @@7014=4426 JMS I C0027 / long call to S4044 @@7015=4427 MQL / @@7016=7421 JMP I S7012 / return @@7017=5612 L7020, TAD C7174 / @@7020=1374 SKP / @@7021=7410 L7022, TAD C7173 / @@7022=1373 DCA I C7172 / @@7023=3772 JMP I C7171 / long jump to L5400 @@7024=5771 L7025, LAS / @@7025=7604 JMS S7012 / @@7026=4212 JMP L7025 / @@7027=5225 L7030, TAD C7175 / @@7030=1375 JMS S7012 / @@7031=4212 JMS S7037 / @@7032=4237 TAD C7170 / @@7033=1370 JMS S7012 / @@7034=4212 JMS S7037 / @@7035=4237 JMP L7030 / @@7036=5230 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7037 / / Called from: / 7032 7035 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7037, 0 / return area D7040, 1367 / TAD C7167 DCA D7051 / @@7041=3251 DCA D7052 / @@7042=3252 L7043, ISZ D7052 / @@7043=2252 JMP L7043 / @@7044=5243 ISZ D7051 / @@7045=2251 JMP L7043 / @@7046=5243 JMS I D0020 / long call to S4000 @@7047=4420 JMP I S7037 / return @@7050=5637 D7051, 0000 / AND L0000 D7052, 0000 / AND L0000 TAD C0006 / @@7053=1006 DCA L0001 / @@7054=3001 TAD C0007 / @@7055=1007 DCA S0002 / @@7056=3002 TAD C7166 / @@7057=1366 DCA AI0 / AUTO INDEX REGISTER @@7060=3010 TAD C7165 / @@7061=1365 DCA AI1 / AUTO INDEX REGISTER @@7062=3011 TAD C7164 / @@7063=1364 DCA S7012 / @@7064=3212 L7065, TAD I AI0 / AUTO INDEX REGISTER @@7065=1410 DCA I AI1 / AUTO INDEX REGISTER @@7066=3411 ISZ S7012 / @@7067=2212 JMP L7065 / @@7070=5265 TAD C7163 / @@7071=1363 DCA I C7162 / @@7072=3762 TAD C7163 / @@7073=1363 DCA I C7161 / @@7074=3761 TAD C7163 / @@7075=1363 DCA I C7160 / @@7076=3760 TAD C7157 / @@7077=1357 DCA I C7156 / @@7100=3756 TAD C7163 / @@7101=1363 DCA I C7155 / @@7102=3755 TAD C7163 / @@7103=1363 DCA I C7171 / @@7104=3771 TAD C7154 / @@7105=1354 DCA I C7153 / @@7106=3753 L7107, HLT / @@7107=7402 JMP L7107 / @@7110=5307 *7153 C7153, 5533 / JMP I D0133 C7154, 7201 / CLA IAC C7155, 5424 / JMP I D0024 C7156, 5423 / JMP I C0023 C7157, 7402 / HLT C7160, 5404 / JMP I D0004 C7161, 5403 / JMP I D0003 C7162, 5321 / JMP C7121 C7163, 7000 / NOP C7164, 7600 / 7600 C7165, 0777 / AND I C7177 C7166, 6777 / 6777 C7167, 7760 / SMA SZA SNL CLA C7170, 0250 / AND C7050 C7171, C7171, 5400 / JMP I L0000 C7172, 5420 / JMP I D0020 C7173, 5575 / JMP I C0175 C7174, 5576 / JMP I C0176 C7175, 0220 / AND L7020 C7176, C7176, 5600 / JMP I C7000 C7177, C7177, 5320 / JMP C7120 L7200, C7200, 5777 / JMP I C7377 JMP I C7376 / long jump to L5303 @@7201=5776 JMP I C7376 / long jump to L5303 @@7202=5776 JMP I C7375 / long jump to L5400 @@7203=5775 JMP I C7374 / long jump to L2000 @@7204=5774 JMP I C7373 / long jump to L5320 @@7205=5773 JMP I C7373 / long jump to L5320 @@7206=5773 JMP I C7372 / long jump to L5442 @@7207=5772 JMP I C7371 / long jump to L5600 @@7210=5771 JMP I C7370 / long jump to L5422 @@7211=5770 JMP I C7370 / long jump to L5422 @@7212=5770 JMP I C7367 / long jump to L7547 @@7213=5767 SKP CLA / @@7214=7610 TAD C0100 / @@7215=1100 DCA D0067 / @@7216=3067 JMP I C7366 / long jump to L2447 @@7217=5766 JMS S0052 / @@7220=4052 L7221, DCA D0134 / @@7221=3134 L7222, TAD D0134 / @@7222=1134 C7223, 1101 / TAD C0101 TAD D0067 / @@7224=1067 JMS I L0042 / long call to S4731 @@7225=4442 CLA CLL CMA RAL / AC = 7776 (-0002) @@7226=7344 DCA D0133 / @@7227=3133 L7230, DCA D0117 / @@7230=3117 JMS I C0116 / long call to S5256 @@7231=4516 ISZ D0133 / @@7232=2133 JMP L7230 / @@7233=5230 LAS / @@7234=7604 SPA CLA / @@7235=7710 JMP L7222 / @@7236=5222 TAD D0134 / @@7237=1134 TAD C7365 / @@7240=1365 AND C7364 / @@7241=0364 SZA / @@7242=7440 JMP L7221 / @@7243=5221 JMS I C0120 / long call to S4063 @@7244=4520 JMP I C7363 / long jump to L0223 @@7245=5763 TAD C0006 / @@7246=1006 DCA L0001 / @@7247=3001 TAD C0007 / @@7250=1007 DCA S0002 / @@7251=3002 TAD C7362 / @@7252=1362 DCA AI0 / AUTO INDEX REGISTER @@7253=3010 TAD C7361 / @@7254=1361 DCA AI1 / AUTO INDEX REGISTER @@7255=3011 TAD C7360 / @@7256=1360 DCA D0133 / @@7257=3133 L7260, TAD I AI0 / AUTO INDEX REGISTER @@7260=1410 DCA I AI1 / AUTO INDEX REGISTER @@7261=3411 ISZ D0133 / @@7262=2133 JMP L7260 / @@7263=5260 TAD C7357 / @@7264=1357 DCA I C7356 / @@7265=3756 TAD C7355 / @@7266=1355 DCA I C7354 / @@7267=3754 TAD C7353 / @@7270=1353 DCA I C7352 / @@7271=3752 TAD C7351 / @@7272=1351 DCA I C7350 / @@7273=3750 TAD C7347 / @@7274=1347 DCA I C7346 / @@7275=3746 TAD C7347 / @@7276=1347 DCA I C7345 / @@7277=3745 TAD C7344 / @@7300=1344 DCA I C7343 / @@7301=3743 TAD C7342 / @@7302=1342 L7303, DCA I C7341 / @@7303=3741 TAD C7340 / @@7304=1340 DCA I C7337 / @@7305=3737 TAD C7336 / @@7306=1336 DCA I C7335 / @@7307=3735 TAD C7334 / @@7310=1334 DCA I C7333 / @@7311=3733 TAD C7332 / @@7312=1332 DCA I C7331 / @@7313=3731 TAD C7330 / @@7314=1330 DCA I C7327 / @@7315=3727 TAD C0162 / @@7316=1162 DCA I C7326 / @@7317=3726 L7320, TAD C7325 / @@7320=1325 DCA I C7324 / @@7321=3724 L7322, HLT / @@7322=7402 JMP L7322 / @@7323=5322 C7324, 7574 / SPA SNA SZL OSR C7325, 5561 / JMP I C0161 C7326, 5267 / JMP C7267 C7327, 5266 / JMP C7266 C7330, 1563 / TAD I C0163 C7331, 6151 / 6151 C7332, 5564 / JMP I C0164 C7333, 5511 / JMP I D0111 C7334, 5565 / JMP I C0165 C7335, 5510 / JMP I C0110 C7336, 4566 / JMS I C0166 C7337, 5507 / JMP I D0107 C7340, 7402 / HLT C7341, 5424 / JMP I D0024 C7342, 5567 / JMP I C0167 C7343, 2106 / ISZ D0106 C7344, 5570 / JMP I C0170 C7345, 4416 / JMS I AI6 C7346, 4417 / JMS I AI7 C7347, 7000 / NOP C7350, 7545 / MQA SCA MUY + C7351, 5571 / JMP I C0171 C7352, 2475 / ISZ I C0075 C7353, 5572 / JMP I C0172 C7354, 4103 / JMS C0103 C7355, 4573 / JMS I C0173 C7356, 4073 / JMS C0073 C7357, 1174 / TAD C0174 C7360, 7600 / 7600 C7361, 1177 / TAD C0177 C7362, 7177 / CLL CMA CML IAC RTR RTL C7363, C7363, 0223 / AND C7223 C7364, 0070 / AND D0070 C7365, 0010 / AND AI0 C7366, C7366, 2447 / ISZ I C0047 C7367, C7367, 7547 / MQA SCA DVI + C7370, C7370, 5422 / JMP I L0022 C7371, C7371, 5600 / JMP I L7200 C7372, C7372, 5442 / JMP I L0042 C7373, C7373, 5320 / JMP L7320 C7374, C7374, 2000 / ISZ L0000 C7375, C7375, 5400 / JMP I L0000 C7376, C7376, 5303 / JMP L7303 C7377, C7377, 5716 / JMP I C7316 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7400 / / Called from: / 3137 3315 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7400, 0 / return area JMS I C0115 / long call to S5200 @@7401=4515 D7402, 4543 / JMS I C0143 ISZ D7505 / @@7403=2305 ISZ I C0040 / @@7404=2440 C7405, 2410 / ISZ I AI0 C7406, 0540 / AND I C0140 ISZ I C7522 / @@7407=2722 TAD D0124 / @@7410=1124 D7411, 0540 / AND I C0140 ISZ L0022 / @@7412=2022 TAD I C7524 / @@7413=1724 AND I C0103 / @@7414=0503 ISZ I C0040 / @@7415=2440 ISZ I L0001 / @@7416=2401 AND C7440 / @@7417=0240 TAD I C7516 / @@7420=1716 JMS D0004 / @@7421=4004 ISZ D7411 / @@7422=2211 ISZ I C7405 / @@7423=2605 JMS L0000 / @@7424=4000 TAD D0067 / @@7425=1067 SZA CLA / @@7426=7640 JMP L7432 / @@7427=5232 C7430, 1777 / TAD I C7577 SKP / @@7431=7410 L7432, TAD I C7576 / @@7432=1776 TLS / Load the TTO from the content of AC4 @@7433=6046 L7434, TSF / Skip if teleprinter flag is a 1. @@7434=6041 JMP L7434 / @@7435=5234 CLA / @@7436=7200 TCF / Clear teleprinter flag. @@7437=6042 C7440, 5600 / JMP I S7400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7441 / / Called from: / 3140 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7441, 0 / return area JMS I C0115 / long call to S5200 @@7442=4515 C7443, 4024 / JMS D0024 TAD I C7540 / @@7444=1740 C7445, 2722 / ISZ I C7522 TAD D0124 / @@7446=1124 C7447, 0540 / AND I C0140 ISZ L0022 / @@7450=2022 TAD I C7524 / @@7451=1724 AND I C0103 / @@7452=0503 ISZ I C0040 / @@7453=2440 C7454, 2017 / ISZ AI7 ISZ D7511 / @@7455=2311 ISZ I AI1 / AUTO INDEX REGISTER @@7456=2411 TAD I C7516 / @@7457=1716 C7460, 4543 / JMS I C0143 AND L0000 / @@7461=0000 JMP I S7441 / return @@7462=5641 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7463 / / Called from: / 3316 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7463, 0 / return area JMS I C0115 / long call to S5200 @@7464=4515 C7465, 4024 / JMS D0024 TAD I C7540 / @@7466=1740 ISZ I C7522 / @@7467=2722 TAD D0124 / @@7470=1124 C7471, 0540 / AND I C0140 AND I C0116 / @@7472=0516 AND L0102 / @@7473=0102 TAD I S0005 / @@7474=1405 C7475, 4020 / JMS D0020 TAD I C7523 / @@7476=1723 TAD D0124 / @@7477=1124 TAD D0117 / @@7500=1117 TAD I C7445 / @@7501=1645 C7502, 4300 / JMS C7500 JMP I S7463 / return @@7503=5663 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7504 / / Called from: / 3327 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7504, 0 / return area D7505, 4515 / JMS I C0115 C7506, 4543 / JMS I C0143 TAD I C7513 / @@7507=1713 AND L0000 / @@7510=0000 D7511, 5704 / JMP I S7504 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7512 / / Called from: / 2677 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7512, 0 / return area C7513, 4052 / JMS S0052 JMS I L0032 / long call to S4600 @@7514=4432 DCA D0051 / @@7515=3051 C7516, 7346 / CLA CLL CMA RTL DCA D0111 / @@7517=3111 TAD C0101 / @@7520=1101 TAD D0067 / @@7521=1067 C7522, 4442 / JMS I L0042 C7523, 4426 / JMS I C0026 C7524, 7200 / CLA JMS I D0020 / long call to S4000 @@7525=4420 L7526, TAD C0101 / @@7526=1101 TAD D0067 / @@7527=1067 JMS I L0042 / long call to S4731 @@7530=4442 JMS I C0026 / long call to S4037 @@7531=4426 CLA / @@7532=7200 JMS I C0041 / long call to S5000 @@7533=4441 TAD C7575 / @@7534=1375 DCA D0117 / @@7535=3117 JMS I C0116 / long call to S5256 @@7536=4516 TAD C0074 / @@7537=1074 C7540, 4441 / JMS I C0041 JMS I D0020 / long call to S4000 @@7541=4420 ISZ D0111 / @@7542=2111 JMP L7526 / @@7543=5326 JMS I C0120 / long call to S4063 @@7544=4520 D7545, 5712 / JMP I S7512 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7546 / / Called from: / 2700 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S7546, 0 / return area L7547, JMS S0052 / @@7547=4052 CLA CLL CMA RTL / AC = 7775 (-0003) @@7550=7346 DCA D0111 / @@7551=3111 L7552, JMS I L0032 / long call to S4600 @@7552=4432 JMS I C0031 / long call to S4400 @@7553=4431 DCA D0051 / @@7554=3051 TAD C0060 / @@7555=1060 TAD C0101 / @@7556=1101 TAD D0067 / @@7557=1067 JMS I L0042 / long call to S4731 @@7560=4442 DCA D0117 / @@7561=3117 JMS I C0026 / long call to S4037 @@7562=4426 JMS I C0116 / long call to S5256 @@7563=4516 JMS I C0116 / long call to S5256 @@7564=4516 JMS I C0116 / long call to S5256 @@7565=4516 TAD C0074 / @@7566=1074 JMS I C0041 / long call to S5000 @@7567=4441 JMS I D0020 / long call to S4000 @@7570=4420 ISZ D0111 / @@7571=2111 JMP L7552 / @@7572=5352 JMS I C0120 / long call to S4063 @@7573=4520 D7574, 5746 / JMP I S7546 C7575, 7242 / CLA CMA C7576, 3123 / DCA C0123 C7577, 3122 / DCA C0122 $