TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhkmc-c-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhkmc-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 / / 4656 locations used, 3477 code and 1157 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0303 / AND D0103 D0001, 5137 / JMP L0137 C0002, C0002, 5230 / JMP L0030 *0020 D0020, 0007 / AND C0007 C0021, 4000 / JMS L0000 D0022, 0000 / AND L0000 D0023, 0000 / AND L0000 D0024, 0000 / AND L0000 D0025, 0000 / AND L0000 D0026, 4000 / JMS L0000 C0027, 2000 / ISZ L0000 L0030, C0030, 1000 / TAD L0000 C0031, 0400 / AND I L0000 C0032, 0200 / AND L0000 C0033, 0100 / AND C0100 C0034, 0070 / AND C0070 C0035, 0007 / AND C0007 L0036, D0036, 0000 / AND L0000 D0037, 0000 / AND L0000 D0040, 0000 / AND L0000 D0041, 0000 / AND L0000 D0042, 0000 / AND L0000 D0043, 0000 / AND L0000 D0044, 0000 / AND L0000 D0045, 0000 / AND L0000 D0046, 0000 / AND L0000 D0047, 0000 / AND L0000 D0050, 0000 / AND L0000 D0051, 0000 / AND L0000 D0052, 0000 / AND L0000 D0053, 0000 / AND L0000 D0054, 0000 / AND L0000 D0055, 0000 / AND L0000 D0056, 0000 / AND L0000 D0057, 0000 / AND L0000 D0060, 0000 / AND L0000 L0061, D0061, 0000 / AND L0000 D0062, 0000 / AND L0000 D0063, 0000 / AND L0000 D0064, 0000 / AND L0000 D0065, 0000 / AND L0000 D0066, 0000 / AND L0000 D0067, 0000 / AND L0000 C0070, 0000 / AND L0000 D0071, 0000 / AND L0000 D0072, 0000 / AND L0000 D0073, 0000 / AND L0000 D0074, 0000 / AND L0000 D0075, 0000 / AND L0000 D0076, 0000 / AND L0000 D0077, 6570 / 6570 C0100, C0100, 0336 / AND D0136 C0101, C0101, 4665 / JMS I D0065 C0102, C0102, 4547 / JMS I C0147 D0103, 4523 / JMS I C0123 C0104, C0104, 0522 / AND I C0122 C0105, C0105, 0532 / AND I C0132 L0106, C0106, C0106, 0600 / AND I L0000 C0107, C0107, 0623 / AND I D0023 *0133 C0133, 6203 / 6203 C0134, 6000 / 6000 L0135, C0135, 7740 / SMA SZA CLA D0136, 7720 / SMA SNL CLA L0137, D0137, 0100 / AND C0100 C0140, 7660 / SZA SNL CLA C0141, 0200 / AND L0000 C0142, 7560 / SMA SZA SNL C0143, C0143, 0400 / AND I L0000 C0144, 7360 / CLA CLL CMA CML C0145, 4000 / JMS L0000 C0146, 4543 / JMS I C0143 C0147, 0240 / AND D0040 C0150, 0245 / AND D0045 C0151, 0215 / AND AI5 C0152, 7776 / SPA SNA SZL CLA OSR HLT C0153, 0212 / AND AI2 C0154, 7775 / CLA MQA SCA MQL ASR + C0155, 0340 / AND C0140 C0156, 7774 / SPA SNA SZL CLA OSR C0157, 0207 / AND C0007 C0160, 7744 / SMA SZA CLA OSR C0161, 6060 / 6060 C0162, 0707 / AND I C0107 C0163, 0077 / AND D0077 C0164, 0261 / AND L0061 C0165, 0262 / AND D0062 C0166, 0263 / AND D0063 C0167, 0264 / AND D0064 C0170, C0170, 0265 / AND D0065 C0171, 0266 / AND D0066 C0172, 0267 / AND D0067 C0173, 7777 / CLA MQA SCA MQL LSR + C0174, 0260 / AND D0060 C0175, 0020 / AND D0020 C0176, 0040 / AND D0040 C0177, 6201 / CDF0 L0200, JMP I C0377 / long jump to L5200 @@0200=5777 JMP I C0376 / long jump to L1405 @@0201=5776 JMP I C0375 / long jump to L1412 @@0202=5775 JMP I C0374 / long jump to L1417 @@0203=5774 JMP I C0373 / long jump to L1424 @@0204=5773 L0205, DCA D0075 / @@0205=3075 L0206, IOF / Disable Interrupts @@0206=6002 D0207, 4772 / JMS I C0372 TAD C0371 / @@0210=1371 DCA D0207 / @@0211=3207 RIF / Same as RDF except reads the instruc @@0212=6224 TAD C0177 / @@0213=1177 DCA D0215 / @@0214=3215 D0215, 6201 / CDF0 JMS I C0370 / long call to S4031 @@0216=4770 L0217, IOF / Disable Interrupts @@0217=6002 TAD C0367 / @@0220=1367 C0221, 6200 / 6200 D0222, 7200 / CLA C0223, 6230 / 6230 SPA CLA / @@0224=7710 CLA CLL CMA / AC = 7777 (-0001) @@0225=7340 DCA D0025 / @@0226=3025 JMS I C0366 / long call to S4000 @@0227=4766 D0230, 4765 / JMS I C0365 DCA L0036 / @@0231=3036 DCA D0037 / @@0232=3037 DCA D0040 / @@0233=3040 DCA D0044 / @@0234=3044 STA / AC = 7777 (-0001) @@0235=7240 DCA D0050 / @@0236=3050 DCA D0060 / @@0237=3060 TAD D0077 / @@0240=1077 DCA D0076 / @@0241=3076 STA / AC = 7777 (-0001) @@0242=7240 DCA D0055 / @@0243=3055 JMS I C0364 / long call to S2230 @@0244=4764 JMS I C0363 / long call to S5262 @@0245=4763 STA / AC = 7777 (-0001) @@0246=7240 TAD L0061 / @@0247=1061 DCA L0061 / @@0250=3061 JMS I C0362 / long call to S2065 @@0251=4762 TAD D0074 / @@0252=1074 CIA / @@0253=7041 DCA D0062 / @@0254=3062 TAD D0050 / @@0255=1050 SNA CLA / @@0256=7650 JMP L0273 / @@0257=5273 JMS I C0361 / long call to S2222 @@0260=4761 JMP L0313 / @@0261=5313 L0262, JMP L0302 / @@0262=5302 C0263, C0263, 0000 / AND L0000 IOF / Disable Interrupts @@0264=6002 L0265, CLA CLL / AC = 0000 @@0265=7300 RIF / Same as RDF except reads the instruc @@0266=6224 TAD C0177 / @@0267=1177 DCA D0271 / @@0270=3271 D0271, 6201 / CDF0 JMP I C0263 / long jump to L0000 @@0272=5663 L0273, RIF / Same as RDF except reads the instruc @@0273=6224 DCA D0051 / @@0274=3051 JMS I C0360 / long call to S4105 @@0275=4760 L0276, JMS I C0357 / long call to S0707 @@0276=4757 JMS I C0100 / long call to S0336 @@0277=4500 JMP L0217 / @@0300=5217 JMP L0276 / @@0301=5276 L0302, RIF / Same as RDF except reads the instruc @@0302=6224 DCA D0051 / @@0303=3051 JMS I C0360 / long call to S4105 @@0304=4760 L0305, JMS I C0357 / long call to S0707 @@0305=4757 JMS I C0100 / long call to S0336 @@0306=4500 C0307, 5217 / JMP L0217 JMS I C0361 / long call to S2222 @@0310=4761 JMP L0313 / @@0311=5313 JMP L0305 / @@0312=5305 L0313, RIF / Same as RDF except reads the instruc @@0313=6224 DCA D0051 / @@0314=3051 TAD D0040 / @@0315=1040 DCA D0044 / @@0316=3044 TAD D0041 / @@0317=1041 DCA D0045 / @@0320=3045 TAD D0042 / @@0321=1042 DCA D0046 / @@0322=3046 TAD D0043 / @@0323=1043 C0324, 3047 / DCA D0047 JMS I C0356 / long call to S4144 @@0325=4756 L0326, JMS I C0357 / long call to S0707 @@0326=4757 JMS I C0100 / long call to S0336 @@0327=4500 JMP L0217 / @@0330=5217 JMS I C0361 / long call to S2222 @@0331=4761 SKP / @@0332=7410 JMP L0302 / @@0333=5302 JMS I C0355 / long call to S0400 @@0334=4755 JMP L0326 / @@0335=5326 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0336 / / Called from: / 0277 0306 0327 0674 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0336, 0 / return area JMS I C0102 / long call to S4547 @@0337=4502 AND C0033 / @@0340=0033 SNA CLA / @@0341=7650 JMP L0345 / @@0342=5345 JMS I D0103 / long call to S4523 @@0343=4503 HLT / @@0344=7402 L0345, JMS I C0102 / long call to S4547 @@0345=4502 AND C0032 / @@0346=0032 SNA CLA / @@0347=7650 ISZ S0336 / @@0350=2336 JMP I S0336 / return @@0351=5736 *0355 C0355, C0355, 0400 / AND I L0000 C0356, C0356, 4144 / JMS C0144 C0357, C0357, 0707 / AND I C0307 C0360, C0360, 4105 / JMS C0105 C0361, C0361, 2222 / ISZ D0222 C0362, C0362, 2065 / ISZ D0065 C0363, C0363, 5262 / JMP L0262 C0364, C0364, 2230 / ISZ D0230 JMS L0061 / @@0365=4061 C0366, C0366, 4000 / JMS L0000 C0367, 7200 / CLA C0370, C0370, 4031 / JMS C0031 C0371, 7000 / NOP C0372, 4643 / JMS I C0243 C0373, C0373, 1424 / TAD I D0024 C0374, C0374, 1417 / TAD I AI7 C0375, C0375, 1412 / TAD I AI2 C0376, C0376, 1405 / TAD I C0005 C0377, C0377, 5200 / JMP L0200 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0400 / / Called from: / 0334 0703 1710 4012 4036 4066 4112 4151 4456 4507 5042 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S0400, 0 / return area TAD D0025 / @@0401=1025 SZA CLA / @@0402=7640 JMP L0434 / @@0403=5234 CLA / @@0404=7200 RIF / Same as RDF except reads the instruc @@0405=6224 DCA D0051 / @@0406=3051 TAD D0051 / @@0407=1051 CLL RTR / @@0410=7112 C0411, 7010 / RAR DCA I C0577 / @@0412=3777 L0413, D0413, 7240 / STA TAD I C0577 / @@0414=1777 AND C0035 / @@0415=0035 DCA I C0577 / @@0416=3777 TAD I C0577 / @@0417=1777 TAD C0576 / @@0420=1376 DCA D0056 / @@0421=3056 C0422, 1456 / TAD I D0056 DCA D0472 / @@0423=3272 JMS I D0472 / long call to S0000 @@0424=4672 JMP L0413 / @@0425=5213 TAD I C0577 / @@0426=1777 AND C0035 / @@0427=0035 CLL RTL / @@0430=7106 RAL / @@0431=7004 C0432, 5263 / JMP L0463 JMP L0413 / @@0433=5213 L0434, CLA / @@0434=7200 RIF / Same as RDF except reads the instruc @@0435=6224 DCA D0051 / @@0436=3051 TAD D0051 / @@0437=1051 JMS I L0106 / long call to S0600 @@0440=4506 DCA I C0577 / @@0441=3777 L0442, STA / AC = 7777 (-0001) @@0442=7240 TAD I C0577 / @@0443=1777 AND C0575 / @@0444=0375 DCA I C0577 / @@0445=3777 TAD I C0577 / @@0446=1777 AND C0035 / @@0447=0035 TAD C0576 / @@0450=1376 DCA D0056 / @@0451=3056 TAD I D0056 / @@0452=1456 DCA D0472 / @@0453=3272 JMS I D0472 / long call to S0000 @@0454=4672 JMP L0442 / @@0455=5242 TAD I C0577 / @@0456=1777 AND C0575 / @@0457=0375 JMS I C0107 / long call to S0623 @@0460=4507 JMP L0463 / @@0461=5263 JMP L0442 / @@0462=5242 L0463, DCA D0052 / @@0463=3052 JMS I C0574 / long call to S2213 @@0464=4774 JMP I S0400 / return @@0465=5600 JMS I C0573 / long call to S4200 @@0466=4773 RIF / Same as RDF except reads the instruc @@0467=6224 DCA D0051 / @@0470=3051 JMP I S0400 / return @@0471=5600 D0472, 0000 / AND L0000 DCA I C0133 / @@0473=3533 DCA I C0142 / @@0474=3542 DCA I C0152 / @@0475=3552 DCA I C0162 / @@0476=3562 DCA I S0400 / @@0477=3600 DCA I C0411 / @@0500=3611 DCA I C0422 / @@0501=3622 DCA I C0432 / @@0502=3632 D0503, 0000 / AND L0000 CLA / @@0504=7200 TAD L0036 / @@0505=1036 SNA / @@0506=7450 JMP I D0503 / long jump to L0000 @@0507=5703 ISZ D0503 / @@0510=2303 CLL RTL / @@0511=7106 SZL / @@0512=7430 JMP I D0503 / long jump to L0000 @@0513=5703 ISZ D0503 / @@0514=2303 SPA CLA / @@0515=7710 JMP I D0503 / long jump to L0000 @@0516=5703 NOP / @@0517=7000 L0520, HLT / @@0520=7402 JMP L0520 / @@0521=5320 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0522 / / Called from: / 3202 3222 3243 3277 3317 3337 3357 3412 3432 3441 3451 3461 3472 3503 3514 / 3524 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S0522, 0 / return area TAD I C0577 / @@0523=1777 CLL RTR / @@0524=7112 RAR / @@0525=7010 AND C0572 / @@0526=0372 TAD C0571 / @@0527=1371 DCA D0056 / @@0530=3056 JMP I S0522 / return @@0531=5722 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0532 / / Called from: / 3212 3232 3265 3307 3327 3347 3402 3422 3535 3544 3554 3564 3602 3613 3624 / 3634 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S0532, 0 / return area TAD I C0577 / @@0533=1777 CLL RTR / @@0534=7112 RAR / @@0535=7010 AND C0572 / @@0536=0372 TAD C0571 / @@0537=1371 DCA D0056 / @@0540=3056 JMP I S0532 / return @@0541=5732 *0571 C0571, 0040 / AND D0040 C0572, 0003 / AND C0003 C0573, C0573, 4200 / JMS S0400 C0574, C0574, 2213 / ISZ L0413 C0575, 0037 / AND D0037 C0576, 0473 / AND I D0073 C0577, 2746 / ISZ I C0546 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 0440 2035 2423 3031 3147 5071 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S0600, 0 / return area DCA D0641 / @@0601=3241 TAD D0641 / @@0602=1241 AND C0646 / @@0603=0246 DCA D0642 / @@0604=3242 TAD D0642 / @@0605=1242 BSW / @@0606=7002 CLL RTL / @@0607=7106 RAL / @@0610=7004 TAD D0642 / @@0611=1242 RAL / @@0612=7004 D0613, 0377 / AND C0777 DCA D0642 / @@0614=3242 TAD D0641 / @@0615=1241 AND C0776 / @@0616=0376 CLL RTR / @@0617=7112 RAR / @@0620=7010 TAD D0642 / @@0621=1242 JMP I S0600 / return @@0622=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0623 / / Called from: / 0460 0726 2103 2273 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S0623, 0 / return area DCA D0641 / @@0624=3241 TAD D0641 / @@0625=1241 CLL RTR / @@0626=7112 RAR / @@0627=7010 AND C0775 / @@0630=0375 TAD C0774 / @@0631=1374 DCA S0600 / @@0632=3200 TAD D0641 / @@0633=1241 AND C0773 / @@0634=0373 CLL RTL / @@0635=7106 RAL / @@0636=7004 TAD I S0600 / @@0637=1600 C0640, 5623 / JMP I S0623 D0641, 0000 / AND L0000 D0642, 0000 / AND L0000 AND L0000 / @@0643=0000 C0644, 0004 / AND C0004 AND C0100 / @@0645=0100 C0646, 0104 / AND C0104 STA / AC = 7777 (-0001) @@0647=7240 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0650 / / Called from: / 0732 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0650, 0 / return area JMS I C0002 / long call to S5230 @@0651=4402 CLA CLL / AC = 0000 @@0652=7300 DCA D0053 / @@0653=3053 TAD D0075 / @@0654=1075 RAR / @@0655=7010 C0656, 7630 / SZL CLA JMS I C0772 / long call to S1010 @@0657=4772 TAD D0075 / @@0660=1075 RTR / @@0661=7012 SZL CLA / @@0662=7630 JMS I C0771 / long call to S1056 @@0663=4771 TAD D0075 / @@0664=1075 RTL / @@0665=7006 SZL CLA / @@0666=7630 JMS I C0770 / long call to S1200 @@0667=4770 TAD D0075 / @@0670=1075 RAL / @@0671=7004 SZL CLA / @@0672=7630 JMS I C0767 / long call to S1256 @@0673=4767 JMS I C0100 / long call to S0336 @@0674=4500 NOP / @@0675=7000 ISZ D0076 / @@0676=2076 JMP I S0650 / return @@0677=5650 TAD D0077 / @@0700=1077 DCA D0076 / @@0701=3076 JMS I C0766 / long call to S2640 @@0702=4766 JMS I C0143 / long call to S0400 @@0703=4543 C0704, 6500 / 6500 JMP I S0650 / return @@0705=5650 JMP I S0650 / return @@0706=5650 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0707 / / Called from: / 0276 0305 0326 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S0707, 0 / return area DCA I C0765 / @@0710=3765 DCA D0024 / @@0711=3024 L0712, TAD I C0765 / @@0712=1765 AND C0035 / @@0713=0035 TAD C0764 / @@0714=1364 DCA D0747 / @@0715=3347 TAD I D0747 / @@0716=1747 DCA D0747 / @@0717=3347 JMS I D0747 / long call to S0000 @@0720=4747 JMP L0733 / @@0721=5333 TAD D0025 / @@0722=1025 SNA CLA / @@0723=7650 JMP L0742 / @@0724=5342 TAD I C0765 / @@0725=1765 JMS I C0107 / long call to S0623 @@0726=4507 L0727, DCA D0052 / @@0727=3052 JMS I C0763 / long call to S2213 @@0730=4763 SKP / @@0731=7410 JMS S0650 / @@0732=4250 L0733, TAD I C0765 / @@0733=1765 CIA / @@0734=7041 TAD L0061 / @@0735=1061 SNA CLA / @@0736=7650 JMP I S0707 / return @@0737=5707 ISZ I C0765 / @@0740=2765 JMP L0712 / @@0741=5312 L0742, TAD I C0765 / @@0742=1765 AND C0035 / @@0743=0035 CLL RTL / @@0744=7106 RAL / @@0745=7004 JMP L0727 / @@0746=5327 D0747, 0000 / AND L0000 *0763 C0763, C0763, 2213 / ISZ D0613 C0764, 1000 / TAD L0000 C0765, 2746 / ISZ I C0746 C0766, C0766, 2640 / ISZ I C0640 C0767, C0767, 1256 / TAD C0656 C0770, C0770, 1200 / TAD S0600 C0771, C0771, 1056 / TAD D0056 C0772, C0772, 1010 / TAD AI0 C0773, 0007 / AND C0007 C0774, 0643 / AND I C0643 C0775, 0003 / AND C0003 C0776, 0070 / AND C0070 C0777, 0030 / AND L0030 C1000, 3430 / DCA I L0030 DCA I D0037 / @@1001=3437 DCA I D0047 / @@1002=3447 DCA I D0057 / @@1003=3457 DCA I C0070 / @@1004=3470 DCA I C0101 / @@1005=3501 C1006, 3512 / DCA I C0112 C1007, 3522 / DCA I C0122 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1010 / / Called from: / 0657 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1010, 0 / return area CLA CLL IAC / AC = 0001 @@1011=7301 DCA D0057 / @@1012=3057 DCA D0060 / @@1013=3060 TAD D0052 / @@1014=1052 TAD C0177 / @@1015=1177 DCA D1017 / @@1016=3217 D1017, 7402 / HLT L1020, TAD D0060 / @@1020=1060 DCA I D0060 / @@1021=3460 ISZ D0060 / @@1022=2060 JMP L1020 / @@1023=5220 L1024, TAD D0060 / @@1024=1060 CIA / @@1025=7041 TAD I D0060 / @@1026=1460 SZA CLA / @@1027=7640 JMP L1040 / @@1030=5240 L1031, C1031, 2060 / ISZ D0060 JMP L1024 / @@1032=5224 TAD D0051 / @@1033=1051 TAD C0177 / @@1034=1177 DCA D1036 / @@1035=3236 D1036, 7402 / HLT JMP I S1010 / return @@1037=5610 L1040, TAD D0060 / @@1040=1060 DCA D0071 / @@1041=3071 TAD I D0060 / @@1042=1460 DCA D0072 / @@1043=3072 TAD D0051 / @@1044=1051 TAD C0177 / @@1045=1177 DCA D1047 / @@1046=3247 D1047, 7402 / HLT JMS I C1177 / long call to S1600 @@1050=4777 TAD D0052 / @@1051=1052 TAD C0177 / @@1052=1177 DCA D1054 / @@1053=3254 D1054, 7402 / HLT JMP L1031 / @@1055=5231 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1056 / / Called from: / 0663 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1056, 0 / return area CLA CLL IAC RAL / AC = 0002 @@1057=7305 DCA D0057 / @@1060=3057 DCA D0060 / @@1061=3060 TAD D0052 / @@1062=1052 TAD C0177 / @@1063=1177 DCA D1065 / @@1064=3265 D1065, 7402 / HLT L1066, TAD D0060 / @@1066=1060 CMA / @@1067=7040 DCA I D0060 / @@1070=3460 ISZ D0060 / @@1071=2060 JMP L1066 / @@1072=5266 L1073, C1073, 1060 / TAD D0060 IAC / @@1074=7001 TAD I D0060 / @@1075=1460 SZA CLA / @@1076=7640 JMP L1107 / @@1077=5307 L1100, ISZ D0060 / @@1100=2060 JMP L1073 / @@1101=5273 TAD D0051 / @@1102=1051 TAD C0177 / @@1103=1177 DCA D1105 / @@1104=3305 D1105, 7402 / HLT JMP I S1056 / return @@1106=5656 L1107, TAD D0060 / @@1107=1060 CMA / @@1110=7040 DCA D0071 / @@1111=3071 TAD I D0060 / @@1112=1460 DCA D0072 / @@1113=3072 TAD D0051 / @@1114=1051 TAD C0177 / @@1115=1177 DCA D1117 / @@1116=3317 D1117, 7402 / HLT JMS I C1176 / long call to S1631 @@1120=4776 TAD D0052 / @@1121=1052 TAD C0177 / @@1122=1177 DCA D1124 / @@1123=3324 D1124, 7402 / HLT JMP L1100 / @@1125=5300 *1176 C1176, C1176, 1631 / TAD I L1031 C1177, C1177, 1600 / TAD I C1000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 0667 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area CLA CLL CML IAC RTL / AC = 0006 @@1201=7327 DCA D0057 / @@1202=3057 DCA D0060 / @@1203=3060 TAD D0052 / @@1204=1052 TAD C0177 / @@1205=1177 DCA D1207 / @@1206=3207 D1207, 7402 / HLT L1210, STA / AC = 7777 (-0001) @@1210=7240 TAD D0060 / @@1211=1060 DCA D0060 / @@1212=3060 TAD D0060 / @@1213=1060 DCA I D0060 / @@1214=3460 TAD D0060 / @@1215=1060 SZA CLA / @@1216=7640 JMP L1210 / @@1217=5210 L1220, STA / AC = 7777 (-0001) @@1220=7240 TAD D0060 / @@1221=1060 DCA D0060 / @@1222=3060 TAD D0060 / @@1223=1060 CIA / @@1224=7041 TAD I D0060 / @@1225=1460 SZA CLA / @@1226=7640 JMP L1240 / @@1227=5240 L1230, TAD D0060 / @@1230=1060 SZA CLA / @@1231=7640 JMP L1220 / @@1232=5220 TAD D0051 / @@1233=1051 TAD C0177 / @@1234=1177 DCA D1236 / @@1235=3236 D1236, 7402 / HLT JMP I S1200 / return @@1237=5600 L1240, TAD D0060 / @@1240=1060 DCA D0071 / @@1241=3071 TAD I D0060 / @@1242=1460 DCA D0072 / @@1243=3072 TAD D0051 / @@1244=1051 TAD C0177 / @@1245=1177 DCA D1247 / @@1246=3247 D1247, 7402 / HLT JMS I C1377 / long call to S1647 @@1250=4777 TAD D0052 / @@1251=1052 TAD C0177 / @@1252=1177 DCA D1254 / @@1253=3254 D1254, 7402 / HLT JMP L1230 / @@1255=5230 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1256 / / Called from: / 0673 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1256, 0 / return area CLA CLL IAC RTL / AC = 0004 @@1257=7307 DCA D0057 / @@1260=3057 DCA D0060 / @@1261=3060 TAD D0052 / @@1262=1052 TAD C0177 / @@1263=1177 DCA D1265 / @@1264=3265 D1265, 7402 / HLT L1266, STA / AC = 7777 (-0001) @@1266=7240 TAD D0060 / @@1267=1060 DCA D0060 / @@1270=3060 TAD D0060 / @@1271=1060 CMA / @@1272=7040 DCA I D0060 / @@1273=3460 TAD D0060 / @@1274=1060 SZA CLA / @@1275=7640 JMP L1266 / @@1276=5266 L1277, STA / AC = 7777 (-0001) @@1277=7240 TAD D0060 / @@1300=1060 DCA D0060 / @@1301=3060 TAD D0060 / @@1302=1060 IAC / @@1303=7001 TAD I D0060 / @@1304=1460 SZA CLA / @@1305=7640 JMP L1317 / @@1306=5317 L1307, TAD D0060 / @@1307=1060 SZA CLA / @@1310=7640 JMP L1277 / @@1311=5277 TAD D0051 / @@1312=1051 TAD C0177 / @@1313=1177 DCA D1315 / @@1314=3315 D1315, 7402 / HLT JMP I S1256 / return @@1316=5656 L1317, TAD D0060 / @@1317=1060 CMA / @@1320=7040 DCA D0071 / @@1321=3071 TAD I D0060 / @@1322=1460 DCA D0072 / @@1323=3072 TAD D0051 / @@1324=1051 TAD C0177 / @@1325=1177 DCA D1327 / @@1326=3327 D1327, 7402 / HLT JMS I C1376 / long call to S1665 @@1330=4776 TAD D0052 / @@1331=1052 TAD C0177 / @@1332=1177 DCA D1334 / @@1333=3334 D1334, 7402 / HLT JMP L1307 / @@1335=5307 *1376 C1376, C1376, 1665 / TAD I D1265 C1377, C1377, 1647 / TAD I D1247 CLA / @@1400=7200 TAD C1431 / @@1401=1231 DCA D0077 / @@1402=3077 TAD C1437 / @@1403=1237 JMP I C1577 / long jump to L0205 @@1404=5777 L1405, C1405, 7200 / CLA TAD C1432 / @@1406=1232 DCA D0077 / @@1407=3077 IAC / @@1410=7001 JMP I C1577 / long jump to L0205 @@1411=5777 L1412, CLA CLL / AC = 0000 @@1412=7300 TAD C1433 / @@1413=1233 DCA D0077 / @@1414=3077 IAC RAL / @@1415=7005 JMP I C1577 / long jump to L0205 @@1416=5777 L1417, CLA / @@1417=7200 TAD C1434 / @@1420=1234 DCA D0077 / @@1421=3077 CLL CML RTR / @@1422=7132 JMP I C1577 / long jump to L0205 @@1423=5777 L1424, CLA / @@1424=7200 TAD C1435 / @@1425=1235 DCA D0077 / @@1426=3077 CLL CML RAR / @@1427=7130 JMP I C1577 / long jump to L0205 @@1430=5777 C1431, 7521 / MQA MQL C1432, 3500 / DCA I C0100 C1433, 3500 / DCA I C0100 C1434, 6000 / 6000 C1435, 6000 / 6000 SZA / @@1436=7440 C1437, 6003 / 6003 C1440, 6203 / 6203 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1441 / / Called from: / 4521 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1441, 0 / return area CLA CLL CMA RTL / AC = 7775 (-0003) @@1442=7346 DCA D0024 / @@1443=3024 L1444, TAD D0024 / @@1444=1024 CIA / @@1445=7041 CLL RTL / @@1446=7106 RAL / @@1447=7004 DCA I C1576 / @@1450=3776 TAD D0024 / @@1451=1024 CIA / @@1452=7041 TAD C0176 / @@1453=1176 DCA D0056 / @@1454=3056 TAD I D0056 / @@1455=1456 D1456, 1175 / TAD C0175 SNA CLA / @@1457=7650 JMP L1472 / @@1460=5272 TAD D0024 / @@1461=1024 CIA / @@1462=7041 TAD C0174 / @@1463=1174 JMS I C1575 / long call to S4727 @@1464=4775 TAD C1574 / @@1465=1374 JMS I C1575 / long call to S4727 @@1466=4775 JMS I C1573 / long call to S2502 @@1467=4773 TAD C1572 / @@1470=1372 JMS I C1575 / long call to S4727 @@1471=4775 L1472, ISZ D0024 / @@1472=2024 NOP / @@1473=7000 TAD D0024 / @@1474=1024 SMA SZA CLA / @@1475=7740 JMP I S1441 / return @@1476=5641 JMP L1444 / @@1477=5244 *1572 C1572, 0240 / AND C1440 C1573, C1573, 2502 / ISZ I C0102 C1574, 0272 / AND L1472 C1575, C1575, 4727 / JMS I C1527 C1576, 2746 / ISZ I C1546 C1577, C1577, 0205 / AND L1405 C1600, 0000 / AND L0000 L1601, C1601, 2053 / ISZ D0053 SKP / @@1602=7410 JMP L1601 / @@1603=5201 CLA / @@1604=7200 TAD C1600 / @@1605=1200 DCA I C1777 / @@1606=3777 TAD C1612 / @@1607=1212 DCA I C1776 / @@1610=3776 SKP / @@1611=7410 C1612, 2000 / ISZ L0000 TAD C1775 / @@1613=1375 DCA I C1774 / @@1614=3774 L1615, LAS / @@1615=7604 AND L0030 / @@1616=0030 SZA CLA / @@1617=7640 JMP I C1773 / long jump to L3013 @@1620=5773 LAS / @@1621=7604 AND C0027 / @@1622=0027 SZA CLA / @@1623=7640 JMP I C1772 / long jump to L3067 @@1624=5772 ISZ D0055 / @@1625=2055 SKP / @@1626=7410 JMS S1703 / @@1627=4303 JMP I C1771 / long jump to L3006 @@1630=5771 C1631, 0000 / AND L0000 L1632, ISZ D0053 / @@1632=2053 SKP / @@1633=7410 JMP L1632 / @@1634=5232 CLA / @@1635=7200 TAD C1631 / @@1636=1231 DCA I C1777 / @@1637=3777 D1640, 1243 / TAD C1643 DCA I C1776 / @@1641=3776 SKP / @@1642=7410 C1643, 2000 / ISZ L0000 TAD C1770 / @@1644=1370 DCA I C1774 / @@1645=3774 JMP L1615 / @@1646=5215 C1647, 0000 / AND L0000 L1650, ISZ D0053 / @@1650=2053 SKP / @@1651=7410 JMP L1650 / @@1652=5250 CLA / @@1653=7200 TAD C1647 / @@1654=1247 DCA I C1777 / @@1655=3777 TAD C1661 / @@1656=1261 DCA I C1776 / @@1657=3776 SKP / @@1660=7410 C1661, 2000 / ISZ L0000 TAD C1767 / @@1662=1367 DCA I C1774 / @@1663=3774 JMP L1615 / @@1664=5215 C1665, 0000 / AND L0000 L1666, ISZ D0053 / @@1666=2053 SKP / @@1667=7410 JMP L1666 / @@1670=5266 CLA / @@1671=7200 TAD C1665 / @@1672=1265 DCA I C1777 / @@1673=3777 TAD C1677 / @@1674=1277 DCA I C1776 / @@1675=3776 SKP / @@1676=7410 C1677, 2000 / ISZ L0000 TAD C1766 / @@1700=1366 DCA I C1774 / @@1701=3774 JMP L1615 / @@1702=5215 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1703 / / Called from: / 1627 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1703, 0 / return area C1704, 1073 / TAD D0073 SZA CLA / @@1705=7640 JMP I S1703 / return @@1706=5703 JMS I C1765 / long call to S2640 @@1707=4765 JMS I C0143 / long call to S0400 @@1710=4543 ISZ D0022 / @@1711=2022 C1712, 4014 / JMS AI4 TAD I S1703 / @@1713=1703 JMS D0040 / @@1714=4040 C1715, 4001 / JMS D0001 C1716, 0404 / AND I C0004 C1717, 2240 / ISZ D1640 JMS D0040 / @@1720=4040 AND I C1717 / @@1721=0717 TAD I C1704 / @@1722=1704 JMS D0040 / @@1723=4040 AND L1601 / @@1724=0201 AND I D0040 / @@1725=0440 JMS D0024 / @@1726=4024 C1727, 0523 / AND I C0123 ISZ I L0000 / @@1730=2400 JMP I S1703 / return @@1731=5703 *1765 C1765, C1765, 2640 / ISZ I D1640 C1766, 6400 / 6400 C1767, 6300 / 6300 C1770, 6200 / 6200 C1771, C1771, 3006 / DCA C0006 C1772, C1772, 3067 / DCA D0067 C1773, C1773, 3013 / DCA AI3 C1774, 2031 / ISZ C0031 C1775, 6100 / 6100 C1776, 3066 / DCA D0066 C1777, 3005 / DCA C0005 D2000, 4777 / JMS I C2177 C2001, 2017 / ISZ AI7 JMS I C2176 / long call to S2600 @@2002=4776 AND D0060 / @@2003=0060 ISZ D0020 / @@2004=2020 JMS I C2176 / long call to S2600 @@2005=4776 AND D0071 / @@2006=0071 ISZ D0023 / @@2007=2023 JMS I C2176 / long call to S2600 @@2010=4776 AND D0072 / @@2011=0072 ISZ D0026 / @@2012=2026 D2013, 1073 / TAD D0073 SZA CLA / @@2014=7640 JMP L2033 / @@2015=5233 JMS I C2175 / long call to S2640 @@2016=4775 AND L0000 / @@2017=0000 AND L0000 / @@2020=0000 AND L0000 / @@2021=0000 JMS D0040 / @@2022=4040 AND L0000 / @@2023=0000 AND L0000 / @@2024=0000 JMS D0040 / @@2025=4040 AND L0000 / @@2026=0000 AND L0000 / @@2027=0000 JMS D0040 / @@2030=4040 D2031, 0000 / AND L0000 JMP I C2174 / long jump to L3067 @@2032=5774 L2033, CLA / @@2033=7200 RIF / Same as RDF except reads the instruc @@2034=6224 JMS I L0106 / long call to S0600 @@2035=4506 AND C2173 / @@2036=0373 HLT / @@2037=7402 C2040, 7240 / STA TAD I C2172 / @@2041=1772 HLT / @@2042=7402 CLA / @@2043=7200 TAD I C2171 / @@2044=1771 AND C2173 / @@2045=0373 HLT / @@2046=7402 CLA / @@2047=7200 TAD D0060 / @@2050=1060 HLT / @@2051=7402 CLA / @@2052=7200 TAD D0071 / @@2053=1071 HLT / @@2054=7402 CLA / @@2055=7200 TAD D0072 / @@2056=1072 HLT / @@2057=7402 CLA / @@2060=7200 TAD D0057 / @@2061=1057 HLT / @@2062=7402 CLA / @@2063=7200 JMP I C2174 / long jump to L3067 @@2064=5774 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2065 / / Called from: / 0251 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2065, 0 / return area CLA CLL / AC = 0000 @@2066=7300 DCA D0065 / @@2067=3065 CLA CLL CMA RAL / AC = 7776 (-0002) @@2070=7344 DCA D0066 / @@2071=3066 DCA D0052 / @@2072=3052 TAD D0025 / @@2073=1025 SNA CLA / @@2074=7650 JMP L2120 / @@2075=5320 DCA I C2171 / @@2076=3771 L2077, JMS I C2170 / long call to S2200 @@2077=4770 JMS S2135 / @@2100=4335 ISZ I C2171 / @@2101=2771 TAD I C2171 / @@2102=1771 JMS I C0107 / long call to S0623 @@2103=4507 DCA D0052 / @@2104=3052 TAD I C2171 / @@2105=1771 AND C2173 / @@2106=0373 SZA CLA / @@2107=7640 JMP L2077 / @@2110=5277 L2111, ISZ D0066 / @@2111=2066 JMP I C2167 / long jump to L4400 @@2112=5767 TAD D0065 / @@2113=1065 SZA CLA / @@2114=7640 JMP I C2166 / long jump to L5036 @@2115=5766 DCA D0050 / @@2116=3050 JMP I S2065 / return @@2117=5665 L2120, DCA I C2171 / @@2120=3771 L2121, JMS I C2170 / long call to S2200 @@2121=4770 JMS S2135 / @@2122=4335 ISZ I C2171 / @@2123=2771 TAD I C2171 / @@2124=1771 AND C0035 / @@2125=0035 CLL RTL / @@2126=7106 RAL / @@2127=7004 DCA D0052 / @@2130=3052 TAD D0052 / @@2131=1052 SZA CLA / @@2132=7640 JMP L2121 / @@2133=5321 JMP L2111 / @@2134=5311 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2135 / / Called from: / 2100 2122 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2135, 0 / return area ISZ D0066 / @@2136=2066 SKP / @@2137=7410 JMP I S2065 / return @@2140=5665 RIF / Same as RDF except reads the instruc @@2141=6224 DCA D0051 / @@2142=3051 JMS I C2165 / long call to S2213 @@2143=4765 ISZ D0065 / @@2144=2065 JMP I S2135 / return @@2145=5735 *2165 C2165, C2165, 2213 / ISZ D2013 C2166, C2166, 5036 / JMP L0036 C2167, C2167, 4400 / JMS I L0000 C2170, C2170, 2200 / ISZ D2000 C2171, 2746 / ISZ I C2146 C2172, 3005 / DCA C0005 C2173, 0037 / AND D0037 C2174, C2174, 3067 / DCA D0067 C2175, C2175, 2640 / ISZ I C2040 C2176, C2176, 2600 / ISZ I D2000 JMP L0061 / @@2177=5061 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2200 / / Called from: / 2077 2121 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2200, 0 / return area CLA / @@2201=7200 TAD I C2377 / @@2202=1777 AND C0035 / @@2203=0035 TAD C2376 / @@2204=1376 DCA D0056 / @@2205=3056 TAD I D0056 / @@2206=1456 DCA D0056 / @@2207=3056 JMS I D0056 / long call to S0000 @@2210=4456 ISZ S2200 / @@2211=2200 JMP I S2200 / return @@2212=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2213 / / Called from: / 0464 0730 2143 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2213, 0 / return area TAD D0051 / @@2214=1051 CIA / @@2215=7041 TAD D0052 / @@2216=1052 SZA CLA / @@2217=7640 ISZ S2213 / @@2220=2213 JMP I S2213 / return @@2221=5613 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2222 / / Called from: / 0260 0310 0331 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S2222, 0 / return area JMS I C0102 / long call to S4547 @@2223=4502 AND C0031 / @@2224=0031 SZA CLA / @@2225=7640 ISZ S2222 / @@2226=2222 JMP I S2222 / return @@2227=5622 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2230 / / Called from: / 0244 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2230, 0 / return area CLA / @@2231=7200 DCA L0061 / @@2232=3061 DCA D0074 / @@2233=3074 TAD D0073 / @@2234=1073 SMA CLA / @@2235=7700 JMP L2246 / @@2236=5246 TAD C0021 / @@2237=1021 C2240, 7710 / SPA CLA JMP L2245 / @@2241=5245 TAD D0020 / @@2242=1020 AND C2375 / @@2243=0375 DCA D0064 / @@2244=3064 L2245, JMP L2262 / @@2245=5262 L2246, JMS I D0103 / long call to S4523 @@2246=4503 HLT / @@2247=7402 JMS I C0102 / long call to S4547 @@2250=4502 AND C2375 / @@2251=0375 DCA D0064 / @@2252=3064 JMS I C0102 / long call to S4547 @@2253=4502 BSW / @@2254=7002 AND C2375 / @@2255=0375 DCA D0063 / @@2256=3063 JMS I C2374 / long call to S4702 @@2257=4774 JMS I D0103 / long call to S4523 @@2260=4503 HLT / @@2261=7402 L2262, DCA D0040 / @@2262=3040 DCA D0041 / @@2263=3041 DCA D0042 / @@2264=3042 DCA D0043 / @@2265=3043 TAD D0025 / @@2266=1025 SNA CLA / @@2267=7650 JMP L2307 / @@2270=5307 DCA I C2377 / @@2271=3777 L2272, TAD I C2377 / @@2272=1777 JMS I C0107 / long call to S0623 @@2273=4507 TAD C0177 / @@2274=1177 DCA D2276 / @@2275=3276 D2276, 7402 / HLT JMS I C2373 / long call to S2400 @@2277=4773 JMS S2327 / @@2300=4327 ISZ I C2377 / @@2301=2777 TAD I C2377 / @@2302=1777 AND C2375 / @@2303=0375 SZA CLA / @@2304=7640 JMP L2272 / @@2305=5272 JMP L2322 / @@2306=5322 L2307, TAD C2372 / @@2307=1372 DCA D0041 / @@2310=3041 TAD C2372 / @@2311=1372 DCA D0042 / @@2312=3042 TAD C2372 / @@2313=1372 C2314, 3043 / DCA D0043 CLA / @@2315=7200 C2316, 6240 / 6240 C2317, 6250 / 6250 DCA I C2377 / @@2320=3777 JMS I C2371 / long call to S2714 @@2321=4771 L2322, TAD D0073 / @@2322=1073 SPA CLA / @@2323=7710 JMP I S2230 / return @@2324=5630 JMS I C2370 / long call to S4454 @@2325=4770 JMP I S2230 / return @@2326=5630 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2327 / / Called from: / 2300 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2327, 0 / return area TAD I C2377 / @@2330=1777 AND C0035 / @@2331=0035 TAD C2367 / @@2332=1367 DCA D0056 / @@2333=3056 TAD I D0056 / @@2334=1456 DCA D0056 / @@2335=3056 JMS I D0056 / long call to S0000 @@2336=4456 NOP / @@2337=7000 JMP I S2327 / return @@2340=5727 *2367 C2367, 3253 / DCA C2253 C2370, C2370, 4454 / JMS I D0054 C2371, C2371, 2714 / ISZ I C2314 C2372, 7760 / SMA SZA SNL CLA C2373, C2373, 2400 / ISZ I L0000 C2374, C2374, 4702 / JMS I C2302 C2375, 0037 / AND D0037 C2376, 1000 / TAD L0000 C2377, 2746 / ISZ I C2346 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2400 / / Called from: / 2277 2716 2721 2724 2727 2732 2740 2743 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S2400, 0 / return area CLA CLL / AC = 0000 @@2401=7300 RIF / Same as RDF except reads the instruc @@2402=6224 TAD C0177 / @@2403=1177 DCA L2412 / @@2404=3212 TAD C0173 / @@2405=1173 DCA I C2477 / @@2406=3677 TAD I C2477 / @@2407=1677 SZA CLA / @@2410=7640 JMP L2414 / @@2411=5214 L2412, D2412, 6201 / CDF0 JMP I S2400 / return @@2413=5600 L2414, ISZ L0061 / @@2414=2061 RDF / Read data field into AC6-8. Bit 0-5 @@2415=6214 DCA D2501 / @@2416=3301 TAD D0025 / @@2417=1025 SNA CLA / @@2420=7650 JMP L2426 / @@2421=5226 TAD D2501 / @@2422=1301 JMS I L0106 / long call to S0600 @@2423=4506 DCA D2501 / @@2424=3301 JMP L2432 / @@2425=5232 L2426, TAD D2501 / @@2426=1301 CLL RTR / @@2427=7112 RAR / @@2430=7010 DCA D2501 / @@2431=3301 L2432, TAD D0064 / @@2432=1064 CIA / @@2433=7041 TAD D0063 / @@2434=1063 SZA / @@2435=7440 JMP L2446 / @@2436=5246 TAD D2501 / @@2437=1301 CIA / @@2440=7041 TAD D0063 / @@2441=1063 SNA CLA / @@2442=7650 L2443, ISZ S2400 / @@2443=2200 ISZ D0074 / @@2444=2074 JMP L2412 / @@2445=5212 L2446, SPA CLA / @@2446=7710 JMP L2467 / @@2447=5267 TAD D2501 / @@2450=1301 CIA / @@2451=7041 TAD D0063 / @@2452=1063 SNA / @@2453=7450 JMP L2443 / @@2454=5243 SPA CLA / @@2455=7710 JMP L2443 / @@2456=5243 L2457, TAD D2501 / @@2457=1301 CIA / @@2460=7041 TAD D0064 / @@2461=1064 SNA / @@2462=7450 JMP L2443 / @@2463=5243 SPA CLA / @@2464=7710 JMP L2412 / @@2465=5212 JMP L2443 / @@2466=5243 L2467, TAD D2501 / @@2467=1301 CIA / @@2470=7041 TAD D0063 / @@2471=1063 SNA / @@2472=7450 JMP L2443 / @@2473=5243 SPA CLA / @@2474=7710 JMP L2457 / @@2475=5257 JMP L2412 / @@2476=5212 C2477, 2500 / ISZ I C0100 D2500, 0000 / AND L0000 D2501, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2502 / / Called from: / 1467 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2502, 0 / return area JMS I C2577 / long call to S3522 @@2503=4777 JMP L2507 / @@2504=5307 TAD C0172 / @@2505=1172 JMS I C2576 / long call to S4727 @@2506=4776 L2507, JMS I C2575 / long call to S3512 @@2507=4775 JMP L2513 / @@2510=5313 TAD C0171 / @@2511=1171 JMS I C2576 / long call to S4727 @@2512=4776 L2513, JMS I C2574 / long call to S3501 @@2513=4774 JMP L2517 / @@2514=5317 TAD C0170 / @@2515=1170 JMS I C2576 / long call to S4727 @@2516=4776 L2517, JMS I C2573 / long call to S3470 @@2517=4773 JMP L2523 / @@2520=5323 TAD C0167 / @@2521=1167 JMS I C2576 / long call to S4727 @@2522=4776 L2523, JMS I C2572 / long call to S3457 @@2523=4772 JMP L2527 / @@2524=5327 TAD C0166 / @@2525=1166 JMS I C2576 / long call to S4727 @@2526=4776 L2527, JMS I C2571 / long call to S3447 @@2527=4771 JMP L2533 / @@2530=5333 TAD C0165 / @@2531=1165 JMS I C2576 / long call to S4727 @@2532=4776 L2533, JMS I C2570 / long call to S3437 @@2533=4770 JMP L2537 / @@2534=5337 TAD C0164 / @@2535=1164 JMS I C2576 / long call to S4727 @@2536=4776 L2537, JMS I C2567 / long call to S3430 @@2537=4767 JMP L2543 / @@2540=5343 TAD C0174 / @@2541=1174 JMS I C2576 / long call to S4727 @@2542=4776 L2543, JMP I S2502 / return @@2543=5702 *2567 C2567, C2567, 3430 / DCA I L0030 C2570, C2570, 3437 / DCA I D0037 C2571, C2571, 3447 / DCA I D0047 C2572, C2572, 3457 / DCA I D0057 C2573, C2573, 3470 / DCA I C0070 C2574, C2574, 3501 / DCA I C0101 C2575, C2575, 3512 / DCA I C0112 C2576, C2576, 4727 / JMS I L2527 C2577, C2577, 3522 / DCA I C0122 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Called from: / 2002 2005 2010 3050 3117 5100 5114 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area CLA CLL / AC = 0000 @@2601=7300 TAD I S2600 / @@2602=1600 DCA D2635 / @@2603=3235 ISZ S2600 / @@2604=2200 TAD I S2600 / @@2605=1600 DCA D2636 / @@2606=3236 ISZ S2600 / @@2607=2200 TAD C0163 / @@2610=1163 CMA / @@2611=7040 AND I D2635 / @@2612=0635 BSW / @@2613=7002 JMS S2622 / @@2614=4222 ISZ D2636 / @@2615=2236 TAD C0163 / @@2616=1163 AND I D2635 / @@2617=0635 D2620, 4222 / JMS S2622 JMP I S2600 / return @@2621=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2622 / / Called from: / 2614 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2622, 0 / return area DCA D2637 / @@2623=3237 TAD D2637 / @@2624=1237 CLL RTL / @@2625=7106 RAL / @@2626=7004 AND C0162 / @@2627=0162 TAD D2637 / @@2630=1237 AND C0162 / @@2631=0162 TAD C0161 / @@2632=1161 DCA I D2636 / @@2633=3636 JMP I S2622 / return @@2634=5622 D2635, 0000 / AND L0000 D2636, 0000 / AND L0000 D2637, 0000 / AND L0000 C2640, 0000 / AND L0000 D2641, 7240 / STA DCA D0023 / @@2642=3023 STA / AC = 7777 (-0001) @@2643=7240 TAD C2640 / @@2644=1240 C2645, 3010 / DCA AI0 L2646, C2646, 1410 / TAD I AI0 DCA D2713 / @@2647=3313 TAD D2713 / @@2650=1313 BSW / @@2651=7002 JMS S2656 / @@2652=4256 TAD D2713 / @@2653=1313 JMS S2656 / @@2654=4256 JMP L2646 / @@2655=5246 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2656 / / Called from: / 2652 2654 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2656, 0 / return area AND C0163 / @@2657=0163 SZA / @@2660=7440 JMP L2664 / @@2661=5264 DCA D0023 / @@2662=3023 C2663, 5410 / JMP I AI0 L2664, TAD C0160 / @@2664=1160 SZA / @@2665=7440 JMP L2671 / @@2666=5271 TAD C0157 / @@2667=1157 JMP L2711 / @@2670=5311 L2671, TAD C0156 / @@2671=1156 SMA / @@2672=7500 JMP L2676 / @@2673=5276 TAD C0155 / @@2674=1155 D2675, 5311 / JMP L2711 L2676, TAD C0154 / @@2676=1154 SZA / @@2677=7440 JMP L2703 / @@2700=5303 TAD C0153 / @@2701=1153 JMP L2711 / @@2702=5311 L2703, TAD C0152 / @@2703=1152 SZA / @@2704=7440 JMP L2710 / @@2705=5310 TAD C0151 / @@2706=1151 SKP / @@2707=7410 L2710, TAD C0150 / @@2710=1150 L2711, JMS I C2777 / long call to S4727 @@2711=4777 JMP I S2656 / return @@2712=5656 D2713, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2714 / / Called from: / 2321 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2714, 0 / return area D2715, 6271 / CDF0 JMS I C2776 / long call to S2400 @@2716=4776 JMS I C2775 / long call to S3410 @@2717=4775 CDF0 / Change to data field 6. The data fie @@2720=6261 JMS I C2776 / long call to S2400 @@2721=4776 JMS I C2774 / long call to S3355 @@2722=4774 CDF0 / Change to data field 5. The data fie @@2723=6251 JMS I C2776 / long call to S2400 @@2724=4776 JMS I C2773 / long call to S3335 @@2725=4773 CDF0 / Change to data field 4. The data fie @@2726=6241 JMS I C2776 / long call to S2400 @@2727=4776 JMS I C2772 / long call to S3315 @@2730=4772 CDF0 / Change to data field 3. The data fie @@2731=6231 JMS I C2776 / long call to S2400 @@2732=4776 JMS I C2771 / long call to S3275 @@2733=4771 CDF0 / Change to data field 2. The data fie @@2734=6221 D2735, 4776 / JMS I C2776 JMS I C2770 / long call to S3241 @@2736=4770 CDF0 / Change to data field 1. The data fie @@2737=6211 JMS I C2776 / long call to S2400 @@2740=4776 JMS I C2767 / long call to S3220 @@2741=4767 CDF0 / Change to data field 0. The data fie @@2742=6201 JMS I C2776 / long call to S2400 @@2743=4776 JMS I C2766 / long call to S3200 @@2744=4766 JMP I S2714 / return @@2745=5714 D2746, 0000 / AND L0000 *2766 C2766, C2766, 3200 / DCA S2600 C2767, C2767, 3220 / DCA D2620 C2770, C2770, 3241 / DCA D2641 C2771, C2771, 3275 / DCA D2675 C2772, C2772, 3315 / DCA D2715 C2773, C2773, 3335 / DCA D2735 C2774, C2774, 3355 / DCA C2755 C2775, C2775, 3410 / DCA I AI0 C2776, C2776, 2400 / ISZ I L0000 C2777, C2777, 4727 / JMS I C2727 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 4471 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3000, 0 / return area JMS I C3177 / long call to S4727 @@3001=4777 TAD C0147 / @@3002=1147 JMS I C3177 / long call to S4727 @@3003=4777 JMP I S3000 / return @@3004=5600 D3005, 0000 / AND L0000 L3006, JMS I D0001 / long call to S5137 @@3006=4401 JMS I C0102 / long call to S4547 @@3007=4502 AND L0030 / @@3010=0030 SNA CLA / @@3011=7650 JMP L3021 / @@3012=5221 L3013, TAD D0073 / @@3013=1073 SPA CLA / @@3014=7710 JMP I D3005 / long jump to L0000 @@3015=5605 TAD C0157 / @@3016=1157 C3017, 4777 / JMS I C3177 JMP I D3005 / long jump to L0000 @@3020=5605 L3021, JMS I C0102 / long call to S4547 @@3021=4502 D3022, 0027 / AND C0027 SZA CLA / @@3023=7640 JMP L3067 / @@3024=5267 TAD D0025 / @@3025=1025 SNA CLA / @@3026=7650 JMP L3034 / @@3027=5234 RIF / Same as RDF except reads the instruc @@3030=6224 JMS I L0106 / long call to S0600 @@3031=4506 DCA D0056 / @@3032=3056 JMP L3040 / @@3033=5240 L3034, RIF / Same as RDF except reads the instruc @@3034=6224 CLL RTR / @@3035=7112 RAR / @@3036=7010 DCA D0056 / @@3037=3056 L3040, C3040, 4776 / JMS I C3176 AND D0056 / @@3041=0056 DCA D0057 / @@3042=3057 TAD C0146 / @@3043=1146 DCA D3057 / @@3044=3257 TAD D3005 / @@3045=1205 TAD C0173 / @@3046=1173 DCA D0056 / @@3047=3056 JMS I C3176 / long call to S2600 @@3050=4776 AND D0056 / @@3051=0056 DCA L0061 / @@3052=3061 TAD D0073 / @@3053=1073 SPA CLA / @@3054=7710 JMP I D3066 / long jump to L0000 @@3055=5666 JMS I C3175 / long call to S2640 @@3056=4775 D3057, 4543 / JMS I C0143 AND L0000 / @@3060=0000 AND L0000 / @@3061=0000 AND L0000 / @@3062=0000 JMS D0040 / @@3063=4040 AND L0000 / @@3064=0000 JMP I D3066 / long jump to L0000 @@3065=5666 D3066, 0000 / AND L0000 L3067, JMS I C0102 / long call to S4547 @@3067=4502 AND D0026 / @@3070=0026 SNA CLA / @@3071=7650 JMP L3076 / @@3072=5276 TAD D3005 / @@3073=1205 TAD C0173 / @@3074=1173 HLT / @@3075=7402 L3076, JMS I C0102 / long call to S4547 @@3076=4502 AND C0032 / @@3077=0032 SZA CLA / @@3100=7640 JMP I C3174 / long jump to L0217 @@3101=5774 JMP I D3005 / long jump to L0000 @@3102=5605 C3103, 0000 / AND L0000 L3104, ISZ D0053 / @@3104=2053 SKP / @@3105=7410 JMP L3104 / @@3106=5304 CLA / @@3107=7200 TAD C3103 / @@3110=1303 DCA D3005 / @@3111=3205 TAD C3173 / @@3112=1373 DCA D3066 / @@3113=3266 JMP L3006 / @@3114=5206 JMS I C3172 / long call to S5061 @@3115=4772 DCA D0136 / @@3116=3136 JMS I C3176 / long call to S2600 @@3117=4776 AND D0054 / @@3120=0054 DCA L0137 / @@3121=3137 TAD D0073 / @@3122=1073 SPA CLA / @@3123=7710 JMP L3145 / @@3124=5345 JMS I C3175 / long call to S2640 @@3125=4775 ISZ D3005 / @@3126=2205 C3127, 1417 / TAD I AI7 C3130, 4005 / JMS C0005 ISZ D3022 / @@3131=2222 C3132, 4001 / JMS D0001 ISZ I D0040 / @@3133=2440 AND L0000 / @@3134=0000 JMS I C3175 / long call to S2640 @@3135=4775 AND L0000 / @@3136=0000 AND L0000 / @@3137=0000 AND L0000 / @@3140=0000 AND L0000 / @@3141=0000 STA / AC = 7777 (-0001) @@3142=7240 DCA D0055 / @@3143=3055 JMP L3067 / @@3144=5267 L3145, CLA / @@3145=7200 RIF / Same as RDF except reads the instruc @@3146=6224 JMS I L0106 / long call to S0600 @@3147=4506 AND C3171 / @@3150=0371 HLT / @@3151=7402 STA / AC = 7777 (-0001) @@3152=7240 TAD D3005 / @@3153=1205 HLT / @@3154=7402 CLA / @@3155=7200 TAD I C3170 / @@3156=1770 AND C3171 / @@3157=0371 HLT / @@3160=7402 CLA / @@3161=7200 TAD D0054 / @@3162=1054 HLT / @@3163=7402 STA / AC = 7777 (-0001) @@3164=7240 DCA D0055 / @@3165=3055 JMP L3067 / @@3166=5267 *3170 C3170, 2746 / ISZ I C3146 C3171, 0037 / AND D0037 C3172, C3172, 5061 / JMP L0061 C3173, 3115 / DCA C0115 C3174, C3174, 0217 / AND C3017 C3175, C3175, 2640 / ISZ I L3040 C3176, C3176, 2600 / ISZ I S3000 C3177, C3177, 4727 / JMS I C3127 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3200 / / Called from: / 2744 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3200, 0 / return area CLA / @@3201=7200 JMS I C0104 / long call to S0522 @@3202=4504 TAD I D0056 / @@3203=1456 RAL / @@3204=7004 CLL CML RAR / @@3205=7130 DCA I D0056 / @@3206=3456 JMP I S3200 / return @@3207=5600 C3210, C3210, 0000 / AND L0000 CLA / @@3211=7200 JMS I C0105 / long call to S0532 @@3212=4505 TAD I D0056 / @@3213=1456 RAL / @@3214=7004 CLL CML RAR / @@3215=7130 DCA I D0056 / @@3216=3456 JMP I C3210 / long jump to L0000 @@3217=5610 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3220 / / Called from: / 2741 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3220, 0 / return area CLA / @@3221=7200 JMS I C0104 / long call to S0522 @@3222=4504 TAD I D0056 / @@3223=1456 RTL / @@3224=7006 CLL CML RTR / @@3225=7132 DCA I D0056 / @@3226=3456 JMP I S3220 / return @@3227=5620 C3230, C3230, 0000 / AND L0000 CLA / @@3231=7200 JMS I C0105 / long call to S0532 @@3232=4505 TAD I D0056 / @@3233=1456 TAD D0044 / @@3234=1044 RTL / @@3235=7006 CLL CML RTR / @@3236=7132 DCA I D0056 / @@3237=3456 JMP I C3230 / long jump to L0000 @@3240=5630 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3241 / / Called from: / 2736 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3241, 0 / return area CLA / @@3242=7200 JMS I C0104 / long call to S0522 @@3243=4504 TAD I D0056 / @@3244=1456 RTL / @@3245=7006 SMA / @@3246=7500 TAD C0145 / @@3247=1145 RTR / @@3250=7012 DCA I D0056 / @@3251=3456 JMP I S3241 / return @@3252=5641 C3253, 3200 / DCA S3200 DCA S3220 / @@3254=3220 DCA S3241 / @@3255=3241 DCA S3275 / @@3256=3275 DCA S3315 / @@3257=3315 DCA S3335 / @@3260=3335 DCA S3355 / @@3261=3355 C3262, 3410 / DCA I AI0 C3263, C3263, 0000 / AND L0000 CLA / @@3264=7200 JMS I C0105 / long call to S0532 @@3265=4505 TAD I D0056 / @@3266=1456 RTL / @@3267=7006 SMA / @@3270=7500 TAD C0145 / @@3271=1145 RTR / @@3272=7012 DCA I D0056 / @@3273=3456 JMP I C3263 / long jump to L0000 @@3274=5663 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3275 / / Called from: / 2733 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3275, 0 / return area CLA / @@3276=7200 JMS I C0104 / long call to S0522 @@3277=4504 TAD I D0056 / @@3300=1456 AND C0144 / @@3301=0144 TAD C0143 / @@3302=1143 DCA I D0056 / @@3303=3456 JMP I S3275 / return @@3304=5675 C3305, C3305, 0000 / AND L0000 CLA / @@3306=7200 JMS I C0105 / long call to S0532 @@3307=4505 TAD I D0056 / @@3310=1456 AND C0144 / @@3311=0144 TAD C0143 / @@3312=1143 DCA I D0056 / @@3313=3456 JMP I C3305 / long jump to L0000 @@3314=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3315 / / Called from: / 2730 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3315, 0 / return area CLA / @@3316=7200 JMS I C0104 / long call to S0522 @@3317=4504 TAD I D0056 / @@3320=1456 AND C0142 / @@3321=0142 TAD C0141 / @@3322=1141 DCA I D0056 / @@3323=3456 JMP I S3315 / return @@3324=5715 C3325, C3325, 0000 / AND L0000 CLA / @@3326=7200 JMS I C0105 / long call to S0532 @@3327=4505 TAD I D0056 / @@3330=1456 AND C0142 / @@3331=0142 TAD C0141 / @@3332=1141 DCA I D0056 / @@3333=3456 JMP I C3325 / long jump to L0000 @@3334=5725 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3335 / / Called from: / 2725 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3335, 0 / return area CLA / @@3336=7200 JMS I C0104 / long call to S0522 @@3337=4504 TAD I D0056 / @@3340=1456 AND C0140 / @@3341=0140 TAD L0137 / @@3342=1137 DCA I D0056 / @@3343=3456 JMP I S3335 / return @@3344=5735 C3345, C3345, 0000 / AND L0000 CLA / @@3346=7200 JMS I C0105 / long call to S0532 @@3347=4505 TAD I D0056 / @@3350=1456 AND C0140 / @@3351=0140 TAD L0137 / @@3352=1137 DCA I D0056 / @@3353=3456 JMP I C3345 / long jump to L0000 @@3354=5745 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3355 / / Called from: / 2722 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3355, 0 / return area CLA / @@3356=7200 JMS I C0104 / long call to S0522 @@3357=4504 TAD I D0056 / @@3360=1456 AND D0136 / @@3361=0136 TAD C0176 / @@3362=1176 DCA I D0056 / @@3363=3456 JMP I S3355 / return @@3364=5755 *3400 C3400, C3400, 0000 / AND L0000 CLA / @@3401=7200 JMS I C0105 / long call to S0532 @@3402=4505 TAD I D0056 / @@3403=1456 AND D0136 / @@3404=0136 TAD C0176 / @@3405=1176 DCA I D0056 / @@3406=3456 JMP I C3400 / long jump to L0000 @@3407=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3410 / / Called from: / 2717 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3410, 0 / return area CLA / @@3411=7200 JMS I C0104 / long call to S0522 @@3412=4504 TAD I D0056 / @@3413=1456 AND L0135 / @@3414=0135 TAD C0175 / @@3415=1175 DCA I D0056 / @@3416=3456 JMP I S3410 / return @@3417=5610 C3420, C3420, 0000 / AND L0000 CLA / @@3421=7200 JMS I C0105 / long call to S0532 @@3422=4505 TAD I D0056 / @@3423=1456 AND L0135 / @@3424=0135 TAD C0175 / @@3425=1175 DCA I D0056 / @@3426=3456 JMP I C3420 / long jump to L0000 @@3427=5620 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3430 / / Called from: / 2537 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3430, 0 / return area CLA / @@3431=7200 JMS I C0104 / long call to S0522 @@3432=4504 TAD I D0056 / @@3433=1456 SMA CLA / @@3434=7700 ISZ S3430 / @@3435=2230 JMP I S3430 / return @@3436=5630 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3437 / / Called from: / 2533 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3437, 0 / return area CLA / @@3440=7200 JMS I C0104 / long call to S0522 @@3441=4504 TAD I D0056 / @@3442=1456 RAL / @@3443=7004 SMA CLA / @@3444=7700 ISZ S3437 / @@3445=2237 JMP I S3437 / return @@3446=5637 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3447 / / Called from: / 2527 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3447, 0 / return area CLA / @@3450=7200 JMS I C0104 / long call to S0522 @@3451=4504 TAD I D0056 / @@3452=1456 RTL / @@3453=7006 SMA CLA / @@3454=7700 ISZ S3447 / @@3455=2247 JMP I S3447 / return @@3456=5647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3457 / / Called from: / 2523 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3457, 0 / return area CLA / @@3460=7200 JMS I C0104 / long call to S0522 @@3461=4504 TAD I D0056 / @@3462=1456 RTL / @@3463=7006 RAL / @@3464=7004 SMA CLA / @@3465=7700 ISZ S3457 / @@3466=2257 JMP I S3457 / return @@3467=5657 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3470 / / Called from: / 2517 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3470, 0 / return area CLA / @@3471=7200 JMS I C0104 / long call to S0522 @@3472=4504 TAD I D0056 / @@3473=1456 RTL / @@3474=7006 RTL / @@3475=7006 SMA CLA / @@3476=7700 ISZ S3470 / @@3477=2270 JMP I S3470 / return @@3500=5670 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3501 / / Called from: / 2513 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3501, 0 / return area CLA / @@3502=7200 JMS I C0104 / long call to S0522 @@3503=4504 TAD I D0056 / @@3504=1456 BSW / @@3505=7002 RAR / @@3506=7010 SNL CLA / @@3507=7620 ISZ S3501 / @@3510=2301 JMP I S3501 / return @@3511=5701 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3512 / / Called from: / 2507 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3512, 0 / return area CLA / @@3513=7200 JMS I C0104 / long call to S0522 @@3514=4504 TAD I D0056 / @@3515=1456 BSW / @@3516=7002 SMA CLA / @@3517=7700 ISZ S3512 / @@3520=2312 JMP I S3512 / return @@3521=5712 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3522 / / Called from: / 2503 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3522, 0 / return area CLA / @@3523=7200 JMS I C0104 / long call to S0522 @@3524=4504 TAD I D0056 / @@3525=1456 BSW / @@3526=7002 RAL / @@3527=7004 SMA CLA / @@3530=7700 ISZ S3522 / @@3531=2322 JMP I S3522 / return @@3532=5722 D3533, 0000 / AND L0000 CLA / @@3534=7200 JMS I C0105 / long call to S0532 @@3535=4505 TAD I D0056 / @@3536=1456 SMA CLA / @@3537=7700 ISZ D3533 / @@3540=2333 JMP I D3533 / long jump to L0000 @@3541=5733 D3542, 0000 / AND L0000 CLA / @@3543=7200 JMS I C0105 / long call to S0532 @@3544=4505 TAD I D0056 / @@3545=1456 RAL / @@3546=7004 SMA CLA / @@3547=7700 ISZ D3542 / @@3550=2342 JMP I D3542 / long jump to L0000 @@3551=5742 D3552, 0000 / AND L0000 CLA / @@3553=7200 JMS I C0105 / long call to S0532 @@3554=4505 TAD I D0056 / @@3555=1456 RTL / @@3556=7006 SMA CLA / @@3557=7700 ISZ D3552 / @@3560=2352 JMP I D3552 / long jump to L0000 @@3561=5752 D3562, 0000 / AND L0000 CLA / @@3563=7200 JMS I C0105 / long call to S0532 @@3564=4505 TAD I D0056 / @@3565=1456 RAL / @@3566=7004 RTL / @@3567=7006 SMA CLA / @@3570=7700 ISZ D3562 / @@3571=2362 JMP I D3562 / long jump to L0000 @@3572=5762 *3600 D3600, 0000 / AND L0000 CLA / @@3601=7200 JMS I C0105 / long call to S0532 @@3602=4505 TAD I D0056 / @@3603=1456 RTL / @@3604=7006 RTL / @@3605=7006 SMA CLA / @@3606=7700 ISZ D3600 / @@3607=2200 JMP I D3600 / long jump to L0000 @@3610=5600 D3611, 0000 / AND L0000 CLA / @@3612=7200 JMS I C0105 / long call to S0532 @@3613=4505 TAD I D0056 / @@3614=1456 BSW / @@3615=7002 RAR / @@3616=7010 SNL CLA / @@3617=7620 ISZ D3611 / @@3620=2211 JMP I D3611 / long jump to L0000 @@3621=5611 D3622, 0000 / AND L0000 CLA / @@3623=7200 JMS I C0105 / long call to S0532 @@3624=4505 TAD I D0056 / @@3625=1456 BSW / @@3626=7002 SMA CLA / @@3627=7700 ISZ D3622 / @@3630=2222 JMP I D3622 / long jump to L0000 @@3631=5622 D3632, 0000 / AND L0000 CLA / @@3633=7200 JMS I C0105 / long call to S0532 @@3634=4505 TAD I D0056 / @@3635=1456 BSW / @@3636=7002 RAL / @@3637=7004 SMA CLA / @@3640=7700 ISZ D3632 / @@3641=2232 JMP I D3632 / long jump to L0000 @@3642=5632 *4000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4000 / / Called from: / 0227 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4000, 0 / return area C4001, 1073 / TAD D0073 SZA CLA / @@4002=7640 JMP I S4000 / return @@4003=5600 TAD D0025 / @@4004=1025 D4005, 7640 / SZA CLA TAD C4177 / @@4006=1377 C4007, 1376 / TAD C4176 DCA D4013 / @@4010=3213 JMS I C4175 / long call to S2640 @@4011=4775 JMS I C0143 / long call to S0400 @@4012=4543 D4013, 0000 / AND L0000 CMA / @@4014=7040 ISZ S4105 / @@4015=2305 C4016, 1405 / TAD I C0005 C4017, 0324 / AND C4124 C4020, 0504 / AND I C0104 C4021, 4006 / JMS C0006 TAD I C4122 / @@4022=1722 JMS D0024 / @@4023=4024 C4024, 0523 / AND I C0123 C4025, 2411 / ISZ I AI1 TAD I C4007 / @@4026=1607 C4027, 4000 / JMS L0000 JMP I S4000 / return @@4030=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4031 / / Called from: / 0216 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4031, 0 / return area TAD D0073 / @@4032=1073 SPA CLA / @@4033=7710 JMP I S4031 / return @@4034=5631 JMS I C4175 / long call to S2640 @@4035=4775 JMS I C0143 / long call to S0400 @@4036=4543 C4037, 4320 / JMS C4120 C4040, 0420 / AND I D0020 JMP I C0170 / long jump to L0265 @@4041=5570 AND I C0157 / @@4042=0557 IAC / @@4043=7001 C4044, 4005 / JMS C0005 DCA D0024 / @@4045=3024 C4046, 4015 / JMS AI5 C4047, 0515 / AND I C0115 C4050, 4001 / JMS D0001 C4051, 0404 / AND I C0004 ISZ D4005 / @@4052=2205 ISZ D4123 / @@4053=2323 C4054, 4024 / JMS D0024 C4055, 0523 / AND I C0123 ISZ I D0043 / @@4056=2443 AND L0000 / @@4057=0000 JMP I S4031 / return @@4060=5631 C4061, C4061, 0000 / AND L0000 TAD D0073 / @@4062=1073 SPA CLA / @@4063=7710 JMP I C4061 / long jump to L0000 @@4064=5661 JMS I C4175 / long call to S2640 @@4065=4775 JMS I C0143 / long call to S0400 @@4066=4543 ISZ S4105 / @@4067=2305 C4070, 1405 / TAD I C0005 AND C4124 / @@4071=0324 C4072, 4006 / JMS C0006 TAD C0105 / @@4073=1105 C4074, 1404 / TAD I C0004 C4075, 4020 / JMS D0020 C4076, 0122 / AND C0122 C4077, 0115 / AND C0115 C4100, 0524 / AND I C0124 C4101, 0522 / AND I C0122 ISZ D4145 / @@4102=2345 C4103, 4300 / JMS C4100 JMP I C4061 / long jump to L0000 @@4104=5661 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4105 / / Called from: / 0275 0304 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4105, 0 / return area TAD D0073 / @@4106=1073 C4107, 7710 / SPA CLA JMP I S4105 / return @@4110=5705 JMS I C4175 / long call to S2640 @@4111=4775 JMS I C0143 / long call to S0400 @@4112=4543 TAD I C4017 / @@4113=1617 JMS D0022 / @@4114=4022 C4115, 0514 / AND I C0114 TAD I C4103 / @@4116=1703 C4117, 0124 / AND C0124 C4120, 1117 / TAD C0117 TAD I C4054 / @@4121=1654 C4122, 4020 / JMS D0020 D4123, 2217 / ISZ C4017 C4124, 0740 / AND I D4140 C4125, 1116 / TAD C0116 C4126, 4006 / JMS C0006 TAD C0105 / @@4127=1105 C4130, 1404 / TAD I C0004 C4131, 4000 / JMS L0000 RIF / Same as RDF except reads the instruc @@4132=6224 CLL RTL / @@4133=7106 RAL / @@4134=7004 TAD C0134 / @@4135=1134 DCA D4140 / @@4136=3340 JMS I C4175 / long call to S2640 @@4137=4775 D4140, 0000 / AND L0000 STA / AC = 7777 (-0001) @@4141=7240 DCA D0055 / @@4142=3055 JMP I S4105 / return @@4143=5705 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4144 / / Called from: / 0325 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4144, 0 / return area D4145, 1073 / TAD D0073 SPA CLA / @@4146=7710 JMP I S4144 / return @@4147=5744 JMS I C4175 / long call to S2640 @@4150=4775 JMS I C0143 / long call to S0400 @@4151=4543 ISZ D0022 / @@4152=2022 TAD I C4107 / @@4153=1707 C4154, 4027 / JMS C0027 C4155, 1114 / TAD C0114 TAD I D0040 / @@4156=1440 ISZ D4005 / @@4157=2205 C4160, 1417 / TAD I AI7 AND C4101 / @@4161=0301 C4162, 2405 / ISZ I C0005 AND L0000 / @@4163=0000 STA / AC = 7777 (-0001) @@4164=7240 DCA D0055 / @@4165=3055 JMP I S4144 / return @@4166=5744 *4175 C4175, C4175, 2640 / ISZ I C4040 C4176, 1315 / TAD C4115 C4177, 0007 / AND C0007 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4200 / / Called from: / 0466 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4200, 0 / return area CLA / @@4201=7200 DCA D0053 / @@4202=3053 DCA D0054 / @@4203=3054 ISZ D0062 / @@4204=2062 JMP L4212 / @@4205=5212 TAD D0074 / @@4206=1074 CIA / @@4207=7041 DCA D0062 / @@4210=3062 JMS I C4377 / long call to S5111 @@4211=4777 L4212, TAD C0177 / @@4212=1177 TAD D0051 / @@4213=1051 DCA L4225 / @@4214=3225 TAD C0177 / @@4215=1177 TAD D0052 / @@4216=1052 DCA D4227 / @@4217=3227 TAD L4225 / @@4220=1225 DCA D4232 / @@4221=3232 CLA CLL IAC RAL / AC = 0002 @@4222=7305 TAD D4227 / @@4223=1227 DCA D4244 / @@4224=3244 L4225, D4225, 6201 / CDF0 TAD I D0054 / @@4226=1454 D4227, 6201 / CDF0 DCA I D0054 / @@4230=3454 TAD I D0054 / @@4231=1454 D4232, 6201 / CDF0 CIA / @@4233=7041 TAD I D0054 / @@4234=1454 SZA CLA / @@4235=7640 JMS I C4376 / long call to S3103 @@4236=4776 ISZ D0054 / @@4237=2054 JMP L4225 / @@4240=5225 TAD D0053 / @@4241=1053 SZA CLA / @@4242=7640 JMP I S4200 / return @@4243=5600 D4244, 6203 / 6203 JMP I S4200 / return @@4245=5600 *4376 C4376, C4376, 3103 / DCA D0103 C4377, C4377, 5111 / JMP C0111 L4400, TAD D0073 / @@4400=1073 SPA CLA / @@4401=7710 JMP I C4577 / long jump to L0217 @@4402=5777 JMS I C4576 / long call to S2640 @@4403=4776 TAD I C4417 / @@4404=1617 D4405, 1605 / TAD I D4405 AND L0000 / @@4406=0000 JMP I C4577 / long jump to L0217 @@4407=5777 D4410, 0000 / AND L0000 C4411, 7200 / CLA TAD I C4575 / @@4412=1775 AND C0035 / @@4413=0035 TAD C4574 / @@4414=1374 DCA D4453 / @@4415=3253 TAD I D4453 / @@4416=1653 C4417, 3253 / DCA D4453 JMS I D4453 / long call to S0000 @@4420=4653 STA / AC = 7777 (-0001) @@4421=7240 TAD L0061 / @@4422=1061 DCA L0061 / @@4423=3061 TAD L0061 / @@4424=1061 SZA CLA / @@4425=7640 JMP I D4410 / long jump to L0000 @@4426=5610 JMS I C4576 / long call to S2640 @@4427=4776 D4430, 4543 / JMS I C0143 C4431, 0411 / AND I AI1 ISZ D4503 / @@4432=2303 TAD I C4516 / @@4433=1716 TAD I D4405 / @@4434=1605 AND C4524 / @@4435=0324 AND I C0104 / @@4436=0504 AND L0000 / @@4437=0000 L4440, C4440, 7402 / HLT JMP L4440 / @@4441=5240 JMP I D4410 / long jump to L0000 @@4442=5610 DCA D4410 / @@4443=3210 DCA D4430 / @@4444=3230 DCA D4463 / @@4445=3263 DCA D4505 / @@4446=3305 DCA D4525 / @@4447=3325 DCA D4545 / @@4450=3345 DCA I L0000 / @@4451=3400 DCA I D0020 / @@4452=3420 D4453, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4454 / / Called from: / 2325 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4454, 0 / return area JMS I C4576 / long call to S2640 @@4455=4776 JMS I C0143 / long call to S0400 @@4456=4543 AND L0000 / @@4457=0000 TAD L0061 / @@4460=1061 AND C0034 / @@4461=0034 CLL RTR / @@4462=7112 D4463, 7010 / RAR TAD C0174 / @@4464=1174 JMS I C4573 / long call to S4727 @@4465=4773 TAD L0061 / @@4466=1061 AND C0035 / @@4467=0035 TAD C0174 / @@4470=1174 JMS I C4572 / long call to S3000 @@4471=4772 JMS I C4576 / long call to S2640 @@4472=4776 AND I C4411 / @@4473=0611 C4474, 0514 / AND I C0114 AND I D0023 / @@4475=0423 C4476, 4011 / JMS AI1 TAD I L4440 / @@4477=1640 C4500, 2410 / ISZ I AI0 C4501, 1123 / TAD C0123 JMS D0023 / @@4502=4023 D4503, 3123 / DCA C0123 C4504, 2405 / ISZ I C0005 D4505, 1500 / TAD I C0100 JMS I C4576 / long call to S2640 @@4506=4776 JMS I C0143 / long call to S0400 @@4507=4543 AND I C4411 / @@4510=0611 C4511, 0514 / AND I C0114 AND I D0023 / @@4512=0423 JMS D0023 / @@4513=4023 C4514, 0514 / AND I C0114 C4515, 4704 / JMS I C4504 C4516, 4001 / JMS D0001 ISZ D4405 / @@4517=2205 C4520, 4000 / JMS L0000 JMS I C4571 / long call to S1441 @@4521=4771 JMP I S4454 / return @@4522=5654 D4523, 0000 / AND L0000 C4524, 3346 / DCA C4546 D4525, 1022 / TAD D0022 AND D4545 / @@4526=0345 SZA CLA / @@4527=7640 JMP L4533 / @@4530=5333 TAD C4546 / @@4531=1346 JMP I D4523 / long jump to L0000 @@4532=5723 L4533, RIF / Same as RDF except reads the instruc @@4533=6224 TAD C4570 / @@4534=1370 TAD C4567 / @@4535=1367 DCA D4537 / @@4536=3337 D4537, 7402 / HLT TAD C4546 / @@4540=1346 JMS I C4544 / long call to S7222 @@4541=4744 ISZ D4523 / @@4542=2323 JMP I D4523 / long jump to L0000 @@4543=5723 C4544, C4544, 7222 / CLA CML D4545, 0400 / AND I L0000 C4546, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4547 / / Called from: / 0337 0345 2223 2250 2253 3007 3021 3067 3076 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S4547, 0 / return area CLA CLL / AC = 0000 @@4550=7300 TAD C0021 / @@4551=1021 SPA CLA / @@4552=7710 CLA OSR / @@4553=7614 TAD D0020 / @@4554=1020 JMP I S4547 / return @@4555=5747 *4567 C4567, 6202 / CIF0 C4570, 0000 / AND L0000 C4571, C4571, 1441 / TAD I D0041 C4572, C4572, 3000 / DCA L0000 C4573, C4573, 4727 / JMS I C4527 C4574, 4443 / JMS I D0043 C4575, 2746 / ISZ I C4546 C4576, C4576, 2640 / ISZ I L4440 C4577, C4577, 0217 / AND C4417 L4600, CLA / @@4600=7200 D4601, 6224 / RIF TAD C4777 / @@4602=1377 DCA L4627 / @@4603=3227 TAD L4627 / @@4604=1227 DCA L4616 / @@4605=3216 TAD C4776 / @@4606=1376 C4607, 3010 / DCA AI0 TAD C4775 / @@4610=1375 C4611, 3011 / DCA AI1 TAD C4776 / @@4612=1376 C4613, 3012 / DCA AI2 TAD C4776 / @@4614=1376 C4615, 3013 / DCA AI3 L4616, D4616, 6201 / CDF0 C4617, 1013 / TAD AI3 CMA / @@4620=7040 SNA CLA / @@4621=7650 JMP L4627 / @@4622=5227 D4623, 1411 / TAD I AI1 CDF0 / Change to data field 1. The data fie @@4624=6211 C4625, 3413 / DCA I AI3 JMP L4616 / @@4626=5216 L4627, D4627, 6201 / CDF0 C4630, 1010 / TAD AI0 CMA / @@4631=7040 SNA CLA / @@4632=7650 JMP L4640 / @@4633=5240 C4634, 1410 / TAD I AI0 CDF0 / Change to data field 0. The data fie @@4635=6201 C4636, 3412 / DCA I AI2 JMP L4627 / @@4637=5227 L4640, C4640, 6203 / 6203 JMP I C4642 / long jump to L7600 @@4641=5642 C4642, C4642, 7600 / 7600 C4643, C4643, 0000 / AND L0000 CLA / @@4644=7200 RIF / Same as RDF except reads the instruc @@4645=6224 TAD C4777 / @@4646=1377 DCA D4656 / @@4647=3256 TAD C4776 / @@4650=1376 C4651, 3010 / DCA AI0 TAD C4775 / @@4652=1375 C4653, 3011 / DCA AI1 L4654, CDF0 / Change to data field 1. The data fie @@4654=6211 C4655, 1410 / TAD I AI0 D4656, 6201 / CDF0 C4657, 3411 / DCA I AI1 C4660, 1010 / TAD AI0 CMA / @@4661=7040 SZA CLA / @@4662=7640 JMP L4654 / @@4663=5254 JMP I C4643 / long jump to L0000 @@4664=5643 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4665 / / Called from: / 4737 4743 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4665, 0 / return area TLS / Load the TTO from the content of AC4 @@4666=6046 L4667, TSF / Skip if teleprinter flag is a 1. @@4667=6041 JMP L4667 / @@4670=5267 TCF / Clear teleprinter flag. @@4671=6042 CLA / @@4672=7200 KSF / Skip if keyboard flag is a 1. @@4673=6031 JMP I S4665 / return @@4674=5665 KRB / Clear AC, clear keyboard flag, and r @@4675=6036 JMS I D0103 / long call to S4523 @@4676=4503 CLA / @@4677=7200 KCC / Clear AC and clear keyboard flag. @@4700=6032 JMP I S4665 / return @@4701=5665 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4702 / / Called from: / 2257 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4702, 0 / return area CLA / @@4703=7200 TAD D0073 / @@4704=1073 D4705, 7710 / SPA CLA JMP I S4702 / return @@4706=5702 JMS I C4774 / long call to S2640 @@4707=4774 C4710, 4345 / JMS C4745 ISZ D4705 / @@4711=2305 C4712, 1405 / TAD I C0005 AND C4724 / @@4713=0324 JMS D0024 / @@4714=4024 C4715, 0523 / AND I C0123 ISZ I D0040 / @@4716=2440 ISZ D0001 / @@4717=2001 ISZ D4601 / @@4720=2201 TAD I C0105 / @@4721=1505 C4722, 2405 / ISZ I C0005 ISZ D4623 / @@4723=2223 C4724, 4345 / JMS C4745 AND L0000 / @@4725=0000 JMP I S4702 / return @@4726=5702 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4727 / / Called from: / 1464 1466 1471 2506 2512 2516 2522 2526 2532 2536 2542 2711 3001 3003 4465 / / Total 0017 (15) calls //////////////////////////////////////////////////////////////////////////////// S4727, 0 / return area DCA D0056 / @@4730=3056 TAD D0022 / @@4731=1022 SPA CLA / @@4732=7710 JMP I S4727 / return @@4733=5727 TAD D0056 / @@4734=1056 C4735, 6000 / 6000 JMP L4743 / @@4736=5343 JMS I C0101 / long call to S4665 @@4737=4501 ION / Enable Interrupts @@4740=6001 CLA / @@4741=7200 JMP I S4727 / return @@4742=5727 L4743, JMS I C0101 / long call to S4665 @@4743=4501 CLA / @@4744=7200 JMP I S4727 / return @@4745=5727 *4774 C4774, C4774, 2640 / ISZ I L4640 C4775, 5377 / JMP C4777 C4776, 7577 / MQA SCA MQL LSR + C4777, 6201 / CDF0 L5000, C5000, 7604 / LAS D5001, 3206 / DCA D5006 TAD D5006 / @@5002=1206 DCA I D5006 / @@5003=3606 TAD I D5006 / @@5004=1606 JMP L5000 / @@5005=5200 D5006, 0000 / AND L0000 L5007, LAS / @@5007=7604 DCA D5033 / @@5010=3233 C5011, 7402 / HLT LAS / @@5012=7604 DCA D5034 / @@5013=3234 L5014, TAD D5033 / @@5014=1233 DCA D5035 / @@5015=3235 L5016, TAD D5035 / @@5016=1235 C5017, 3635 / DCA I D5035 TAD I D5035 / @@5020=1635 CLA / @@5021=7200 TAD D5035 / @@5022=1235 CIA / @@5023=7041 TAD D5034 / @@5024=1234 SNA CLA / @@5025=7650 JMP L5014 / @@5026=5214 ISZ D5035 / @@5027=2235 JMP L5016 / @@5030=5216 HLT / @@5031=7402 JMP L5007 / @@5032=5207 D5033, 0000 / AND L0000 D5034, 0000 / AND L0000 D5035, 0000 / AND L0000 L5036, TAD D0073 / @@5036=1073 SPA CLA / @@5037=7710 C5040, 5777 / JMP I C5177 JMS I C5176 / long call to S2640 @@5041=4776 JMS I C0143 / long call to S0400 @@5042=4543 ISZ D0022 / @@5043=2022 TAD I C5107 / @@5044=1707 ISZ D5001 / @@5045=2201 TAD I C0140 / @@5046=1540 C5047, 1116 / TAD C0116 JMS D0023 / @@5050=4023 C5051, 0514 / AND I C0114 AND I D0103 / @@5052=0503 C5053, 2405 / ISZ I C0005 AND I D0040 / @@5054=0440 AND I C5011 / @@5055=0611 C5056, 0514 / AND I C0114 AND I L0000 / @@5057=0400 JMP I C5177 / long jump to L0217 @@5060=5777 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5061 / / Called from: / 3115 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5061, 0 / return area TAD I S5061 / @@5062=1661 DCA D5110 / @@5063=3310 ISZ S5061 / @@5064=2261 TAD D0025 / @@5065=1025 SNA CLA / @@5066=7650 JMP L5074 / @@5067=5274 TAD D0052 / @@5070=1052 JMS I L0106 / long call to S0600 @@5071=4506 DCA D0056 / @@5072=3056 JMP L5100 / @@5073=5300 L5074, TAD D0052 / @@5074=1052 CLL RTR / @@5075=7112 RAR / @@5076=7010 DCA D0056 / @@5077=3056 L5100, JMS I C5175 / long call to S2600 @@5100=4775 AND D0056 / @@5101=0056 JMP L0106 / @@5102=5106 TAD C5107 / @@5103=1307 DCA I D5110 / @@5104=3710 JMP I S5061 / return @@5105=5661 C5106, 0000 / AND L0000 C5107, 0000 / AND L0000 D5110, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5111 / / Called from: / 4211 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5111, 0 / return area CLA / @@5112=7200 ISZ D5135 / @@5113=2335 JMS I C5175 / long call to S2600 @@5114=4775 JMP L0135 / @@5115=5135 C5116, 5131 / JMP C0131 JMS I C5176 / long call to S2640 @@5117=4776 C5120, 4345 / JMS C5145 C5121, 0516 / AND I C0116 AND I D0040 / @@5122=0440 TAD I C5106 / @@5123=1706 C5124, 4020 / JMS D0020 C5125, 0123 / AND C0123 ISZ D5140 / @@5126=2340 AND L0000 / @@5127=0000 JMS I C5176 / long call to S2640 @@5130=4776 AND L0000 / @@5131=0000 AND L0000 / @@5132=0000 AND L0000 / @@5133=0000 JMP I S5111 / return @@5134=5711 D5135, 0000 / AND L0000 AND L0000 / @@5136=0000 C5137, C5137, 0000 / AND L0000 D5140, 6002 / IOF DCA I C5174 / @@5141=3774 TAD D0022 / @@5142=1022 SMA CLA / @@5143=7700 JMP I C5137 / long jump to L0000 @@5144=5737 RIF / Same as RDF except reads the instruc @@5145=6224 TAD C0133 / @@5146=1133 DCA I C5160 / @@5147=3760 TAD I C5160 / @@5150=1760 DCA D5155 / @@5151=3355 TAD I C5174 / @@5152=1774 SNA / @@5153=7450 TAD I C5173 / @@5154=1773 D5155, 6201 / CDF0 NOP / @@5156=7000 JMP I C5172 / long jump to L6520 @@5157=5772 C5160, 6523 / 6523 *5172 C5172, C5172, 6520 / 6520 C5173, 3066 / DCA D0066 C5174, 5200 / JMP L5000 C5175, C5175, 2600 / ISZ I L5000 C5176, C5176, 2640 / ISZ I C5040 C5177, C5177, 0217 / AND C5017 L5200, D5200, 6002 / IOF TAD C5377 / @@5201=1377 DCA D0075 / @@5202=3075 TAD D0022 / @@5203=1022 SMA CLA / @@5204=7700 JMP L5214 / @@5205=5214 C5206, 7240 / STA DCA D0073 / @@5207=3073 TAD C5376 / @@5210=1376 DCA I C5375 / @@5211=3775 TAD C5374 / @@5212=1374 DCA D0020 / @@5213=3020 L5214, TAD D0073 / @@5214=1073 SMA CLA / @@5215=7700 JMP L5227 / @@5216=5227 TAD C0021 / @@5217=1021 SPA CLA / @@5220=7710 JMP L5227 / @@5221=5227 TAD D0020 / @@5222=1020 SZA CLA / @@5223=7640 JMP L5227 / @@5224=5227 TAD C5374 / @@5225=1374 DCA D0020 / @@5226=3020 L5227, JMP I C5373 / long jump to L0206 @@5227=5773 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5230 / / Called from: / 0651 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5230, 0 / return area CLA / @@5231=7200 TAD D0022 / @@5232=1022 SMA CLA / @@5233=7700 JMP L5252 / @@5234=5252 IOF / Disable Interrupts @@5235=6002 RIF / Same as RDF except reads the instruc @@5236=6224 TAD C0133 / @@5237=1133 DCA I C5251 / @@5240=3651 TAD I C5251 / @@5241=1651 DCA D5243 / @@5242=3243 D5243, 6201 / CDF0 NOP / @@5244=7000 C5245, 4772 / JMS I C5372 JMP I S5230 / return @@5246=5630 AND L0000 / @@5247=0000 AND L0000 / @@5250=0000 C5251, 6505 / 6505 L5252, AND L0000 / @@5252=0000 KSF / Skip if keyboard flag is a 1. @@5253=6031 JMP I S5230 / return @@5254=5630 KRB / Clear AC, clear keyboard flag, and r @@5255=6036 JMS I D0103 / long call to S4523 @@5256=4503 CLA / @@5257=7200 KCC / Clear AC and clear keyboard flag. @@5260=6032 JMP I S5230 / return @@5261=5630 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5262 / / Called from: / 0245 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5262, 0 / return area D5263, 1022 / TAD D0022 SMA CLA / @@5264=7700 JMP I S5262 / return @@5265=5662 CLA CLL CML IAC RTL / AC = 6000 (-2000 = -1024 dec) @@5266=7333 DCA D5315 / @@5267=3315 L5270, CDF0 / Change to data field 7. The data fie @@5270=6271 TAD I D5315 / @@5271=1715 CDF0 / Change to data field 0. The data fie @@5272=6201 DCA I D5315 / @@5273=3715 TAD I D5315 / @@5274=1715 CIA / @@5275=7041 CDF0 / Change to data field 7. The data fie @@5276=6271 TAD I D5315 / @@5277=1715 CDF0 / Change to data field 0. The data fie @@5300=6201 SZA CLA / @@5301=7640 JMS D5316 / @@5302=4316 ISZ D5315 / @@5303=2315 JMP L5270 / @@5304=5270 TAD D0040 / @@5305=1040 SNA CLA / @@5306=7650 JMP I S5262 / return @@5307=5662 TAD D0040 / @@5310=1040 AND C5371 / @@5311=0371 TAD C5370 / @@5312=1370 DCA D0040 / @@5313=3040 JMP I S5262 / return @@5314=5662 D5315, 0000 / AND L0000 D5316, 0000 / AND L0000 STA / AC = 7777 (-0001) @@5317=7240 TAD D5316 / @@5320=1316 CDF0 / Change to data field 0. The data fie @@5321=6201 CIF0 / Prepare to change to instruction fie @@5322=6272 JMP I C5367 / long jump to L6520 @@5323=5767 *5367 C5367, C5367, 6520 / 6520 C5370, 0020 / AND D0020 C5371, 7740 / SMA SZA CLA C5372, 6500 / 6500 C5373, C5373, 0206 / AND C5206 C5374, 0037 / AND D0037 C5375, 0207 / AND C5207 C5376, 7000 / NOP C5377, 7003 / IAC *7200 D7200, 0000 / AND L0000 C7201, 6203 / 6203 C7202, 6201 / CDF0 D7203, 0000 / AND L0000 D7204, 0000 / AND L0000 D7205, 0000 / AND L0000 C7206, 7775 / CLA MQA SCA MQL ASR + C7207, 7774 / SPA SNA SZL CLA OSR C7210, 7773 / CLA MQA SCA MQL SHL + C7211, 7770 / SPA SNA SZL CLA C7212, 7520 / SMA SNL C7213, 0007 / AND C0007 C7214, 0240 / AND C7240 C7215, 0260 / AND C7260 C7216, 0275 / AND C7275 C7217, 0277 / AND C7277 C7220, 0322 / AND C7322 C7221, 0323 / AND C7323 C7222, 0000 / AND L0000 DCA D7200 / @@7223=3200 RDF / Read data field into AC6-8. Bit 0-5 @@7224=6214 TAD C7201 / @@7225=1201 DCA D7205 / @@7226=3205 RIF / Same as RDF except reads the instruc @@7227=6224 TAD C7202 / @@7230=1202 DCA D7241 / @@7231=3241 TAD I C7377 / @@7232=1777 SPA CLA / @@7233=7710 CLA OSR / @@7234=7614 TAD I C7376 / @@7235=1776 DCA D7203 / @@7236=3203 TAD I C7375 / @@7237=1775 C7240, 3204 / DCA D7204 D7241, 7402 / HLT TAD C7222 / @@7242=1222 DCA I C7374 / @@7243=3774 TAD D7205 / @@7244=1205 DCA I C7373 / @@7245=3773 TAD D7200 / @@7246=1200 SZA / @@7247=7440 JMP I C7372 / long jump to L7420 @@7250=5772 L7251, JMS I C7371 / long call to S7517 @@7251=4771 TAD C7221 / @@7252=1221 JMS I C7370 / long call to S7476 @@7253=4770 TAD C7220 / @@7254=1220 JMS I C7370 / long call to S7476 @@7255=4770 TAD C7216 / @@7256=1216 JMS I C7370 / long call to S7476 @@7257=4770 C7260, 1207 / TAD C7207 DCA D7205 / @@7261=3205 TAD D7203 / @@7262=1203 RAL / @@7263=7004 RAL / @@7264=7004 RTL / @@7265=7006 DCA D7203 / @@7266=3203 TAD D7203 / @@7267=1203 AND C7213 / @@7270=0213 TAD C7215 / @@7271=1215 JMS I C7370 / long call to S7476 @@7272=4770 TAD D7203 / @@7273=1203 ISZ D7205 / @@7274=2205 C7275, 5264 / JMP C7264 CLA CLL / AC = 0000 @@7276=7300 C7277, 1210 / TAD C7210 DCA D7205 / @@7300=3205 DCA I C7367 / @@7301=3767 DCA I C7366 / @@7302=3766 TAD C7214 / @@7303=1214 JMS I C7370 / long call to S7476 @@7304=4770 L7305, JMS I C7365 / long call to S7510 @@7305=4765 DCA D7200 / @@7306=3200 TAD D7200 / @@7307=1200 TAD C7364 / @@7310=1364 SNA / @@7311=7450 JMP I C7363 / long jump to L7465 @@7312=5763 TAD C7207 / @@7313=1207 SNA / @@7314=7450 JMP I C7362 / long jump to L7457 @@7315=5762 TAD C7206 / @@7316=1206 SNA / @@7317=7450 JMP I C7361 / long jump to L7525 @@7320=5761 TAD C7206 / @@7321=1206 C7322, 7650 / SNA CLA C7323, 5760 / JMP I C7360 TAD D7200 / @@7324=1200 JMS I C7370 / long call to S7476 @@7325=4770 TAD D7200 / @@7326=1200 TAD C7212 / @@7327=1212 SPA / @@7330=7510 JMP L7351 / @@7331=5351 TAD C7211 / @@7332=1211 SMA CLA / @@7333=7700 JMP L7351 / @@7334=5351 STA / AC = 7777 (-0001) @@7335=7240 DCA I C7366 / @@7336=3766 TAD D7200 / @@7337=1200 AND C7213 / @@7340=0213 DCA D7200 / @@7341=3200 TAD I C7367 / @@7342=1767 CLL RTL / @@7343=7106 RAL / @@7344=7004 TAD D7200 / @@7345=1200 DCA I C7367 / @@7346=3767 ISZ D7205 / @@7347=2205 JMP L7305 / @@7350=5305 L7351, CLA CLL / AC = 0000 @@7351=7300 TAD C7217 / @@7352=1217 JMS I C7370 / long call to S7476 @@7353=4770 JMS I C7371 / long call to S7517 @@7354=4771 JMP L7251 / @@7355=5251 *7360 SPA SZL OSR HLT / @@7360=7536 C7361, C7361, 7525 / MQA MQL MUY + C7362, C7362, 7457 / SCA LSR + C7363, C7363, 7465 / SCA MQL MUY + C7364, 7575 / MQA SCA MQL ASR + C7365, C7365, 7510 / SPA C7366, 7403 / SCL + C7367, 7400 / C7370, C7370, 7476 / SNA SZL OSR HLT C7371, C7371, 7517 / MQA LSR + C7372, C7372, 7420 / SNL C7373, 7537 / MQA MQL LSR + C7374, 7402 / HLT C7375, 0023 / AND D0023 C7376, 0020 / AND D0020 C7377, 0021 / AND C0021 D7400, 0000 / AND L0000 C7401, C7401, 0217 / AND C7417 D7402, 0000 / AND L0000 D7403, 0000 / AND L0000 D7404, 0000 / AND L0000 C7405, 0177 / AND C0177 C7406, 0200 / AND D7400 AND D0077 / @@7407=0077 SMA SZA CLA / @@7410=7740 AND C0100 / @@7411=0100 C7412, 0215 / AND C7415 C7413, 0212 / AND C7412 C7414, 0303 / AND L7503 C7415, 0307 / AND C7507 C7416, 0336 / AND C7536 C7417, 7600 / 7600 L7420, TAD C7577 / @@7420=1377 SNA / @@7421=7450 JMP L7465 / @@7422=5265 TAD C7576 / @@7423=1376 SNA / @@7424=7450 JMP L7457 / @@7425=5257 TAD C7575 / @@7426=1375 SNA / @@7427=7450 JMP L7455 / @@7430=5255 TAD C7574 / @@7431=1374 SNA / @@7432=7450 JMP L7437 / @@7433=5237 DCA I C7573 / @@7434=3773 ISZ D7404 / @@7435=2204 JMP L7473 / @@7436=5273 L7437, STA / AC = 7777 (-0001) @@7437=7240 DCA D7404 / @@7440=3204 TAD I C7573 / @@7441=1773 SNA CLA / @@7442=7650 JMP L7537 / @@7443=5337 L7444, STA / AC = 7777 (-0001) @@7444=7240 DCA D7404 / @@7445=3204 JMS S7510 / @@7446=4310 TAD C7577 / @@7447=1377 SNA / @@7450=7450 JMP L7465 / @@7451=5265 TAD C7572 / @@7452=1372 SZA CLA / @@7453=7640 JMP L7444 / @@7454=5244 L7455, DCA D7404 / @@7455=3204 JMP L7537 / @@7456=5337 L7457, JMS S7517 / @@7457=4317 TAD C7416 / @@7460=1216 JMS S7476 / @@7461=4276 TAD C7415 / @@7462=1215 JMS S7476 / @@7463=4276 JMP I C7571 / long jump to L7251 @@7464=5771 L7465, DCA D7404 / @@7465=3204 TAD C7416 / @@7466=1216 JMS S7476 / @@7467=4276 TAD C7414 / @@7470=1214 JMS S7476 / @@7471=4276 JMP I C7570 / long jump to L4600 @@7472=5770 L7473, TAD I C7567 / @@7473=1767 JMS S7476 / @@7474=4276 JMP L7537 / @@7475=5337 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7476 / / Called from: / 7253 7255 7257 7272 7304 7325 7353 7461 7463 7467 7471 7474 7521 7523 / Total 0016 (14) calls //////////////////////////////////////////////////////////////////////////////// S7476, 0 / return area ISZ D7404 / @@7477=2204 SKP / @@7500=7410 JMP L7444 / @@7501=5244 TLS / Load the TTO from the content of AC4 @@7502=6046 L7503, C7503, 6041 / TSF JMP L7503 / @@7504=5303 TCF / Clear teleprinter flag. @@7505=6042 CLA / @@7506=7200 JMP I S7476 / return @@7507=5676 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7510 / / Called from: / 7305 7446 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S7510, 0 / return area L7511, KSF / Skip if keyboard flag is a 1. @@7511=6031 JMP L7511 / @@7512=5311 KRB / Clear AC, clear keyboard flag, and r @@7513=6036 AND C7405 / @@7514=0205 TAD C7406 / @@7515=1206 JMP I S7510 / return @@7516=5710 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S7517 / / Called from: / 7251 7354 7457 7525 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S7517, 0 / return area TAD C7412 / @@7520=1212 JMS S7476 / @@7521=4276 TAD C7413 / @@7522=1213 JMS S7476 / @@7523=4276 JMP I S7517 / return @@7524=5717 L7525, JMS S7517 / @@7525=4317 TAD L7537 / @@7526=1337 DCA D7530 / @@7527=3330 D7530, 7402 / HLT ISZ D7403 / @@7531=2203 JMP I C7401 / long jump to L0217 @@7532=5601 TAD D7400 / @@7533=1200 DCA I C7566 / @@7534=3766 JMP I C7401 / long jump to L0217 @@7535=5601 C7536, 4317 / JMS S7517 L7537, D7537, 7402 / HLT CLA CLL / AC = 0000 @@7540=7300 ISZ D7403 / @@7541=2203 JMP I D7402 / long jump to L0000 @@7542=5602 TAD D7400 / @@7543=1200 DCA I C7566 / @@7544=3766 JMP I D7402 / long jump to L0000 @@7545=5602 *7566 C7566, 0020 / AND D0020 C7567, 7200 / CLA C7570, C7570, 4600 / JMS I D7400 C7571, C7571, 7251 / CLA CMA IAC RAR C7572, 7762 / SMA SZA SNL CLA HLT C7573, 7204 / GLK C7574, 7776 / SPA SNA SZL CLA OSR HLT C7575, 7766 / SMA SZA SNL CLA OSR HLT C7576, 7774 / SPA SNA SZL CLA OSR C7577, 7575 / MQA SCA MQL ASR + $