TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0bb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d0bb-pb.bin / Generated 2010 02 19 00:10:29 / 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 / / 3704 locations used, 2632 code and 1052 data //////////////////////////////////////////////////////////////////////////////// *0200 *0000 L0000, D0000, 0000 / AND L0000 L0001, D0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 D0003, 0003 / AND D0003 *0007 D0007, 0000 / AND L0000 *0020 C0020, 7777 / CLA MQA SCA MQL LSR + C0021, 3777 / DCA I C0177 C0022, 5777 / JMP I C0177 C0023, 6777 / 6777 C0024, 7377 / CLA CLL CMA CML IAC RTR RTL C0025, 7577 / MQA SCA MQL LSR + C0026, 7677 / CLA SCA MQL LSR + C0027, 7737 / CLA MQA MQL LSR + D0030, 0000 / AND L0000 C0031, 7757 / CLA MQA SCA LSR + C0032, 7767 / CLA MQA SCA MQL DVI + C0033, 7773 / CLA MQA SCA MQL SHL + C0034, 7775 / CLA MQA SCA MQL ASR + C0035, 7776 / SPA SNA SZL CLA OSR HLT C0036, 0000 / AND L0000 C0037, 1777 / TAD I C0177 C0040, 0777 / AND I C0177 C0041, 0377 / AND C0177 D0042, 0177 / AND C0177 C0043, 0077 / AND C0077 C0044, 0037 / AND C0037 C0045, 0017 / AND AI7 C0046, 0007 / AND D0007 C0047, 0003 / AND D0003 D0050, 0000 / AND L0000 C0051, 0001 / AND L0001 L0052, C0052, 4400 / JMS I L0000 C0053, 4577 / JMS I C0177 C0054, 2525 / ISZ I C0125 C0055, 6666 / 6666 C0056, 4444 / JMS I C0044 C0057, 7070 / CMA CML RAR C0060, 0707 / AND I C0107 C0061, 5252 / JMP L0052 C0062, 1111 / TAD C0111 C0063, 5555 / JMP I C0155 C0064, 5200 / JMP L0000 C0065, 0004 / AND C0004 *0110 D0110, 0000 / AND L0000 *0172 C0172, 0176 / AND C0176 D0173, 0172 / AND C0172 C0174, 0173 / AND D0173 C0175, 0174 / AND C0174 C0176, 0175 / AND C0175 C0177, 1234 / TAD C0034 *0200 L0200, CLA / @@0200=7200 SKP / @@0201=7410 D0202, 0000 / AND L0000 TAD L0052 / @@0203=1052 DCA D0377 / @@0204=3377 SZA / @@0205=7440 HLT / @@0206=7402 SKP / @@0207=7410 D0210, 0000 / AND L0000 TAD L0052 / @@0211=1052 CIA / @@0212=7041 TAD D0377 / @@0213=1377 SZA / @@0214=7440 HLT / @@0215=7402 CLA / @@0216=7200 TAD C0053 / @@0217=1053 DCA D0202 / @@0220=3202 SZA / @@0221=7440 HLT / @@0222=7402 TAD C0053 / @@0223=1053 CIA / @@0224=7041 TAD D0202 / @@0225=1202 SZA / @@0226=7440 HLT / @@0227=7402 CLA / @@0230=7200 TAD C0020 / @@0231=1020 DCA D0202 / @@0232=3202 SZA / @@0233=7440 HLT / @@0234=7402 TAD D0202 / @@0235=1202 CMA / @@0236=7040 SZA / @@0237=7440 HLT / @@0240=7402 CLA / @@0241=7200 TAD C0036 / @@0242=1036 DCA D0202 / @@0243=3202 SZA / @@0244=7440 HLT / @@0245=7402 TAD D0202 / @@0246=1202 SZA / @@0247=7440 C0250, 7402 / HLT CLA / @@0251=7200 TAD C0054 / @@0252=1054 DCA D0202 / @@0253=3202 SZA / @@0254=7440 HLT / @@0255=7402 TAD C0054 / @@0256=1054 CIA / @@0257=7041 TAD D0202 / @@0260=1202 SZA / @@0261=7440 HLT / @@0262=7402 CLA / @@0263=7200 TAD C0055 / @@0264=1055 DCA D0202 / @@0265=3202 SZA / @@0266=7440 HLT / @@0267=7402 TAD C0055 / @@0270=1055 CIA / @@0271=7041 TAD D0202 / @@0272=1202 SZA / @@0273=7440 HLT / @@0274=7402 CLA / @@0275=7200 TAD C0056 / @@0276=1056 DCA D0377 / @@0277=3377 SZA / @@0300=7440 HLT / @@0301=7402 TAD C0056 / @@0302=1056 CIA / @@0303=7041 TAD D0377 / @@0304=1377 SZA / @@0305=7440 HLT / @@0306=7402 CLA / @@0307=7200 TAD C0057 / @@0310=1057 DCA D0377 / @@0311=3377 SZA / @@0312=7440 HLT / @@0313=7402 TAD C0057 / @@0314=1057 CIA / @@0315=7041 TAD D0377 / @@0316=1377 SZA / @@0317=7440 HLT / @@0320=7402 CLA / @@0321=7200 TAD C0060 / @@0322=1060 DCA L0000 / @@0323=3000 SZA / @@0324=7440 HLT / @@0325=7402 TAD C0060 / @@0326=1060 CIA / @@0327=7041 TAD L0000 / @@0330=1000 SZA / @@0331=7440 HLT / @@0332=7402 CLA / @@0333=7200 TAD C0061 / @@0334=1061 DCA L0000 / @@0335=3000 SZA / @@0336=7440 HLT / @@0337=7402 TAD C0061 / @@0340=1061 CIA / @@0341=7041 TAD L0000 / @@0342=1000 SZA / @@0343=7440 HLT / @@0344=7402 CLA / @@0345=7200 TAD C0062 / @@0346=1062 DCA L0000 / @@0347=3000 SZA / @@0350=7440 HLT / @@0351=7402 TAD C0062 / @@0352=1062 CIA / @@0353=7041 TAD L0000 / @@0354=1000 SZA / @@0355=7440 HLT / @@0356=7402 CLA / @@0357=7200 TAD C0063 / @@0360=1063 DCA L0000 / @@0361=3000 SZA / @@0362=7440 HLT / @@0363=7402 TAD C0063 / @@0364=1063 CIA / @@0365=7041 TAD L0000 / @@0366=1000 SZA / @@0367=7440 HLT / @@0370=7402 JMP L0375 / @@0371=5375 L0372, AND I D0210 / @@0372=0610 JMP I C0374 / long jump to L3650 @@0373=5774 C0374, C0374, 3650 / DCA I C0250 L0375, NOP / @@0375=7000 SKP / @@0376=7410 D0377, 0000 / AND L0000 *0400 CLA / @@0400=7200 TAD I D0042 / @@0401=1442 CIA / @@0402=7041 TAD C0177 / @@0403=1177 SZA / @@0404=7440 HLT / @@0405=7402 CLA / @@0406=7200 SKP / @@0407=7410 D0410, 0000 / AND L0000 TAD C0020 / @@0411=1020 AND I D0042 / @@0412=0442 CIA / @@0413=7041 TAD C0177 / @@0414=1177 SZA / @@0415=7440 HLT / @@0416=7402 CLA / @@0417=7200 TAD C0020 / @@0420=1020 DCA L0000 / @@0421=3000 ISZ I C0036 / @@0422=2436 HLT / @@0423=7402 TAD L0000 / @@0424=1000 SZA / @@0425=7440 HLT / @@0426=7402 CLA / @@0427=7200 TAD I C0172 / @@0430=1572 CIA / @@0431=7041 TAD C0176 / @@0432=1176 SZA / @@0433=7440 HLT / @@0434=7402 CLA / @@0435=7200 TAD C0020 / @@0436=1020 C0437, 0572 / AND I C0172 CIA / @@0440=7041 TAD C0176 / @@0441=1176 SZA / @@0442=7440 HLT / @@0443=7402 CLA / @@0444=7200 TAD C0172 / @@0445=1172 DCA L0000 / @@0446=3000 ISZ I C0036 / @@0447=2436 SKP / @@0450=7410 HLT / @@0451=7402 TAD L0000 / @@0452=1000 CIA / @@0453=7041 TAD C0172 / @@0454=1172 CMA / @@0455=7040 SZA / @@0456=7440 HLT / @@0457=7402 CLA / @@0460=7200 TAD I D0173 / @@0461=1573 CIA / @@0462=7041 TAD C0172 / @@0463=1172 SZA / @@0464=7440 HLT / @@0465=7402 CLA / @@0466=7200 TAD C0020 / @@0467=1020 AND I D0173 / @@0470=0573 CIA / @@0471=7041 TAD C0172 / @@0472=1172 SZA / @@0473=7440 HLT / @@0474=7402 CLA / @@0475=7200 TAD D0173 / @@0476=1173 DCA L0000 / @@0477=3000 ISZ I C0036 / @@0500=2436 SKP / @@0501=7410 HLT / @@0502=7402 TAD L0000 / @@0503=1000 CIA / @@0504=7041 TAD D0173 / @@0505=1173 CMA / @@0506=7040 SZA / @@0507=7440 HLT / @@0510=7402 CLA / @@0511=7200 TAD I C0174 / @@0512=1574 CIA / @@0513=7041 TAD D0173 / @@0514=1173 SZA / @@0515=7440 HLT / @@0516=7402 CLA / @@0517=7200 TAD C0020 / @@0520=1020 AND I C0174 / @@0521=0574 CIA / @@0522=7041 TAD D0173 / @@0523=1173 SZA / @@0524=7440 HLT / @@0525=7402 CLA / @@0526=7200 TAD C0174 / @@0527=1174 DCA L0000 / @@0530=3000 ISZ I C0036 / @@0531=2436 SKP / @@0532=7410 HLT / @@0533=7402 TAD L0000 / @@0534=1000 CIA / @@0535=7041 TAD C0174 / @@0536=1174 CMA / @@0537=7040 SZA / @@0540=7440 HLT / @@0541=7402 CLA / @@0542=7200 TAD I C0175 / @@0543=1575 CIA / @@0544=7041 TAD C0174 / @@0545=1174 SZA / @@0546=7440 HLT / @@0547=7402 CLA / @@0550=7200 TAD C0020 / @@0551=1020 AND I C0175 / @@0552=0575 CIA / @@0553=7041 TAD C0174 / @@0554=1174 SZA / @@0555=7440 HLT / @@0556=7402 CLA / @@0557=7200 TAD C0175 / @@0560=1175 DCA L0000 / @@0561=3000 ISZ I C0036 / @@0562=2436 SKP / @@0563=7410 HLT / @@0564=7402 TAD L0000 / @@0565=1000 CIA / @@0566=7041 TAD C0175 / @@0567=1175 CMA / @@0570=7040 SZA / @@0571=7440 HLT / @@0572=7402 JMP L0577 / @@0573=5377 L0574, AND I D0410 / @@0574=0610 JMP I C0576 / long jump to L3637 @@0575=5776 C0576, C0576, 3637 / DCA I C0437 L0577, NOP / @@0577=7000 *0600 CLA / @@0600=7200 TAD I C0176 / @@0601=1576 CIA / @@0602=7041 TAD C0175 / @@0603=1175 SZA / @@0604=7440 HLT / @@0605=7402 CLA / @@0606=7200 TAD C0036 / @@0607=1036 C0610, 3010 / DCA AI0 C0611, 0410 / AND I AI0 C0612, 1010 / TAD AI0 TAD C0035 / @@0613=1035 CMA / @@0614=7040 SZA / @@0615=7440 HLT / @@0616=7402 CLA / @@0617=7200 TAD C0035 / @@0620=1035 C0621, 3010 / DCA AI0 C0622, 0410 / AND I AI0 C0623, 1010 / TAD AI0 TAD C0036 / @@0624=1036 CMA / @@0625=7040 SZA / @@0626=7440 HLT / @@0627=7402 CLA / @@0630=7200 TAD C0034 / @@0631=1034 C0632, 3010 / DCA AI0 C0633, 3410 / DCA I AI0 C0634, 1010 / TAD AI0 TAD C0051 / @@0635=1051 CMA / @@0636=7040 SZA / @@0637=7440 HLT / @@0640=7402 CLA / @@0641=7200 TAD C0033 / @@0642=1033 C0643, 3010 / DCA AI0 C0644, 1410 / TAD I AI0 CLA / @@0645=7200 C0646, 1010 / TAD AI0 TAD C0047 / @@0647=1047 CMA / @@0650=7040 SZA / @@0651=7440 HLT / @@0652=7402 CLA / @@0653=7200 TAD C0032 / @@0654=1032 C0655, 3010 / DCA AI0 C0656, 0410 / AND I AI0 C0657, 1010 / TAD AI0 TAD C0046 / @@0660=1046 CMA / @@0661=7040 SZA / @@0662=7440 HLT / @@0663=7402 CLA / @@0664=7200 TAD C0031 / @@0665=1031 C0666, 3010 / DCA AI0 C0667, 0410 / AND I AI0 C0670, 1010 / TAD AI0 TAD C0045 / @@0671=1045 CMA / @@0672=7040 SZA / @@0673=7440 HLT / @@0674=7402 CLA / @@0675=7200 TAD C0027 / @@0676=1027 C0677, 3010 / DCA AI0 C0700, 0410 / AND I AI0 C0701, 1010 / TAD AI0 TAD C0044 / @@0702=1044 CMA / @@0703=7040 SZA / @@0704=7440 HLT / @@0705=7402 CLA / @@0706=7200 TAD C0026 / @@0707=1026 C0710, 3010 / DCA AI0 C0711, 0410 / AND I AI0 C0712, 1010 / TAD AI0 TAD C0043 / @@0713=1043 CMA / @@0714=7040 SZA / @@0715=7440 HLT / @@0716=7402 CLA / @@0717=7200 TAD C0025 / @@0720=1025 C0721, 3010 / DCA AI0 C0722, 0410 / AND I AI0 C0723, 1010 / TAD AI0 TAD D0042 / @@0724=1042 CMA / @@0725=7040 SZA / @@0726=7440 HLT / @@0727=7402 CLA / @@0730=7200 TAD C0024 / @@0731=1024 C0732, 3010 / DCA AI0 C0733, 0410 / AND I AI0 C0734, 1010 / TAD AI0 TAD C0041 / @@0735=1041 CMA / @@0736=7040 SZA / @@0737=7440 HLT / @@0740=7402 CLA / @@0741=7200 TAD C0023 / @@0742=1023 C0743, 3010 / DCA AI0 C0744, 0410 / AND I AI0 C0745, 1010 / TAD AI0 TAD C0040 / @@0746=1040 CMA / @@0747=7040 SZA / @@0750=7440 HLT / @@0751=7402 CLA / @@0752=7200 TAD C0022 / @@0753=1022 C0754, 3010 / DCA AI0 C0755, 2410 / ISZ I AI0 NOP / @@0756=7000 C0757, 1010 / TAD AI0 TAD C0037 / @@0760=1037 CMA / @@0761=7040 SZA / @@0762=7440 HLT / @@0763=7402 CLA / @@0764=7200 TAD C0021 / @@0765=1021 C0766, 3010 / DCA AI0 C0767, 0410 / AND I AI0 C0770, 1010 / TAD AI0 TAD C0021 / @@0771=1021 CMA / @@0772=7040 SZA / @@0773=7440 HLT / @@0774=7402 NOP / @@0775=7000 NOP / @@0776=7000 NOP / @@0777=7000 *1000 CLA / @@1000=7200 TAD C0020 / @@1001=1020 C1002, 3010 / DCA AI0 C1003, 0410 / AND I AI0 C1004, 1010 / TAD AI0 TAD C0020 / @@1005=1020 CMA / @@1006=7040 SKP / @@1007=7410 D1010, 0000 / AND L0000 SZA / @@1011=7440 HLT / @@1012=7402 CLA / @@1013=7200 TAD C0036 / @@1014=1036 C1015, 3011 / DCA AI1 C1016, 0411 / AND I AI1 C1017, 1011 / TAD AI1 TAD C0035 / @@1020=1035 CMA / @@1021=7040 SZA / @@1022=7440 HLT / @@1023=7402 CLA / @@1024=7200 TAD C0035 / @@1025=1035 C1026, 3011 / DCA AI1 C1027, 0411 / AND I AI1 C1030, 1011 / TAD AI1 TAD C0036 / @@1031=1036 CMA / @@1032=7040 SZA / @@1033=7440 HLT / @@1034=7402 CLA / @@1035=7200 TAD C0034 / @@1036=1034 C1037, 3011 / DCA AI1 C1040, 3411 / DCA I AI1 C1041, 1011 / TAD AI1 TAD C0051 / @@1042=1051 CMA / @@1043=7040 SZA / @@1044=7440 HLT / @@1045=7402 CLA / @@1046=7200 TAD C0033 / @@1047=1033 C1050, 3011 / DCA AI1 C1051, 1411 / TAD I AI1 CLA / @@1052=7200 C1053, 1011 / TAD AI1 TAD C0047 / @@1054=1047 CMA / @@1055=7040 SZA / @@1056=7440 HLT / @@1057=7402 CLA / @@1060=7200 TAD C0032 / @@1061=1032 C1062, 3011 / DCA AI1 C1063, 0411 / AND I AI1 C1064, 1011 / TAD AI1 TAD C0046 / @@1065=1046 CMA / @@1066=7040 SZA / @@1067=7440 HLT / @@1070=7402 CLA / @@1071=7200 TAD C0031 / @@1072=1031 C1073, 3011 / DCA AI1 C1074, 0411 / AND I AI1 C1075, 1011 / TAD AI1 TAD C0045 / @@1076=1045 CMA / @@1077=7040 SZA / @@1100=7440 HLT / @@1101=7402 CLA / @@1102=7200 TAD C0027 / @@1103=1027 C1104, 3011 / DCA AI1 C1105, 0411 / AND I AI1 C1106, 1011 / TAD AI1 TAD C0044 / @@1107=1044 CMA / @@1110=7040 SZA / @@1111=7440 HLT / @@1112=7402 CLA / @@1113=7200 TAD C0026 / @@1114=1026 C1115, 3011 / DCA AI1 C1116, 0411 / AND I AI1 C1117, 1011 / TAD AI1 TAD C0043 / @@1120=1043 CMA / @@1121=7040 SZA / @@1122=7440 HLT / @@1123=7402 CLA / @@1124=7200 TAD C0025 / @@1125=1025 C1126, 3011 / DCA AI1 C1127, 0411 / AND I AI1 C1130, 1011 / TAD AI1 TAD D0042 / @@1131=1042 CMA / @@1132=7040 SZA / @@1133=7440 HLT / @@1134=7402 CLA / @@1135=7200 TAD C0024 / @@1136=1024 C1137, 3011 / DCA AI1 C1140, 0411 / AND I AI1 C1141, 1011 / TAD AI1 TAD C0041 / @@1142=1041 CMA / @@1143=7040 SZA / @@1144=7440 HLT / @@1145=7402 CLA / @@1146=7200 TAD C0023 / @@1147=1023 C1150, 3011 / DCA AI1 C1151, 0411 / AND I AI1 C1152, 1011 / TAD AI1 TAD C0040 / @@1153=1040 CMA / @@1154=7040 SZA / @@1155=7440 HLT / @@1156=7402 CLA / @@1157=7200 TAD C0022 / @@1160=1022 C1161, 3011 / DCA AI1 C1162, 2411 / ISZ I AI1 NOP / @@1163=7000 C1164, 1011 / TAD AI1 TAD C0037 / @@1165=1037 CMA / @@1166=7040 SZA / @@1167=7440 HLT / @@1170=7402 NOP / @@1171=7000 JMP L1176 / @@1172=5376 L1173, AND I D1010 / @@1173=0610 JMP I C1175 / long jump to L3626 @@1174=5775 C1175, C1175, 3626 / DCA I C1026 L1176, NOP / @@1176=7000 NOP / @@1177=7000 *1200 CLA / @@1200=7200 TAD C0021 / @@1201=1021 C1202, 3011 / DCA AI1 C1203, 0411 / AND I AI1 C1204, 1011 / TAD AI1 TAD C0021 / @@1205=1021 CMA / @@1206=7040 SZA / @@1207=7440 HLT / @@1210=7402 CLA / @@1211=7200 TAD C0020 / @@1212=1020 C1213, 3011 / DCA AI1 C1214, 0411 / AND I AI1 C1215, 1011 / TAD AI1 TAD C0020 / @@1216=1020 CMA / @@1217=7040 SZA / @@1220=7440 HLT / @@1221=7402 CLA / @@1222=7200 TAD C0036 / @@1223=1036 C1224, 3012 / DCA AI2 C1225, 0412 / AND I AI2 C1226, 1012 / TAD AI2 TAD C0035 / @@1227=1035 CMA / @@1230=7040 SZA / @@1231=7440 HLT / @@1232=7402 CLA / @@1233=7200 TAD C0035 / @@1234=1035 C1235, 3012 / DCA AI2 C1236, 0412 / AND I AI2 C1237, 1012 / TAD AI2 TAD C0036 / @@1240=1036 CMA / @@1241=7040 SZA / @@1242=7440 HLT / @@1243=7402 CLA / @@1244=7200 TAD C0034 / @@1245=1034 C1246, 3012 / DCA AI2 C1247, 3412 / DCA I AI2 C1250, 1012 / TAD AI2 TAD C0051 / @@1251=1051 CMA / @@1252=7040 SZA / @@1253=7440 HLT / @@1254=7402 CLA / @@1255=7200 TAD C0033 / @@1256=1033 C1257, 3012 / DCA AI2 C1260, 1412 / TAD I AI2 CLA / @@1261=7200 C1262, 1012 / TAD AI2 TAD C0047 / @@1263=1047 CMA / @@1264=7040 SZA / @@1265=7440 HLT / @@1266=7402 CLA / @@1267=7200 TAD C0032 / @@1270=1032 C1271, 3012 / DCA AI2 C1272, 0412 / AND I AI2 C1273, 1012 / TAD AI2 TAD C0046 / @@1274=1046 CMA / @@1275=7040 SZA / @@1276=7440 HLT / @@1277=7402 CLA / @@1300=7200 TAD C0031 / @@1301=1031 C1302, 3012 / DCA AI2 C1303, 0412 / AND I AI2 C1304, 1012 / TAD AI2 TAD C0045 / @@1305=1045 CMA / @@1306=7040 SZA / @@1307=7440 HLT / @@1310=7402 CLA / @@1311=7200 TAD C0027 / @@1312=1027 C1313, 3012 / DCA AI2 C1314, 0412 / AND I AI2 C1315, 1012 / TAD AI2 TAD C0044 / @@1316=1044 CMA / @@1317=7040 SZA / @@1320=7440 HLT / @@1321=7402 CLA / @@1322=7200 TAD C0026 / @@1323=1026 C1324, 3012 / DCA AI2 C1325, 0412 / AND I AI2 C1326, 1012 / TAD AI2 TAD C0043 / @@1327=1043 CMA / @@1330=7040 SZA / @@1331=7440 HLT / @@1332=7402 CLA / @@1333=7200 TAD C0025 / @@1334=1025 C1335, 3012 / DCA AI2 C1336, 0412 / AND I AI2 C1337, 1012 / TAD AI2 TAD D0042 / @@1340=1042 CMA / @@1341=7040 SZA / @@1342=7440 HLT / @@1343=7402 CLA / @@1344=7200 TAD C0024 / @@1345=1024 C1346, 3012 / DCA AI2 C1347, 0412 / AND I AI2 C1350, 1012 / TAD AI2 TAD C0041 / @@1351=1041 CMA / @@1352=7040 SZA / @@1353=7440 HLT / @@1354=7402 CLA / @@1355=7200 TAD C0023 / @@1356=1023 C1357, 3012 / DCA AI2 C1360, 0412 / AND I AI2 C1361, 1012 / TAD AI2 TAD C0040 / @@1362=1040 CMA / @@1363=7040 SZA / @@1364=7440 HLT / @@1365=7402 CLA / @@1366=7200 TAD C0022 / @@1367=1022 C1370, 3012 / DCA AI2 C1371, 2412 / ISZ I AI2 NOP / @@1372=7000 C1373, 1012 / TAD AI2 TAD C0037 / @@1374=1037 CMA / @@1375=7040 SZA / @@1376=7440 HLT / @@1377=7402 *1400 CLA / @@1400=7200 TAD C0021 / @@1401=1021 C1402, 3012 / DCA AI2 C1403, 0412 / AND I AI2 C1404, 1012 / TAD AI2 TAD C0021 / @@1405=1021 CMA / @@1406=7040 SZA / @@1407=7440 HLT / @@1410=7402 CLA / @@1411=7200 TAD C0020 / @@1412=1020 C1413, 3012 / DCA AI2 C1414, 0412 / AND I AI2 C1415, 1012 / TAD AI2 TAD C0020 / @@1416=1020 CMA / @@1417=7040 SZA / @@1420=7440 HLT / @@1421=7402 CLA / @@1422=7200 TAD C0036 / @@1423=1036 C1424, 3013 / DCA AI3 C1425, 0413 / AND I AI3 C1426, 1013 / TAD AI3 TAD C0035 / @@1427=1035 CMA / @@1430=7040 SZA / @@1431=7440 HLT / @@1432=7402 CLA / @@1433=7200 TAD C0035 / @@1434=1035 C1435, 3013 / DCA AI3 C1436, 0413 / AND I AI3 C1437, 1013 / TAD AI3 TAD C0036 / @@1440=1036 CMA / @@1441=7040 SZA / @@1442=7440 HLT / @@1443=7402 CLA / @@1444=7200 TAD C0034 / @@1445=1034 C1446, 3013 / DCA AI3 C1447, 3413 / DCA I AI3 C1450, 1013 / TAD AI3 TAD C0051 / @@1451=1051 CMA / @@1452=7040 SZA / @@1453=7440 HLT / @@1454=7402 CLA / @@1455=7200 TAD C0033 / @@1456=1033 C1457, 3013 / DCA AI3 C1460, 1413 / TAD I AI3 CLA / @@1461=7200 C1462, 1013 / TAD AI3 TAD C0047 / @@1463=1047 CMA / @@1464=7040 SZA / @@1465=7440 HLT / @@1466=7402 CLA / @@1467=7200 TAD C0032 / @@1470=1032 C1471, 3013 / DCA AI3 C1472, 0413 / AND I AI3 C1473, 1013 / TAD AI3 TAD C0046 / @@1474=1046 CMA / @@1475=7040 SZA / @@1476=7440 HLT / @@1477=7402 CLA / @@1500=7200 TAD C0031 / @@1501=1031 C1502, 3013 / DCA AI3 C1503, 0413 / AND I AI3 C1504, 1013 / TAD AI3 TAD C0045 / @@1505=1045 CMA / @@1506=7040 SZA / @@1507=7440 HLT / @@1510=7402 CLA / @@1511=7200 TAD C0027 / @@1512=1027 C1513, 3013 / DCA AI3 C1514, 0413 / AND I AI3 C1515, 1013 / TAD AI3 TAD C0044 / @@1516=1044 CMA / @@1517=7040 SZA / @@1520=7440 HLT / @@1521=7402 CLA / @@1522=7200 TAD C0026 / @@1523=1026 C1524, 3013 / DCA AI3 C1525, 0413 / AND I AI3 C1526, 1013 / TAD AI3 TAD C0043 / @@1527=1043 CMA / @@1530=7040 SZA / @@1531=7440 HLT / @@1532=7402 CLA / @@1533=7200 TAD C0025 / @@1534=1025 C1535, 3013 / DCA AI3 C1536, 0413 / AND I AI3 C1537, 1013 / TAD AI3 TAD D0042 / @@1540=1042 CMA / @@1541=7040 SZA / @@1542=7440 HLT / @@1543=7402 CLA / @@1544=7200 TAD C0024 / @@1545=1024 C1546, 3013 / DCA AI3 C1547, 0413 / AND I AI3 C1550, 1013 / TAD AI3 TAD C0041 / @@1551=1041 CMA / @@1552=7040 SZA / @@1553=7440 HLT / @@1554=7402 CLA / @@1555=7200 TAD C0023 / @@1556=1023 C1557, 3013 / DCA AI3 C1560, 0413 / AND I AI3 C1561, 1013 / TAD AI3 TAD C0040 / @@1562=1040 CMA / @@1563=7040 SZA / @@1564=7440 HLT / @@1565=7402 CLA / @@1566=7200 TAD C0022 / @@1567=1022 C1570, 3013 / DCA AI3 C1571, 2413 / ISZ I AI3 NOP / @@1572=7000 C1573, 1013 / TAD AI3 TAD C0037 / @@1574=1037 CMA / @@1575=7040 SZA / @@1576=7440 HLT / @@1577=7402 *1600 CLA / @@1600=7200 TAD C0021 / @@1601=1021 C1602, 3013 / DCA AI3 C1603, 0413 / AND I AI3 C1604, 1013 / TAD AI3 TAD C0021 / @@1605=1021 CMA / @@1606=7040 SZA / @@1607=7440 HLT / @@1610=7402 CLA / @@1611=7200 TAD C0020 / @@1612=1020 C1613, 3013 / DCA AI3 C1614, 0413 / AND I AI3 C1615, 1013 / TAD AI3 TAD C0020 / @@1616=1020 CMA / @@1617=7040 SZA / @@1620=7440 HLT / @@1621=7402 CLA / @@1622=7200 TAD C0036 / @@1623=1036 C1624, 3014 / DCA AI4 C1625, 0414 / AND I AI4 C1626, 1014 / TAD AI4 TAD C0035 / @@1627=1035 CMA / @@1630=7040 SZA / @@1631=7440 HLT / @@1632=7402 CLA / @@1633=7200 TAD C0035 / @@1634=1035 C1635, 3014 / DCA AI4 C1636, 0414 / AND I AI4 C1637, 1014 / TAD AI4 TAD C0036 / @@1640=1036 CMA / @@1641=7040 SZA / @@1642=7440 HLT / @@1643=7402 CLA / @@1644=7200 TAD C0034 / @@1645=1034 C1646, 3014 / DCA AI4 C1647, 3414 / DCA I AI4 C1650, 1014 / TAD AI4 TAD C0051 / @@1651=1051 CMA / @@1652=7040 SZA / @@1653=7440 HLT / @@1654=7402 CLA / @@1655=7200 TAD C0033 / @@1656=1033 C1657, 3014 / DCA AI4 C1660, 1414 / TAD I AI4 CLA / @@1661=7200 C1662, 1014 / TAD AI4 TAD C0047 / @@1663=1047 CMA / @@1664=7040 SZA / @@1665=7440 HLT / @@1666=7402 CLA / @@1667=7200 TAD C0032 / @@1670=1032 C1671, 3014 / DCA AI4 C1672, 0414 / AND I AI4 C1673, 1014 / TAD AI4 TAD C0046 / @@1674=1046 CMA / @@1675=7040 SZA / @@1676=7440 HLT / @@1677=7402 CLA / @@1700=7200 TAD C0031 / @@1701=1031 C1702, 3014 / DCA AI4 C1703, 0414 / AND I AI4 C1704, 1014 / TAD AI4 TAD C0045 / @@1705=1045 CMA / @@1706=7040 SZA / @@1707=7440 HLT / @@1710=7402 CLA / @@1711=7200 TAD C0027 / @@1712=1027 C1713, 3014 / DCA AI4 C1714, 0414 / AND I AI4 C1715, 1014 / TAD AI4 TAD C0044 / @@1716=1044 CMA / @@1717=7040 SZA / @@1720=7440 HLT / @@1721=7402 CLA / @@1722=7200 TAD C0026 / @@1723=1026 C1724, 3014 / DCA AI4 C1725, 0414 / AND I AI4 C1726, 1014 / TAD AI4 TAD C0043 / @@1727=1043 CMA / @@1730=7040 SZA / @@1731=7440 HLT / @@1732=7402 CLA / @@1733=7200 TAD C0025 / @@1734=1025 C1735, 3014 / DCA AI4 C1736, 0414 / AND I AI4 C1737, 1014 / TAD AI4 TAD D0042 / @@1740=1042 CMA / @@1741=7040 SZA / @@1742=7440 HLT / @@1743=7402 CLA / @@1744=7200 TAD C0024 / @@1745=1024 C1746, 3014 / DCA AI4 C1747, 0414 / AND I AI4 C1750, 1014 / TAD AI4 TAD C0041 / @@1751=1041 CMA / @@1752=7040 SZA / @@1753=7440 HLT / @@1754=7402 CLA / @@1755=7200 TAD C0023 / @@1756=1023 C1757, 3014 / DCA AI4 C1760, 0414 / AND I AI4 C1761, 1014 / TAD AI4 TAD C0040 / @@1762=1040 CMA / @@1763=7040 SZA / @@1764=7440 HLT / @@1765=7402 CLA / @@1766=7200 TAD C0022 / @@1767=1022 C1770, 3014 / DCA AI4 C1771, 2414 / ISZ I AI4 NOP / @@1772=7000 C1773, 1014 / TAD AI4 TAD C0037 / @@1774=1037 CMA / @@1775=7040 SZA / @@1776=7440 HLT / @@1777=7402 *2000 CLA / @@2000=7200 TAD C0021 / @@2001=1021 C2002, 3014 / DCA AI4 C2003, 0414 / AND I AI4 C2004, 1014 / TAD AI4 TAD C0021 / @@2005=1021 CMA / @@2006=7040 SKP / @@2007=7410 C2010, 0000 / AND L0000 SZA / @@2011=7440 HLT / @@2012=7402 CLA / @@2013=7200 TAD C0020 / @@2014=1020 C2015, 3014 / DCA AI4 C2016, 0414 / AND I AI4 C2017, 1014 / TAD AI4 TAD C0020 / @@2020=1020 CMA / @@2021=7040 SZA / @@2022=7440 HLT / @@2023=7402 CLA / @@2024=7200 TAD C0036 / @@2025=1036 C2026, 3015 / DCA AI5 C2027, 0415 / AND I AI5 C2030, 1015 / TAD AI5 TAD C0035 / @@2031=1035 CMA / @@2032=7040 SZA / @@2033=7440 HLT / @@2034=7402 CLA / @@2035=7200 TAD C0035 / @@2036=1035 C2037, 3015 / DCA AI5 C2040, 0415 / AND I AI5 C2041, 1015 / TAD AI5 TAD C0036 / @@2042=1036 CMA / @@2043=7040 SZA / @@2044=7440 HLT / @@2045=7402 CLA / @@2046=7200 TAD C0034 / @@2047=1034 C2050, 3015 / DCA AI5 C2051, 3415 / DCA I AI5 C2052, 1015 / TAD AI5 TAD C0051 / @@2053=1051 CMA / @@2054=7040 SZA / @@2055=7440 HLT / @@2056=7402 CLA / @@2057=7200 TAD C0033 / @@2060=1033 C2061, 3015 / DCA AI5 C2062, 1415 / TAD I AI5 CLA / @@2063=7200 C2064, 1015 / TAD AI5 TAD C0047 / @@2065=1047 CMA / @@2066=7040 SZA / @@2067=7440 HLT / @@2070=7402 CLA / @@2071=7200 TAD C0032 / @@2072=1032 C2073, 3015 / DCA AI5 C2074, 0415 / AND I AI5 C2075, 1015 / TAD AI5 TAD C0046 / @@2076=1046 CMA / @@2077=7040 SZA / @@2100=7440 HLT / @@2101=7402 CLA / @@2102=7200 TAD C0031 / @@2103=1031 C2104, 3015 / DCA AI5 C2105, 0415 / AND I AI5 C2106, 1015 / TAD AI5 TAD C0045 / @@2107=1045 CMA / @@2110=7040 SZA / @@2111=7440 HLT / @@2112=7402 CLA / @@2113=7200 TAD C0027 / @@2114=1027 C2115, 3015 / DCA AI5 C2116, 0415 / AND I AI5 C2117, 1015 / TAD AI5 TAD C0044 / @@2120=1044 CMA / @@2121=7040 SZA / @@2122=7440 HLT / @@2123=7402 CLA / @@2124=7200 TAD C0026 / @@2125=1026 C2126, 3015 / DCA AI5 C2127, 0415 / AND I AI5 C2130, 1015 / TAD AI5 TAD C0043 / @@2131=1043 CMA / @@2132=7040 SZA / @@2133=7440 HLT / @@2134=7402 CLA / @@2135=7200 TAD C0025 / @@2136=1025 C2137, 3015 / DCA AI5 C2140, 0415 / AND I AI5 C2141, 1015 / TAD AI5 TAD D0042 / @@2142=1042 CMA / @@2143=7040 SZA / @@2144=7440 HLT / @@2145=7402 CLA / @@2146=7200 TAD C0024 / @@2147=1024 C2150, 3015 / DCA AI5 C2151, 0415 / AND I AI5 C2152, 1015 / TAD AI5 TAD C0041 / @@2153=1041 CMA / @@2154=7040 SZA / @@2155=7440 HLT / @@2156=7402 CLA / @@2157=7200 TAD C0023 / @@2160=1023 C2161, 3015 / DCA AI5 C2162, 0415 / AND I AI5 C2163, 1015 / TAD AI5 TAD C0040 / @@2164=1040 CMA / @@2165=7040 SZA / @@2166=7440 HLT / @@2167=7402 NOP / @@2170=7000 NOP / @@2171=7000 JMP L2176 / @@2172=5376 L2173, AND I C2010 / @@2173=0610 JMP I C2175 / long jump to L3615 @@2174=5775 C2175, C2175, 3615 / DCA I C2015 L2176, NOP / @@2176=7000 NOP / @@2177=7000 *2200 CLA / @@2200=7200 TAD C0022 / @@2201=1022 C2202, 3015 / DCA AI5 C2203, 2415 / ISZ I AI5 NOP / @@2204=7000 C2205, 1015 / TAD AI5 TAD C0037 / @@2206=1037 CMA / @@2207=7040 SZA / @@2210=7440 HLT / @@2211=7402 CLA / @@2212=7200 TAD C0021 / @@2213=1021 C2214, 3015 / DCA AI5 C2215, 0415 / AND I AI5 C2216, 1015 / TAD AI5 TAD C0021 / @@2217=1021 CMA / @@2220=7040 SZA / @@2221=7440 HLT / @@2222=7402 CLA / @@2223=7200 TAD C0020 / @@2224=1020 C2225, 3015 / DCA AI5 C2226, 0415 / AND I AI5 C2227, 1015 / TAD AI5 TAD C0020 / @@2230=1020 CMA / @@2231=7040 SZA / @@2232=7440 HLT / @@2233=7402 CLA / @@2234=7200 TAD C0036 / @@2235=1036 C2236, 3016 / DCA AI6 C2237, 0416 / AND I AI6 C2240, 1016 / TAD AI6 TAD C0035 / @@2241=1035 CMA / @@2242=7040 SZA / @@2243=7440 HLT / @@2244=7402 CLA / @@2245=7200 TAD C0035 / @@2246=1035 C2247, 3016 / DCA AI6 C2250, 0416 / AND I AI6 C2251, 1016 / TAD AI6 TAD C0036 / @@2252=1036 CMA / @@2253=7040 SZA / @@2254=7440 HLT / @@2255=7402 CLA / @@2256=7200 TAD C0034 / @@2257=1034 C2260, 3016 / DCA AI6 C2261, 3416 / DCA I AI6 C2262, 1016 / TAD AI6 TAD C0051 / @@2263=1051 CMA / @@2264=7040 SZA / @@2265=7440 HLT / @@2266=7402 CLA / @@2267=7200 TAD C0033 / @@2270=1033 C2271, 3016 / DCA AI6 C2272, 1416 / TAD I AI6 CLA / @@2273=7200 C2274, 1016 / TAD AI6 TAD C0047 / @@2275=1047 CMA / @@2276=7040 SZA / @@2277=7440 HLT / @@2300=7402 CLA / @@2301=7200 TAD C0032 / @@2302=1032 C2303, 3016 / DCA AI6 C2304, 0416 / AND I AI6 C2305, 1016 / TAD AI6 TAD C0046 / @@2306=1046 CMA / @@2307=7040 SZA / @@2310=7440 HLT / @@2311=7402 CLA / @@2312=7200 TAD C0031 / @@2313=1031 C2314, 3016 / DCA AI6 C2315, 0416 / AND I AI6 C2316, 1016 / TAD AI6 TAD C0045 / @@2317=1045 CMA / @@2320=7040 SZA / @@2321=7440 HLT / @@2322=7402 CLA / @@2323=7200 TAD C0027 / @@2324=1027 C2325, 3016 / DCA AI6 C2326, 0416 / AND I AI6 C2327, 1016 / TAD AI6 TAD C0044 / @@2330=1044 CMA / @@2331=7040 SZA / @@2332=7440 HLT / @@2333=7402 CLA / @@2334=7200 TAD C0026 / @@2335=1026 C2336, 3016 / DCA AI6 C2337, 0416 / AND I AI6 C2340, 1016 / TAD AI6 TAD C0043 / @@2341=1043 CMA / @@2342=7040 SZA / @@2343=7440 HLT / @@2344=7402 CLA / @@2345=7200 TAD C0025 / @@2346=1025 C2347, 3016 / DCA AI6 C2350, 0416 / AND I AI6 C2351, 1016 / TAD AI6 TAD D0042 / @@2352=1042 CMA / @@2353=7040 SZA / @@2354=7440 HLT / @@2355=7402 CLA / @@2356=7200 TAD C0024 / @@2357=1024 C2360, 3016 / DCA AI6 C2361, 0416 / AND I AI6 C2362, 1016 / TAD AI6 TAD C0041 / @@2363=1041 CMA / @@2364=7040 SZA / @@2365=7440 HLT / @@2366=7402 CLA / @@2367=7200 TAD C0023 / @@2370=1023 C2371, 3016 / DCA AI6 C2372, 0416 / AND I AI6 C2373, 1016 / TAD AI6 TAD C0040 / @@2374=1040 CMA / @@2375=7040 SZA / @@2376=7440 HLT / @@2377=7402 *2400 CLA / @@2400=7200 TAD C0022 / @@2401=1022 C2402, 3016 / DCA AI6 C2403, 2416 / ISZ I AI6 NOP / @@2404=7000 C2405, 1016 / TAD AI6 TAD C0037 / @@2406=1037 CMA / @@2407=7040 SZA / @@2410=7440 HLT / @@2411=7402 CLA / @@2412=7200 TAD C0021 / @@2413=1021 C2414, 3016 / DCA AI6 C2415, 0416 / AND I AI6 C2416, 1016 / TAD AI6 TAD C0021 / @@2417=1021 CMA / @@2420=7040 SZA / @@2421=7440 HLT / @@2422=7402 CLA / @@2423=7200 TAD C0020 / @@2424=1020 C2425, 3016 / DCA AI6 C2426, 0416 / AND I AI6 C2427, 1016 / TAD AI6 TAD C0020 / @@2430=1020 CMA / @@2431=7040 SZA / @@2432=7440 HLT / @@2433=7402 CLA / @@2434=7200 TAD C0036 / @@2435=1036 C2436, 3017 / DCA AI7 C2437, 0417 / AND I AI7 C2440, 1017 / TAD AI7 TAD C0035 / @@2441=1035 CMA / @@2442=7040 SZA / @@2443=7440 HLT / @@2444=7402 CLA / @@2445=7200 TAD C0035 / @@2446=1035 C2447, 3017 / DCA AI7 C2450, 0417 / AND I AI7 C2451, 1017 / TAD AI7 TAD C0036 / @@2452=1036 CMA / @@2453=7040 SZA / @@2454=7440 HLT / @@2455=7402 CLA / @@2456=7200 TAD C0034 / @@2457=1034 C2460, 3017 / DCA AI7 C2461, 3417 / DCA I AI7 C2462, 1017 / TAD AI7 TAD C0051 / @@2463=1051 CMA / @@2464=7040 SZA / @@2465=7440 HLT / @@2466=7402 CLA / @@2467=7200 TAD C0033 / @@2470=1033 C2471, 3017 / DCA AI7 C2472, 1417 / TAD I AI7 CLA / @@2473=7200 C2474, 1017 / TAD AI7 TAD C0047 / @@2475=1047 CMA / @@2476=7040 SZA / @@2477=7440 HLT / @@2500=7402 CLA / @@2501=7200 TAD C0032 / @@2502=1032 C2503, 3017 / DCA AI7 C2504, 0417 / AND I AI7 C2505, 1017 / TAD AI7 TAD C0046 / @@2506=1046 CMA / @@2507=7040 SZA / @@2510=7440 HLT / @@2511=7402 CLA / @@2512=7200 TAD C0031 / @@2513=1031 C2514, 3017 / DCA AI7 C2515, 0417 / AND I AI7 C2516, 1017 / TAD AI7 TAD C0045 / @@2517=1045 CMA / @@2520=7040 SZA / @@2521=7440 HLT / @@2522=7402 CLA / @@2523=7200 TAD C0027 / @@2524=1027 C2525, 3017 / DCA AI7 C2526, 0417 / AND I AI7 C2527, 1017 / TAD AI7 TAD C0044 / @@2530=1044 CMA / @@2531=7040 SZA / @@2532=7440 HLT / @@2533=7402 CLA / @@2534=7200 TAD C0026 / @@2535=1026 C2536, 3017 / DCA AI7 C2537, 0417 / AND I AI7 C2540, 1017 / TAD AI7 TAD C0043 / @@2541=1043 CMA / @@2542=7040 SZA / @@2543=7440 HLT / @@2544=7402 CLA / @@2545=7200 TAD C0025 / @@2546=1025 C2547, 3017 / DCA AI7 C2550, 0417 / AND I AI7 C2551, 1017 / TAD AI7 TAD D0042 / @@2552=1042 CMA / @@2553=7040 SZA / @@2554=7440 HLT / @@2555=7402 CLA / @@2556=7200 TAD C0024 / @@2557=1024 C2560, 3017 / DCA AI7 C2561, 0417 / AND I AI7 C2562, 1017 / TAD AI7 TAD C0041 / @@2563=1041 CMA / @@2564=7040 SZA / @@2565=7440 HLT / @@2566=7402 CLA / @@2567=7200 TAD C0023 / @@2570=1023 C2571, 3017 / DCA AI7 C2572, 0417 / AND I AI7 C2573, 1017 / TAD AI7 TAD C0040 / @@2574=1040 CMA / @@2575=7040 SZA / @@2576=7440 HLT / @@2577=7402 *2600 CLA / @@2600=7200 TAD C0022 / @@2601=1022 C2602, 3017 / DCA AI7 C2603, 2417 / ISZ I AI7 NOP / @@2604=7000 C2605, 1017 / TAD AI7 TAD C0037 / @@2606=1037 CMA / @@2607=7040 SZA / @@2610=7440 HLT / @@2611=7402 CLA / @@2612=7200 TAD C0021 / @@2613=1021 C2614, 3017 / DCA AI7 C2615, 0417 / AND I AI7 C2616, 1017 / TAD AI7 TAD C0021 / @@2617=1021 CMA / @@2620=7040 SZA / @@2621=7440 HLT / @@2622=7402 CLA / @@2623=7200 TAD C0020 / @@2624=1020 C2625, 3017 / DCA AI7 C2626, 0417 / AND I AI7 C2627, 1017 / TAD AI7 TAD C0020 / @@2630=1020 CMA / @@2631=7040 SZA / @@2632=7440 HLT / @@2633=7402 JMP L2636 / @@2634=5236 HLT / @@2635=7402 L2636, SKP / @@2636=7410 C2637, 2644 / ISZ I C2644 TAD C2637 / @@2640=1237 C2641, 3010 / DCA AI0 C2642, 5410 / JMP I AI0 HLT / @@2643=7402 C2644, 7402 / HLT C2645, 4247 / JMS C2647 C2646, 7402 / HLT C2647, 7402 / HLT TAD C2647 / @@2650=1247 SKP / @@2651=7410 C2652, 2646 / ISZ I C2646 CIA / @@2653=7041 TAD C2652 / @@2654=1252 SZA / @@2655=7440 HLT / @@2656=7402 SKP / @@2657=7410 C2660, 2664 / ISZ I C2664 TAD C2660 / @@2661=1260 C2662, 3010 / DCA AI0 C2663, 4410 / JMS I AI0 C2664, 7402 / HLT C2665, 7402 / HLT TAD C2665 / @@2666=1265 SKP / @@2667=7410 C2670, 2664 / ISZ I C2664 CIA / @@2671=7041 TAD C2670 / @@2672=1270 SZA / @@2673=7440 HLT / @@2674=7402 JMP I C2676 / long jump to L4200 @@2675=5676 C2676, C2676, 4200 / JMS C2600 L2677, JMS I C2700 / long call to S4011 @@2677=4700 C2700, C2700, 4011 / JMS AI1 C2701, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@2702=6041 HLT / @@2703=7402 CLA / @@2704=7200 TAD C2713 / @@2705=1313 DCA D0002 / @@2706=3002 ION / Enable Interrupts @@2707=6001 NOP / @@2710=7000 C2711, 7402 / HLT C2712, 2711 / ISZ I C2711 C2713, 2714 / ISZ I C2714 SZA / @@2714=7440 HLT / @@2715=7402 TAD L0000 / @@2716=1000 CIA / @@2717=7041 TAD C2712 / @@2720=1312 SZA CLA / @@2721=7640 HLT / @@2722=7402 C2723, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@2724=6041 HLT / @@2725=7402 CLA / @@2726=7200 TAD C2735 / @@2727=1335 DCA D0002 / @@2730=3002 ION / Enable Interrupts @@2731=6001 TAD C0020 / @@2732=1020 C2733, 7402 / HLT C2734, 2733 / ISZ I C2733 C2735, 2736 / ISZ I C2736 CMA / @@2736=7040 SZA / @@2737=7440 HLT / @@2740=7402 TAD L0000 / @@2741=1000 CIA / @@2742=7041 TAD C2734 / @@2743=1334 SZA CLA / @@2744=7640 HLT / @@2745=7402 C2746, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@2747=6041 HLT / @@2750=7402 CLA / @@2751=7200 TAD C2761 / @@2752=1361 DCA D0002 / @@2753=3002 TAD C0020 / @@2754=1020 ION / Enable Interrupts @@2755=6001 AND C0020 / @@2756=0020 C2757, 7402 / HLT C2760, 2757 / ISZ I C2757 C2761, 2762 / ISZ I C2762 CMA / @@2762=7040 SZA / @@2763=7440 HLT / @@2764=7402 TAD L0000 / @@2765=1000 CIA / @@2766=7041 TAD C2760 / @@2767=1360 SZA CLA / @@2770=7640 HLT / @@2771=7402 JMP I C2773 / long jump to L3000 @@2772=5773 C2773, C2773, 3000 / DCA L0000 *3000 L3000, D3000, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3001=6041 HLT / @@3002=7402 CLA / @@3003=7200 TAD C3013 / @@3004=1213 DCA D0002 / @@3005=3002 TAD C0020 / @@3006=1020 ION / Enable Interrupts @@3007=6001 DCA D0003 / @@3010=3003 HLT / @@3011=7402 C3012, 3011 / DCA AI1 C3013, 3014 / DCA AI4 SZA / @@3014=7440 HLT / @@3015=7402 TAD D0003 / @@3016=1003 CMA / @@3017=7040 SZA / @@3020=7440 HLT / @@3021=7402 DCA D0003 / @@3022=3003 TAD L0000 / @@3023=1000 CIA / @@3024=7041 TAD C3012 / @@3025=1212 SZA CLA / @@3026=7640 HLT / @@3027=7402 C3030, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3031=6041 HLT / @@3032=7402 CLA / @@3033=7200 TAD C3044 / @@3034=1244 DCA D0002 / @@3035=3002 TAD C0035 / @@3036=1035 DCA D0003 / @@3037=3003 ION / Enable Interrupts @@3040=6001 ISZ D0003 / @@3041=2003 HLT / @@3042=7402 C3043, 3042 / DCA D0042 C3044, 3045 / DCA C0045 SZA / @@3045=7440 HLT / @@3046=7402 TAD D0003 / @@3047=1003 CMA / @@3050=7040 SZA / @@3051=7440 HLT / @@3052=7402 DCA D0003 / @@3053=3003 TAD L0000 / @@3054=1000 CIA / @@3055=7041 TAD C3043 / @@3056=1243 SZA CLA / @@3057=7640 HLT / @@3060=7402 C3061, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3062=6041 HLT / @@3063=7402 CLA / @@3064=7200 TAD C3076 / @@3065=1276 DCA D0002 / @@3066=3002 TAD C0020 / @@3067=1020 DCA D0003 / @@3070=3003 ION / Enable Interrupts @@3071=6001 ISZ D0003 / @@3072=2003 HLT / @@3073=7402 HLT / @@3074=7402 C3075, 3074 / DCA L0074 C3076, 3077 / DCA C0077 SZA / @@3077=7440 HLT / @@3100=7402 TAD D0003 / @@3101=1003 SZA / @@3102=7440 HLT / @@3103=7402 DCA D0003 / @@3104=3003 TAD L0000 / @@3105=1000 CIA / @@3106=7041 TAD C3075 / @@3107=1275 SZA CLA / @@3110=7640 HLT / @@3111=7402 C3112, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3113=6041 HLT / @@3114=7402 CLA / @@3115=7200 TAD C3124 / @@3116=1324 DCA D0002 / @@3117=3002 ION / Enable Interrupts @@3120=6001 L3121, JMP L3121 / @@3121=5321 HLT / @@3122=7402 C3123, 3121 / DCA D0121 C3124, 3125 / DCA C0125 SZA / @@3125=7440 HLT / @@3126=7402 TAD L0000 / @@3127=1000 CIA / @@3130=7041 TAD C3123 / @@3131=1323 SZA CLA / @@3132=7640 HLT / @@3133=7402 C3134, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3135=6041 HLT / @@3136=7402 CLA / @@3137=7200 TAD C3146 / @@3140=1346 DCA D0002 / @@3141=3002 ION / Enable Interrupts @@3142=6001 JMS D0003 / @@3143=4003 HLT / @@3144=7402 C3145, 3144 / DCA C0144 C3146, 3147 / DCA C0147 SZA / @@3147=7440 HLT / @@3150=7402 TAD D0003 / @@3151=1003 CIA / @@3152=7041 TAD C3145 / @@3153=1345 SZA / @@3154=7440 HLT / @@3155=7402 TAD L0000 / @@3156=1000 CIA / @@3157=7041 TAD C0065 / @@3160=1065 SZA CLA / @@3161=7640 HLT / @@3162=7402 JMP I C3164 / long jump to L3200 @@3163=5764 C3164, C3164, 3200 / DCA L3000 *3200 L3200, C3200, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3201=6041 HLT / @@3202=7402 CLA / @@3203=7200 TAD C3213 / @@3204=1213 DCA D0002 / @@3205=3002 TAD C0020 / @@3206=1020 ION / Enable Interrupts @@3207=6001 CLA / @@3210=7200 D3211, 7402 / HLT C3212, 3211 / DCA D3211 C3213, 3214 / DCA C3214 SZA / @@3214=7440 HLT / @@3215=7402 TAD L0000 / @@3216=1000 CIA / @@3217=7041 TAD C3212 / @@3220=1212 SZA CLA / @@3221=7640 HLT / @@3222=7402 C3223, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3224=6041 HLT / @@3225=7402 CLA / @@3226=7200 TAD C3236 / @@3227=1236 DCA D0002 / @@3230=3002 ION / Enable Interrupts @@3231=6001 TSF / Skip if teleprinter flag is a 1. @@3232=6041 HLT / @@3233=7402 D3234, 7402 / HLT C3235, 3234 / DCA D3234 C3236, 3237 / DCA C3237 SZA / @@3237=7440 HLT / @@3240=7402 TAD L0000 / @@3241=1000 CIA / @@3242=7041 TAD C3235 / @@3243=1235 SZA CLA / @@3244=7640 HLT / @@3245=7402 C3246, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3247=6041 HLT / @@3250=7402 CLA / @@3251=7200 TAD C3311 / @@3252=1311 DCA D0002 / @@3253=3002 ION / Enable Interrupts @@3254=6001 IOF / Disable Interrupts @@3255=6002 ION / Enable Interrupts @@3256=6001 IOF / Disable Interrupts @@3257=6002 ION / Enable Interrupts @@3260=6001 IOF / Disable Interrupts @@3261=6002 ION / Enable Interrupts @@3262=6001 IOF / Disable Interrupts @@3263=6002 ION / Enable Interrupts @@3264=6001 IOF / Disable Interrupts @@3265=6002 ION / Enable Interrupts @@3266=6001 IOF / Disable Interrupts @@3267=6002 ION / Enable Interrupts @@3270=6001 IOF / Disable Interrupts @@3271=6002 ION / Enable Interrupts @@3272=6001 IOF / Disable Interrupts @@3273=6002 ION / Enable Interrupts @@3274=6001 IOF / Disable Interrupts @@3275=6002 ION / Enable Interrupts @@3276=6001 IOF / Disable Interrupts @@3277=6002 ION / Enable Interrupts @@3300=6001 IOF / Disable Interrupts @@3301=6002 ION / Enable Interrupts @@3302=6001 IOF / Disable Interrupts @@3303=6002 ION / Enable Interrupts @@3304=6001 IOF / Disable Interrupts @@3305=6002 TSF / Skip if teleprinter flag is a 1. @@3306=6041 HLT / @@3307=7402 SKP / @@3310=7410 C3311, 3313 / DCA C3313 SKP / @@3312=7410 HLT / @@3313=7402 TCF / Clear teleprinter flag. @@3314=6042 CLA / @@3315=7200 TAD C3326 / @@3316=1326 DCA D0002 / @@3317=3002 ION / Enable Interrupts @@3320=6001 NOP / @@3321=7000 NOP / @@3322=7000 NOP / @@3323=7000 NOP / @@3324=7000 SKP / @@3325=7410 C3326, 3330 / DCA C3330 SKP / @@3327=7410 HLT / @@3330=7402 IOF / Disable Interrupts @@3331=6002 C3332, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3333=6041 HLT / @@3334=7402 CLA / @@3335=7200 TAD C3345 / @@3336=1345 DCA D0002 / @@3337=3002 ION / Enable Interrupts @@3340=6001 SKP / @@3341=7410 HLT / @@3342=7402 D3343, 7402 / HLT C3344, 3343 / DCA D3343 C3345, 3346 / DCA C3346 SZA / @@3346=7440 HLT / @@3347=7402 TAD L0000 / @@3350=1000 CIA / @@3351=7041 TAD C3344 / @@3352=1344 SZA CLA / @@3353=7640 HLT / @@3354=7402 C3355, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@3356=6041 HLT / @@3357=7402 CLA / @@3360=7200 TAD C3370 / @@3361=1370 DCA D0002 / @@3362=3002 ION / Enable Interrupts @@3363=6001 JMP I C3365 / long jump to L3366 @@3364=5765 C3365, C3365, 3366 / DCA L3366 L3366, D3366, 7402 / HLT C3367, 3366 / DCA L3366 C3370, 3371 / DCA C3371 SZA / @@3371=7440 HLT / @@3372=7402 TAD L0000 / @@3373=1000 CIA / @@3374=7041 TAD C3367 / @@3375=1367 SZA CLA / @@3376=7640 HLT / @@3377=7402 C3400, 6007 / 6007 TAD C3412 / @@3401=1212 DCA D0002 / @@3402=3002 ION / Enable Interrupts @@3403=6001 NOP / @@3404=7000 C3405, 6007 / 6007 C3406, 6040 / 6040 C3407, 6000 / 6000 JMP L3413 / @@3410=5213 HLT / @@3411=7402 C3412, 3411 / DCA I AI1 L3413, C3413, 6007 / 6007 JMP I C3415 / long jump to L3600 @@3414=5615 C3415, C3415, 3600 / DCA I C3400 *3600 L3600, C3600, 7200 / CLA JMP I C3602 / long jump to L4000 @@3601=5602 C3602, C3602, 4000 / JMS L0000 C3603, 4010 / JMS AI0 *4000 L4000, AND I C4010 / @@4000=0610 JMP I C4002 / long jump to L3604 @@4001=5602 C4002, C4002, 3604 / DCA I C4004 *3604 L3604, TAD I C3603 / @@3604=1603 SZA / @@3605=7440 HLT / @@3606=7402 CLA / @@3607=7200 C3610, 3603 / DCA I C3603 CLA / @@3611=7200 JMP I C3613 / long jump to L2173 @@3612=5613 C3613, C3613, 2173 / ISZ D0173 C3614, 2010 / ISZ AI0 *2173 L2173, AND I C2010 / @@2173=0610 JMP I C2175 / long jump to L3615 @@2174=5775 C2175, C2175, 3615 / DCA I C2015 *3615 L3615, TAD I C3614 / @@3615=1614 SZA / @@3616=7440 HLT / @@3617=7402 JMP I C3621 / long jump to L3622 @@3620=5621 C3621, C3621, 3622 / DCA I L3622 L3622, C3622, 7200 / CLA JMP I C3624 / long jump to L1173 @@3623=5624 C3624, C3624, 1173 / TAD D0173 C3625, 1010 / TAD AI0 *1173 L1173, AND I D1010 / @@1173=0610 JMP I C1175 / long jump to L3626 @@1174=5775 C1175, C1175, 3626 / DCA I C1026 *3626 L3626, TAD I C3625 / @@3626=1625 SZA / @@3627=7440 HLT / @@3630=7402 CLA / @@3631=7200 DCA I C3625 / @@3632=3625 CLA / @@3633=7200 JMP I C3635 / long jump to L0574 @@3634=5635 C3635, C3635, 0574 / AND I C0174 C3636, 0410 / AND I AI0 *0574 L0574, AND I D0410 / @@0574=0610 JMP I C0576 / long jump to L3637 @@0575=5776 C0576, C0576, 3637 / DCA I C0437 *3637 L3637, TAD I C3636 / @@3637=1636 SZA / @@3640=7440 HLT / @@3641=7402 CLA / @@3642=7200 DCA I C3636 / @@3643=3636 CLA / @@3644=7200 JMP I C3646 / long jump to L0372 @@3645=5646 C3646, C3646, 0372 / AND C3772 C3647, 0210 / AND C3610 *0371 JMP L0375 / @@0371=5375 L0372, AND I D0210 / @@0372=0610 JMP I C0374 / long jump to L3650 @@0373=5774 C0374, C0374, 3650 / DCA I C0250 *3650 L3650, TAD I C3647 / @@3650=1647 SZA / @@3651=7440 HLT / @@3652=7402 CLA / @@3653=7200 DCA I C3647 / @@3654=3647 CLA / @@3655=7200 JMP I C3657 / long jump to L0130 @@3656=5657 C3657, C3657, 0130 / AND L0130 C3660, 0110 / AND D0110 *0130 L0130, C0130, 0510 / AND I D0110 JMP I C0132 / long jump to L3661 @@0131=5532 C0132, C0132, 3661 / DCA I C0061 *3661 L3661, TAD I C3660 / @@3661=1660 SZA / @@3662=7440 HLT / @@3663=7402 CLA / @@3664=7200 DCA D0110 / @@3665=3110 CLA / @@3666=7200 JMP I C3670 / long jump to L0124 @@3667=5670 C3670, C3670, 0124 / AND L0124 C3671, 0050 / AND D0050 *0124 L0124, C0124, 0450 / AND I D0050 C0125, 5526 / JMP I C0126 DCA I C0072 / @@0126=3672 *3672 TAD I C3671 / @@3672=1671 SZA / @@3673=7440 HLT / @@3674=7402 CLA / @@3675=7200 DCA D0050 / @@3676=3050 CLA / @@3677=7200 JMP I C3701 / long jump to L0120 @@3700=5701 C3701, C3701, 0120 / AND L0120 C3702, 0030 / AND D0030 *0120 L0120, C0120, 0430 / AND I D0030 D0121, 5522 / JMP I C0122 C0122, 3703 / DCA I C0103 *3703 TAD I C3702 / @@3703=1702 SZA / @@3704=7440 HLT / @@3705=7402 CLA / @@3706=7200 DCA D0030 / @@3707=3030 CLA / @@3710=7200 DCA L0000 / @@3711=3000 JMP I C3713 / long jump to L0074 @@3712=5713 C3713, C3713, 0074 / AND L0074 *0074 L0074, D0074, 0400 / AND I L0000 JMP I C0076 / long jump to L3714 @@0075=5476 C0076, C0076, 3714 / DCA I C0114 *3714 L3714, TAD I C0036 / @@3714=1436 SZA / @@3715=7440 HLT / @@3716=7402 CLA / @@3717=7200 DCA L0000 / @@3720=3000 CLA / @@3721=7200 JMP I C3723 / long jump to L0070 @@3722=5723 C3723, C3723, 0070 / AND L0070 *0070 L0070, C0070, 0407 / AND I D0007 JMP I C0072 / long jump to L3724 @@0071=5472 C0072, C0072, 3724 / DCA I L0124 *3724 L3724, D3724, 1446 / TAD I C0046 SZA / @@3725=7440 HLT / @@3726=7402 CLA / @@3727=7200 DCA D0007 / @@3730=3007 TAD D3747 / @@3731=1347 IAC / @@3732=7001 DCA D3747 / @@3733=3347 TAD D3747 / @@3734=1347 TAD C3750 / @@3735=1350 SZA CLA / @@3736=7640 JMP I C3746 / long jump to L0200 @@3737=5746 DCA D3747 / @@3740=3347 TAD C3751 / @@3741=1351 TLS / Load the TTO from the content of AC4 @@3742=6046 L3743, TSF / Skip if teleprinter flag is a 1. @@3743=6041 JMP L3743 / @@3744=5343 JMP I C3746 / long jump to L0200 @@3745=5746 C3746, C3746, 0200 / AND L3600 D3747, 0000 / AND L0000 C3750, 4762 / JMS I C3762 C3751, 0207 / AND C3607 *4010 C4010, 0000 / AND L0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4011 / / Called from: / 2677 4201 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4011, 0 / return area TAD C4020 / @@4012=1220 DCA L0001 / @@4013=3001 DCA D0002 / @@4014=3002 DCA D0003 / @@4015=3003 ISZ S4011 / @@4016=2211 JMP I S4011 / return @@4017=5611 C4020, 5402 / JMP I D0002 *4200 L4200, CLA CLL / AC = 0000 @@4200=7300 JMS I C4202 / long call to S4011 @@4201=4602 C4202, C4202, 4011 / JMS AI1 CLA CLL CMA CML / @@4203=7360 C4204, 6007 / 6007 SKP / @@4205=7410 HLT / @@4206=7402 SNL / @@4207=7420 SZA / @@4210=7440 HLT / @@4211=7402 C4212, 6040 / 6040 SKP / @@4213=7410 HLT / @@4214=7402 TSF / Skip if teleprinter flag is a 1. @@4215=6041 HLT / @@4216=7402 C4217, 6007 / 6007 TSF / Skip if teleprinter flag is a 1. @@4220=6041 SKP / @@4221=7410 HLT / @@4222=7402 C4223, 6003 / 6003 SKP / @@4224=7410 HLT / @@4225=7402 C4226, 6007 / 6007 C4227, 6040 / 6040 C4230, 6003 / 6003 HLT / @@4231=7402 C4232, 6007 / 6007 C4233, 6035 / 6035 SKP / @@4234=7410 HLT / @@4235=7402 C4236, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@4237=6041 HLT / @@4240=7402 C4241, 6003 / 6003 SKP / @@4242=7410 HLT / @@4243=7402 CLA IAC / @@4244=7201 C4245, 6035 / 6035 C4246, 6040 / 6040 TSF / Skip if teleprinter flag is a 1. @@4247=6041 HLT / @@4250=7402 C4251, 6003 / 6003 HLT / @@4252=7402 C4253, 6007 / 6007 TAD C4267 / @@4254=1267 DCA D0002 / @@4255=3002 ION / Enable Interrupts @@4256=6001 SKP / @@4257=7410 HLT / @@4260=7402 C4261, 6000 / 6000 HLT / @@4262=7402 C4263, 6000 / 6000 SKP / @@4264=7410 HLT / @@4265=7402 JMP L4271 / @@4266=5271 C4267, 4270 / JMS C4270 HLT / @@4270=7402 L4271, C4271, 6007 / 6007 TAD C4304 / @@4272=1304 DCA D0002 / @@4273=3002 ION / Enable Interrupts @@4274=6001 IOF / Disable Interrupts @@4275=6002 SKP / @@4276=7410 HLT / @@4277=7402 C4300, 6000 / 6000 SKP / @@4301=7410 HLT / @@4302=7402 JMP L4306 / @@4303=5306 C4304, 4305 / JMS C4305 HLT / @@4305=7402 L4306, C4306, 6007 / 6007 CMA / @@4307=7040 C4310, 6004 / 6004 SKP / @@4311=7410 HLT / @@4312=7402 AND C0064 / @@4313=0064 SZA / @@4314=7440 HLT / @@4315=7402 CLA CLL CMA CML / @@4316=7360 C4317, 6004 / 6004 SNL / @@4320=7420 HLT / @@4321=7402 AND C0064 / @@4322=0064 CLL RAL / @@4323=7104 SZL / @@4324=7430 SZA / @@4325=7440 HLT / @@4326=7402 C4327, 6007 / 6007 C4330, 6040 / 6040 C4331, 6004 / 6004 AND C0064 / @@4332=0064 RTL / @@4333=7006 RAL / @@4334=7004 SZL / @@4335=7430 SZA / @@4336=7440 HLT / @@4337=7402 C4340, 6007 / 6007 TAD C4356 / @@4341=1356 DCA D0002 / @@4342=3002 ION / Enable Interrupts @@4343=6001 C4344, 6004 / 6004 AND C0064 / @@4345=0064 C4346, 6000 / 6000 HLT / @@4347=7402 CLL / @@4350=7102 RTR / @@4351=7012 SZL / @@4352=7430 SZA / @@4353=7440 HLT / @@4354=7402 JMP L4360 / @@4355=5360 C4356, 4357 / JMS C4357 HLT / @@4357=7402 L4360, CLA CLL CML / @@4360=7320 TAD C4375 / @@4361=1375 DCA D0002 / @@4362=3002 C4363, 6005 / 6005 SKP / @@4364=7410 HLT / @@4365=7402 SNL / @@4366=7420 SZA / @@4367=7440 HLT / @@4370=7402 C4371, 6000 / 6000 HLT / @@4372=7402 JMP I C4374 / long jump to L4400 @@4373=5774 C4374, C4374, 4400 / JMS I L0000 C4375, 4376 / JMS C4376 HLT / @@4376=7402 *4400 L4400, C4400, 6007 / 6007 TAD C4415 / @@4401=1215 DCA D0002 / @@4402=3002 CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@4403=7330 C4404, 6005 / 6005 SNL / @@4405=7420 HLT / @@4406=7402 C4407, 6000 / 6000 HLT / @@4410=7402 C4411, 6007 / 6007 CLA CLL / AC = 0000 @@4412=7300 JMP I C4414 / long jump to L2677 @@4413=5614 C4414, C4414, 2677 / ISZ I C4477 C4415, 4416 / JMS I AI6 HLT / @@4416=7402 $