TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d1fb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d1fb-pb.bin / Generated 2010 02 19 00:10:30 / 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 / / 2577 locations used, 2075 code and 0502 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 C0002, 0002 / AND C0002 D0003, 0003 / AND D0003 *0020 C0020, 4000 / JMS L0000 C0021, 2000 / ISZ L0000 D0022, 1000 / TAD L0000 C0023, 0400 / AND I L0000 D0024, 0200 / AND L0000 C0025, 0100 / AND D0100 C0026, 0070 / AND C0070 C0027, 0007 / AND C0007 D0030, 0000 / AND L0000 D0031, 0000 / AND L0000 D0032, 0000 / AND L0000 D0033, 0000 / AND L0000 D0034, 0000 / AND L0000 D0035, 0000 / AND L0000 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, 1706 / TAD I C0106 C0052, 1725 / TAD I C0125 D0053, 0000 / AND L0000 D0054, 0000 / AND L0000 D0055, 0000 / AND L0000 D0056, 0000 / AND L0000 D0057, 0000 / AND L0000 D0060, 0000 / AND L0000 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, 1736 / TAD I C0136 D0071, 0000 / AND L0000 D0072, 0000 / AND L0000 D0073, 0000 / AND L0000 D0074, 7777 / CLA MQA SCA MQL LSR + C0075, 7776 / SPA SNA SZL CLA OSR HLT C0076, 7775 / CLA MQA SCA MQL ASR + C0077, 7774 / SPA SNA SZL CLA OSR D0100, 7744 / SMA SZA CLA OSR C0101, 0007 / AND C0007 C0102, 0010 / AND AI0 C0103, 0020 / AND C0020 C0104, 0030 / AND D0030 C0105, 0040 / AND D0040 C0106, 0050 / AND D0050 C0107, 0060 / AND D0060 C0110, 0070 / AND C0070 C0111, 0077 / AND C0077 C0112, 0207 / AND C0007 C0113, 0212 / AND AI2 C0114, 0215 / AND AI5 C0115, 0240 / AND D0040 C0116, 0245 / AND D0045 C0117, 0260 / AND D0060 C0120, 0261 / AND D0061 C0121, 0262 / AND D0062 C0122, 0263 / AND D0063 C0123, 0264 / AND D0064 C0124, 0265 / AND D0065 C0125, 0266 / AND D0066 AND D0067 / @@0126=0267 C0127, 0340 / AND C0140 C0130, 0707 / AND I C0107 C0131, 4060 / JMS D0060 C0132, 6000 / 6000 C0133, 6003 / 6003 C0134, 6060 / 6060 C0135, 6100 / 6100 C0136, 6200 / 6200 C0137, 6300 / 6300 C0140, 6400 / 6400 C0141, 6201 / CDF0 C0142, 6203 / 6203 C0143, C0143, 2042 / ISZ D0042 C0144, C0144, 2050 / ISZ D0050 C0145, C0145, 2000 / ISZ L0000 C0146, C0146, 2201 / ISZ L0001 C0147, 2200 / ISZ L0000 C0150, C0150, 2242 / ISZ D0042 C0151, 2241 / ISZ D0041 D0152, 0000 / AND L0000 D0153, 0000 / AND L0000 C0154, 7100 / CLL C0155, 3500 / DCA I D0100 C0156, 3500 / DCA I D0100 C0157, 6000 / 6000 C0160, 6000 / 6000 *0200 C0200, 5777 / JMP I C0377 JMP I C0376 / long jump to L1605 @@0201=5776 JMP I C0375 / long jump to L1612 @@0202=5775 JMP I C0374 / long jump to L1617 @@0203=5774 JMP I C0373 / long jump to L1624 @@0204=5773 L0205, C0205, 3056 / DCA D0056 IOF / Disable Interrupts @@0206=6002 RIF / Same as RDF except reads the instruc @@0207=6224 TAD C0141 / @@0210=1141 DCA D0212 / @@0211=3212 D0212, 6201 / CDF0 JMS I C0372 / long call to S2600 @@0213=4772 L0214, JMS I C0371 / long call to S2621 @@0214=4771 C0215, 7240 / STA DCA D0050 / @@0216=3050 C0217, 3057 / DCA D0057 STA / AC = 7777 (-0001) @@0220=7240 C0221, 3053 / DCA D0053 TAD D0153 / @@0222=1153 DCA D0152 / @@0223=3152 C0224, 4770 / JMS I C0370 LAS / @@0225=7604 AND C0026 / @@0226=0026 DCA D0061 / @@0227=3061 LAS / @@0230=7604 AND C0027 / @@0231=0027 DCA D0062 / @@0232=3062 JMS I C0367 / long call to S1742 @@0233=4767 TAD D0062 / @@0234=1062 SZA CLA / @@0235=7640 JMP L0262 / @@0236=5262 RIF / Same as RDF except reads the instruc @@0237=6224 C0240, 7041 / CIA TAD D0061 / @@0241=1061 SNA CLA / @@0242=7650 JMP I C0366 / long jump to L2712 @@0243=5766 DCA D0050 / @@0244=3050 TAD C0365 / @@0245=1365 DCA I C0364 / @@0246=3764 TAD D0062 / @@0247=1062 TAD D0051 / @@0250=1051 DCA D0071 / @@0251=3071 JMP I D0071 / long jump to L0000 @@0252=5471 TAD C0363 / @@0253=1363 DCA I C0362 / @@0254=3762 TAD D0062 / @@0255=1062 CIA / @@0256=7041 TAD C0052 / @@0257=1052 DCA D0071 / @@0260=3071 JMP I D0071 / long jump to L0000 @@0261=5471 L0262, JMS I C0367 / long call to S1742 @@0262=4767 TAD D0062 / @@0263=1062 C0264, 7710 / SPA CLA JMP L0302 / @@0265=5302 TAD C0361 / @@0266=1361 DCA I C0364 / @@0267=3764 TAD D0062 / @@0270=1062 TAD D0051 / @@0271=1051 DCA D0071 / @@0272=3071 JMP I D0071 / long jump to L0000 @@0273=5471 TAD C0363 / @@0274=1363 DCA I C0362 / @@0275=3762 JMS I C0367 / long call to S1742 @@0276=4767 TAD C0052 / @@0277=1052 DCA D0071 / @@0300=3071 JMP I D0071 / long jump to L0000 @@0301=5471 L0302, TAD C0360 / @@0302=1360 DCA I C0362 / @@0303=3762 JMS I C0367 / long call to S1742 @@0304=4767 TAD C0052 / @@0305=1052 DCA D0071 / @@0306=3071 JMP I D0071 / long jump to L0000 @@0307=5471 TAD C0363 / @@0310=1363 DCA I C0370 / @@0311=3770 C0312, 1062 / TAD D0062 CIA / @@0313=7041 TAD C0070 / @@0314=1070 DCA D0071 / @@0315=3071 JMP I D0071 / long jump to L0000 @@0316=5471 JMS I C0357 / long call to S2737 @@0317=4757 TAD D0060 / @@0320=1060 TAD C0117 / @@0321=1117 DCA D0060 / @@0322=3060 JMS I C0356 / long call to S3017 @@0323=4756 TAD C0355 / @@0324=1355 DCA I C0364 / @@0325=3764 TAD D0060 / @@0326=1060 AND C0101 / @@0327=0101 TAD D0051 / @@0330=1051 DCA D0071 / @@0331=3071 JMP I D0071 / long jump to L0000 @@0332=5471 *0355 C0355, 0400 / AND I L0000 C0356, C0356, 3017 / DCA AI7 C0357, C0357, 2737 / ISZ I C0337 C0360, 0310 / AND C0310 C0361, 0274 / AND C0274 C0362, 1726 / TAD I C0326 C0363, 0317 / AND C0317 C0364, 1705 / TAD I C0305 C0365, 0253 / AND C0253 C0366, C0366, 2712 / ISZ I C0312 C0367, C0367, 1742 / TAD I C0342 C0370, 1740 / TAD I C0340 C0371, C0371, 2621 / ISZ I C0221 C0372, C0372, 2600 / ISZ I C0200 C0373, C0373, 1624 / TAD I C0224 C0374, C0374, 1617 / TAD I C0217 C0375, C0375, 1612 / TAD I D0212 C0376, C0376, 1605 / TAD I L0205 TAD I C0200 / @@0377=1600 C0400, 4777 / JMS I C0577 JMS S0410 / @@0401=4210 TAD D0050 / @@0402=1050 SNA CLA / @@0403=7650 JMP L0476 / @@0404=5276 JMS I C0576 / long call to S1640 @@0405=4776 JMP I C0575 / long jump to L1000 @@0406=5775 JMP L0527 / @@0407=5327 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0410 / / Called from: / 0401 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0410, 0 / return area CLA CLL / AC = 0000 @@0411=7300 DCA D0054 / @@0412=3054 TAD C0075 / @@0413=1075 C0414, 3055 / DCA D0055 DCA D0064 / @@0415=3064 TAD D0030 / @@0416=1030 JMS S0463 / @@0417=4263 TAD C0102 / @@0420=1102 DCA D0064 / @@0421=3064 TAD D0031 / @@0422=1031 JMS S0463 / @@0423=4263 TAD C0103 / @@0424=1103 DCA D0064 / @@0425=3064 TAD D0032 / @@0426=1032 JMS S0463 / @@0427=4263 TAD C0104 / @@0430=1104 C0431, 3064 / DCA D0064 TAD D0033 / @@0432=1033 JMS S0463 / @@0433=4263 TAD C0105 / @@0434=1105 DCA D0064 / @@0435=3064 C0436, 1034 / TAD D0034 JMS S0463 / @@0437=4263 C0440, 1106 / TAD C0106 DCA D0064 / @@0441=3064 TAD D0035 / @@0442=1035 JMS S0463 / @@0443=4263 TAD C0107 / @@0444=1107 DCA D0064 / @@0445=3064 TAD D0036 / @@0446=1036 JMS S0463 / @@0447=4263 TAD C0110 / @@0450=1110 DCA D0064 / @@0451=3064 TAD D0037 / @@0452=1037 JMS S0463 / @@0453=4263 ISZ D0055 / @@0454=2055 JMP I C0574 / long jump to L2732 @@0455=5774 TAD D0054 / @@0456=1054 SZA CLA / @@0457=7640 JMP I C0573 / long jump to L2712 @@0460=5773 DCA D0050 / @@0461=3050 JMP I S0410 / return @@0462=5610 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0463 / / Called from: / 0417 0423 0427 0433 0437 0443 0447 0453 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S0463, 0 / return area SZA CLA / @@0464=7640 JMP I S0463 / return @@0465=5663 ISZ D0055 / @@0466=2055 SKP / @@0467=7410 JMP I S0410 / return @@0470=5610 RIF / Same as RDF except reads the instruc @@0471=6224 DCA D0063 / @@0472=3063 JMS I C0572 / long call to S1631 @@0473=4772 ISZ D0054 / @@0474=2054 JMP I S0463 / return @@0475=5663 L0476, RIF / Same as RDF except reads the instruc @@0476=6224 DCA D0063 / @@0477=3063 TAD C0571 / @@0500=1371 C0501, 3017 / DCA AI7 DCA D0071 / @@0502=3071 L0503, C0503, 1417 / TAD I AI7 SNA CLA / @@0504=7650 JMP L0510 / @@0505=5310 ISZ D0071 / @@0506=2071 JMP L0503 / @@0507=5303 L0510, TAD D0071 / @@0510=1071 CLL RAL / @@0511=7104 C0512, 7006 / RTL DCA D0064 / @@0513=3064 JMS I C0570 / long call to S2636 @@0514=4770 L0515, C0515, 4767 / JMS I C0567 LAS / @@0516=7604 AND C0025 / @@0517=0025 SZA CLA / @@0520=7640 HLT / @@0521=7402 LAS / @@0522=7604 AND D0024 / @@0523=0024 SZA CLA / @@0524=7640 JMP I C0566 / long jump to L0214 @@0525=5766 JMP L0515 / @@0526=5315 L0527, JMS I C0570 / long call to S2636 @@0527=4770 L0530, JMS I C0565 / long call to S0600 @@0530=4765 LAS / @@0531=7604 C0532, 0025 / AND C0025 SZA CLA / @@0533=7640 HLT / @@0534=7402 LAS / @@0535=7604 AND D0024 / @@0536=0024 SZA CLA / @@0537=7640 JMP I C0566 / long jump to L0214 @@0540=5766 JMS I C0576 / long call to S1640 @@0541=4776 JMP I C0575 / long jump to L1000 @@0542=5775 JMP L0530 / @@0543=5330 *0565 C0565, C0565, 0600 / AND I C0400 C0566, C0566, 0214 / AND C0414 C0567, C0567, 1200 / TAD C0400 C0570, C0570, 2636 / ISZ I C0436 C0571, 0027 / AND C0027 C0572, C0572, 1631 / TAD I C0431 C0573, C0573, 2712 / ISZ I C0512 C0574, C0574, 2732 / ISZ I C0532 C0575, C0575, 1000 / TAD L0000 C0576, C0576, 1640 / TAD I C0440 DCA D0074 / @@0577=3074 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 0530 1002 1020 1034 1050 1064 1100 1114 1130 1143 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S0600, 0 / return area CLA / @@0601=7200 RIF / Same as RDF except reads the instruc @@0602=6224 DCA D0063 / @@0603=3063 TAD D0037 / @@0604=1037 SZA CLA / @@0605=7640 JMP L0622 / @@0606=5222 TAD C0110 / @@0607=1110 DCA D0064 / @@0610=3064 DCA D0072 / @@0611=3072 JMS I C0777 / long call to S1631 @@0612=4777 JMP L0622 / @@0613=5222 JMS I C0776 / long call to S1200 @@0614=4776 TAD D0072 / @@0615=1072 SZA CLA / @@0616=7640 L0617, ISZ D0047 / @@0617=2047 SKP / @@0620=7410 JMP L0617 / @@0621=5217 L0622, TAD D0036 / @@0622=1036 SZA CLA / @@0623=7640 JMP L0640 / @@0624=5240 TAD C0107 / @@0625=1107 DCA D0064 / @@0626=3064 DCA D0072 / @@0627=3072 JMS I C0777 / long call to S1631 @@0630=4777 C0631, 5240 / JMP L0640 JMS I C0776 / long call to S1200 @@0632=4776 TAD D0072 / @@0633=1072 SZA CLA / @@0634=7640 L0635, ISZ D0046 / @@0635=2046 SKP / @@0636=7410 JMP L0635 / @@0637=5235 L0640, TAD D0035 / @@0640=1035 SZA CLA / @@0641=7640 JMP L0656 / @@0642=5256 TAD C0106 / @@0643=1106 DCA D0064 / @@0644=3064 DCA D0072 / @@0645=3072 JMS I C0777 / long call to S1631 @@0646=4777 JMP L0656 / @@0647=5256 JMS I C0776 / long call to S1200 @@0650=4776 TAD D0072 / @@0651=1072 SZA CLA / @@0652=7640 L0653, ISZ D0045 / @@0653=2045 SKP / @@0654=7410 JMP L0653 / @@0655=5253 L0656, TAD D0034 / @@0656=1034 SZA CLA / @@0657=7640 JMP L0674 / @@0660=5274 TAD C0105 / @@0661=1105 DCA D0064 / @@0662=3064 DCA D0072 / @@0663=3072 JMS I C0777 / long call to S1631 @@0664=4777 JMP L0674 / @@0665=5274 JMS I C0776 / long call to S1200 @@0666=4776 TAD D0072 / @@0667=1072 SZA CLA / @@0670=7640 L0671, ISZ D0044 / @@0671=2044 SKP / @@0672=7410 JMP L0671 / @@0673=5271 L0674, TAD D0033 / @@0674=1033 SZA CLA / @@0675=7640 JMP L0712 / @@0676=5312 TAD C0104 / @@0677=1104 DCA D0064 / @@0700=3064 DCA D0072 / @@0701=3072 JMS I C0777 / long call to S1631 @@0702=4777 JMP L0712 / @@0703=5312 JMS I C0776 / long call to S1200 @@0704=4776 TAD D0072 / @@0705=1072 SZA CLA / @@0706=7640 L0707, ISZ D0043 / @@0707=2043 SKP / @@0710=7410 JMP L0707 / @@0711=5307 L0712, TAD D0032 / @@0712=1032 SZA CLA / @@0713=7640 JMP L0730 / @@0714=5330 TAD C0103 / @@0715=1103 DCA D0064 / @@0716=3064 DCA D0072 / @@0717=3072 JMS I C0777 / long call to S1631 @@0720=4777 JMP L0730 / @@0721=5330 JMS I C0776 / long call to S1200 @@0722=4776 TAD D0072 / @@0723=1072 SZA CLA / @@0724=7640 L0725, ISZ D0042 / @@0725=2042 SKP / @@0726=7410 JMP L0725 / @@0727=5325 L0730, TAD D0031 / @@0730=1031 SZA CLA / @@0731=7640 JMP L0746 / @@0732=5346 TAD C0102 / @@0733=1102 DCA D0064 / @@0734=3064 DCA D0072 / @@0735=3072 JMS I C0777 / long call to S1631 @@0736=4777 JMP L0746 / @@0737=5346 JMS I C0776 / long call to S1200 @@0740=4776 TAD D0072 / @@0741=1072 SZA CLA / @@0742=7640 L0743, ISZ D0041 / @@0743=2041 SKP / @@0744=7410 JMP L0743 / @@0745=5343 L0746, TAD D0030 / @@0746=1030 SZA CLA / @@0747=7640 JMP L0761 / @@0750=5361 DCA D0064 / @@0751=3064 DCA D0072 / @@0752=3072 JMS I C0777 / long call to S1631 @@0753=4777 JMP L0761 / @@0754=5361 JMS I C0776 / long call to S1200 @@0755=4776 TAD D0072 / @@0756=1072 SZA CLA / @@0757=7640 L0760, ISZ D0040 / @@0760=2040 L0761, JMP I S0600 / return @@0761=5600 JMP L0760 / @@0762=5360 *0776 C0776, C0776, 1200 / TAD S0600 C0777, C0777, 1631 / TAD I C0631 L1000, C1000, 4777 / JMS I C1177 JMS I C1176 / long call to S3051 @@1001=4776 JMS I C1175 / long call to S0600 @@1002=4775 JMS I C1174 / long call to S1640 @@1003=4774 SKP / @@1004=7410 JMP I C1173 / long jump to L0527 @@1005=5773 L1006, RIF / Same as RDF except reads the instruc @@1006=6224 DCA D0063 / @@1007=3063 TAD D0047 / @@1010=1047 SZA CLA / @@1011=7640 JMP L1024 / @@1012=5224 TAD C0110 / @@1013=1110 C1014, 3064 / DCA D0064 JMS I C1172 / long call to S1631 @@1015=4772 SKP / @@1016=7410 JMS I C1171 / long call to S1646 @@1017=4771 JMS I C1175 / long call to S0600 @@1020=4775 JMS I C1174 / long call to S1640 @@1021=4774 SKP / @@1022=7410 JMP I C1173 / long jump to L0527 @@1023=5773 L1024, TAD D0046 / @@1024=1046 SZA CLA / @@1025=7640 JMP L1040 / @@1026=5240 TAD C0107 / @@1027=1107 DCA D0064 / @@1030=3064 C1031, 4772 / JMS I C1172 SKP / @@1032=7410 JMS I C1171 / long call to S1646 @@1033=4771 JMS I C1175 / long call to S0600 @@1034=4775 JMS I C1174 / long call to S1640 @@1035=4774 SKP / @@1036=7410 JMP I C1173 / long jump to L0527 @@1037=5773 L1040, C1040, 1045 / TAD D0045 SZA CLA / @@1041=7640 JMP L1054 / @@1042=5254 TAD C0106 / @@1043=1106 DCA D0064 / @@1044=3064 JMS I C1172 / long call to S1631 @@1045=4772 C1046, 7410 / SKP JMS I C1171 / long call to S1646 @@1047=4771 JMS I C1175 / long call to S0600 @@1050=4775 JMS I C1174 / long call to S1640 @@1051=4774 SKP / @@1052=7410 JMP I C1173 / long jump to L0527 @@1053=5773 L1054, TAD D0044 / @@1054=1044 SZA CLA / @@1055=7640 JMP L1070 / @@1056=5270 TAD C0105 / @@1057=1105 DCA D0064 / @@1060=3064 JMS I C1172 / long call to S1631 @@1061=4772 SKP / @@1062=7410 JMS I C1171 / long call to S1646 @@1063=4771 JMS I C1175 / long call to S0600 @@1064=4775 JMS I C1174 / long call to S1640 @@1065=4774 SKP / @@1066=7410 JMP I C1173 / long jump to L0527 @@1067=5773 L1070, TAD D0043 / @@1070=1043 SZA CLA / @@1071=7640 C1072, 5304 / JMP L1104 TAD C0104 / @@1073=1104 DCA D0064 / @@1074=3064 JMS I C1172 / long call to S1631 @@1075=4772 SKP / @@1076=7410 JMS I C1171 / long call to S1646 @@1077=4771 JMS I C1175 / long call to S0600 @@1100=4775 JMS I C1174 / long call to S1640 @@1101=4774 SKP / @@1102=7410 JMP I C1173 / long jump to L0527 @@1103=5773 L1104, TAD D0042 / @@1104=1042 SZA CLA / @@1105=7640 JMP L1120 / @@1106=5320 TAD C0103 / @@1107=1103 DCA D0064 / @@1110=3064 JMS I C1172 / long call to S1631 @@1111=4772 SKP / @@1112=7410 JMS I C1171 / long call to S1646 @@1113=4771 JMS I C1175 / long call to S0600 @@1114=4775 JMS I C1174 / long call to S1640 @@1115=4774 SKP / @@1116=7410 JMP I C1173 / long jump to L0527 @@1117=5773 L1120, TAD D0041 / @@1120=1041 SZA CLA / @@1121=7640 JMP L1134 / @@1122=5334 TAD C0102 / @@1123=1102 DCA D0064 / @@1124=3064 JMS I C1172 / long call to S1631 @@1125=4772 SKP / @@1126=7410 JMS I C1171 / long call to S1646 @@1127=4771 JMS I C1175 / long call to S0600 @@1130=4775 JMS I C1174 / long call to S1640 @@1131=4774 SKP / @@1132=7410 JMP I C1173 / long jump to L0527 @@1133=5773 L1134, TAD D0040 / @@1134=1040 SZA CLA / @@1135=7640 JMP L1144 / @@1136=5344 DCA D0064 / @@1137=3064 JMS I C1172 / long call to S1631 @@1140=4772 SKP / @@1141=7410 JMS I C1171 / long call to S1646 @@1142=4771 JMS I C1175 / long call to S0600 @@1143=4775 L1144, LAS / @@1144=7604 AND C0025 / @@1145=0025 SZA CLA / @@1146=7640 HLT / @@1147=7402 LAS / @@1150=7604 AND D0024 / @@1151=0024 SZA CLA / @@1152=7640 JMP I C1170 / long jump to L0214 @@1153=5770 JMS I C1174 / long call to S1640 @@1154=4774 JMP L1006 / @@1155=5206 JMP I C1173 / long jump to L0527 @@1156=5773 *1170 C1170, C1170, 0214 / AND C1014 C1171, C1171, 1646 / TAD I C1046 C1172, C1172, 1631 / TAD I C1031 C1173, C1173, 0527 / AND I C0127 C1174, C1174, 1640 / TAD I L1040 C1175, C1175, 0600 / AND I L1000 C1176, C1176, 3051 / DCA D0051 ISZ I C1072 / @@1177=2672 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 0614 0632 0650 0666 0704 0722 0740 0755 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area CLA CLL / AC = 0000 @@1201=7300 TAD D0064 / @@1202=1064 TAD C0141 / @@1203=1141 DCA D1252 / @@1204=3252 TAD D1252 / @@1205=1252 DCA I C1377 / @@1206=3777 TAD I C1377 / @@1207=1777 DCA I C1376 / @@1210=3776 TAD I C1376 / @@1211=1776 DCA I C1375 / @@1212=3775 DCA D0072 / @@1213=3072 C1214, 1056 / TAD D0056 RAR / @@1215=7010 SZL CLA / @@1216=7630 JMS S1250 / @@1217=4250 TAD D0056 / @@1220=1056 RTR / @@1221=7012 SZL CLA / @@1222=7630 JMS I C1374 / long call to S1400 @@1223=4774 TAD D0056 / @@1224=1056 RTL / @@1225=7006 SZL CLA / @@1226=7630 JMS I C1373 / long call to S1443 @@1227=4773 TAD D0056 / @@1230=1056 RAL / @@1231=7004 SZL CLA / @@1232=7630 JMS I C1372 / long call to S1514 @@1233=4772 LAS / @@1234=7604 AND D0024 / @@1235=0024 SZA CLA / @@1236=7640 JMP I C1371 / long jump to L0214 @@1237=5771 ISZ D0152 / @@1240=2152 JMP I S1200 / return @@1241=5600 TAD D0153 / @@1242=1153 DCA D0152 / @@1243=3152 JMS I C0144 / long call to S2050 @@1244=4544 JMS I C0143 / long call to S2042 @@1245=4543 C1246, 6500 / 6500 JMP I S1200 / return @@1247=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1250 / / Called from: / 1217 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1250, 0 / return area DCA D0057 / @@1251=3057 D1252, 6201 / CDF0 L1253, TAD D0057 / @@1253=1057 DCA I D0057 / @@1254=3457 ISZ D0057 / @@1255=2057 D1256, 5253 / JMP L1253 L1257, TAD D0057 / @@1257=1057 CIA / @@1260=7041 TAD I D0057 / @@1261=1457 SZA CLA / @@1262=7640 JMP L1273 / @@1263=5273 L1264, ISZ D0057 / @@1264=2057 JMP L1257 / @@1265=5257 TAD D0063 / @@1266=1063 TAD C0141 / @@1267=1141 DCA D1271 / @@1270=3271 D1271, 6201 / CDF0 JMP I S1250 / return @@1272=5650 L1273, TAD D0057 / @@1273=1057 DCA D0066 / @@1274=3066 TAD I D0057 / @@1275=1457 DCA D0065 / @@1276=3065 TAD D0063 / @@1277=1063 TAD C0141 / @@1300=1141 DCA D1302 / @@1301=3302 D1302, 6201 / CDF0 JMS I C1370 / long call to S2256 @@1303=4770 TAD D0064 / @@1304=1064 TAD C0141 / @@1305=1141 DCA D1307 / @@1306=3307 D1307, 6201 / CDF0 JMP L1264 / @@1310=5264 *1370 C1370, C1370, 2256 / ISZ D1256 C1371, C1371, 0214 / AND C1214 C1372, C1372, 1514 / TAD I C0114 C1373, C1373, 1443 / TAD I D0043 C1374, C1374, 1400 / TAD I L0000 C1375, 1516 / TAD I C0116 C1376, 1445 / TAD I D0045 C1377, 1402 / TAD I C0002 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / Called from: / 1223 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1400, 0 / return area DCA D0057 / @@1401=3057 D1402, 6201 / CDF0 L1403, TAD D0057 / @@1403=1057 CMA / @@1404=7040 DCA I D0057 / @@1405=3457 ISZ D0057 / @@1406=2057 JMP L1403 / @@1407=5203 L1410, TAD D0057 / @@1410=1057 IAC / @@1411=7001 TAD I D0057 / @@1412=1457 SZA CLA / @@1413=7640 JMP L1424 / @@1414=5224 L1415, ISZ D0057 / @@1415=2057 JMP L1410 / @@1416=5210 C1417, 1063 / TAD D0063 TAD C0141 / @@1420=1141 DCA D1422 / @@1421=3222 D1422, 6201 / CDF0 JMP I S1400 / return @@1423=5600 L1424, TAD D0057 / @@1424=1057 CMA / @@1425=7040 DCA D0066 / @@1426=3066 TAD I D0057 / @@1427=1457 DCA D0065 / @@1430=3065 TAD D0063 / @@1431=1063 TAD C0141 / @@1432=1141 DCA D1434 / @@1433=3234 D1434, 6201 / CDF0 JMS I C1577 / long call to S2342 @@1435=4777 TAD D0064 / @@1436=1064 TAD C0141 / @@1437=1141 DCA D1441 / @@1440=3241 D1441, 6201 / CDF0 JMP L1415 / @@1442=5215 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1443 / / Called from: / 1227 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1443, 0 / return area DCA D0057 / @@1444=3057 D1445, 6201 / CDF0 L1446, TAD D0057 / @@1446=1057 TAD D0074 / @@1447=1074 DCA D0057 / @@1450=3057 TAD D0057 / @@1451=1057 DCA I D0057 / @@1452=3457 TAD D0057 / @@1453=1057 SZA CLA / @@1454=7640 JMP L1446 / @@1455=5246 L1456, TAD D0057 / @@1456=1057 TAD D0074 / @@1457=1074 DCA D0057 / @@1460=3057 TAD D0057 / @@1461=1057 CIA / @@1462=7041 TAD I D0057 / @@1463=1457 SZA CLA / @@1464=7640 JMP L1476 / @@1465=5276 L1466, TAD D0057 / @@1466=1057 SZA CLA / @@1467=7640 JMP L1456 / @@1470=5256 TAD D0063 / @@1471=1063 TAD C0141 / @@1472=1141 DCA D1474 / @@1473=3274 D1474, 6201 / CDF0 JMP I S1443 / return @@1475=5643 L1476, TAD D0057 / @@1476=1057 DCA D0066 / @@1477=3066 TAD I D0057 / @@1500=1457 DCA D0065 / @@1501=3065 TAD D0063 / @@1502=1063 TAD C0141 / @@1503=1141 DCA D1505 / @@1504=3305 D1505, 6201 / CDF0 JMS I C1576 / long call to S2400 @@1506=4776 TAD D0064 / @@1507=1064 TAD C0141 / @@1510=1141 DCA D1512 / @@1511=3312 D1512, 6201 / CDF0 JMP L1466 / @@1513=5266 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1514 / / Called from: / 1233 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1514, 0 / return area DCA D0057 / @@1515=3057 D1516, 6201 / CDF0 L1517, TAD D0057 / @@1517=1057 TAD D0074 / @@1520=1074 DCA D0057 / @@1521=3057 TAD D0057 / @@1522=1057 CMA / @@1523=7040 DCA I D0057 / @@1524=3457 TAD D0057 / @@1525=1057 SZA CLA / @@1526=7640 JMP L1517 / @@1527=5317 L1530, TAD D0057 / @@1530=1057 TAD D0074 / @@1531=1074 DCA D0057 / @@1532=3057 TAD D0057 / @@1533=1057 IAC / @@1534=7001 TAD I D0057 / @@1535=1457 SZA CLA / @@1536=7640 JMP L1550 / @@1537=5350 L1540, TAD D0057 / @@1540=1057 SZA CLA / @@1541=7640 D1542, 5330 / JMP L1530 TAD D0063 / @@1543=1063 TAD C0141 / @@1544=1141 DCA D1546 / @@1545=3346 D1546, 6201 / CDF0 JMP I S1514 / return @@1547=5714 L1550, TAD D0057 / @@1550=1057 CMA / @@1551=7040 DCA D0066 / @@1552=3066 TAD I D0057 / @@1553=1457 DCA D0065 / @@1554=3065 TAD D0063 / @@1555=1063 TAD C0141 / @@1556=1141 DCA D1560 / @@1557=3360 D1560, 6201 / CDF0 JMS I C1575 / long call to S2416 @@1561=4775 TAD D0064 / @@1562=1064 TAD C0141 / @@1563=1141 DCA D1565 / @@1564=3365 D1565, 6201 / CDF0 JMP L1540 / @@1566=5340 *1575 C1575, C1575, 2416 / ISZ I AI6 C1576, C1576, 2400 / ISZ I L0000 C1577, C1577, 2342 / ISZ D1542 CLA / @@1600=7200 TAD C0154 / @@1601=1154 DCA D0153 / @@1602=3153 TAD C0133 / @@1603=1133 JMP I C1777 / long jump to L0205 @@1604=5777 L1605, C1605, 7200 / CLA TAD C0155 / @@1606=1155 DCA D0153 / @@1607=3153 IAC / @@1610=7001 JMP I C1777 / long jump to L0205 @@1611=5777 L1612, CLA CLL / AC = 0000 @@1612=7300 TAD C0156 / @@1613=1156 DCA D0153 / @@1614=3153 IAC RAL / @@1615=7005 JMP I C1777 / long jump to L0205 @@1616=5777 L1617, CLA / @@1617=7200 TAD C0157 / @@1620=1157 DCA D0153 / @@1621=3153 CLL CML RTR / @@1622=7132 JMP I C1777 / long jump to L0205 @@1623=5777 L1624, CLA / @@1624=7200 TAD C0160 / @@1625=1160 DCA D0153 / @@1626=3153 CLL CML RAR / @@1627=7130 JMP I C1777 / long jump to L0205 @@1630=5777 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1631 / / Called from: / 0473 0612 0630 0646 0664 0702 0720 0736 0753 1015 1045 1061 1075 1111 1125 / 1140 / Total 0020 (16) calls //////////////////////////////////////////////////////////////////////////////// S1631, 0 / return area TAD D0063 / @@1632=1063 CIA / @@1633=7041 TAD D0064 / @@1634=1064 SZA CLA / @@1635=7640 ISZ S1631 / @@1636=2231 JMP I S1631 / return @@1637=5631 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1640 / / Called from: / 0405 0541 1003 1021 1035 1051 1065 1101 1115 1131 1154 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S1640, 0 / return area LAS / @@1641=7604 AND C0023 / @@1642=0023 SZA CLA / @@1643=7640 ISZ S1640 / @@1644=2240 JMP I S1640 / return @@1645=5640 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1646 / / Called from: / 1017 1033 1047 1063 1077 1113 1127 1142 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S1646, 0 / return area CLA / @@1647=7200 DCA D0072 / @@1650=3072 DCA D0067 / @@1651=3067 TAD C0141 / @@1652=1141 TAD D0063 / @@1653=1063 DCA L1665 / @@1654=3265 TAD C0141 / @@1655=1141 TAD D0064 / @@1656=1064 DCA D1667 / @@1657=3267 TAD L1665 / @@1660=1265 DCA D1672 / @@1661=3272 TAD C0142 / @@1662=1142 TAD D0064 / @@1663=1064 DCA D1703 / @@1664=3303 L1665, D1665, 6201 / CDF0 TAD I D0067 / @@1666=1467 D1667, 6201 / CDF0 DCA I D0067 / @@1670=3467 TAD I D0067 / @@1671=1467 D1672, 6201 / CDF0 CIA / @@1673=7041 TAD I D0067 / @@1674=1467 SZA CLA / @@1675=7640 JMS I C1776 / long call to S2434 @@1676=4776 ISZ D0067 / @@1677=2067 JMP L1665 / @@1700=5265 TAD D0072 / @@1701=1072 SNA CLA / @@1702=7650 D1703, 6203 / 6203 JMP I S1646 / return @@1704=5646 D1705, 0000 / AND L0000 ISZ D0031 / @@1706=2031 ISZ D0032 / @@1707=2032 ISZ D0033 / @@1710=2033 ISZ D0034 / @@1711=2034 ISZ D0035 / @@1712=2035 ISZ D0036 / @@1713=2036 ISZ D0037 / @@1714=2037 JMP I D1705 / long jump to L0000 @@1715=5705 ISZ D0036 / @@1716=2036 ISZ D0035 / @@1717=2035 ISZ D0034 / @@1720=2034 ISZ D0033 / @@1721=2033 ISZ D0032 / @@1722=2032 ISZ D0031 / @@1723=2031 ISZ D0030 / @@1724=2030 JMP I D1726 / long jump to L0000 @@1725=5726 D1726, 0000 / AND L0000 L1727, DCA D0037 / @@1727=3037 DCA D0036 / @@1730=3036 DCA D0035 / @@1731=3035 DCA D0034 / @@1732=3034 DCA D0033 / @@1733=3033 DCA D0032 / @@1734=3032 DCA D0031 / @@1735=3031 DCA D0030 / @@1736=3030 JMP I D1740 / long jump to L0000 @@1737=5740 D1740, 0000 / AND L0000 JMP L1727 / @@1741=5327 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1742 / / Called from: / 0233 0262 0276 0304 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1742, 0 / return area TAD D0061 / @@1743=1061 CLL RTR / @@1744=7112 RAR / @@1745=7010 CIA / @@1746=7041 JMP I S1742 / return @@1747=5742 *1776 C1776, C1776, 2434 / ISZ I D0034 C1777, C1777, 0205 / AND L1605 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2000 / / Called from: / 2226 2314 2317 2322 2454 / Total 0005 (5) calls //////////////////////////////////////////////////////////////////////////////// S2000, 0 / return area CLA CLL / AC = 0000 @@2001=7300 TAD I S2000 / @@2002=1600 DCA D2037 / @@2003=3237 ISZ S2000 / @@2004=2200 TAD I S2000 / @@2005=1600 DCA D2040 / @@2006=3240 ISZ S2000 / @@2007=2200 TAD C0111 / @@2010=1111 CMA / @@2011=7040 AND I D2037 / @@2012=0637 CLL RTR / @@2013=7112 RTR / @@2014=7012 RTR / @@2015=7012 JMS S2024 / @@2016=4224 ISZ D2040 / @@2017=2240 TAD C0111 / @@2020=1111 AND I D2037 / @@2021=0637 JMS S2024 / @@2022=4224 JMP I S2000 / return @@2023=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2024 / / Called from: / 2016 2022 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2024, 0 / return area DCA D2041 / @@2025=3241 TAD D2041 / @@2026=1241 CLL RTL / @@2027=7106 RAL / @@2030=7004 AND C0130 / @@2031=0130 TAD D2041 / @@2032=1241 AND C0130 / @@2033=0130 TAD C0134 / @@2034=1134 DCA I D2040 / @@2035=3640 JMP I S2024 / return @@2036=5624 D2037, 0000 / AND L0000 D2040, 0000 / AND L0000 D2041, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2042 / / Called from: / 1245 2120 2207 2232 2501 2602 2623 2674 3021 3025 3045 3047 3076 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S2042, 0 / return area TLS / Load the TTO from the content of AC4 @@2043=6046 L2044, TSF / Skip if teleprinter flag is a 1. @@2044=6041 JMP L2044 / @@2045=5244 CLA CLL / AC = 0000 @@2046=7300 JMP I S2042 / return @@2047=5642 C2050, 0000 / AND L0000 STA / AC = 7777 (-0001) @@2051=7240 TAD C2050 / @@2052=1250 C2053, 3010 / DCA AI0 L2054, C2054, 1410 / TAD I AI0 DCA D2066 / @@2055=3266 TAD D2066 / @@2056=1266 CLL RTR / @@2057=7112 RTR / @@2060=7012 RTR / @@2061=7012 JMS S2067 / @@2062=4267 TAD D2066 / @@2063=1266 JMS S2067 / @@2064=4267 JMP L2054 / @@2065=5254 D2066, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2067 / / Called from: / 2062 2064 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2067, 0 / return area AND C0111 / @@2070=0111 SNA / @@2071=7450 C2072, 5410 / JMP I AI0 TAD D0100 / @@2073=1100 SZA / @@2074=7440 JMP L2100 / @@2075=5300 TAD C0112 / @@2076=1112 JMP L2120 / @@2077=5320 L2100, TAD C0077 / @@2100=1077 SMA / @@2101=7500 JMP L2105 / @@2102=5305 TAD C0127 / @@2103=1127 JMP L2120 / @@2104=5320 L2105, TAD C0076 / @@2105=1076 SZA / @@2106=7440 JMP L2112 / @@2107=5312 TAD C0113 / @@2110=1113 JMP L2120 / @@2111=5320 L2112, TAD C0075 / @@2112=1075 SZA / @@2113=7440 JMP L2117 / @@2114=5317 TAD C0114 / @@2115=1114 SKP / @@2116=7410 L2117, TAD C0116 / @@2117=1116 L2120, JMS S2042 / @@2120=4242 JMP I S2067 / return @@2121=5667 *2200 C2200, D2200, 0000 / AND L0000 L2201, C2201, 6002 / IOF LAS / @@2202=7604 AND D0022 / @@2203=0022 SNA CLA / @@2204=7650 JMP L2211 / @@2205=5211 L2206, TAD C0112 / @@2206=1112 JMS I C0143 / long call to S2042 @@2207=4543 JMP I D2200 / long jump to L0000 @@2210=5600 L2211, LAS / @@2211=7604 AND C0021 / @@2212=0021 SZA CLA / @@2213=7640 C2214, 5242 / JMP L2242 RIF / Same as RDF except reads the instruc @@2215=6224 RTR / @@2216=7012 RAR / @@2217=7010 AND C0101 / @@2220=0101 TAD C0131 / @@2221=1131 DCA D2233 / @@2222=3233 TAD D2200 / @@2223=1200 TAD D0074 / @@2224=1074 DCA D0073 / @@2225=3073 JMS I C0145 / long call to S2000 @@2226=4545 AND D0073 / @@2227=0073 ISZ D2234 / @@2230=2234 JMS I C0144 / long call to S2050 @@2231=4544 JMS I C0143 / long call to S2042 @@2232=4543 D2233, 0000 / AND L0000 D2234, 0000 / AND L0000 AND L0000 / @@2235=0000 JMS D0040 / @@2236=4040 AND L0000 / @@2237=0000 JMP I D2241 / long jump to L0000 @@2240=5641 C2241, D2241, 0000 / AND L0000 L2242, LAS / @@2242=7604 AND C0020 / @@2243=0020 SNA CLA / @@2244=7650 JMP L2251 / @@2245=5251 TAD D2200 / @@2246=1200 TAD D0074 / @@2247=1074 HLT / @@2250=7402 L2251, LAS / @@2251=7604 AND D0024 / @@2252=0024 SZA CLA / @@2253=7640 JMP I C2377 / long jump to L0214 @@2254=5777 JMP I D2200 / long jump to L0000 @@2255=5600 C2256, 0000 / AND L0000 L2257, ISZ D0072 / @@2257=2072 SKP / @@2260=7410 JMP L2257 / @@2261=5257 CLA / @@2262=7200 TAD C2256 / @@2263=1256 DCA I C0147 / @@2264=3547 TAD C2270 / @@2265=1270 DCA I C0151 / @@2266=3551 SKP / @@2267=7410 C2270, 2307 / ISZ C2307 TAD C0135 / @@2271=1135 DCA D2340 / @@2272=3340 L2273, LAS / @@2273=7604 AND D0022 / @@2274=0022 SZA CLA / @@2275=7640 JMP L2206 / @@2276=5206 LAS / @@2277=7604 AND C0021 / @@2300=0021 SZA CLA / @@2301=7640 JMP I C0150 / long jump to L2242 @@2302=5550 ISZ D0053 / @@2303=2053 SKP / @@2304=7410 JMS I C2376 / long call to S2477 @@2305=4776 JMP I C0146 / long jump to L2201 @@2306=5546 TAD D0064 / @@2307=1064 CLL RTR / @@2310=7112 RAR / @@2311=7010 TAD C0131 / @@2312=1131 DCA D2326 / @@2313=3326 JMS I C0145 / long call to S2000 @@2314=4545 AND D0057 / @@2315=0057 ISZ D2327 / @@2316=2327 JMS I C0145 / long call to S2000 @@2317=4545 AND D0066 / @@2320=0066 ISZ D2332 / @@2321=2332 JMS I C0145 / long call to S2000 @@2322=4545 AND D0065 / @@2323=0065 ISZ D2335 / @@2324=2335 JMS I C0144 / long call to S2050 @@2325=4544 D2326, 0000 / AND L0000 D2327, 0000 / AND L0000 AND L0000 / @@2330=0000 JMS D0040 / @@2331=4040 D2332, 0000 / AND L0000 AND L0000 / @@2333=0000 JMS D0040 / @@2334=4040 D2335, 0000 / AND L0000 AND L0000 / @@2336=0000 JMS D0040 / @@2337=4040 D2340, 0000 / AND L0000 JMP I C0150 / long jump to L2242 @@2341=5550 C2342, 0000 / AND L0000 L2343, ISZ D0072 / @@2343=2072 SKP / @@2344=7410 JMP L2343 / @@2345=5343 CLA / @@2346=7200 TAD C2342 / @@2347=1342 DCA I C0147 / @@2350=3547 TAD C2354 / @@2351=1354 DCA I C0151 / @@2352=3551 SKP / @@2353=7410 C2354, 2307 / ISZ C2307 TAD C0136 / @@2355=1136 DCA D2340 / @@2356=3340 JMP L2273 / @@2357=5273 *2376 C2376, C2376, 2477 / ISZ I C0077 C2377, C2377, 0214 / AND C2214 C2400, 0000 / AND L0000 L2401, C2401, 2072 / ISZ D0072 SKP / @@2402=7410 JMP L2401 / @@2403=5201 CLA / @@2404=7200 D2405, 1200 / TAD C2400 DCA I C0147 / @@2406=3547 TAD C2412 / @@2407=1212 DCA I C0151 / @@2410=3551 SKP / @@2411=7410 C2412, 2307 / ISZ C2507 TAD C0137 / @@2413=1137 DCA I C2577 / @@2414=3777 JMP I C2576 / long jump to L2273 @@2415=5776 C2416, 0000 / AND L0000 L2417, ISZ D0072 / @@2417=2072 SKP / @@2420=7410 JMP L2417 / @@2421=5217 D2422, 7200 / CLA TAD C2416 / @@2423=1216 DCA I C0147 / @@2424=3547 TAD C2430 / @@2425=1230 DCA I C0151 / @@2426=3551 SKP / @@2427=7410 C2430, 2307 / ISZ C2507 TAD C0140 / @@2431=1140 DCA I C2577 / @@2432=3777 JMP I C2576 / long jump to L2273 @@2433=5776 C2434, 0000 / AND L0000 L2435, ISZ D0072 / @@2435=2072 SKP / @@2436=7410 JMP L2435 / @@2437=5235 D2440, 7200 / CLA TAD C2434 / @@2441=1234 DCA I C0147 / @@2442=3547 TAD C2446 / @@2443=1246 DCA I C0151 / @@2444=3551 JMP I C0146 / long jump to L2201 @@2445=5546 C2446, 2447 / ISZ I D0047 TAD D0064 / @@2447=1064 CLL RTR / @@2450=7112 RAR / @@2451=7010 TAD C0131 / @@2452=1131 DCA D2470 / @@2453=3270 JMS I C0145 / long call to S2000 @@2454=4545 AND D0067 / @@2455=0067 ISZ I D0071 / @@2456=2471 JMS I C0144 / long call to S2050 @@2457=4544 ISZ D2405 / @@2460=2205 C2461, 1417 / TAD I AI7 C2462, 4005 / JMS C0005 ISZ D2422 / @@2463=2222 C2464, 4001 / JMS L0001 ISZ I D0040 / @@2465=2440 AND L0000 / @@2466=0000 JMS I C0144 / long call to S2050 @@2467=4544 D2470, 0000 / AND L0000 AND L0000 / @@2471=0000 AND L0000 / @@2472=0000 D2473, 0000 / AND L0000 STA / AC = 7777 (-0001) @@2474=7240 DCA D0053 / @@2475=3053 JMP I C0150 / long jump to L2242 @@2476=5550 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2477 / / Called from: / 2305 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2477, 0 / return area JMS I C0144 / long call to S2050 @@2500=4544 JMS I C0143 / long call to S2042 @@2501=4543 ISZ D0022 / @@2502=2022 C2503, 4014 / JMS AI4 C2504, 1703 / TAD I C2503 JMS D0040 / @@2505=4040 C2506, 4001 / JMS L0001 C2507, 0404 / AND I C0004 ISZ D2440 / @@2510=2240 JMS D0040 / @@2511=4040 AND I C2517 / @@2512=0717 TAD I C2504 / @@2513=1704 JMS D0040 / @@2514=4040 AND L2401 / @@2515=0201 AND I D0040 / @@2516=0440 C2517, 4024 / JMS D0024 AND I C0123 / @@2520=0523 ISZ I L0000 / @@2521=2400 JMP I S2477 / return @@2522=5677 *2576 C2576, C2576, 2273 / ISZ D2473 C2577, 2340 / ISZ C2540 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Called from: / 0213 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area JMS I C0144 / long call to S2050 @@2601=4544 JMS I C0143 / long call to S2042 @@2602=4543 C2603, 4305 / JMS D2705 C2604, 0170 / AND C0170 D2605, 5505 / JMP I C0105 C2606, 4005 / JMS C0005 DCA D0024 / @@2607=3024 C2610, 4015 / JMS AI5 C2611, 0515 / AND I C0115 C2612, 4001 / JMS L0001 C2613, 0404 / AND I C0004 C2614, 2240 / ISZ D2640 C2615, 2405 / ISZ I C0005 ISZ D2724 / @@2616=2324 D2617, 4300 / JMS C2700 JMP I S2600 / return @@2620=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2621 / / Called from: / 0214 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2621, 0 / return area JMS I C0144 / long call to S2050 @@2622=4544 JMS I C0143 / long call to S2042 @@2623=4543 ISZ D2705 / @@2624=2305 ISZ I C0025 / @@2625=2425 ISZ D0040 / @@2626=2040 ISZ D2722 / @@2627=2322 JMS D0046 / @@2630=4046 JMS D0003 / @@2631=4003 TAD I C2716 / @@2632=1716 ISZ I L0000 / @@2633=2400 HLT / @@2634=7402 JMP I S2621 / return @@2635=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2636 / / Called from: / 0514 0527 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2636, 0 / return area JMS I C0144 / long call to S2050 @@2637=4544 D2640, 4543 / JMS I C0143 TAD I D2617 / @@2641=1617 C2642, 4022 / JMS D0022 AND I C0114 / @@2643=0514 TAD I C2703 / @@2644=1703 AND C0124 / @@2645=0124 TAD C0117 / @@2646=1117 TAD I C2654 / @@2647=1654 C2650, 4020 / JMS C0020 ISZ D2617 / @@2651=2217 AND I C2740 / @@2652=0740 TAD C0116 / @@2653=1116 C2654, 4023 / JMS C0023 ISZ I L0001 / @@2655=2401 AND C2713 / @@2656=0313 JMS L0000 / @@2657=4000 RIF / Same as RDF except reads the instruc @@2660=6224 CLL RTL / @@2661=7106 RAL / @@2662=7004 TAD C0132 / @@2663=1132 DCA D2666 / @@2664=3266 JMS I C0144 / long call to S2050 @@2665=4544 D2666, 0000 / AND L0000 STA / AC = 7777 (-0001) @@2667=7240 DCA D0053 / @@2670=3053 JMP I S2636 / return @@2671=5636 C2672, C2672, 0000 / AND L0000 JMS I C0144 / long call to S2050 @@2673=4544 JMS I C0143 / long call to S2042 @@2674=4543 ISZ D0022 / @@2675=2022 TAD I C2707 / @@2676=1707 C2677, 4027 / JMS C0027 TAD C0114 / @@2700=1114 C2701, 1440 / TAD I D0040 ISZ D2605 / @@2702=2205 C2703, 1417 / TAD I AI7 AND C2701 / @@2704=0301 D2705, 2405 / ISZ I C0005 AND L0000 / @@2706=0000 C2707, 7240 / STA DCA D0053 / @@2710=3053 JMP I C2672 / long jump to L0000 @@2711=5672 L2712, JMS I C0144 / long call to S2050 @@2712=4544 C2713, 4543 / JMS I C0143 ISZ D0022 / @@2714=2022 TAD I C2707 / @@2715=1707 C2716, 2201 / ISZ C2601 TAD I C0140 / @@2717=1540 TAD C0116 / @@2720=1116 C2721, 4023 / JMS C0023 D2722, 0514 / AND I C0114 AND I C0103 / @@2723=0503 D2724, 2405 / ISZ I C0005 AND I D0040 / @@2725=0440 AND I C2611 / @@2726=0611 AND I C0114 / @@2727=0514 AND I L0000 / @@2730=0400 JMP I C2777 / long jump to L0214 @@2731=5777 L2732, JMS I C0144 / long call to S2050 @@2732=4544 TAD I D2617 / @@2733=1617 TAD I D2605 / @@2734=1605 AND L0000 / @@2735=0000 JMP I C2777 / long jump to L0214 @@2736=5777 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2737 / / Called from: / 0317 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2737, 0 / return area C2740, 7300 / CLA CLL DCA D0060 / @@2741=3060 CDF0 / Change to data field 1. The data fie @@2742=6211 JMS I C2776 / long call to S3000 @@2743=4776 CDF0 / Change to data field 2. The data fie @@2744=6221 JMS I C2776 / long call to S3000 @@2745=4776 CDF0 / Change to data field 3. The data fie @@2746=6231 JMS I C2776 / long call to S3000 @@2747=4776 CDF0 / Change to data field 4. The data fie @@2750=6241 JMS I C2776 / long call to S3000 @@2751=4776 CDF0 / Change to data field 5. The data fie @@2752=6251 JMS I C2776 / long call to S3000 @@2753=4776 CDF0 / Change to data field 6. The data fie @@2754=6261 JMS I C2776 / long call to S3000 @@2755=4776 CDF0 / Change to data field 7. The data fie @@2756=6271 JMS I C2776 / long call to S3000 @@2757=4776 L2760, JMP I S2737 / return @@2760=5737 *2776 C2776, C2776, 3000 / DCA L0000 C2777, C2777, 0214 / AND C2614 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 2743 2745 2747 2751 2753 2755 2757 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3000, 0 / return area CLA CLL / AC = 0000 @@3001=7300 RIF / Same as RDF except reads the instruc @@3002=6224 TAD C0141 / @@3003=1141 DCA D3010 / @@3004=3210 D3005, 1074 / TAD D0074 DCA I C3015 / @@3006=3615 TAD I C3015 / @@3007=1615 D3010, 6201 / CDF0 SNA CLA / @@3011=7650 JMP I C3177 / long jump to L2760 @@3012=5777 ISZ D0060 / @@3013=2060 JMP I S3000 / return @@3014=5600 C3015, 3016 / DCA AI6 D3016, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3017 / / Called from: / 0323 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3017, 0 / return area JMS I C0144 / long call to S2050 @@3020=4544 JMS I C0143 / long call to S2042 @@3021=4543 AND L0000 / @@3022=0000 TAD D0060 / @@3023=1060 IAC / @@3024=7001 JMS I C0143 / long call to S2042 @@3025=4543 JMS I C0144 / long call to S2050 @@3026=4544 C3027, 4023 / JMS C0023 ISZ I L0001 / @@3030=2401 AND C3113 / @@3031=0313 ISZ D3140 / @@3032=2340 TAD C0116 / @@3033=1116 C3034, 4024 / JMS D0024 C3035, 1011 / TAD AI1 ISZ D3140 / @@3036=2340 ISZ D3131 / @@3037=2331 ISZ D3124 / @@3040=2324 AND I C0115 / @@3041=0515 AND L0000 / @@3042=0000 JMP I S3017 / return @@3043=5617 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3044 / / Called from: / 3114 3121 3126 3133 3145 3152 3157 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S3044, 0 / return area JMS I C0143 / long call to S2042 @@3045=4543 TAD C0115 / @@3046=1115 JMS I C0143 / long call to S2042 @@3047=4543 JMP I S3044 / return @@3050=5644 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3051 / / Called from: / 1001 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3051, 0 / return area CLA / @@3052=7200 TAD D0030 / @@3053=1030 DCA D0040 / @@3054=3040 TAD D0031 / @@3055=1031 DCA D0041 / @@3056=3041 TAD D0032 / @@3057=1032 DCA D0042 / @@3060=3042 TAD D0033 / @@3061=1033 DCA D0043 / @@3062=3043 TAD D0034 / @@3063=1034 DCA D0044 / @@3064=3044 TAD D0035 / @@3065=1035 DCA D0045 / @@3066=3045 TAD D0036 / @@3067=1036 DCA D0046 / @@3070=3046 TAD D0037 / @@3071=1037 DCA D0047 / @@3072=3047 JMP I S3051 / return @@3073=5651 AND L0000 / @@3074=0000 JMS I C0144 / long call to S2050 @@3075=4544 JMS I C0143 / long call to S2042 @@3076=4543 ISZ D3124 / @@3077=2324 AND C0103 / @@3100=0103 TAD C3123 / @@3101=1323 C3102, 4023 / JMS C0023 AND I C0114 / @@3103=0514 C3104, 4704 / JMS I C3104 C3105, 4001 / JMS L0001 ISZ D3005 / @@3106=2205 JMS L0000 / @@3107=4000 TAD D0037 / @@3110=1037 SZA CLA / @@3111=7640 JMP L3115 / @@3112=5315 C3113, 1126 / TAD C0126 JMS S3044 / @@3114=4244 L3115, TAD D0036 / @@3115=1036 SZA CLA / @@3116=7640 JMP L3122 / @@3117=5322 TAD C0125 / @@3120=1125 JMS S3044 / @@3121=4244 L3122, TAD D0035 / @@3122=1035 C3123, 7640 / SZA CLA D3124, 5327 / JMP C3127 TAD C0124 / @@3125=1124 JMS S3044 / @@3126=4244 TAD D0034 / @@3127=1034 SZA CLA / @@3130=7640 D3131, 5334 / JMP C3134 TAD C0123 / @@3132=1123 JMS S3044 / @@3133=4244 TAD D0033 / @@3134=1033 SZA CLA / @@3135=7640 JMP L3141 / @@3136=5341 TAD C0122 / @@3137=1122 D3140, 4244 / JMS S3044 L3141, TAD D0032 / @@3141=1032 SZA CLA / @@3142=7640 JMP L3146 / @@3143=5346 TAD C0121 / @@3144=1121 JMS S3044 / @@3145=4244 L3146, TAD D0031 / @@3146=1031 SZA CLA / @@3147=7640 JMP L3153 / @@3150=5353 TAD C0120 / @@3151=1120 JMS S3044 / @@3152=4244 L3153, TAD D0030 / @@3153=1030 SZA CLA / @@3154=7640 JMP L3160 / @@3155=5360 TAD C0117 / @@3156=1117 JMS S3044 / @@3157=4244 L3160, C3160, 5674 / JMP I C3074 *3177 C3177, C3177, 2760 / ISZ I L3160 *3400 L3400, LAS / @@3400=7604 DCA D3406 / @@3401=3206 TAD D3406 / @@3402=1206 DCA I D3406 / @@3403=3606 TAD I D3406 / @@3404=1606 JMP L3400 / @@3405=5200 D3406, 0000 / AND L0000 *3600 L3600, LAS / @@3600=7604 DCA D3624 / @@3601=3224 HLT / @@3602=7402 LAS / @@3603=7604 DCA D3625 / @@3604=3225 L3605, TAD D3624 / @@3605=1224 DCA D3626 / @@3606=3226 L3607, TAD D3626 / @@3607=1226 DCA I D3626 / @@3610=3626 TAD I D3626 / @@3611=1626 CLA / @@3612=7200 TAD D3626 / @@3613=1226 CIA / @@3614=7041 TAD D3625 / @@3615=1225 SNA CLA / @@3616=7650 JMP L3605 / @@3617=5205 ISZ D3626 / @@3620=2226 JMP L3607 / @@3621=5207 HLT / @@3622=7402 JMP L3600 / @@3623=5200 D3624, 0000 / AND L0000 D3625, 0000 / AND L0000 D3626, 0000 / AND L0000 $