TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-dhkmc-b-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-08-dhkmc-b-pb.bin / Generated 2010 02 19 00:10:25 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 4200 locations used, 3141 code and 1037 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 C0002, 0002 / AND C0002 D0003, 0003 / AND D0003 C0004, C0004, 4334 / JMS C0134 C0005, 4026 / JMS C0026 JMS L0000 / @@0006=4000 *0020 D0020, 0000 / AND L0000 C0021, 4000 / JMS L0000 D0022, 0000 / AND L0000 *0024 D0024, 0000 / AND L0000 C0025, C0025, 4475 / JMS I D0075 C0026, C0026, 4600 / JMS I L0000 JMS I L0001 / long call to S5001 @@0027=4401 C0030, C0030, 4411 / JMS I AI1 C0031, 4640 / JMS I D0040 C0032, C0032, 4667 / JMS I D0067 C0033, C0033, 4424 / JMS I D0024 C0034, C0034, 4654 / JMS I D0054 C0035, C0035, 4467 / JMS I D0067 C0036, C0036, 4435 / JMS I C0035 C0037, C0037, 4452 / JMS I D0052 D0040, 4240 / JMS D0040 C0041, C0041, 4562 / JMS I C0162 D0042, 4000 / JMS L0000 C0043, 2000 / ISZ L0000 C0044, 1000 / TAD L0000 C0045, 0400 / AND I L0000 C0046, 0200 / AND L0000 C0047, 0100 / AND D0100 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 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 D0070, 0000 / AND L0000 C0071, 1715 / TAD I C0115 C0072, 1734 / TAD I C0134 D0073, 0000 / AND L0000 D0074, 0000 / AND L0000 D0075, 0000 / AND L0000 D0076, 0000 / AND L0000 D0077, 0000 / AND L0000 D0100, 0000 / AND L0000 D0101, 0000 / AND L0000 D0102, 0000 / AND L0000 D0103, 0000 / AND L0000 D0104, 0000 / AND L0000 D0105, 0000 / AND L0000 D0106, 0000 / AND L0000 D0107, 0000 / AND L0000 C0110, C0110, 1745 / TAD I C0145 D0111, 0000 / AND L0000 D0112, 0000 / AND L0000 D0113, 0000 / AND L0000 C0114, 7777 / CLA MQA SCA MQL LSR + C0115, 7776 / SPA SNA SZL CLA OSR HLT C0116, 7775 / CLA MQA SCA MQL ASR + C0117, 7774 / SPA SNA SZL CLA OSR C0120, 7744 / SMA SZA CLA OSR C0121, 0007 / AND C0007 C0122, 0010 / AND AI0 C0123, 0020 / AND D0020 C0124, 0030 / AND C0030 C0125, 0040 / AND D0040 C0126, 0050 / AND D0050 D0127, 0060 / AND D0060 C0130, 0070 / AND D0070 C0131, 0077 / AND D0077 C0132, 0207 / AND C0007 C0133, 0212 / AND AI2 C0134, 0215 / AND AI5 C0135, 0240 / AND D0040 C0136, 4060 / JMS D0060 C0137, 6201 / CDF0 C0140, C0140, 2042 / ISZ D0042 C0141, C0141, 2000 / ISZ L0000 C0142, C0142, 2201 / ISZ L0001 C0143, C0143, 2200 / ISZ L0000 C0144, C0144, 2251 / ISZ D0051 C0145, 2250 / ISZ D0050 D0146, 0000 / AND L0000 *0200 L0200, 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, 3076 / DCA D0076 IOF / Disable Interrupts @@0206=6002 RIF / Same as RDF except reads the instruc @@0207=6224 TAD C0137 / @@0210=1137 DCA D0212 / @@0211=3212 D0212, 6201 / CDF0 D0213, 4772 / JMS I C0372 L0214, D0214, 4771 / JMS I C0371 L0215, STA / AC = 7777 (-0001) @@0215=7240 DCA D0070 / @@0216=3070 C0217, 3077 / DCA D0077 STA / AC = 7777 (-0001) @@0220=7240 DCA D0073 / @@0221=3073 TAD D0146 / @@0222=1146 DCA I C0370 / @@0223=3770 C0224, 4767 / JMS I C0367 JMS I D0040 / long call to S4240 @@0225=4440 AND C0130 / @@0226=0130 DCA D0101 / @@0227=3101 JMS I D0040 / long call to S4240 @@0230=4440 AND C0121 / @@0231=0121 DCA D0102 / @@0232=3102 JMS I C0366 / long call to S1751 @@0233=4766 TAD D0102 / @@0234=1102 SZA CLA / @@0235=7640 JMP L0262 / @@0236=5262 RIF / Same as RDF except reads the instruc @@0237=6224 CIA / @@0240=7041 TAD D0101 / @@0241=1101 SNA CLA / @@0242=7650 JMP I C0365 / long jump to L2127 @@0243=5765 DCA D0070 / @@0244=3070 TAD C0364 / @@0245=1364 DCA I C0363 / @@0246=3763 TAD D0102 / @@0247=1102 TAD C0071 / @@0250=1071 DCA D0111 / @@0251=3111 JMP I D0111 / long jump to L0000 @@0252=5511 TAD C0362 / @@0253=1362 DCA I C0361 / @@0254=3761 TAD D0102 / @@0255=1102 CIA / @@0256=7041 TAD C0072 / @@0257=1072 DCA D0111 / @@0260=3111 JMP I D0111 / long jump to L0000 @@0261=5511 L0262, JMS I C0366 / long call to S1751 @@0262=4766 TAD D0102 / @@0263=1102 SPA CLA / @@0264=7710 JMP L0302 / @@0265=5302 TAD C0360 / @@0266=1360 DCA I C0363 / @@0267=3763 TAD D0102 / @@0270=1102 TAD C0071 / @@0271=1071 DCA D0111 / @@0272=3111 JMP I D0111 / long jump to L0000 @@0273=5511 TAD C0362 / @@0274=1362 DCA I C0361 / @@0275=3761 JMS I C0366 / long call to S1751 @@0276=4766 TAD C0072 / @@0277=1072 DCA D0111 / @@0300=3111 JMP I D0111 / long jump to L0000 @@0301=5511 L0302, TAD C0357 / @@0302=1357 DCA I C0361 / @@0303=3761 JMS I C0366 / long call to S1751 @@0304=4766 TAD C0072 / @@0305=1072 DCA D0111 / @@0306=3111 JMP I D0111 / long jump to L0000 @@0307=5511 TAD C0362 / @@0310=1362 DCA I C0367 / @@0311=3767 TAD D0102 / @@0312=1102 CIA / @@0313=7041 TAD C0110 / @@0314=1110 DCA D0111 / @@0315=3111 JMP I D0111 / long jump to L0000 @@0316=5511 JMS I C0356 / long call to S2731 @@0317=4756 TAD D0100 / @@0320=1100 TAD C0355 / @@0321=1355 DCA D0100 / @@0322=3100 D0323, 4754 / JMS I C0354 TAD C0353 / @@0324=1353 DCA I C0363 / @@0325=3763 TAD D0100 / @@0326=1100 AND C0121 / @@0327=0121 TAD C0071 / @@0330=1071 C0331, 3111 / DCA D0111 JMP I D0111 / long jump to L0000 @@0332=5511 *0353 C0353, 0400 / AND I L0000 C0354, C0354, 3017 / DCA AI7 C0355, 0260 / AND C0260 C0356, C0356, 2731 / ISZ I C0331 C0357, 0310 / AND C0310 C0360, 0274 / AND C0274 C0361, 1735 / TAD I C0335 C0362, 0317 / AND C0317 C0363, 1714 / TAD I C0314 C0364, 0253 / AND C0253 C0365, C0365, 2127 / ISZ D0127 C0366, C0366, 1751 / TAD I C0351 C0367, 1747 / TAD I C0347 C0370, 1262 / TAD L0262 C0371, C0371, 2624 / ISZ I C0224 C0372, C0372, 2600 / ISZ I L0200 C0373, C0373, 1624 / TAD I C0224 C0374, C0374, 1617 / TAD I C0217 C0375, C0375, 1612 / TAD I D0212 C0376, C0376, 1605 / TAD I L0205 DCA I L0200 / @@0377=3600 D0400, 4777 / JMS I C0577 JMS S0410 / @@0401=4210 TAD D0070 / @@0402=1070 SNA CLA / @@0403=7650 JMP L0476 / @@0404=5276 JMS I C0576 / long call to S1647 @@0405=4776 JMP I C0575 / long jump to L1000 @@0406=5775 JMP L0532 / @@0407=5332 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0410 / / Called from: / 0401 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0410, 0 / return area CLA CLL / AC = 0000 @@0411=7300 DCA D0074 / @@0412=3074 TAD C0115 / @@0413=1115 C0414, 3075 / DCA D0075 DCA D0104 / @@0415=3104 TAD D0050 / @@0416=1050 JMS S0463 / @@0417=4263 TAD C0122 / @@0420=1122 DCA D0104 / @@0421=3104 TAD D0051 / @@0422=1051 JMS S0463 / @@0423=4263 TAD C0123 / @@0424=1123 DCA D0104 / @@0425=3104 TAD D0052 / @@0426=1052 JMS S0463 / @@0427=4263 TAD C0124 / @@0430=1124 DCA D0104 / @@0431=3104 TAD D0053 / @@0432=1053 JMS S0463 / @@0433=4263 TAD C0125 / @@0434=1125 DCA D0104 / @@0435=3104 TAD D0054 / @@0436=1054 JMS S0463 / @@0437=4263 C0440, 1126 / TAD C0126 DCA D0104 / @@0441=3104 TAD D0055 / @@0442=1055 JMS S0463 / @@0443=4263 TAD D0127 / @@0444=1127 DCA D0104 / @@0445=3104 TAD D0056 / @@0446=1056 C0447, 4263 / JMS S0463 TAD C0130 / @@0450=1130 DCA D0104 / @@0451=3104 TAD D0057 / @@0452=1057 JMS S0463 / @@0453=4263 ISZ D0075 / @@0454=2075 JMP I C0574 / long jump to L2152 @@0455=5774 TAD D0074 / @@0456=1074 SZA CLA / @@0457=7640 JMP I C0573 / long jump to L2127 @@0460=5773 DCA D0070 / @@0461=3070 JMP I S0410 / return @@0462=5610 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0463 / / Called from: / 0417 0423 0427 0433 0437 0443 0453 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S0463, 0 / return area SZA CLA / @@0464=7640 JMP I S0463 / return @@0465=5663 ISZ D0075 / @@0466=2075 SKP / @@0467=7410 JMP I S0410 / return @@0470=5610 RIF / Same as RDF except reads the instruc @@0471=6224 DCA D0103 / @@0472=3103 JMS I C0572 / long call to S1640 @@0473=4772 ISZ D0074 / @@0474=2074 JMP I S0463 / return @@0475=5663 L0476, RIF / Same as RDF except reads the instruc @@0476=6224 DCA D0103 / @@0477=3103 TAD C0571 / @@0500=1371 C0501, 3017 / DCA AI7 DCA D0111 / @@0502=3111 L0503, C0503, 1417 / TAD I AI7 SNA CLA / @@0504=7650 JMP L0510 / @@0505=5310 ISZ D0111 / @@0506=2111 JMP L0503 / @@0507=5303 L0510, TAD D0111 / @@0510=1111 CLL RAL / @@0511=7104 RTL / @@0512=7006 DCA D0104 / @@0513=3104 D0514, 4770 / JMS I C0570 L0515, JMS I C0567 / long call to S1200 @@0515=4767 D0516, 4440 / JMS I D0040 AND C0047 / @@0517=0047 SNA CLA / @@0520=7650 JMP L0525 / @@0521=5325 JMS I C0041 / long call to S4562 @@0522=4441 HLT / @@0523=7402 JMS I C0566 / long call to S4247 @@0524=4766 L0525, JMS I D0040 / long call to S4240 @@0525=4440 AND C0046 / @@0526=0046 SZA CLA / @@0527=7640 JMP I C0565 / long jump to L0214 @@0530=5765 JMP L0515 / @@0531=5315 L0532, D0532, 4770 / JMS I C0570 L0533, JMS I C0564 / long call to S0600 @@0533=4764 D0534, 4440 / JMS I D0040 AND C0047 / @@0535=0047 SNA CLA / @@0536=7650 JMP L0543 / @@0537=5343 JMS I C0041 / long call to S4562 @@0540=4441 HLT / @@0541=7402 JMS I C0566 / long call to S4247 @@0542=4766 L0543, JMS I D0040 / long call to S4240 @@0543=4440 AND C0046 / @@0544=0046 SZA CLA / @@0545=7640 JMP I C0565 / long jump to L0214 @@0546=5765 JMS I C0576 / long call to S1647 @@0547=4776 JMP I C0575 / long jump to L1000 @@0550=5775 JMP L0533 / @@0551=5333 *0564 C0564, C0564, 0600 / AND I D0400 C0565, C0565, 0214 / AND C0414 C0566, C0566, 4247 / JMS C0447 C0567, C0567, 1200 / TAD D0400 C0570, C0570, 2647 / ISZ I C0447 C0571, 0047 / AND C0047 C0572, C0572, 1640 / TAD I C0440 C0573, C0573, 2127 / ISZ D0127 C0574, C0574, 2152 / ISZ C0152 C0575, C0575, 1000 / TAD L0000 C0576, C0576, 1647 / TAD I C0447 DCA D0077 / @@0577=3077 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0600 / / Called from: / 0533 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 D0103 / @@0603=3103 TAD D0057 / @@0604=1057 SZA CLA / @@0605=7640 JMP L0622 / @@0606=5222 TAD C0130 / @@0607=1130 DCA D0104 / @@0610=3104 DCA D0112 / @@0611=3112 JMS I C0777 / long call to S1640 @@0612=4777 JMP L0622 / @@0613=5222 JMS I C0776 / long call to S1200 @@0614=4776 TAD D0112 / @@0615=1112 SZA CLA / @@0616=7640 L0617, ISZ D0067 / @@0617=2067 SKP / @@0620=7410 JMP L0617 / @@0621=5217 L0622, TAD D0056 / @@0622=1056 SZA CLA / @@0623=7640 JMP L0640 / @@0624=5240 TAD D0127 / @@0625=1127 DCA D0104 / @@0626=3104 DCA D0112 / @@0627=3112 JMS I C0777 / long call to S1640 @@0630=4777 JMP L0640 / @@0631=5240 JMS I C0776 / long call to S1200 @@0632=4776 TAD D0112 / @@0633=1112 SZA CLA / @@0634=7640 L0635, ISZ D0066 / @@0635=2066 SKP / @@0636=7410 JMP L0635 / @@0637=5235 L0640, C0640, 1055 / TAD D0055 SZA CLA / @@0641=7640 JMP L0656 / @@0642=5256 TAD C0126 / @@0643=1126 DCA D0104 / @@0644=3104 DCA D0112 / @@0645=3112 JMS I C0777 / long call to S1640 @@0646=4777 JMP L0656 / @@0647=5256 JMS I C0776 / long call to S1200 @@0650=4776 TAD D0112 / @@0651=1112 SZA CLA / @@0652=7640 L0653, ISZ D0065 / @@0653=2065 SKP / @@0654=7410 JMP L0653 / @@0655=5253 L0656, TAD D0054 / @@0656=1054 SZA CLA / @@0657=7640 JMP L0674 / @@0660=5274 TAD C0125 / @@0661=1125 DCA D0104 / @@0662=3104 DCA D0112 / @@0663=3112 JMS I C0777 / long call to S1640 @@0664=4777 JMP L0674 / @@0665=5274 JMS I C0776 / long call to S1200 @@0666=4776 TAD D0112 / @@0667=1112 SZA CLA / @@0670=7640 L0671, ISZ D0064 / @@0671=2064 SKP / @@0672=7410 JMP L0671 / @@0673=5271 L0674, TAD D0053 / @@0674=1053 SZA CLA / @@0675=7640 JMP L0712 / @@0676=5312 TAD C0124 / @@0677=1124 DCA D0104 / @@0700=3104 DCA D0112 / @@0701=3112 JMS I C0777 / long call to S1640 @@0702=4777 JMP L0712 / @@0703=5312 JMS I C0776 / long call to S1200 @@0704=4776 TAD D0112 / @@0705=1112 SZA CLA / @@0706=7640 L0707, ISZ D0063 / @@0707=2063 SKP / @@0710=7410 JMP L0707 / @@0711=5307 L0712, TAD D0052 / @@0712=1052 SZA CLA / @@0713=7640 JMP L0730 / @@0714=5330 TAD C0123 / @@0715=1123 DCA D0104 / @@0716=3104 DCA D0112 / @@0717=3112 JMS I C0777 / long call to S1640 @@0720=4777 JMP L0730 / @@0721=5330 JMS I C0776 / long call to S1200 @@0722=4776 TAD D0112 / @@0723=1112 SZA CLA / @@0724=7640 L0725, ISZ D0062 / @@0725=2062 SKP / @@0726=7410 JMP L0725 / @@0727=5325 L0730, TAD D0051 / @@0730=1051 SZA CLA / @@0731=7640 JMP L0746 / @@0732=5346 TAD C0122 / @@0733=1122 DCA D0104 / @@0734=3104 DCA D0112 / @@0735=3112 JMS I C0777 / long call to S1640 @@0736=4777 JMP L0746 / @@0737=5346 JMS I C0776 / long call to S1200 @@0740=4776 TAD D0112 / @@0741=1112 SZA CLA / @@0742=7640 L0743, ISZ D0061 / @@0743=2061 SKP / @@0744=7410 JMP L0743 / @@0745=5343 L0746, TAD D0050 / @@0746=1050 SZA CLA / @@0747=7640 JMP L0761 / @@0750=5361 DCA D0104 / @@0751=3104 DCA D0112 / @@0752=3112 JMS I C0777 / long call to S1640 @@0753=4777 JMP L0761 / @@0754=5361 JMS I C0776 / long call to S1200 @@0755=4776 TAD D0112 / @@0756=1112 SZA CLA / @@0757=7640 L0760, ISZ D0060 / @@0760=2060 L0761, JMP I S0600 / return @@0761=5600 JMP L0760 / @@0762=5360 *0776 C0776, C0776, 1200 / TAD S0600 C0777, C0777, 1640 / TAD I L0640 L1000, D1000, 4777 / JMS I C1177 JMS I C1176 / long call to S3054 @@1001=4776 JMS I C1175 / long call to S0600 @@1002=4775 JMS I C1174 / long call to S1647 @@1003=4774 SKP / @@1004=7410 JMP I C1173 / long jump to L0532 @@1005=5773 L1006, RIF / Same as RDF except reads the instruc @@1006=6224 DCA D0103 / @@1007=3103 TAD D0067 / @@1010=1067 SZA CLA / @@1011=7640 JMP L1024 / @@1012=5224 TAD C0130 / @@1013=1130 C1014, 3104 / DCA D0104 JMS I C1172 / long call to S1640 @@1015=4772 SKP / @@1016=7410 JMS I C1171 / long call to S1655 @@1017=4771 JMS I C1175 / long call to S0600 @@1020=4775 JMS I C1174 / long call to S1647 @@1021=4774 SKP / @@1022=7410 JMP I C1173 / long jump to L0532 @@1023=5773 L1024, C1024, 1066 / TAD D0066 SZA CLA / @@1025=7640 JMP L1040 / @@1026=5240 TAD D0127 / @@1027=1127 DCA D0104 / @@1030=3104 JMS I C1172 / long call to S1640 @@1031=4772 SKP / @@1032=7410 JMS I C1171 / long call to S1655 @@1033=4771 JMS I C1175 / long call to S0600 @@1034=4775 JMS I C1174 / long call to S1647 @@1035=4774 SKP / @@1036=7410 JMP I C1173 / long jump to L0532 @@1037=5773 L1040, C1040, 1065 / TAD D0065 SZA CLA / @@1041=7640 JMP L1054 / @@1042=5254 TAD C0126 / @@1043=1126 DCA D0104 / @@1044=3104 JMS I C1172 / long call to S1640 @@1045=4772 SKP / @@1046=7410 C1047, 4771 / JMS I C1171 JMS I C1175 / long call to S0600 @@1050=4775 JMS I C1174 / long call to S1647 @@1051=4774 SKP / @@1052=7410 JMP I C1173 / long jump to L0532 @@1053=5773 L1054, TAD D0064 / @@1054=1064 C1055, 7640 / SZA CLA JMP L1070 / @@1056=5270 TAD C0125 / @@1057=1125 DCA D0104 / @@1060=3104 JMS I C1172 / long call to S1640 @@1061=4772 SKP / @@1062=7410 JMS I C1171 / long call to S1655 @@1063=4771 JMS I C1175 / long call to S0600 @@1064=4775 JMS I C1174 / long call to S1647 @@1065=4774 SKP / @@1066=7410 JMP I C1173 / long jump to L0532 @@1067=5773 L1070, TAD D0063 / @@1070=1063 SZA CLA / @@1071=7640 JMP L1104 / @@1072=5304 TAD C0124 / @@1073=1124 DCA D0104 / @@1074=3104 JMS I C1172 / long call to S1640 @@1075=4772 SKP / @@1076=7410 JMS I C1171 / long call to S1655 @@1077=4771 JMS I C1175 / long call to S0600 @@1100=4775 JMS I C1174 / long call to S1647 @@1101=4774 SKP / @@1102=7410 JMP I C1173 / long jump to L0532 @@1103=5773 L1104, TAD D0062 / @@1104=1062 SZA CLA / @@1105=7640 C1106, 5320 / JMP L1120 TAD C0123 / @@1107=1123 DCA D0104 / @@1110=3104 JMS I C1172 / long call to S1640 @@1111=4772 SKP / @@1112=7410 JMS I C1171 / long call to S1655 @@1113=4771 JMS I C1175 / long call to S0600 @@1114=4775 JMS I C1174 / long call to S1647 @@1115=4774 SKP / @@1116=7410 JMP I C1173 / long jump to L0532 @@1117=5773 L1120, TAD D0061 / @@1120=1061 SZA CLA / @@1121=7640 JMP L1134 / @@1122=5334 TAD C0122 / @@1123=1122 DCA D0104 / @@1124=3104 JMS I C1172 / long call to S1640 @@1125=4772 SKP / @@1126=7410 JMS I C1171 / long call to S1655 @@1127=4771 JMS I C1175 / long call to S0600 @@1130=4775 JMS I C1174 / long call to S1647 @@1131=4774 SKP / @@1132=7410 JMP I C1173 / long jump to L0532 @@1133=5773 L1134, TAD D0060 / @@1134=1060 SZA CLA / @@1135=7640 JMP L1144 / @@1136=5344 DCA D0104 / @@1137=3104 JMS I C1172 / long call to S1640 @@1140=4772 SKP / @@1141=7410 JMS I C1171 / long call to S1655 @@1142=4771 JMS I C1175 / long call to S0600 @@1143=4775 L1144, D1144, 4440 / JMS I D0040 AND C0047 / @@1145=0047 SNA CLA / @@1146=7650 JMP L1153 / @@1147=5353 JMS I C0041 / long call to S4562 @@1150=4441 HLT / @@1151=7402 JMS I C1170 / long call to S4247 @@1152=4770 L1153, JMS I D0040 / long call to S4240 @@1153=4440 AND C0046 / @@1154=0046 SZA CLA / @@1155=7640 JMP I C1167 / long jump to L0214 @@1156=5767 JMS I C1174 / long call to S1647 @@1157=4774 JMP L1006 / @@1160=5206 JMP I C1173 / long jump to L0532 @@1161=5773 *1167 C1167, C1167, 0214 / AND C1014 C1170, C1170, 4247 / JMS C1047 C1171, C1171, 1655 / TAD I C1055 C1172, C1172, 1640 / TAD I L1040 C1173, C1173, 0532 / AND I C0132 C1174, C1174, 1647 / TAD I C1047 C1175, C1175, 0600 / AND I L1000 C1176, C1176, 3054 / DCA D0054 ISZ I C1106 / @@1177=2706 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1200 / / Called from: / 0515 0614 0632 0650 0666 0704 0722 0740 0755 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S1200, 0 / return area D1201, 4404 / JMS I C0004 NOP / @@1202=7000 CLA CLL / AC = 0000 @@1203=7300 TAD D0104 / @@1204=1104 TAD C0137 / @@1205=1137 DCA D1275 / @@1206=3275 TAD D1275 / @@1207=1275 DCA I C1377 / @@1210=3777 TAD I C1377 / @@1211=1777 DCA I C1376 / @@1212=3776 TAD I C1376 / @@1213=1776 C1214, 3775 / DCA I C1375 DCA D0112 / @@1215=3112 TAD D0076 / @@1216=1076 RAR / @@1217=7010 SZL CLA / @@1220=7630 JMS S1273 / @@1221=4273 D1222, 1076 / TAD D0076 RTR / @@1223=7012 SZL CLA / @@1224=7630 JMS I C1374 / long call to S1400 @@1225=4774 TAD D0076 / @@1226=1076 RTL / @@1227=7006 SZL CLA / @@1230=7630 JMS I C1373 / long call to S1443 @@1231=4773 TAD D0076 / @@1232=1076 RAL / @@1233=7004 SZL CLA / @@1234=7630 JMS I C1372 / long call to S1514 @@1235=4772 D1236, 4440 / JMS I D0040 AND C0046 / @@1237=0046 SZA CLA / @@1240=7640 JMP I C1371 / long jump to L0214 @@1241=5771 ISZ D1262 / @@1242=2262 JMP I S1200 / return @@1243=5600 TAD D0146 / @@1244=1146 DCA D1262 / @@1245=3262 JMS I C0041 / long call to S4562 @@1246=4441 JMP L1255 / @@1247=5255 JMS I C0026 / long call to S4600 @@1250=4426 TAD C1263 / @@1251=1263 ISZ D1261 / @@1252=2261 TAD D1261 / @@1253=1261 JMS I C0034 / long call to S4654 @@1254=4434 L1255, JMS I C0140 / long call to S2042 @@1255=4540 JMS I C0143 / long call to S2200 @@1256=4543 C1257, 6500 / 6500 JMP I S1200 / return @@1260=5600 D1261, 0000 / AND L0000 D1262, 0000 / AND L0000 C1263, 4304 / JMS C1304 C1264, 1013 / TAD AI3 TAD I D0103 / @@1265=1503 JMP I D0102 / long jump to L0000 @@1266=5502 JMS D0020 / @@1267=4020 AND C0123 / @@1270=0123 C1271, 2340 / ISZ C1340 D1272, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1273 / / Called from: / 1221 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1273, 0 / return area DCA D0077 / @@1274=3077 D1275, 6201 / CDF0 L1276, TAD D0077 / @@1276=1077 DCA I D0077 / @@1277=3477 ISZ D0077 / @@1300=2077 JMP L1276 / @@1301=5276 L1302, TAD D0077 / @@1302=1077 CIA / @@1303=7041 TAD I D0077 / @@1304=1477 SZA CLA / @@1305=7640 D1306, 5316 / JMP L1316 L1307, C1307, 2077 / ISZ D0077 JMP L1302 / @@1310=5302 TAD D0103 / @@1311=1103 TAD C0137 / @@1312=1137 DCA D1314 / @@1313=3314 D1314, 6201 / CDF0 JMP I S1273 / return @@1315=5673 L1316, TAD D0077 / @@1316=1077 DCA D0106 / @@1317=3106 TAD I D0077 / @@1320=1477 DCA D0105 / @@1321=3105 TAD D0103 / @@1322=1103 TAD C0137 / @@1323=1137 DCA D1325 / @@1324=3325 D1325, 6201 / CDF0 JMS I C1370 / long call to S2272 @@1326=4770 TAD D0104 / @@1327=1104 TAD C0137 / @@1330=1137 DCA D1332 / @@1331=3332 D1332, 6201 / CDF0 JMP L1307 / @@1333=5307 *1370 C1370, C1370, 2272 / ISZ D1272 C1371, C1371, 0214 / AND C1214 C1372, C1372, 1514 / TAD I C0114 C1373, C1373, 1443 / TAD I C0043 C1374, C1374, 1400 / TAD I L0000 C1375, 1516 / TAD I C0116 C1376, 1445 / TAD I C0045 C1377, 1402 / TAD I C0002 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / Called from: / 1225 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1400, 0 / return area DCA D0077 / @@1401=3077 D1402, 6201 / CDF0 L1403, TAD D0077 / @@1403=1077 CMA / @@1404=7040 DCA I D0077 / @@1405=3477 ISZ D0077 / @@1406=2077 JMP L1403 / @@1407=5203 L1410, TAD D0077 / @@1410=1077 IAC / @@1411=7001 TAD I D0077 / @@1412=1477 SZA CLA / @@1413=7640 D1414, 5224 / JMP L1424 L1415, ISZ D0077 / @@1415=2077 JMP L1410 / @@1416=5210 TAD D0103 / @@1417=1103 TAD C0137 / @@1420=1137 DCA D1422 / @@1421=3222 D1422, 6201 / CDF0 JMP I S1400 / return @@1423=5600 L1424, TAD D0077 / @@1424=1077 CMA / @@1425=7040 DCA D0106 / @@1426=3106 TAD I D0077 / @@1427=1477 DCA D0105 / @@1430=3105 TAD D0103 / @@1431=1103 TAD C0137 / @@1432=1137 DCA D1434 / @@1433=3234 D1434, 6201 / CDF0 JMS I C1577 / long call to S2323 @@1435=4777 TAD D0104 / @@1436=1104 TAD C0137 / @@1437=1137 DCA D1441 / @@1440=3241 D1441, 6201 / CDF0 JMP L1415 / @@1442=5215 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1443 / / Called from: / 1231 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1443, 0 / return area DCA D0077 / @@1444=3077 D1445, 6201 / CDF0 L1446, TAD D0077 / @@1446=1077 TAD C0114 / @@1447=1114 DCA D0077 / @@1450=3077 TAD D0077 / @@1451=1077 DCA I D0077 / @@1452=3477 TAD D0077 / @@1453=1077 SZA CLA / @@1454=7640 JMP L1446 / @@1455=5246 L1456, TAD D0077 / @@1456=1077 TAD C0114 / @@1457=1114 DCA D0077 / @@1460=3077 TAD D0077 / @@1461=1077 CIA / @@1462=7041 TAD I D0077 / @@1463=1477 SZA CLA / @@1464=7640 D1465, 5276 / JMP L1476 L1466, TAD D0077 / @@1466=1077 SZA CLA / @@1467=7640 JMP L1456 / @@1470=5256 TAD D0103 / @@1471=1103 TAD C0137 / @@1472=1137 DCA D1474 / @@1473=3274 D1474, 6201 / CDF0 JMP I S1443 / return @@1475=5643 L1476, TAD D0077 / @@1476=1077 DCA D0106 / @@1477=3106 TAD I D0077 / @@1500=1477 DCA D0105 / @@1501=3105 TAD D0103 / @@1502=1103 TAD C0137 / @@1503=1137 DCA D1505 / @@1504=3305 D1505, 6201 / CDF0 JMS I C1576 / long call to S2441 @@1506=4776 TAD D0104 / @@1507=1104 TAD C0137 / @@1510=1137 DCA D1512 / @@1511=3312 D1512, 6201 / CDF0 JMP L1466 / @@1513=5266 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1514 / / Called from: / 1235 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1514, 0 / return area DCA D0077 / @@1515=3077 CDF0 / Change to data field 0. The data fie @@1516=6201 L1517, TAD D0077 / @@1517=1077 TAD C0114 / @@1520=1114 DCA D0077 / @@1521=3077 TAD D0077 / @@1522=1077 D1523, 7040 / CMA DCA I D0077 / @@1524=3477 TAD D0077 / @@1525=1077 SZA CLA / @@1526=7640 JMP L1517 / @@1527=5317 L1530, TAD D0077 / @@1530=1077 TAD C0114 / @@1531=1114 DCA D0077 / @@1532=3077 TAD D0077 / @@1533=1077 IAC / @@1534=7001 TAD I D0077 / @@1535=1477 SZA CLA / @@1536=7640 D1537, 5350 / JMP L1550 L1540, TAD D0077 / @@1540=1077 SZA CLA / @@1541=7640 JMP L1530 / @@1542=5330 TAD D0103 / @@1543=1103 TAD C0137 / @@1544=1137 DCA D1546 / @@1545=3346 D1546, 6201 / CDF0 JMP I S1514 / return @@1547=5714 L1550, TAD D0077 / @@1550=1077 CMA / @@1551=7040 DCA D0106 / @@1552=3106 TAD I D0077 / @@1553=1477 DCA D0105 / @@1554=3105 TAD D0103 / @@1555=1103 TAD C0137 / @@1556=1137 DCA D1560 / @@1557=3360 D1560, 6201 / CDF0 JMS I C1575 / long call to S2457 @@1561=4775 TAD D0104 / @@1562=1104 TAD C0137 / @@1563=1137 DCA D1565 / @@1564=3365 D1565, 6201 / CDF0 JMP L1540 / @@1566=5340 *1575 C1575, C1575, 2457 / ISZ I D0057 C1576, C1576, 2441 / ISZ I C0041 C1577, C1577, 2323 / ISZ D1523 L1600, C1600, 7200 / CLA TAD C1631 / @@1601=1231 DCA D0146 / @@1602=3146 TAD C1636 / @@1603=1236 JMP I C1777 / long jump to L0205 @@1604=5777 L1605, C1605, 7200 / CLA TAD C1632 / @@1606=1232 DCA D0146 / @@1607=3146 IAC / @@1610=7001 JMP I C1777 / long jump to L0205 @@1611=5777 L1612, CLA CLL / AC = 0000 @@1612=7300 TAD C1633 / @@1613=1233 DCA D0146 / @@1614=3146 IAC RAL / @@1615=7005 JMP I C1777 / long jump to L0205 @@1616=5777 L1617, CLA / @@1617=7200 TAD C1634 / @@1620=1234 DCA D0146 / @@1621=3146 CLL CML RTR / @@1622=7132 JMP I C1777 / long jump to L0205 @@1623=5777 L1624, CLA / @@1624=7200 TAD C1635 / @@1625=1235 DCA D0146 / @@1626=3146 CLL CML RAR / @@1627=7130 JMP I C1777 / long jump to L0205 @@1630=5777 C1631, 7100 / CLL C1632, 3500 / DCA I D0100 C1633, 3500 / DCA I D0100 C1634, 6000 / 6000 C1635, 6000 / 6000 C1636, 6003 / 6003 C1637, 6203 / 6203 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1640 / / Called from: / 0473 0612 0630 0646 0664 0702 0720 0736 0753 1015 1031 1045 1061 1075 1111 / 1125 1140 / Total 0021 (17) calls //////////////////////////////////////////////////////////////////////////////// S1640, 0 / return area TAD D0103 / @@1641=1103 CIA / @@1642=7041 TAD D0104 / @@1643=1104 SZA CLA / @@1644=7640 ISZ S1640 / @@1645=2240 JMP I S1640 / return @@1646=5640 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1647 / / Called from: / 0405 0547 1003 1021 1035 1051 1065 1101 1115 1131 1157 / Total 0013 (11) calls //////////////////////////////////////////////////////////////////////////////// S1647, 0 / return area JMS I D0040 / long call to S4240 @@1650=4440 AND C0045 / @@1651=0045 SZA CLA / @@1652=7640 ISZ S1647 / @@1653=2247 JMP I S1647 / return @@1654=5647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1655 / / Called from: / 1017 1033 1063 1077 1113 1127 1142 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S1655, 0 / return area CLA / @@1656=7200 DCA D0112 / @@1657=3112 DCA D0107 / @@1660=3107 TAD C0137 / @@1661=1137 TAD D0103 / @@1662=1103 DCA L1674 / @@1663=3274 TAD C0137 / @@1664=1137 TAD D0104 / @@1665=1104 DCA D1676 / @@1666=3276 TAD L1674 / @@1667=1274 DCA D1701 / @@1670=3301 TAD C1637 / @@1671=1237 TAD D0104 / @@1672=1104 DCA D1712 / @@1673=3312 L1674, D1674, 6201 / CDF0 TAD I D0107 / @@1675=1507 D1676, 6201 / CDF0 DCA I D0107 / @@1677=3507 TAD I D0107 / @@1700=1507 D1701, 6201 / CDF0 CIA / @@1702=7041 TAD I D0107 / @@1703=1507 SZA CLA / @@1704=7640 D1705, 4776 / JMS I C1776 ISZ D0107 / @@1706=2107 JMP L1674 / @@1707=5274 TAD D0112 / @@1710=1112 SNA CLA / @@1711=7650 D1712, 6203 / 6203 JMP I S1655 / return @@1713=5655 D1714, 0000 / AND L0000 ISZ D0051 / @@1715=2051 ISZ D0052 / @@1716=2052 ISZ D0053 / @@1717=2053 ISZ D0054 / @@1720=2054 ISZ D0055 / @@1721=2055 ISZ D0056 / @@1722=2056 ISZ D0057 / @@1723=2057 JMP I D1714 / long jump to L0000 @@1724=5714 ISZ D0056 / @@1725=2056 ISZ D0055 / @@1726=2055 ISZ D0054 / @@1727=2054 ISZ D0053 / @@1730=2053 ISZ D0052 / @@1731=2052 ISZ D0051 / @@1732=2051 ISZ D0050 / @@1733=2050 JMP I D1735 / long jump to L0000 @@1734=5735 D1735, 0000 / AND L0000 L1736, DCA D0057 / @@1736=3057 DCA D0056 / @@1737=3056 DCA D0055 / @@1740=3055 DCA D0054 / @@1741=3054 DCA D0053 / @@1742=3053 DCA D0052 / @@1743=3052 DCA D0051 / @@1744=3051 L1745, DCA D0050 / @@1745=3050 JMP I D1747 / long jump to L0000 @@1746=5747 D1747, 0000 / AND L0000 JMP L1736 / @@1750=5336 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1751 / / Called from: / 0233 0262 0276 0304 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1751, 0 / return area TAD D0101 / @@1752=1101 CLL RTR / @@1753=7112 RAR / @@1754=7010 CIA / @@1755=7041 JMP I S1751 / return @@1756=5751 *1776 C1776, C1776, 2475 / ISZ I D0075 C1777, C1777, 0205 / AND L1605 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2000 / / Called from: / 2232 3410 3413 3443 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S2000, 0 / return area D2001, 7300 / CLA CLL TAD I S2000 / @@2002=1600 DCA D2037 / @@2003=3237 ISZ S2000 / @@2004=2200 C2005, 1600 / TAD I S2000 DCA D2040 / @@2006=3240 ISZ S2000 / @@2007=2200 TAD C0131 / @@2010=1131 C2011, 7040 / CMA AND I D2037 / @@2012=0637 CLL RTR / @@2013=7112 C2014, 7012 / RTR RTR / @@2015=7012 JMS S2024 / @@2016=4224 C2017, 2240 / ISZ D2040 TAD C0131 / @@2020=1131 AND I D2037 / @@2021=0637 C2022, 4224 / JMS S2024 JMP I S2000 / return @@2023=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2024 / / Called from: / 2016 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2024, 0 / return area DCA D2041 / @@2025=3241 TAD D2041 / @@2026=1241 CLL RTL / @@2027=7106 RAL / @@2030=7004 AND C2125 / @@2031=0325 TAD D2041 / @@2032=1241 AND C2125 / @@2033=0325 TAD C2126 / @@2034=1326 DCA I D2040 / @@2035=3640 JMP I S2024 / return @@2036=5624 D2037, 0000 / AND L0000 D2040, 0000 / AND L0000 D2041, 0000 / AND L0000 C2042, 0000 / AND L0000 CLA / @@2043=7200 TAD D0022 / @@2044=1022 SMA CLA / @@2045=7700 JMP L2052 / @@2046=5252 TAD C2042 / @@2047=1242 DCA I C2177 / @@2050=3777 JMP I C2176 / long jump to L4027 @@2051=5776 L2052, STA / AC = 7777 (-0001) @@2052=7240 TAD C2042 / @@2053=1242 C2054, 3010 / DCA AI0 L2055, C2055, 1410 / TAD I AI0 DCA D2067 / @@2056=3267 TAD D2067 / @@2057=1267 CLL RTR / @@2060=7112 RTR / @@2061=7012 RTR / @@2062=7012 JMS S2070 / @@2063=4270 TAD D2067 / @@2064=1267 JMS S2070 / @@2065=4270 JMP L2055 / @@2066=5255 D2067, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2070 / / Called from: / 2063 2065 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2070, 0 / return area AND C0131 / @@2071=0131 SNA / @@2072=7450 C2073, 5410 / JMP I AI0 TAD C0120 / @@2074=1120 SZA / @@2075=7440 JMP L2101 / @@2076=5301 TAD C0132 / @@2077=1132 JMP L2121 / @@2100=5321 L2101, TAD C0117 / @@2101=1117 SMA / @@2102=7500 JMP L2106 / @@2103=5306 TAD C2124 / @@2104=1324 JMP L2121 / @@2105=5321 L2106, TAD C0116 / @@2106=1116 C2107, 7440 / SZA JMP L2113 / @@2110=5313 TAD C0133 / @@2111=1133 JMP L2121 / @@2112=5321 L2113, TAD C0115 / @@2113=1115 SZA / @@2114=7440 JMP L2120 / @@2115=5320 TAD C0134 / @@2116=1134 SKP / @@2117=7410 L2120, TAD C2123 / @@2120=1323 L2121, JMS I C0036 / long call to S4435 @@2121=4436 JMP I S2070 / return @@2122=5670 C2123, 0245 / AND C2045 C2124, 0340 / AND C2140 C2125, 0707 / AND I C2107 C2126, 6060 / 6060 L2127, TAD D0024 / @@2127=1024 SZA CLA / @@2130=7640 JMP I C2175 / long jump to L0214 @@2131=5775 JMS I C0140 / long call to S2042 @@2132=4540 JMS I C0143 / long call to S2200 @@2133=4543 ISZ D0022 / @@2134=2022 TAD I C2107 / @@2135=1707 ISZ D2001 / @@2136=2201 TAD I C0140 / @@2137=1540 TAD C0116 / @@2140=1116 C2141, 4023 / JMS C0023 AND I C0114 / @@2142=0514 AND I D0103 / @@2143=0503 ISZ I C0005 / @@2144=2405 AND I D0040 / @@2145=0440 AND I C2011 / @@2146=0611 AND I C0114 / @@2147=0514 AND I L0000 / @@2150=0400 JMP I C2175 / long jump to L0214 @@2151=5775 L2152, TAD D0024 / @@2152=1024 SZA CLA / @@2153=7640 JMP I C2175 / long jump to L0214 @@2154=5775 JMS I C0140 / long call to S2042 @@2155=4540 TAD I C2017 / @@2156=1617 TAD I C2005 / @@2157=1605 AND L0000 / @@2160=0000 JMP I C2175 / long jump to L0214 @@2161=5775 *2175 C2175, C2175, 0214 / AND C2014 C2176, C2176, 4027 / JMS C0027 C2177, 4026 / JMS C0026 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2200 / / Called from: / 1256 2133 2241 2515 2631 3024 3104 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S2200, 0 / return area L2201, IOF / Disable Interrupts @@2201=6002 JMS I D0040 / long call to S4240 @@2202=4440 AND C0044 / @@2203=0044 SNA CLA / @@2204=7650 JMP L2215 / @@2205=5215 L2206, TAD D0024 / @@2206=1024 SZA CLA / @@2207=7640 JMP L2213 / @@2210=5213 TAD C0132 / @@2211=1132 JMS I C0036 / long call to S4435 @@2212=4436 L2213, JMS I C0004 / long call to S4334 @@2213=4404 C2214, 5600 / JMP I S2200 L2215, JMS I D0040 / long call to S4240 @@2215=4440 AND C0043 / @@2216=0043 SZA CLA / @@2217=7640 JMP L2251 / @@2220=5251 RIF / Same as RDF except reads the instruc @@2221=6224 RTR / @@2222=7012 RAR / @@2223=7010 AND C0121 / @@2224=0121 D2225, 1136 / TAD C0136 DCA D2242 / @@2226=3242 TAD S2200 / @@2227=1200 TAD C0114 / @@2230=1114 DCA D0113 / @@2231=3113 JMS I C0141 / long call to S2000 @@2232=4541 AND D0113 / @@2233=0113 ISZ D2243 / @@2234=2243 TAD D0024 / @@2235=1024 SZA CLA / @@2236=7640 JMP I D2250 / long jump to L0000 @@2237=5650 C2240, 4540 / JMS I C0140 JMS I C0143 / long call to S2200 @@2241=4543 D2242, 0000 / AND L0000 D2243, 0000 / AND L0000 AND L0000 / @@2244=0000 C2245, 4040 / JMS D0040 AND L0000 / @@2246=0000 JMP I D2250 / long jump to L0000 @@2247=5650 C2250, D2250, 0000 / AND L0000 L2251, JMS I D0040 / long call to S4240 @@2251=4440 AND D0042 / @@2252=0042 SNA CLA / @@2253=7650 JMP L2263 / @@2254=5263 JMS I C0041 / long call to S4562 @@2255=4441 SKP CLA / @@2256=7610 JMP I C2377 / long jump to L2400 @@2257=5777 STA / AC = 7777 (-0001) @@2260=7240 TAD S2200 / @@2261=1200 HLT / @@2262=7402 L2263, CLA / @@2263=7200 JMS I C0004 / long call to S4334 @@2264=4404 JMS I D0040 / long call to S4240 @@2265=4440 AND C0046 / @@2266=0046 SZA CLA / @@2267=7640 JMP I C2376 / long jump to L0214 @@2270=5776 JMP I S2200 / return @@2271=5600 C2272, 0000 / AND L0000 L2273, ISZ D0112 / @@2273=2112 SKP / @@2274=7410 JMP L2273 / @@2275=5273 CLA / @@2276=7200 TAD C2272 / @@2277=1272 DCA I C0143 / @@2300=3543 TAD C2304 / @@2301=1304 DCA I C0145 / @@2302=3545 SKP / @@2303=7410 C2304, 3400 / DCA I L0000 TAD C2375 / @@2305=1375 DCA I C2374 / @@2306=3774 L2307, JMS I D0040 / long call to S4240 @@2307=4440 AND C0044 / @@2310=0044 SZA CLA / @@2311=7640 JMP L2206 / @@2312=5206 JMS I D0040 / long call to S4240 @@2313=4440 AND C0043 / @@2314=0043 SZA CLA / @@2315=7640 JMP I C0144 / long jump to L2251 @@2316=5544 ISZ D0073 / @@2317=2073 SKP / @@2320=7410 JMS I C2373 / long call to S2510 @@2321=4773 JMP I C0142 / long jump to L2201 @@2322=5542 C2323, 0000 / AND L0000 L2324, ISZ D0112 / @@2324=2112 SKP / @@2325=7410 JMP L2324 / @@2326=5324 CLA / @@2327=7200 TAD C2323 / @@2330=1323 DCA I C0143 / @@2331=3543 TAD C2335 / @@2332=1335 DCA I C0145 / @@2333=3545 SKP / @@2334=7410 C2335, 3400 / DCA I L0000 TAD C2372 / @@2336=1372 DCA I C2374 / @@2337=3774 JMP L2307 / @@2340=5307 *2372 C2372, 6200 / 6200 C2373, C2373, 2510 / ISZ I C0110 C2374, 3434 / DCA I C0034 C2375, 6100 / 6100 C2376, C2376, 0214 / AND C2214 C2377, C2377, 2400 / ISZ I L0000 L2400, JMS I C0026 / long call to S4600 @@2400=4426 C2401, 2407 / ISZ I C0007 STA / AC = 7777 (-0001) @@2402=7240 TAD I C2577 / @@2403=1777 JMS I C0034 / long call to S4654 @@2404=4434 JMS I C2576 / long call to S4247 @@2405=4776 JMP I C2575 / long jump to L2263 @@2406=5775 C2407, 4323 / JMS C2523 C2410, 2760 / ISZ I C2560 C2411, 7561 / MQA SCA MQL JMP I C0110 / long jump to L1745 @@2412=5510 AND C0114 / @@2413=0114 ISZ I D0040 / @@2414=2440 AND D0106 / @@2415=0106 ISZ I C0005 / @@2416=2405 D2417, 2240 / ISZ D2440 AND I C0122 / @@2420=0522 ISZ D2417 / @@2421=2217 ISZ D2455 / @@2422=2255 AND I C0122 / @@2423=0522 ISZ D2417 / @@2424=2217 ISZ D2440 / @@2425=2240 AND I C0005 / @@2426=0405 ISZ I C0005 / @@2427=2405 AND C2524 / @@2430=0324 AND I D0104 / @@2431=0504 C2432, 4001 / JMS L0001 ISZ I D0040 / @@2433=2440 C2434, 1417 / TAD I AI7 AND C2501 / @@2435=0301 C2436, 2411 / ISZ I AI1 TAD I C2516 / @@2437=1716 D2440, 4000 / JMS L0000 C2441, 0000 / AND L0000 L2442, ISZ D0112 / @@2442=2112 SKP / @@2443=7410 JMP L2442 / @@2444=5242 CLA / @@2445=7200 TAD C2441 / @@2446=1241 DCA I C0143 / @@2447=3543 TAD C2453 / @@2450=1253 DCA I C0145 / @@2451=3545 SKP / @@2452=7410 C2453, 3400 / DCA I L0000 TAD C2574 / @@2454=1374 D2455, 3773 / DCA I C2573 JMP I C2572 / long jump to L2307 @@2456=5772 C2457, 0000 / AND L0000 L2460, ISZ D0112 / @@2460=2112 SKP / @@2461=7410 JMP L2460 / @@2462=5260 D2463, 7200 / CLA TAD C2457 / @@2464=1257 DCA I C0143 / @@2465=3543 TAD C2471 / @@2466=1271 DCA I C0145 / @@2467=3545 SKP / @@2470=7410 C2471, 3400 / DCA I L0000 TAD C2571 / @@2472=1371 DCA I C2573 / @@2473=3773 JMP I C2572 / long jump to L2307 @@2474=5772 C2475, 0000 / AND L0000 L2476, ISZ D0112 / @@2476=2112 SKP / @@2477=7410 JMP L2476 / @@2500=5276 C2501, 7200 / CLA TAD C2475 / @@2502=1275 C2503, 3543 / DCA I C0143 C2504, 1307 / TAD D2507 DCA I C0145 / @@2505=3545 JMP I C0142 / long jump to L2201 @@2506=5542 D2507, 3436 / DCA I C0036 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2510 / / Called from: / 2321 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2510, 0 / return area TAD D0024 / @@2511=1024 SZA CLA / @@2512=7640 JMP I S2510 / return @@2513=5710 JMS I C0140 / long call to S2042 @@2514=4540 JMS I C0143 / long call to S2200 @@2515=4543 C2516, 2022 / ISZ D0022 C2517, 4014 / JMS AI4 TAD I C2503 / @@2520=1703 C2521, 4040 / JMS D0040 C2522, 4001 / JMS L0001 AND I C0004 / @@2523=0404 C2524, 2240 / ISZ D2440 C2525, 4040 / JMS D0040 AND I C2517 / @@2526=0717 TAD I C2504 / @@2527=1704 C2530, 4040 / JMS D0040 AND C2401 / @@2531=0201 AND I D0040 / @@2532=0440 JMS D0024 / @@2533=4024 AND I C0123 / @@2534=0523 ISZ I L0000 / @@2535=2400 JMP I S2510 / return @@2536=5710 *2571 C2571, 6400 / 6400 C2572, C2572, 2307 / ISZ D2507 C2573, 3434 / DCA I C0034 C2574, 6300 / 6300 C2575, C2575, 2263 / ISZ D2463 C2576, C2576, 4247 / JMS C2447 C2577, 2200 / ISZ L2400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2600 / / Never called //////////////////////////////////////////////////////////////////////////////// S2600, 0 / return area TAD D0024 / @@2601=1024 SZA CLA / @@2602=7640 JMP I S2600 / return @@2603=5600 JMS I C0140 / long call to S2042 @@2604=4540 D2605, 4543 / JMS I C0143 C2606, 4305 / JMS D2705 C2607, 0170 / AND C0170 JMP I D0105 / long jump to L0000 @@2610=5505 C2611, 4005 / JMS C0005 DCA D0024 / @@2612=3024 C2613, 4015 / JMS AI5 AND I C0115 / @@2614=0515 C2615, 4001 / JMS L0001 AND I C0004 / @@2616=0404 D2617, 2240 / ISZ D2640 ISZ I C0005 / @@2620=2405 ISZ D2724 / @@2621=2324 C2622, 4300 / JMS C2700 JMP I S2600 / return @@2623=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2624 / / Never called //////////////////////////////////////////////////////////////////////////////// S2624, 0 / return area TAD D0024 / @@2625=1024 SZA CLA / @@2626=7640 JMP L2644 / @@2627=5244 JMS I C0140 / long call to S2042 @@2630=4540 JMS I C0143 / long call to S2200 @@2631=4543 ISZ D2705 / @@2632=2305 ISZ I C0025 / @@2633=2425 ISZ D0040 / @@2634=2040 ISZ D2722 / @@2635=2322 C2636, 4046 / JMS C0046 JMS D0003 / @@2637=4003 D2640, 1716 / TAD I C2716 ISZ I C0045 / @@2641=2445 C2642, 4300 / JMS C2700 JMS I C0041 / long call to S4562 @@2643=4441 L2644, HLT / @@2644=7402 JMS I C2777 / long call to S4247 @@2645=4777 JMP I S2624 / return @@2646=5624 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2647 / / Never called //////////////////////////////////////////////////////////////////////////////// S2647, 0 / return area TAD D0024 / @@2650=1024 SZA CLA / @@2651=7640 JMP L2703 / @@2652=5303 JMS I C0140 / long call to S2042 @@2653=4540 C2654, 4543 / JMS I C0143 TAD I D2617 / @@2655=1617 JMS D0022 / @@2656=4022 AND I C0114 / @@2657=0514 TAD I L2703 / @@2660=1703 AND C0124 / @@2661=0124 TAD C0117 / @@2662=1117 TAD I C2654 / @@2663=1654 JMS D0020 / @@2664=4020 ISZ D2617 / @@2665=2217 AND I C2740 / @@2666=0740 TAD C0116 / @@2667=1116 C2670, 4023 / JMS C0023 ISZ I L0001 / @@2671=2401 AND C2713 / @@2672=0313 JMS L0000 / @@2673=4000 RIF / Same as RDF except reads the instruc @@2674=6224 CLL RTL / @@2675=7106 RAL / @@2676=7004 TAD C2776 / @@2677=1376 DCA D2702 / @@2700=3302 C2701, 4540 / JMS I C0140 D2702, 0000 / AND L0000 L2703, C2703, 7240 / STA DCA D0073 / @@2704=3073 D2705, 5647 / JMP I S2647 C2706, C2706, 0000 / AND L0000 C2707, 1024 / TAD D0024 SZA CLA / @@2710=7640 JMP L2726 / @@2711=5326 JMS I C0140 / long call to S2042 @@2712=4540 C2713, 4543 / JMS I C0143 ISZ D0022 / @@2714=2022 TAD I C2707 / @@2715=1707 C2716, 4027 / JMS C0027 TAD C0114 / @@2717=1114 TAD I D0040 / @@2720=1440 ISZ D2605 / @@2721=2205 D2722, 1417 / TAD I AI7 AND C2701 / @@2723=0301 D2724, 2405 / ISZ I C0005 AND L0000 / @@2725=0000 L2726, STA / AC = 7777 (-0001) @@2726=7240 DCA D0073 / @@2727=3073 JMP I C2706 / long jump to L0000 @@2730=5706 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2731 / / Called from: / 0317 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2731, 0 / return area CLA CLL / AC = 0000 @@2732=7300 DCA D0100 / @@2733=3100 CDF0 / Change to data field 1. The data fie @@2734=6211 JMS I C2775 / long call to S3000 @@2735=4775 CDF0 / Change to data field 2. The data fie @@2736=6221 JMS I C2775 / long call to S3000 @@2737=4775 C2740, 6231 / CDF0 JMS I C2775 / long call to S3000 @@2741=4775 CDF0 / Change to data field 4. The data fie @@2742=6241 JMS I C2775 / long call to S3000 @@2743=4775 CDF0 / Change to data field 5. The data fie @@2744=6251 JMS I C2775 / long call to S3000 @@2745=4775 CDF0 / Change to data field 6. The data fie @@2746=6261 JMS I C2775 / long call to S3000 @@2747=4775 CDF0 / Change to data field 7. The data fie @@2750=6271 JMS I C2775 / long call to S3000 @@2751=4775 L2752, JMP I S2731 / return @@2752=5731 *2775 C2775, C2775, 3000 / DCA L0000 C2776, 6000 / 6000 C2777, C2777, 4247 / JMS S2647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3000 / / Called from: / 2735 2737 2741 2743 2745 2747 2751 / 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 C0137 / @@3003=1137 DCA D3010 / @@3004=3210 D3005, 1114 / TAD C0114 DCA I C3015 / @@3006=3615 TAD I C3015 / @@3007=1615 D3010, 6201 / CDF0 SNA CLA / @@3011=7650 JMP I C3177 / long jump to L2752 @@3012=5777 ISZ D0100 / @@3013=2100 JMP I S3000 / return @@3014=5600 C3015, 3016 / DCA AI6 D3016, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3017 / / Never called //////////////////////////////////////////////////////////////////////////////// S3017, 0 / return area TAD D0024 / @@3020=1024 SZA CLA / @@3021=7640 JMP I S3017 / return @@3022=5617 JMS I C0140 / long call to S2042 @@3023=4540 JMS I C0143 / long call to S2200 @@3024=4543 AND L0000 / @@3025=0000 TAD D0100 / @@3026=1100 IAC / @@3027=7001 JMS I C0036 / long call to S4435 @@3030=4436 JMS I C0140 / long call to S2042 @@3031=4540 C3032, 4023 / JMS C0023 ISZ I L0001 / @@3033=2401 AND C3113 / @@3034=0313 ISZ D3140 / @@3035=2340 TAD C0116 / @@3036=1116 JMS D0024 / @@3037=4024 C3040, 1011 / TAD AI1 ISZ D3140 / @@3041=2340 ISZ D3131 / @@3042=2331 ISZ D3124 / @@3043=2324 AND I C0115 / @@3044=0515 AND L0000 / @@3045=0000 JMP I S3017 / return @@3046=5617 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3047 / / Called from: / 3122 3127 3134 3141 3146 3153 3160 3165 / Total 0010 (8) calls //////////////////////////////////////////////////////////////////////////////// S3047, 0 / return area JMS I C0036 / long call to S4435 @@3050=4436 TAD C0135 / @@3051=1135 JMS I C0036 / long call to S4435 @@3052=4436 JMP I S3047 / return @@3053=5647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S3054 / / Called from: / 1001 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S3054, 0 / return area CLA / @@3055=7200 TAD D0050 / @@3056=1050 DCA D0060 / @@3057=3060 TAD D0051 / @@3060=1051 DCA D0061 / @@3061=3061 TAD D0052 / @@3062=1052 DCA D0062 / @@3063=3062 C3064, 1053 / TAD D0053 DCA D0063 / @@3065=3063 TAD D0054 / @@3066=1054 DCA D0064 / @@3067=3064 TAD D0055 / @@3070=1055 DCA D0065 / @@3071=3065 TAD D0056 / @@3072=1056 DCA D0066 / @@3073=3066 TAD D0057 / @@3074=1057 DCA D0067 / @@3075=3067 JMP I S3054 / return @@3076=5654 C3077, C3077, 0000 / AND L0000 TAD D0024 / @@3100=1024 SZA CLA / @@3101=7640 JMP I C3077 / long jump to L0000 @@3102=5677 JMS I C0140 / long call to S2042 @@3103=4540 JMS I C0143 / long call to S2200 @@3104=4543 ISZ D3124 / @@3105=2324 AND D0103 / @@3106=0103 TAD L3123 / @@3107=1323 C3110, 4023 / JMS C0023 AND I C0114 / @@3111=0514 C3112, 4704 / JMS I C3104 C3113, 4001 / JMS L0001 ISZ D3005 / @@3114=2205 JMS L0000 / @@3115=4000 TAD D0057 / @@3116=1057 SZA CLA / @@3117=7640 JMP L3123 / @@3120=5323 TAD C3176 / @@3121=1376 JMS S3047 / @@3122=4247 L3123, C3123, 1056 / TAD D0056 D3124, 7640 / SZA CLA JMP L3130 / @@3125=5330 TAD C3175 / @@3126=1375 JMS S3047 / @@3127=4247 L3130, TAD D0055 / @@3130=1055 D3131, 7640 / SZA CLA JMP L3135 / @@3132=5335 TAD C3174 / @@3133=1374 JMS S3047 / @@3134=4247 L3135, TAD D0054 / @@3135=1054 SZA CLA / @@3136=7640 JMP L3142 / @@3137=5342 D3140, 1373 / TAD C3173 JMS S3047 / @@3141=4247 L3142, TAD D0053 / @@3142=1053 SZA CLA / @@3143=7640 JMP L3147 / @@3144=5347 TAD C3172 / @@3145=1372 JMS S3047 / @@3146=4247 L3147, TAD D0052 / @@3147=1052 SZA CLA / @@3150=7640 JMP L3154 / @@3151=5354 C3152, 1371 / TAD C3171 JMS S3047 / @@3153=4247 L3154, TAD D0051 / @@3154=1051 SZA CLA / @@3155=7640 JMP L3161 / @@3156=5361 TAD C3170 / @@3157=1370 JMS S3047 / @@3160=4247 L3161, TAD D0050 / @@3161=1050 SZA CLA / @@3162=7640 JMP L3166 / @@3163=5366 TAD C3167 / @@3164=1367 JMS S3047 / @@3165=4247 L3166, JMP I C3077 / long jump to L0000 @@3166=5677 C3167, 0260 / AND C3060 C3170, 0261 / AND C3061 C3171, 0262 / AND C3062 C3172, 0263 / AND C3063 AND C3064 / @@3173=0264 C3174, 0265 / AND C3065 C3175, 0266 / AND C3066 C3176, 0267 / AND C3067 C3177, C3177, 2752 / ISZ I C3152 L3200, JMS I D0040 / long call to S4240 @@3200=4440 DCA D3206 / @@3201=3206 TAD D3206 / @@3202=1206 DCA I D3206 / @@3203=3606 TAD I D3206 / @@3204=1606 JMP L3200 / @@3205=5200 D3206, 0000 / AND L0000 L3207, JMS I D0040 / long call to S4240 @@3207=4440 DCA D3233 / @@3210=3233 HLT / @@3211=7402 JMS I D0040 / long call to S4240 @@3212=4440 DCA D3234 / @@3213=3234 L3214, TAD D3233 / @@3214=1233 DCA D3235 / @@3215=3235 L3216, TAD D3235 / @@3216=1235 DCA I D3235 / @@3217=3635 TAD I D3235 / @@3220=1635 CLA / @@3221=7200 TAD D3235 / @@3222=1235 CIA / @@3223=7041 TAD D3234 / @@3224=1234 SNA CLA / @@3225=7650 JMP L3214 / @@3226=5214 ISZ D3235 / @@3227=2235 JMP L3216 / @@3230=5216 HLT / @@3231=7402 JMP L3207 / @@3232=5207 D3233, 0000 / AND L0000 D3234, 0000 / AND L0000 D3235, 0000 / AND L0000 *3400 TAD D0104 / @@3400=1104 CLL RTR / @@3401=7112 RAR / @@3402=7010 TAD C0136 / @@3403=1136 DCA D3422 / @@3404=3222 D3405, 4541 / JMS I C0141 AND D0077 / @@3406=0077 C3407, 3423 / DCA I C0023 JMS I C0141 / long call to S2000 @@3410=4541 AND D0106 / @@3411=0106 DCA I C0026 / @@3412=3426 JMS I C0141 / long call to S2000 @@3413=4541 AND D0105 / @@3414=0105 DCA I C0031 / @@3415=3431 TAD D0024 / @@3416=1024 SZA CLA / @@3417=7640 JMP L3471 / @@3420=5271 JMS I C0140 / long call to S2042 @@3421=4540 D3422, 0000 / AND L0000 AND L0000 / @@3423=0000 AND L0000 / @@3424=0000 C3425, 4040 / JMS D0040 AND L0000 / @@3426=0000 AND L0000 / @@3427=0000 C3430, 4040 / JMS D0040 AND L0000 / @@3431=0000 AND L0000 / @@3432=0000 C3433, 4040 / JMS D0040 D3434, 0000 / AND L0000 JMP I C0144 / long jump to L2251 @@3435=5544 TAD D0104 / @@3436=1104 CLL RTR / @@3437=7112 RAR / @@3440=7010 TAD C0136 / @@3441=1136 DCA D3462 / @@3442=3262 JMS I C0141 / long call to S2000 @@3443=4541 AND D0107 / @@3444=0107 DCA I D0063 / @@3445=3463 TAD D0024 / @@3446=1024 SZA CLA / @@3447=7640 JMP L3525 / @@3450=5325 JMS I C0140 / long call to S2042 @@3451=4540 ISZ D3405 / @@3452=2205 C3453, 1417 / TAD I AI7 C3454, 4005 / JMS C0005 ISZ D3422 / @@3455=2222 C3456, 4001 / JMS L0001 ISZ I D0040 / @@3457=2440 AND L0000 / @@3460=0000 JMS I C0140 / long call to S2042 @@3461=4540 D3462, 0000 / AND L0000 AND L0000 / @@3463=0000 AND L0000 / @@3464=0000 AND L0000 / @@3465=0000 STA / AC = 7777 (-0001) @@3466=7240 DCA D0073 / @@3467=3073 JMP I C0144 / long jump to L2251 @@3470=5544 L3471, TAD I C3577 / @@3471=1777 AND C0121 / @@3472=0121 HLT / @@3473=7402 CLA / @@3474=7200 TAD D0113 / @@3475=1113 HLT / @@3476=7402 CLA / @@3477=7200 TAD D3422 / @@3500=1222 AND C0121 / @@3501=0121 HLT / @@3502=7402 CLA / @@3503=7200 TAD D0077 / @@3504=1077 HLT / @@3505=7402 CLA / @@3506=7200 TAD D0106 / @@3507=1106 HLT / @@3510=7402 CLA / @@3511=7200 TAD D0105 / @@3512=1105 HLT / @@3513=7402 CLA / @@3514=7200 TAD D3434 / @@3515=1234 CLL RTR / @@3516=7112 RTR / @@3517=7012 RTR / @@3520=7012 AND C0121 / @@3521=0121 HLT / @@3522=7402 CLA / @@3523=7200 JMP I C0144 / long jump to L2251 @@3524=5544 L3525, TAD I C3577 / @@3525=1777 AND C0121 / @@3526=0121 HLT / @@3527=7402 CLA / @@3530=7200 TAD D0113 / @@3531=1113 HLT / @@3532=7402 CLA / @@3533=7200 TAD D3462 / @@3534=1262 AND C0121 / @@3535=0121 HLT / @@3536=7402 CLA / @@3537=7200 TAD D0107 / @@3540=1107 HLT / @@3541=7402 CLA / @@3542=7200 C3543, 5544 / JMP I C0144 *3577 C3577, 2242 / ISZ C3442 C3600, 6002 / IOF JMS I C0041 / long call to S4562 @@3601=4441 JMP L3614 / @@3602=5214 DCA D0024 / @@3603=3024 STA / AC = 7777 (-0001) @@3604=7240 DCA I C3777 / @@3605=3777 TAD C3776 / @@3606=1376 DCA I C3775 / @@3607=3775 D3610, 4774 / JMS I C3774 TAD C3773 / @@3611=1373 DCA D3610 / @@3612=3210 JMP L3702 / @@3613=5302 L3614, TAD D0024 / @@3614=1024 C3615, 7650 / SNA CLA JMP L3623 / @@3616=5223 TAD D0020 / @@3617=1020 AND C3772 / @@3620=0372 TAD C0121 / @@3621=1121 DCA D0020 / @@3622=3020 L3623, JMS I C3771 / long call to S4041 @@3623=4771 CLA / @@3624=7200 TAD D0022 / @@3625=1022 SMA CLA / @@3626=7700 JMP L3702 / @@3627=5302 TAD C3770 / @@3630=1370 DCA I C3775 / @@3631=3775 TAD C3773 / @@3632=1373 DCA I C3767 / @@3633=3767 TAD C3773 / @@3634=1373 DCA I C3766 / @@3635=3766 TAD C3773 / @@3636=1373 DCA I C3765 / @@3637=3765 TAD C3773 / @@3640=1373 DCA I C3764 / @@3641=3764 TAD C3773 / @@3642=1373 DCA I C3763 / @@3643=3763 TAD C3773 / @@3644=1373 DCA I C3762 / @@3645=3762 TAD C3773 / @@3646=1373 DCA I C3761 / @@3647=3761 TAD C3760 / @@3650=1360 AND C3757 / @@3651=0357 TAD C3756 / @@3652=1356 DCA I C3755 / @@3653=3755 TAD C3754 / @@3654=1354 AND C3757 / @@3655=0357 TAD C3756 / @@3656=1356 DCA I C3753 / @@3657=3753 TAD C3752 / @@3660=1352 AND C3757 / @@3661=0357 TAD C3756 / @@3662=1356 DCA I C3751 / @@3663=3751 TAD C3750 / @@3664=1350 AND C3757 / @@3665=0357 TAD C3756 / @@3666=1356 DCA I C3747 / @@3667=3747 TAD C3746 / @@3670=1346 DCA I C3745 / @@3671=3745 TAD I C3745 / @@3672=1745 DCA I C3744 / @@3673=3744 TAD I C3745 / @@3674=1745 DCA I C3743 / @@3675=3743 TAD I C3745 / @@3676=1745 DCA I C3742 / @@3677=3742 TAD I C3745 / @@3700=1745 DCA I C3741 / @@3701=3741 L3702, TAD D0024 / @@3702=1024 SNA CLA / @@3703=7650 JMP I C3740 / long jump to L1600 @@3704=5740 TAD I C3737 / @@3705=1737 DCA D0146 / @@3706=3146 TAD C3736 / @@3707=1336 DCA D0076 / @@3710=3076 IOF / Disable Interrupts @@3711=6002 RIF / Same as RDF except reads the instruc @@3712=6224 TAD C3735 / @@3713=1335 DCA D3715 / @@3714=3315 D3715, 6201 / CDF0 JMP I C3734 / long jump to L0215 @@3716=5734 *3734 C3734, C3734, 0215 / AND C3615 C3735, 6201 / CDF0 C3736, 6003 / 6003 C3737, 1631 / TAD I C3631 C3740, C3740, 1600 / TAD I C3600 C3741, 1537 / TAD I C0137 C3742, 1465 / TAD I D0065 C3743, 1414 / TAD I AI4 C3744, 1306 / TAD C3706 C3745, 1705 / TAD I C3705 C3746, 4405 / JMS I C0005 C3747, 1236 / TAD C3636 C3750, 1243 / TAD C3643 C3751, 1144 / TAD C0144 C3752, 1157 / TAD C0157 C3753, 0534 / AND I C0134 C3754, 0547 / AND I C0147 C3755, 0516 / AND I C0116 C3756, 5200 / JMP C3600 C3757, 0177 / AND C0177 C3760, 0531 / AND I C0131 C3761, 0514 / AND I C0114 C3762, 0400 / AND I L0000 C3763, 1000 / TAD L0000 C3764, 0532 / AND I C0132 C3765, 0323 / AND C3723 C3766, 0214 / AND L3614 C3767, 0213 / AND C3613 C3770, 4406 / JMS I C0006 C3771, C3771, 4041 / JMS C0041 C3772, 7700 / SMA CLA C3773, 7000 / NOP C3774, 4127 / JMS D0127 C3775, 1201 / TAD C3601 C3776, 4404 / JMS I C0004 C3777, 1261 / TAD C3661 C4000, C4000, 0000 / AND L0000 IOF / Disable Interrupts @@4001=6002 CLA / @@4002=7200 C4003, 1222 / TAD C4022 DCA D4024 / @@4004=3224 L4005, TAD C4023 / @@4005=1223 DCA D4025 / @@4006=3225 L4007, C4007, 2225 / ISZ D4025 JMP L4007 / @@4010=5207 ISZ D4024 / @@4011=2224 JMP L4005 / @@4012=5205 RIF / Same as RDF except reads the instruc @@4013=6224 C4014, 1377 / TAD C4177 DCA D4016 / @@4015=3216 D4016, 6201 / CDF0 CIF0 / Prepare to change to instruction fie @@4017=6272 C4020, 4776 / JMS I C4176 JMP I C4000 / long jump to L0000 @@4021=5600 C4022, 7771 / CLA MQA SCA MQL NMI C4023, 0000 / AND L0000 D4024, 0000 / AND L0000 D4025, 0000 / AND L0000 D4026, 0000 / AND L0000 L4027, IOF / Disable Interrupts @@4027=6002 CLA / @@4030=7200 RIF / Same as RDF except reads the instruc @@4031=6224 TAD C4177 / @@4032=1377 DCA D4036 / @@4033=3236 STA / AC = 7777 (-0001) @@4034=7240 TAD D4026 / @@4035=1226 D4036, 6201 / CDF0 CIF0 / Prepare to change to instruction fie @@4037=6272 JMP I C4175 / long jump to L6520 @@4040=5775 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4041 / / Called from: / 3623 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4041, 0 / return area CLA / @@4042=7200 TAD C0021 / @@4043=1021 AND C4174 / @@4044=0374 RTR / @@4045=7012 AND C0121 / @@4046=0121 SNA / @@4047=7450 JMP L4070 / @@4050=5270 DCA D4024 / @@4051=3224 TAD D0022 / @@4052=1022 SMA CLA / @@4053=7700 JMP L4061 / @@4054=5261 TAD D4024 / @@4055=1224 TAD C4173 / @@4056=1373 SNA CLA / @@4057=7650 CMA / @@4060=7040 L4061, TAD D4024 / @@4061=1224 DCA D4024 / @@4062=3224 TAD D0020 / @@4063=1020 AND C4172 / @@4064=0372 TAD D4024 / @@4065=1224 DCA D0020 / @@4066=3020 JMP I S4041 / return @@4067=5641 L4070, CLA / @@4070=7200 JMS I D0040 / long call to S4240 @@4071=4440 AND C4171 / @@4072=0371 DCA D4024 / @@4073=3224 TAD D4024 / @@4074=1224 D4075, 0370 / AND C4170 DCA D4025 / @@4076=3225 TAD D4024 / @@4077=1224 AND C4167 / @@4100=0367 DCA D4024 / @@4101=3224 TAD D0022 / @@4102=1022 SMA CLA / @@4103=7700 JMP L4121 / @@4104=5321 TAD D4024 / @@4105=1224 TAD C4166 / @@4106=1366 SZA CLA / @@4107=7640 JMP L4113 / @@4110=5313 TAD C4165 / @@4111=1365 DCA D4024 / @@4112=3224 L4113, TAD D4025 / @@4113=1225 TAD C4173 / @@4114=1373 SZA CLA / @@4115=7640 JMP L4121 / @@4116=5321 TAD C4164 / @@4117=1364 DCA D4025 / @@4120=3225 L4121, TAD D0020 / @@4121=1020 AND C4172 / @@4122=0372 TAD D4024 / @@4123=1224 TAD D4025 / @@4124=1225 DCA D0020 / @@4125=3020 JMP I S4041 / return @@4126=5641 C4127, C4127, 0000 / AND L0000 CLA / @@4130=7200 RIF / Same as RDF except reads the instruc @@4131=6224 TAD C4177 / @@4132=1377 DCA D4142 / @@4133=3342 TAD C4163 / @@4134=1363 C4135, 3010 / DCA AI0 TAD C4162 / @@4136=1362 C4137, 3011 / DCA AI1 L4140, CDF0 / Change to data field 1. The data fie @@4140=6211 C4141, 1410 / TAD I AI0 D4142, 6201 / CDF0 C4143, 3411 / DCA I AI1 C4144, 1010 / TAD AI0 CMA / @@4145=7040 SZA CLA / @@4146=7640 JMP L4140 / @@4147=5340 JMP I C4127 / long jump to L0000 @@4150=5727 C4151, 4323 / JMS C4123 ISZ D4075 / @@4152=2275 AND L0000 / @@4153=0000 C4154, 7743 / CLA MQA SCA SCL + AND L0000 / @@4155=0000 DCA I C4003 / @@4156=3603 C4157, 4300 / JMS C4100 DCA I L4007 / @@4160=3607 C4161, 4300 / JMS C4100 C4162, 4777 / JMS I C4177 C4163, 7577 / MQA SCA MQL LSR + C4164, 0006 / AND C0006 C4165, 0060 / AND D0060 C4166, 7710 / SPA CLA C4167, 0070 / AND D0070 C4170, 0007 / AND C0007 C4171, 0077 / AND D0077 C4172, 7700 / SMA CLA C4173, 7771 / CLA MQA SCA MQL NMI C4174, 0037 / AND C0037 C4175, C4175, 6520 / 6520 C4176, 6500 / 6500 C4177, 6201 / CDF0 L4200, C4200, 7200 / CLA JMS I C0026 / long call to S4600 @@4201=4426 C4202, 4156 / JMS C0156 RIF / Same as RDF except reads the instruc @@4203=6224 TAD C4377 / @@4204=1377 DCA L4216 / @@4205=3216 TAD C4376 / @@4206=1376 C4207, 3010 / DCA AI0 TAD C4375 / @@4210=1375 C4211, 3011 / DCA AI1 TAD C4376 / @@4212=1376 C4213, 3012 / DCA AI2 TAD C4376 / @@4214=1376 C4215, 3013 / DCA AI3 L4216, D4216, 6201 / CDF0 C4217, 1010 / TAD AI0 CMA / @@4220=7040 SNA / @@4221=7450 JMP L4235 / @@4222=5235 CAM / @@4223=7621 C4224, 1410 / TAD I AI0 MQL / @@4225=7421 C4226, 1411 / TAD I AI1 CDF0 / Change to data field 1. The data fie @@4227=6211 C4230, 3413 / DCA I AI3 MQA MQL / @@4231=7521 CDF0 / Change to data field 0. The data fie @@4232=6201 C4233, 3412 / DCA I AI2 JMP L4216 / @@4234=5216 L4235, C4235, 6203 / 6203 JMP I C4237 / long jump to L7600 @@4236=5637 C4237, C4237, 7600 / 7600 C4240, C4240, 0000 / AND L0000 CLA CLL / AC = 0000 @@4241=7300 TAD C0021 / @@4242=1021 SPA CLA / @@4243=7710 CLA OSR / @@4244=7614 TAD D0020 / @@4245=1020 JMP I C4240 / long jump to L0000 @@4246=5640 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4247 / / Called from: / 0524 0542 1152 2405 2645 4362 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S4247, 0 / return area CLA / @@4250=7200 JMS I C0041 / long call to S4562 @@4251=4441 JMP I S4247 / return @@4252=5647 L4253, JMS I C0026 / long call to S4600 @@4253=4426 C4254, 4151 / JMS C0151 JMS I D0040 / long call to S4240 @@4255=4440 JMS I C0034 / long call to S4654 @@4256=4434 CLA CLL CMA RTL / AC = 7775 (-0003) @@4257=7346 DCA D4333 / @@4260=3333 TAD C4374 / @@4261=1374 DCA D4265 / @@4262=3265 L4263, JMS I C0025 / long call to S4475 @@4263=4425 AND L0001 / @@4264=0001 D4265, 4303 / JMS C4303 SMA SZA SNL OSR HLT / @@4266=7566 AND L4200 / @@4267=0200 C4270, 7563 / MQA SCA MQL SCL + C4271, 4317 / JMS C4317 C4272, 7575 / MQA SCA MQL ASR + C4273, 4200 / JMS L4200 C4274, 7555 / MQA SCA ASR + C4275, 4364 / JMS C4364 AND L0000 / @@4276=0000 C4277, 4300 / JMS C4300 JMS I C0026 / long call to S4600 @@4300=4426 C4301, 4154 / JMS C0154 JMP L4253 / @@4302=5253 DCA D0020 / @@4303=3020 TAD C4373 / @@4304=1373 DCA D4265 / @@4305=3265 JMP L4263 / @@4306=5263 DCA D4332 / @@4307=3332 TAD D0020 / @@4310=1020 CLL RTL / @@4311=7106 RAL / @@4312=7004 TAD D4332 / @@4313=1332 DCA D0020 / @@4314=3020 ISZ D4333 / @@4315=2333 JMP L4263 / @@4316=5263 TAD C4374 / @@4317=1374 CIA / @@4320=7041 TAD D4265 / @@4321=1265 SNA CLA / @@4322=7650 JMP I S4247 / return @@4323=5647 JMS I C0026 / long call to S4600 @@4324=4426 C4325, 4151 / JMS C0151 JMS I D0040 / long call to S4240 @@4326=4440 JMS I C0034 / long call to S4654 @@4327=4434 JMS I C0037 / long call to S4452 @@4330=4437 JMP I S4247 / return @@4331=5647 D4332, 0000 / AND L0000 D4333, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4334 / / Called from: / 2213 2264 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4334, 0 / return area KSF / Skip if keyboard flag is a 1. @@4335=6031 JMP I S4334 / return @@4336=5734 JMS I C0041 / long call to S4562 @@4337=4441 SKP / @@4340=7410 JMP L4344 / @@4341=5344 KCC / Clear AC and clear keyboard flag. @@4342=6032 JMP I S4334 / return @@4343=5734 L4344, JMS I C0025 / long call to S4475 @@4344=4425 C4345, 7575 / MQA SCA MQL ASR + C4346, 4200 / JMS L4200 C4347, 7571 / MQA SCA MQL NMI C4350, 4360 / JMS C4360 C4351, 7555 / MQA SCA ASR + C4352, 4366 / JMS C4366 AND L0000 / @@4353=0000 C4354, 4355 / JMS C4355 JMS I C0026 / long call to S4600 @@4355=4426 C4356, 4154 / JMS C0154 JMP I S4334 / return @@4357=5734 JMS I C0026 / long call to S4600 @@4360=4426 C4361, 4160 / JMS C0160 JMS S4247 / @@4362=4247 JMP I S4334 / return @@4363=5734 JMS I C4372 / long call to S4710 @@4364=4772 JMP L4263 / @@4365=5263 JMS I C4372 / long call to S4710 @@4366=4772 JMP I S4334 / return @@4367=5734 *4372 C4372, C4372, 4710 / JMS I C4310 C4373, 4307 / JMS C4307 C4374, 4303 / JMS C4303 C4375, 4777 / JMS I C4377 C4376, 7577 / MQA SCA MQL LSR + C4377, 6201 / CDF0 C4400, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4401 / / Called from: / 4412 4417 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4401, 0 / return area JMS I C0025 / long call to S4475 @@4402=4425 AND L0001 / @@4403=0001 C4404, 4407 / JMS I C0007 AND L0000 / @@4405=0000 C4406, 4410 / JMS I AI0 ISZ S4401 / @@4407=2201 JMP I S4401 / return @@4410=5601 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4411 / / Called from: / 4641 4647 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4411, 0 / return area JMS S4401 / @@4412=4201 JMP I S4411 / return @@4413=5611 CLL RAL / @@4414=7104 RTL / @@4415=7006 DCA S4424 / @@4416=3224 JMS S4401 / @@4417=4201 JMP I S4411 / return @@4420=5611 TAD S4424 / @@4421=1224 ISZ S4411 / @@4422=2211 JMP I S4411 / return @@4423=5611 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4424 / / Called from: / 4662 4664 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4424, 0 / return area DCA S4411 / @@4425=3211 TAD S4411 / @@4426=1211 RTR / @@4427=7012 RAR / @@4430=7010 JMS I C0032 / long call to S4667 @@4431=4432 TAD S4411 / @@4432=1211 JMS I C0032 / long call to S4667 @@4433=4432 JMP I S4424 / return @@4434=5624 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4435 / / Called from: / 2121 2212 3030 3050 3052 4455 4462 4524 4631 4672 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S4435, 0 / return area DCA D4451 / @@4436=3251 JMS I C0041 / long call to S4562 @@4437=4441 SKP CLA / @@4440=7610 JMS I C4577 / long call to S4675 @@4441=4777 TAD D4451 / @@4442=1251 TLS / Load the TTO from the content of AC4 @@4443=6046 CLA / @@4444=7200 L4445, TSF / Skip if teleprinter flag is a 1. @@4445=6041 JMP L4445 / @@4446=5245 TCF / Clear teleprinter flag. @@4447=6042 JMP I S4435 / return @@4450=5635 D4451, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4452 / / Called from: / 4330 4515 4633 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S4452, 0 / return area CLA / @@4453=7200 TAD C0134 / @@4454=1134 JMS I C0036 / long call to S4435 @@4455=4436 TAD C4400 / @@4456=1200 CMA / @@4457=7040 DCA D4466 / @@4460=3266 TAD C0133 / @@4461=1133 L4462, JMS I C0036 / long call to S4435 @@4462=4436 ISZ D4466 / @@4463=2266 JMP L4462 / @@4464=5262 JMP I S4452 / return @@4465=5652 D4466, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4467 / / Called from: / 4665 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4467, 0 / return area JMS I C0026 / long call to S4600 @@4470=4426 JMS I D0073 / long call to S0000 @@4471=4473 JMP I S4467 / return @@4472=5667 C4473, 4040 / JMS D0040 C4474, 0010 / AND AI0 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4475 / / Called from: / 4263 4344 4402 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S4475, 0 / return area SZA CLA / @@4476=7640 JMP L4525 / @@4477=5325 L4500, KSF / Skip if keyboard flag is a 1. @@4500=6031 JMP L4500 / @@4501=5300 KRB / Clear AC, clear keyboard flag, and r @@4502=6036 AND C4557 / @@4503=0357 TAD C4560 / @@4504=1360 DCA S4467 / @@4505=3267 TAD S4467 / @@4506=1267 TAD C4561 / @@4507=1361 SNA / @@4510=7450 JMP L4515 / @@4511=5315 TAD C0116 / @@4512=1116 SZA CLA / @@4513=7640 JMP L4517 / @@4514=5317 L4515, JMS I C0037 / long call to S4452 @@4515=4437 JMP L4525 / @@4516=5325 L4517, TAD S4467 / @@4517=1267 TAD C4576 / @@4520=1376 SNA CLA / @@4521=7650 JMP L4525 / @@4522=5325 TAD S4467 / @@4523=1267 JMS I C0036 / long call to S4435 @@4524=4436 L4525, TAD I S4475 / @@4525=1675 ISZ S4475 / @@4526=2275 SNA / @@4527=7450 JMP L4536 / @@4530=5336 SMA / @@4531=7500 JMP L4546 / @@4532=5346 TAD S4467 / @@4533=1267 SZA CLA / @@4534=7640 JMP L4543 / @@4535=5343 L4536, DCA D4466 / @@4536=3266 TAD I S4475 / @@4537=1675 DCA S4475 / @@4540=3275 TAD D4466 / @@4541=1266 JMP I S4475 / return @@4542=5675 L4543, C4543, 7200 / CLA ISZ S4475 / @@4544=2275 JMP L4525 / @@4545=5325 L4546, CLA / @@4546=7200 TAD S4467 / @@4547=1267 TAD C4554 / @@4550=1354 SMA / @@4551=7500 JMP L4543 / @@4552=5343 TAD C0122 / @@4553=1122 C4554, 7510 / SPA JMP L4543 / @@4555=5343 JMP L4536 / @@4556=5336 C4557, 0177 / AND C0177 C4560, 0200 / AND C4400 C4561, 7566 / SMA SZA SNL OSR HLT //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4562 / / Called from: / 0522 0540 1150 1246 2255 2643 3601 4251 4337 4437 / Total 0012 (10) calls //////////////////////////////////////////////////////////////////////////////// S4562, 0 / return area TAD D0022 / @@4563=1022 AND C4575 / @@4564=0375 SNA CLA / @@4565=7650 JMP I S4562 / return @@4566=5762 ISZ S4562 / @@4567=2362 JMP I S4562 / return @@4570=5762 *4575 C4575, 0400 / AND I L0000 C4576, 7555 / MQA SCA ASR + C4577, C4577, 4675 / JMS I S4475 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4600 / / Called from: / 1250 2400 4201 4253 4300 4324 4355 4360 4470 / Total 0011 (9) calls //////////////////////////////////////////////////////////////////////////////// S4600, 0 / return area CLA / @@4601=7200 TAD I S4600 / @@4602=1600 DCA D4640 / @@4603=3240 ISZ S4600 / @@4604=2200 L4605, TAD I D4640 / @@4605=1640 RTR / @@4606=7012 RTR / @@4607=7012 RTR / @@4610=7012 JMS S4616 / @@4611=4216 TAD I D4640 / @@4612=1640 JMS S4616 / @@4613=4216 ISZ D4640 / @@4614=2240 JMP L4605 / @@4615=5205 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4616 / / Called from: / 4611 4613 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4616, 0 / return area AND C0131 / @@4617=0131 SNA / @@4620=7450 JMP I S4600 / return @@4621=5600 TAD C4635 / @@4622=1235 SNA / @@4623=7450 JMP L4633 / @@4624=5233 TAD C4636 / @@4625=1236 SPA / @@4626=7510 TAD C4637 / @@4627=1237 TAD C0135 / @@4630=1135 JMS I C0036 / long call to S4435 @@4631=4436 JMP I S4616 / return @@4632=5616 L4633, JMS I C0037 / long call to S4452 @@4633=4437 JMP I S4616 / return @@4634=5616 C4635, 7735 / CLA MQA MQL ASR + C4636, 0003 / AND D0003 C4637, 0100 / AND D0100 D4640, 0000 / AND L0000 JMS I C0030 / long call to S4411 @@4641=4430 JMP I D4640 / long jump to L0000 @@4642=5640 CLL RTL / @@4643=7106 RTL / @@4644=7006 RTL / @@4645=7006 DCA S4654 / @@4646=3254 JMS I C0030 / long call to S4411 @@4647=4430 JMP I D4640 / long jump to L0000 @@4650=5640 TAD S4654 / @@4651=1254 ISZ D4640 / @@4652=2240 JMP I D4640 / long jump to L0000 @@4653=5640 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4654 / / Called from: / 1254 2404 4256 4327 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S4654, 0 / return area DCA D4640 / @@4655=3240 TAD D4640 / @@4656=1240 RTR / @@4657=7012 RTR / @@4660=7012 RTR / @@4661=7012 JMS I C0033 / long call to S4424 @@4662=4433 TAD D4640 / @@4663=1240 JMS I C0033 / long call to S4424 @@4664=4433 JMS I C0035 / long call to S4467 @@4665=4435 JMP I S4654 / return @@4666=5654 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4667 / / Called from: / 4431 4433 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4667, 0 / return area AND C0121 / @@4670=0121 TAD C4674 / @@4671=1274 JMS I C0036 / long call to S4435 @@4672=4436 JMP I S4667 / return @@4673=5667 C4674, 0260 / AND C4660 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4675 / / Called from: / 4441 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4675, 0 / return area KSF / Skip if keyboard flag is a 1. @@4676=6031 JMP I S4675 / return @@4677=5675 KRS / Read keyboard buffer static. This is @@4700=6034 AND C4777 / @@4701=0377 TAD C4776 / @@4702=1376 SZA CLA / @@4703=7640 JMP I S4675 / return @@4704=5675 KCC / Clear AC and clear keyboard flag. @@4705=6032 JMS S4710 / @@4706=4310 JMP I S4675 / return @@4707=5675 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4710 / / Called from: / 4364 4366 4706 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S4710, 0 / return area L4711, KSF / Skip if keyboard flag is a 1. @@4711=6031 JMP L4711 / @@4712=5311 KRB / Clear AC, clear keyboard flag, and r @@4713=6036 AND C4777 / @@4714=0377 TAD C4775 / @@4715=1375 SNA / @@4716=7450 JMP I C4774 / long jump to L4200 @@4717=5774 TAD C4773 / @@4720=1373 SNA / @@4721=7450 JMP I C4772 / long jump to L0200 @@4722=5772 TAD C4773 / @@4723=1373 SZA CLA / @@4724=7640 JMP L4711 / @@4725=5311 JMP I S4710 / return @@4726=5710 *4772 C4772, C4772, 0200 / AND S4600 C4773, 7771 / CLA MQA SCA MQL NMI C4774, C4774, 4200 / JMS S4600 C4775, 7775 / CLA MQA SCA MQL ASR + C4776, 7755 / CLA MQA SCA ASR + C4777, 0177 / AND C0177 AND L0000 / @@5000=0000 $