TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d1ha-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8e-d1ha-pb.bin / Generated 2010 02 19 00:10:30 / Generated by d8tape version 0.351 / Visit http://www.pdp12.org/pdp8/software/index.html for updates / / Symbol format: / AIx -- Auto-index variables (address range 001x) / Caaaa -- Constants (non-unique) / Daaaa -- Data (read/write variables) / Kvvvv -- Program-wide unique constants / Laaaa -- Labels for control flow targets / Saaaa -- Subroutines / / Where: / aaaa is the definition address / vvvv is the value of the constant / x is the last digit of the address 001x for auto-index variables / / 4201 locations used, 3207 code and 0772 data //////////////////////////////////////////////////////////////////////////////// *0000 L0000, //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0000 / / Called from: / 0571 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0000, 0 / return area L0001, D0001, 5001 / JMP L0001 L0002, D0002, 0002 / AND L0002 L0003, D0003, 0003 / AND L0003 D0004, 1166 / TAD C0166 L0005, D0005, 3033 / DCA D0033 C0006, 4570 / JMS I C0170 C0007, 7705 / CLA MQA MUY + L0010, AI0, 2222 / AUTO-INDEX REGISTER ISZ D0022 AI1, 1722 / AUTO-INDEX REGISTER TAD I C0122 AI2, 0000 / AUTO-INDEX REGISTER AND S0000 AI3, 1004 / AUTO-INDEX REGISTER TAD D0004 AI4, 7773 / AUTO-INDEX REGISTER CLA MQA SCA MQL SHL + AI5, 1707 / AUTO-INDEX REGISTER TAD I C0107 AI6, 7507 / AUTO-INDEX REGISTER MQA DVI + AI7, 0000 / AUTO-INDEX REGISTER AND S0000 D0020, 5400 / JMP I S0000 D0021, 2000 / ISZ S0000 D0022, 2443 / ISZ I C0043 C0023, C0023, 2435 / ISZ I C0035 TAD C0050 / @@0024=1050 C0025, C0025, 1321 / TAD C0121 C0026, 1432 / TAD I D0032 D0027, 0000 / AND S0000 D0030, 0000 / AND S0000 D0031, 0000 / AND S0000 D0032, 0000 / AND S0000 D0033, 0000 / AND S0000 D0034, 0000 / AND S0000 C0035, 1132 / TAD C0132 C0036, 1133 / TAD C0133 C0037, 7402 / HLT D0040, 6201 / CDF0 D0041, 6202 / CIF0 C0042, 1316 / TAD C0116 C0043, 0001 / AND L0001 C0044, 0007 / AND C0007 C0045, 0010 / AND L0 C0046, 7777 / CLA MQA SCA MQL LSR + C0047, C0047, 7000 / NOP C0050, 7707 / CLA MQA DVI + C0051, 7767 / CLA MQA SCA MQL DVI + C0052, 7757 / CLA MQA SCA LSR + C0053, 7747 / CLA MQA SCA DVI + C0054, 7737 / CLA MQA MQL LSR + C0055, 7727 / CLA MQA MQL DVI + C0056, 7717 / CLA MQA LSR + C0057, 7776 / SPA SNA SZL CLA OSR HLT C0060, 7775 / CLA MQA SCA MQL ASR + C0061, 7774 / SPA SNA SZL CLA OSR C0062, 7773 / CLA MQA SCA MQL SHL + C0063, 7772 / SPA SNA SZL CLA HLT C0064, 7771 / CLA MQA SCA MQL NMI C0065, 0067 / AND C0067 D0066, 0067 / AND C0067 C0067, 7766 / SMA SZA SNL CLA OSR HLT D0070, 7755 / CLA MQA SCA ASR + C0071, 7744 / SMA SZA CLA OSR C0072, C0072, 7733 / CLA MQA MQL SHL + SMA SNL CLA HLT / @@0073=7722 C0074, 7711 / CLA MQA NMI SMA CLA / @@0075=7700 C0076, C0076, 1127 / TAD C0127 L0077, D0077, 1130 / TAD C0130 C0100, C0100, 1302 / TAD C0102 C0101, 5402 / JMP I L0002 C0102, 1200 / TAD S0000 C0103, 0020 / AND D0020 C0104, 5505 / JMP I C0105 C0105, 1427 / TAD I D0027 C0106, C0106, 1422 / TAD I D0022 C0107, C0107, 1400 / TAD I S0000 C0110, 7770 / SPA SNA SZL CLA C0111, 0070 / AND D0070 D0112, 0000 / AND S0000 D0113, 7770 / SPA SNA SZL CLA D0114, 0000 / AND S0000 C0115, 5200 / JMP S0000 C0116, 1200 / TAD S0000 C0117, 0077 / AND L0077 D0120, 0011 / AND AI1 C0121, 7700 / SMA CLA C0122, 0002 / AND L0002 C0123, 0004 / AND D0004 C0124, 7402 / HLT C0125, 6000 / 6000 C0126, 0100 / AND C0100 C0127, C0127, 0203 / AND L0003 C0130, 1000 / TAD S0000 C0131, C0131, 2600 / ISZ I S0000 C0132, 0017 / AND AI7 C0133, C0133, 6001 / ION C0134, 5535 / JMP I C0135 ISZ I C0111 / @@0135=2511 D0136, 0000 / AND S0000 C0137, 0000 / AND S0000 C0140, 0003 / AND L0003 C0141, C0141, 0001 / AND L0001 C0142, 1100 / TAD C0100 D0143, 7745 / CLA MQA SCA MUY + C0144, 3577 / DCA I C0177 C0145, 7745 / CLA MQA SCA MUY + C0146, C0146, 3633 / DCA I D0033 C0147, 1556 / TAD I C0156 C0150, C0150, 1555 / TAD I C0155 C0151, 6046 / TLS C0152, C0152, 3643 / DCA I C0043 C0153, 5531 / JMP I C0131 AND S0000 / @@0154=0000 C0155, C0155, 2047 / ISZ C0047 C0156, 6211 / CDF0 C0157, 2525 / ISZ I C0125 C0160, 7740 / SMA SZA CLA AND AI2 / AUTO INDEX REGISTER @@0161=0012 C0162, 1327 / TAD C0127 AND C0115 / @@0163=0315 AND I C0177 / @@0164=0777 D0165, 1166 / TAD C0166 C0166, C0166, 7605 / CLA MUY + SMA CLA / @@0167=7700 C0170, C0170, 0330 / AND C0130 C0171, 7607 / CLA DVI + C0172, C0172, 0077 / AND L0077 C0173, 7772 / SPA SNA SZL CLA HLT SMA SZA CLA OSR HLT / @@0174=7746 SPA SNA SZL CLA OSR HLT / @@0175=7776 AND D0040 / @@0176=0240 C0177, 7000 / NOP LAS / @@0200=7604 SPA / @@0201=7510 JMP I C0152 / long jump to L3643 @@0202=5552 L0203, CLA CLL / AC = 0000 @@0203=7300 C0204, 6007 / 6007 CUF / (KT8/I) Clears the user flag. Clear @@0205=6264 TAD C0037 / @@0206=1037 DCA L0001 / @@0207=3001 ION / Enable Interrupts @@0210=6001 L0211, CDF0 / Change to data field 0. The data fie @@0211=6201 RDF / Read data field into AC6-8. Bit 0-5 @@0212=6214 SNA / @@0213=7450 JMP L0220 / @@0214=5220 HLT / @@0215=7402 CLA / @@0216=7200 JMP L0211 / @@0217=5211 L0220, TAD C0050 / @@0220=1050 CDF0 / Change to data field 7. The data fie @@0221=6271 RDF / Read data field into AC6-8. Bit 0-5 @@0222=6214 L0223, CMA / @@0223=7040 SNA / @@0224=7450 JMP L0231 / @@0225=5231 HLT / @@0226=7402 CLA / @@0227=7200 JMP L0220 / @@0230=5220 L0231, ISZ D0027 / @@0231=2027 JMP L0211 / @@0232=5211 CLA / @@0233=7200 DCA D0027 / @@0234=3027 L0235, TAD C0051 / @@0235=1051 CDF0 / Change to data field 1. The data fie @@0236=6211 RDF / Read data field into AC6-8. Bit 0-5 @@0237=6214 CMA / @@0240=7040 SNA / @@0241=7450 JMP L0246 / @@0242=5246 HLT / @@0243=7402 CLA / @@0244=7200 JMP L0235 / @@0245=5235 L0246, TAD C0052 / @@0246=1052 CDF0 / Change to data field 2. The data fie @@0247=6221 RDF / Read data field into AC6-8. Bit 0-5 @@0250=6214 CMA / @@0251=7040 SNA / @@0252=7450 JMP L0257 / @@0253=5257 HLT / @@0254=7402 CLA / @@0255=7200 JMP L0246 / @@0256=5246 L0257, ISZ D0027 / @@0257=2027 JMP L0235 / @@0260=5235 CLA / @@0261=7200 DCA D0027 / @@0262=3027 L0263, TAD C0053 / @@0263=1053 CDF0 / Change to data field 3. The data fie @@0264=6231 RDF / Read data field into AC6-8. Bit 0-5 @@0265=6214 CMA / @@0266=7040 SNA / @@0267=7450 JMP L0274 / @@0270=5274 HLT / @@0271=7402 CLA / @@0272=7200 JMP L0263 / @@0273=5263 L0274, TAD C0054 / @@0274=1054 CDF0 / Change to data field 4. The data fie @@0275=6241 RDF / Read data field into AC6-8. Bit 0-5 @@0276=6214 CMA / @@0277=7040 SNA / @@0300=7450 JMP L0305 / @@0301=5305 HLT / @@0302=7402 CLA / @@0303=7200 JMP L0274 / @@0304=5274 L0305, ISZ D0027 / @@0305=2027 JMP L0263 / @@0306=5263 CLA / @@0307=7200 DCA D0027 / @@0310=3027 L0311, TAD C0055 / @@0311=1055 CDF0 / Change to data field 5. The data fie @@0312=6251 RDF / Read data field into AC6-8. Bit 0-5 @@0313=6214 CMA / @@0314=7040 SNA / @@0315=7450 JMP L0322 / @@0316=5322 HLT / @@0317=7402 CLA / @@0320=7200 JMP L0311 / @@0321=5311 L0322, TAD C0056 / @@0322=1056 CDF0 / Change to data field 6. The data fie @@0323=6261 RDF / Read data field into AC6-8. Bit 0-5 @@0324=6214 CMA / @@0325=7040 SNA / @@0326=7450 JMP L0333 / @@0327=5333 L0330, HLT / @@0330=7402 CLA / @@0331=7200 JMP L0322 / @@0332=5322 L0333, ISZ D0027 / @@0333=2027 JMP L0311 / @@0334=5311 C0335, 6000 / 6000 HLT / @@0336=7402 CDF0 / Change to data field 0. The data fie @@0337=6201 TAD D0020 / @@0340=1020 DCA L0001 / @@0341=3001 DCA D0027 / @@0342=3027 TSF / Skip if teleprinter flag is a 1. @@0343=6041 JMS I D0022 / long call to S2443 @@0344=4422 L0345, ION / Enable Interrupts @@0345=6001 CLA / @@0346=7200 RIB / Read interrupt buffer. The instruct @@0347=6234 SNA / @@0350=7450 JMP L0354 / @@0351=5354 HLT / @@0352=7402 JMP L0345 / @@0353=5345 L0354, CDF0 / Change to data field 1. The data fie @@0354=6211 ION / Enable Interrupts @@0355=6001 CLA / @@0356=7200 RDF / Read data field into AC6-8. Bit 0-5 @@0357=6214 SNA / @@0360=7450 JMP L0364 / @@0361=5364 HLT / @@0362=7402 JMP L0354 / @@0363=5354 L0364, TAD C0057 / @@0364=1057 RIB / Read interrupt buffer. The instruct @@0365=6234 CMA / @@0366=7040 SNA / @@0367=7450 JMP L0373 / @@0370=5373 HLT / @@0371=7402 JMP L0354 / @@0372=5354 L0373, ISZ D0027 / @@0373=2027 JMP L0345 / @@0374=5345 JMP I C0376 / long jump to L0400 @@0375=5776 C0376, C0376, 0400 / AND I S0000 JMP I C0166 / long jump to L7605 @@0377=5566 L0400, C0400, 7200 / CLA DCA D0027 / @@0401=3027 L0402, CDF0 / Change to data field 2. The data fie @@0402=6221 ION / Enable Interrupts @@0403=6001 CLA / @@0404=7200 RDF / Read data field into AC6-8. Bit 0-5 @@0405=6214 SNA / @@0406=7450 JMP L0412 / @@0407=5212 HLT / @@0410=7402 JMP L0402 / @@0411=5202 L0412, TAD C0060 / @@0412=1060 RIB / Read interrupt buffer. The instruct @@0413=6234 CMA / @@0414=7040 SNA / @@0415=7450 JMP L0421 / @@0416=5221 HLT / @@0417=7402 JMP L0402 / @@0420=5202 L0421, CDF0 / Change to data field 3. The data fie @@0421=6231 ION / Enable Interrupts @@0422=6001 CLA / @@0423=7200 RDF / Read data field into AC6-8. Bit 0-5 @@0424=6214 SNA / @@0425=7450 JMP L0431 / @@0426=5231 HLT / @@0427=7402 JMP L0421 / @@0430=5221 L0431, TAD C0061 / @@0431=1061 RIB / Read interrupt buffer. The instruct @@0432=6234 CMA / @@0433=7040 SNA / @@0434=7450 JMP L0440 / @@0435=5240 HLT / @@0436=7402 JMP L0421 / @@0437=5221 L0440, ISZ D0027 / @@0440=2027 JMP L0402 / @@0441=5202 CLA / @@0442=7200 DCA D0027 / @@0443=3027 L0444, CDF0 / Change to data field 4. The data fie @@0444=6241 ION / Enable Interrupts @@0445=6001 CLA / @@0446=7200 RDF / Read data field into AC6-8. Bit 0-5 @@0447=6214 SNA / @@0450=7450 JMP L0454 / @@0451=5254 HLT / @@0452=7402 JMP L0444 / @@0453=5244 L0454, TAD C0062 / @@0454=1062 RIB / Read interrupt buffer. The instruct @@0455=6234 CMA / @@0456=7040 SNA / @@0457=7450 JMP L0463 / @@0460=5263 HLT / @@0461=7402 JMP L0444 / @@0462=5244 L0463, CDF0 / Change to data field 5. The data fie @@0463=6251 ION / Enable Interrupts @@0464=6001 CLA / @@0465=7200 RDF / Read data field into AC6-8. Bit 0-5 @@0466=6214 SNA / @@0467=7450 JMP L0473 / @@0470=5273 HLT / @@0471=7402 JMP L0463 / @@0472=5263 L0473, TAD C0063 / @@0473=1063 RIB / Read interrupt buffer. The instruct @@0474=6234 CMA / @@0475=7040 SNA / @@0476=7450 JMP L0502 / @@0477=5302 C0500, 7402 / HLT JMP L0463 / @@0501=5263 L0502, ISZ D0027 / @@0502=2027 JMP L0444 / @@0503=5244 CLA / @@0504=7200 DCA D0027 / @@0505=3027 L0506, CDF0 / Change to data field 6. The data fie @@0506=6261 ION / Enable Interrupts @@0507=6001 CLA / @@0510=7200 RDF / Read data field into AC6-8. Bit 0-5 @@0511=6214 SNA / @@0512=7450 JMP L0516 / @@0513=5316 HLT / @@0514=7402 JMP L0506 / @@0515=5306 L0516, TAD C0064 / @@0516=1064 RIB / Read interrupt buffer. The instruct @@0517=6234 CMA / @@0520=7040 SNA / @@0521=7450 JMP L0525 / @@0522=5325 HLT / @@0523=7402 JMP L0506 / @@0524=5306 L0525, CDF0 / Change to data field 7. The data fie @@0525=6271 ION / Enable Interrupts @@0526=6001 CLA / @@0527=7200 RDF / Read data field into AC6-8. Bit 0-5 @@0530=6214 SNA / @@0531=7450 JMP L0535 / @@0532=5335 HLT / @@0533=7402 JMP L0525 / @@0534=5325 L0535, TAD C0110 / @@0535=1110 RIB / Read interrupt buffer. The instruct @@0536=6234 CMA / @@0537=7040 SNA / @@0540=7450 JMP L0544 / @@0541=5344 HLT / @@0542=7402 JMP L0525 / @@0543=5325 L0544, ISZ D0027 / @@0544=2027 JMP L0506 / @@0545=5306 JMP I C0547 / long jump to L0600 @@0546=5747 C0547, C0547, 0600 / AND I L0400 ISZ I D0031 / @@0550=2431 C0551, 6045 / 6045 AND D0022 / @@0552=0022 AND I C0121 / @@0553=0521 C0554, 6500 / 6500 ISZ D0165 / @@0555=2165 JMS I D0165 / long call to S1166 @@0556=4565 JMS I C0100 / long call to S1302 @@0557=4500 ISZ I C0101 / @@0560=2501 AND C0025 / @@0561=0025 AND L0400 / @@0562=0200 ISZ I C0103 / @@0563=2503 AND C0026 / @@0564=0026 AND I C0162 / @@0565=0562 AND D0032 / @@0566=0032 AND I C0122 / @@0567=0522 TAD I C0500 / @@0570=1700 JMS S0000 / @@0571=4000 AND S0000 / @@0572=0000 AND S0000 / @@0573=0000 AND S0000 / @@0574=0000 AND S0000 / @@0575=0000 AND S0000 / @@0576=0000 AND S0000 / @@0577=0000 L0600, C0600, 3027 / DCA D0027 L0601, JMS I C0023 / long call to S2435 @@0601=4423 IAC / @@0602=7001 DCA D0030 / @@0603=3030 TAD D0040 / @@0604=1040 TAD C0045 / @@0605=1045 DCA L0607 / @@0606=3207 L0607, D0607, 6201 / CDF0 TAD D0030 / @@0610=1030 DCA I C0047 / @@0611=3447 ISZ D0031 / @@0612=2031 SKP / @@0613=7410 JMP L0622 / @@0614=5222 TAD C0045 / @@0615=1045 L0616, TAD L0607 / @@0616=1207 DCA L0607 / @@0617=3207 ISZ D0030 / @@0620=2030 JMP L0607 / @@0621=5207 L0622, JMS I C0023 / long call to S2435 @@0622=4423 IAC / @@0623=7001 DCA D0030 / @@0624=3030 TAD D0040 / @@0625=1040 TAD C0045 / @@0626=1045 DCA L0630 / @@0627=3230 L0630, D0630, 6201 / CDF0 TAD I C0047 / @@0631=1447 DCA D0032 / @@0632=3032 TAD D0032 / @@0633=1032 CIA / @@0634=7041 TAD D0030 / @@0635=1030 SZA CLA / @@0636=7640 JMP L0652 / @@0637=5252 ISZ D0031 / @@0640=2031 JMP L0645 / @@0641=5245 ISZ D0027 / @@0642=2027 JMP L0601 / @@0643=5201 JMP L0656 / @@0644=5256 L0645, TAD C0045 / @@0645=1045 TAD L0630 / @@0646=1230 DCA L0630 / @@0647=3230 ISZ D0030 / @@0650=2030 JMP L0630 / @@0651=5230 L0652, TAD D0032 / @@0652=1032 HLT / @@0653=7402 CLA / @@0654=7200 JMP L0630 / @@0655=5230 L0656, CDF0 / Change to data field 0. The data fie @@0656=6201 TAD D0021 / @@0657=1021 DCA L0001 / @@0660=3001 TAD C0752 / @@0661=1352 DCA L0002 / @@0662=3002 TAD D0020 / @@0663=1020 DCA L0003 / @@0664=3003 JMS I C0023 / long call to S2435 @@0665=4423 TAD D0040 / @@0666=1040 L0667, TAD C0045 / @@0667=1045 DCA D0671 / @@0670=3271 D0671, 6211 / CDF0 TAD C0037 / @@0672=1037 DCA I C0043 / @@0673=3443 TAD C0037 / @@0674=1037 DCA I C0754 / @@0675=3754 TAD C0037 / @@0676=1037 DCA I C0755 / @@0677=3755 ISZ D0031 / @@0700=2031 SKP / @@0701=7410 JMP L0705 / @@0702=5305 TAD D0671 / @@0703=1271 JMP L0667 / @@0704=5267 L0705, CDF0 / Change to data field 0. The data fie @@0705=6201 TSF / Skip if teleprinter flag is a 1. @@0706=6041 JMS I D0022 / long call to S2443 @@0707=4422 DCA D0027 / @@0710=3027 L0711, TAD D0041 / @@0711=1041 DCA L0723 / @@0712=3323 DCA D0753 / @@0713=3353 JMS I C0023 / long call to S2435 @@0714=4423 L0715, TAD L0723 / @@0715=1323 TAD C0045 / @@0716=1045 DCA L0723 / @@0717=3323 TAD D0753 / @@0720=1353 TAD C0045 / @@0721=1045 DCA D0753 / @@0722=3353 L0723, D0723, 6202 / CIF0 D0724, 6001 / ION NOP / @@0725=7000 JMP L0727 / @@0726=5327 L0727, HLT / @@0727=7402 C0730, 6234 / RIB D0731, 7041 / CIA TAD D0753 / @@0732=1353 SNA CLA / @@0733=7650 JMP L0744 / @@0734=5344 TAD D0753 / @@0735=1353 MQL / @@0736=7421 CLA CLL / AC = 0000 @@0737=7300 RIB / Read interrupt buffer. The instruct @@0740=6234 HLT / @@0741=7402 CLA / @@0742=7200 JMP L0723 / @@0743=5323 L0744, ISZ D0031 / @@0744=2031 JMP L0715 / @@0745=5315 ISZ D0027 / @@0746=2027 JMP L0711 / @@0747=5311 JMP I C0751 / long jump to L1000 @@0750=5751 C0751, C0751, 1000 / TAD S0000 C0752, 7000 / NOP D0753, 0000 / AND S0000 C0754, 0724 / AND I D0724 C0755, 1020 / TAD D0020 ISZ D0731 / @@0756=2331 C0757, 0364 / AND C0764 JMP I D0731 / long jump to L7041 @@0760=5731 AND S0000 / @@0761=0000 AND S0000 / @@0762=0000 AND L0077 / @@0763=0077 C0764, 0037 / AND C0037 C0765, 7477 / SCA MQL LSR + SMA SZA / @@0766=7540 AND I C0777 / @@0767=0777 AND C0730 / @@0770=0330 C0771, 7607 / CLA DVI + AND L0600 / @@0772=0200 SMA SZA CLA OSR HLT / @@0773=7746 C0774, 6003 / 6003 TAD C0757 / @@0775=1357 C0776, 7605 / CLA MUY + C0777, 1000 / TAD S0000 L1000, C1000, 7200 / CLA CDF0 / Change to data field 0. The data fie @@1001=6201 TSF / Skip if teleprinter flag is a 1. @@1002=6041 JMS I D0022 / long call to S2443 @@1003=4422 C1004, 3027 / DCA D0027 L1005, TAD D0041 / @@1005=1041 DCA L1017 / @@1006=3217 DCA D1046 / @@1007=3246 JMS I C0023 / long call to S2435 @@1010=4423 L1011, TAD L1017 / @@1011=1217 TAD C0045 / @@1012=1045 DCA L1017 / @@1013=3217 TAD D1046 / @@1014=1246 TAD C0045 / @@1015=1045 C1016, 3246 / DCA D1046 L1017, D1017, 6202 / CIF0 D1020, 6001 / ION NOP / @@1021=7000 JMS D1023 / @@1022=4223 AND S0000 / @@1023=0000 HLT / @@1024=7402 RIB / Read interrupt buffer. The instruct @@1025=6234 CIA / @@1026=7041 TAD D1046 / @@1027=1246 SNA CLA / @@1030=7650 JMP L1041 / @@1031=5241 TAD D1046 / @@1032=1246 CLL RAR / @@1033=7110 RTR / @@1034=7012 RIB / Read interrupt buffer. The instruct @@1035=6234 HLT / @@1036=7402 D1037, 7200 / CLA JMP L1017 / @@1040=5217 L1041, ISZ D0031 / @@1041=2031 JMP L1011 / @@1042=5211 ISZ D0027 / @@1043=2027 JMP L1005 / @@1044=5205 JMP I C1047 / long jump to L2271 @@1045=5647 D1046, 0000 / AND S0000 C1047, C1047, 2271 / ISZ D1071 L1050, JMS I C0023 / long call to S2435 @@1050=4423 TAD D0040 / @@1051=1040 DCA D1060 / @@1052=3260 L1053, C1053, 1260 / TAD D1060 TAD C0045 / @@1054=1045 DCA D1060 / @@1055=3260 CMA / @@1056=7040 DCA L0 / @@1057=3010 D1060, 6201 / CDF0 L1061, DCA I L0 / @@1061=3410 C1062, 1010 / TAD L0 CMA / @@1063=7040 SZA CLA / @@1064=7640 JMP L1061 / @@1065=5261 ISZ D0031 / @@1066=2031 JMP L1053 / @@1067=5253 JMS I C0023 / long call to S2435 @@1070=4423 D1071, 1040 / TAD D0040 L1072, TAD C0045 / @@1072=1045 DCA D1074 / @@1073=3274 D1074, 6201 / CDF0 TAD C0036 / @@1075=1036 DCA D0027 / @@1076=3027 TAD C0037 / @@1077=1037 DCA I D0027 / @@1100=3427 ISZ D0031 / @@1101=2031 SKP / @@1102=7410 JMP L1106 / @@1103=5306 TAD D1074 / @@1104=1274 JMP L1072 / @@1105=5272 L1106, CDF0 / Change to data field 0. The data fie @@1106=6201 TSF / Skip if teleprinter flag is a 1. @@1107=6041 JMS I D0022 / long call to S2443 @@1110=4422 C1111, 1050 / TAD C0050 DCA D0027 / @@1112=3027 L1113, TAD C0065 / @@1113=1065 DCA D0066 / @@1114=3066 JMS I C0023 / long call to S2435 @@1115=4423 TAD D0040 / @@1116=1040 TAD C0045 / @@1117=1045 DCA L1127 / @@1120=3327 TAD D0041 / @@1121=1041 TAD C0045 / @@1122=1045 DCA D1130 / @@1123=3330 TAD D1130 / @@1124=1330 DCA I C0042 / @@1125=3442 JMS I C0025 / long call to S1321 @@1126=4425 L1127, D1127, 6211 / CDF0 D1130, 6212 / CIF0 JMP L1132 / @@1131=5332 L1132, D1132, 7000 / NOP D1133, 7402 / HLT JMP L1127 / @@1134=5327 DCA I C0173 / @@1135=3573 TAD D0021 / @@1136=1021 JMP I C1140 / long jump to L0616 @@1137=5740 C1140, C1140, 0616 / AND I C1016 C1141, C1141, 7677 / CLA SCA MQL LSR + TAD D0021 / @@1142=1021 CLL RAL / @@1143=7104 DCA D0021 / @@1144=3021 TAD D0040 / @@1145=1040 RAL / @@1146=7004 DCA D0040 / @@1147=3040 JMP I C1141 / long jump to L7677 @@1150=5741 TAD C0160 / @@1151=1160 DCA AI4 / AUTO INDEX REGISTER @@1152=3014 TAD C0131 / @@1153=1131 DCA D0041 / @@1154=3041 CDF0 / Change to data field 1. The data fie @@1155=6211 L1156, DCA I AI4 / AUTO INDEX REGISTER @@1156=3414 ISZ D0041 / @@1157=2041 JMP L1156 / @@1160=5356 L1161, C1161, 6203 / 6203 JMP I C0106 / long jump to L1422 @@1162=5506 CDF0 / Change to data field 1. The data fie @@1163=6211 DCA I D0041 / @@1164=3441 JMP L1161 / @@1165=5361 C1166, C1166, 1253 / TAD L1053 TAD C0105 / @@1167=1105 DCA D0034 / @@1170=3034 C1171, 4776 / JMS I C1176 TAD C1111 / @@1172=1311 JMS I C0023 / long call to S2435 @@1173=4423 JMP I C1166 / long jump to L1253 @@1174=5766 C1175, 7575 / MQA SCA MQL ASR + TAD C1062 / @@1176=1262 SPA / @@1177=7510 RDF / Read data field into AC6-8. Bit 0-5 @@1200=6214 SNA / @@1201=7450 JMP L1206 / @@1202=5206 HLT / @@1203=7402 CLA / @@1204=7200 C1205, 5476 / JMP I C0076 L1206, CIF0 / Prepare to change to instruction fie @@1206=6212 RMF / Restore memory field. Used to exit @@1207=6244 RIB / Read interrupt buffer. The instruct @@1210=6234 CIF0 / Prepare to change to instruction fie @@1211=6202 CDF0 / Change to data field 0. The data fie @@1212=6201 TAD I D0066 / @@1213=1466 CMA / @@1214=7040 SNA CLA / @@1215=7650 JMP L1226 / @@1216=5226 RMF / Restore memory field. Used to exit @@1217=6244 RIB / Read interrupt buffer. The instruct @@1220=6234 HLT / @@1221=7402 CLA / @@1222=7200 CDF0 / Change to data field 0. The data fie @@1223=6201 CIF0 / Prepare to change to instruction fie @@1224=6202 JMP I C0076 / long jump to L1127 @@1225=5476 L1226, TAD C0036 / @@1226=1036 IAC / @@1227=7001 CIA / @@1230=7041 TAD S0000 / @@1231=1000 SNA CLA / @@1232=7650 JMP L1240 / @@1233=5240 TAD S0000 / @@1234=1000 HLT / @@1235=7402 CLA / @@1236=7200 JMP I C0076 / long jump to L1127 @@1237=5476 L1240, ISZ D0031 / @@1240=2031 JMP L1246 / @@1241=5246 ISZ D0027 / @@1242=2027 JMP I C1245 / long jump to L1113 @@1243=5645 JMP I C0107 / long jump to L1400 @@1244=5507 C1245, C1245, 1113 / TAD D0113 L1246, STA / AC = 7777 (-0001) @@1246=7240 DCA L0 / @@1247=3010 TAD I C0076 / @@1250=1476 DCA D1252 / @@1251=3252 D1252, 6211 / CDF0 L1253, DCA I L0 / @@1253=3410 TAD L0 / @@1254=1010 CMA / @@1255=7040 SZA CLA / @@1256=7640 JMP L1253 / @@1257=5253 CDF0 / Change to data field 0. The data fie @@1260=6201 TAD I C0076 / @@1261=1476 DCA D1263 / @@1262=3263 D1263, 6211 / CDF0 TAD C0037 / @@1264=1037 DCA I C0036 / @@1265=3436 CDF0 / Change to data field 0. The data fie @@1266=6201 TAD I C0076 / @@1267=1476 TAD C0045 / @@1270=1045 DCA I C0076 / @@1271=3476 TAD I L0077 / @@1272=1477 TAD C0045 / @@1273=1045 DCA I L0077 / @@1274=3477 TAD I L0077 / @@1275=1477 DCA D1316 / @@1276=3316 ISZ D0066 / @@1277=2066 JMS S1321 / @@1300=4321 JMP I C0076 / long jump to L1127 @@1301=5476 AND S0000 / @@1302=0000 TAD S0000 / @@1303=1000 SNA / @@1304=7450 JMP L0 / @@1305=5010 HLT / @@1306=7402 CLA / @@1307=7200 DCA S0000 / @@1310=3000 JMP I D0020 / long jump to L5400 @@1311=5420 HLT / @@1312=7402 JMP L0005 / @@1313=5005 TAD C0133 / @@1314=1133 TAD C0133 / @@1315=1133 D1316, 6212 / CIF0 ION / Enable Interrupts @@1317=6001 JMP I AI2 / AUTO INDEX REGISTERlong jump to L0000 @@1320=5412 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1321 / / Called from: / 1126 1300 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S1321, 0 / return area TAD C0101 / @@1322=1101 DCA L0001 / @@1323=3001 TAD C0102 / @@1324=1102 DCA L0002 / @@1325=3002 TAD C0100 / @@1326=1100 C1327, 3010 / DCA L0 DCA AI1 / AUTO INDEX REGISTER @@1330=3011 TAD C0067 / @@1331=1067 DCA S0000 / @@1332=3000 TAD I C0076 / @@1333=1476 DCA D1337 / @@1334=3337 L1335, CDF0 / Change to data field 0. The data fie @@1335=6201 TAD I L0 / @@1336=1410 D1337, 6211 / CDF0 DCA I AI1 / AUTO INDEX REGISTER @@1340=3411 ISZ S0000 / @@1341=2000 JMP L1335 / @@1342=5335 TAD D1337 / @@1343=1337 DCA D1347 / @@1344=3347 CDF0 / Change to data field 0. The data fie @@1345=6201 TAD I L0 / @@1346=1410 D1347, 6211 / CDF0 DCA I C0103 / @@1350=3503 CDF0 / Change to data field 0. The data fie @@1351=6201 TAD D1337 / @@1352=1337 DCA D1355 / @@1353=3355 TAD I L0 / @@1354=1410 D1355, 6211 / CDF0 DCA I C0035 / @@1356=3435 CDF0 / Change to data field 0. The data fie @@1357=6201 TAD D1337 / @@1360=1337 DCA D1363 / @@1361=3363 TAD I L0 / @@1362=1410 D1363, 6211 / CDF0 DCA I C0036 / @@1364=3436 CDF0 / Change to data field 0. The data fie @@1365=6201 TAD D1337 / @@1366=1337 DCA D1371 / @@1367=3371 TAD I L0 / @@1370=1410 D1371, 6211 / CDF0 DCA I C0046 / @@1372=3446 CDF0 / Change to data field 0. The data fie @@1373=6201 JMP I S1321 / return @@1374=5721 AND C0067 / @@1375=0067 JMP L0003 / @@1376=5003 JMP I C0072 / long jump to L7733 @@1377=5472 L1400, C1400, 6041 / TSF JMS I D0022 / long call to S2443 @@1401=4422 TAD C0047 / @@1402=1047 DCA D0027 / @@1403=3027 CDF0 / Change to data field 1. The data fie @@1404=6211 C1405, 1037 / TAD C0037 DCA I C0047 / @@1406=3447 CDF0 / Change to data field 0. The data fie @@1407=6201 TAD C0104 / @@1410=1104 DCA I C0047 / @@1411=3447 TAD C0101 / @@1412=1101 DCA L0001 / @@1413=3001 TAD C0106 / @@1414=1106 DCA L0002 / @@1415=3002 L1416, ION / Enable Interrupts @@1416=6001 NOP / @@1417=7000 HLT / @@1420=7402 JMP L1400 / @@1421=5200 L1422, D1422, 7200 / CLA CDF0 / Change to data field 1. The data fie @@1423=6211 CIF0 / Prepare to change to instruction fie @@1424=6212 RMF / Restore memory field. Used to exit @@1425=6244 JMP I C0047 / long jump to L7000 @@1426=5447 ISZ D0027 / @@1427=2027 JMP L1416 / @@1430=5216 JMP L1432 / @@1431=5232 L1432, CDF0 / Change to data field 0. The data fie @@1432=6201 TAD C0050 / @@1433=1050 DCA D0027 / @@1434=3027 L1435, JMS I C0023 / long call to S2435 @@1435=4423 TAD D0040 / @@1436=1040 DCA D1446 / @@1437=3246 L1440, TAD D1446 / @@1440=1246 TAD C0045 / @@1441=1045 DCA D1446 / @@1442=3246 CMA / @@1443=7040 DCA L0 / @@1444=3010 DCA S0000 / @@1445=3000 D1446, 6211 / CDF0 L1447, DCA I L0 / @@1447=3410 ISZ S0000 / @@1450=2000 JMP L1447 / @@1451=5247 CDF0 / Change to data field 0. The data fie @@1452=6201 TAD C1517 / @@1453=1317 DCA L0 / @@1454=3010 TAD C0071 / @@1455=1071 DCA S0000 / @@1456=3000 TAD C1517 / @@1457=1317 DCA AI1 / AUTO INDEX REGISTER @@1460=3011 TAD D1446 / @@1461=1246 DCA D1465 / @@1462=3265 L1463, CDF0 / Change to data field 0. The data fie @@1463=6201 TAD I L0 / @@1464=1410 D1465, 6211 / CDF0 DCA I AI1 / AUTO INDEX REGISTER @@1466=3411 ISZ S0000 / @@1467=2000 JMP L1463 / @@1470=5263 TAD C0110 / @@1471=1110 DCA S0000 / @@1472=3000 TAD C0044 / @@1473=1044 DCA L0 / @@1474=3010 L1475, CMA / @@1475=7040 DCA I L0 / @@1476=3410 ISZ S0000 / @@1477=2000 JMP L1475 / @@1500=5275 D1501, 7040 / CMA DCA I C0046 / @@1502=3446 RDF / Read data field into AC6-8. Bit 0-5 @@1503=6214 TAD D0041 / @@1504=1041 DCA D1506 / @@1505=3306 D1506, 6212 / CIF0 C1507, 4716 / JMS I C1516 L1510, ISZ D0031 / @@1510=2031 JMP L1440 / @@1511=5240 ISZ D0027 / @@1512=2027 JMP L1435 / @@1513=5235 JMP I C1515 / long jump to L1600 @@1514=5715 C1515, C1515, 1600 / TAD I L1400 TAD L0002 / @@1516=1002 C1517, 1517 / TAD I C0117 CLA / @@1520=7200 TAD I L0 / @@1521=1410 SZA / @@1522=7440 HLT / @@1523=7402 TAD I AI1 / AUTO INDEX REGISTER @@1524=1411 SZA / @@1525=7440 HLT / @@1526=7402 TAD I AI2 / AUTO INDEX REGISTER @@1527=1412 SZA / @@1530=7440 HLT / @@1531=7402 TAD I AI3 / AUTO INDEX REGISTER @@1532=1413 SZA / @@1533=7440 HLT / @@1534=7402 TAD I AI4 / AUTO INDEX REGISTER @@1535=1414 SZA / @@1536=7440 HLT / @@1537=7402 TAD I AI5 / AUTO INDEX REGISTER @@1540=1415 SZA / @@1541=7440 HLT / @@1542=7402 TAD I AI6 / AUTO INDEX REGISTER @@1543=1416 SZA / @@1544=7440 HLT / @@1545=7402 TAD I AI7 / AUTO INDEX REGISTER @@1546=1417 SZA / @@1547=7440 HLT / @@1550=7402 CDF0 / Change to data field 0. The data fie @@1551=6201 CIF0 / Prepare to change to instruction fie @@1552=6202 JMP L1510 / @@1553=5310 C1554, 0007 / AND C0007 L1555, TAD C1554 / @@1555=1354 D1556, 6046 / TLS L1557, TSF / Skip if teleprinter flag is a 1. @@1557=6041 C1560, C1560, 5357 / JMP L1557 C1561, 7604 / LAS RAL / @@1562=7004 SMA / @@1563=7500 JMP I C0127 / long jump to L0203 @@1564=5527 HLT / @@1565=7402 JMP I C0127 / long jump to L0203 @@1566=5527 JMP I C1560 / long jump to L5357 @@1567=5760 TAD I C1561 / @@1570=1761 C1571, 4570 / JMS I C0170 ISZ D1501 / @@1572=2301 ISZ I C1405 / @@1573=2605 C1574, 4005 / JMS L0005 ISZ L1422 / @@1575=2222 AND S0000 / @@1576=0000 C1577, 7771 / CLA MQA SCA MQL NMI L1600, D1600, 7604 / LAS AND C0044 / @@1601=0044 CIA / @@1602=7041 DCA D1605 / @@1603=3205 JMS I C1700 / long call to S2000 @@1604=4700 D1605, 0000 / AND S0000 SMA SZA CLA OSR / @@1606=7744 TAD I C1702 / @@1607=1702 DCA D1675 / @@1610=3275 TAD C1702 / @@1611=1302 DCA L0001 / @@1612=3001 TAD C1674 / @@1613=1274 DCA D0004 / @@1614=3004 L1615, CDF0 / Change to data field 0. The data fie @@1615=6201 DCA D1741 / @@1616=3341 TAD D1605 / @@1617=1205 DCA D1676 / @@1620=3276 L1621, TAD D1741 / @@1621=1341 TAD C0045 / @@1622=1045 DCA D1741 / @@1623=3341 TAD D1741 / @@1624=1341 CIA / @@1625=7041 C1626, 3342 / DCA D1742 TAD C0110 / @@1627=1110 DCA D1677 / @@1630=3277 TAD C0110 / @@1631=1110 DCA D1737 / @@1632=3337 L1633, TAD D1737 / @@1633=1337 TAD C0045 / @@1634=1045 DCA D1737 / @@1635=3337 TAD D1737 / @@1636=1337 CIA / @@1637=7041 DCA D1740 / @@1640=3340 C1641, 1205 / TAD D1605 DCA D1644 / @@1642=3244 JMS I C1700 / long call to S2000 @@1643=4700 D1644, 0000 / AND S0000 SPA SNA SZL CLA OSR / @@1645=7774 TAD I D1736 / @@1646=1736 CDF0 / Change to data field 0. The data fie @@1647=6201 TAD D0040 / @@1650=1040 TAD D1737 / @@1651=1337 DCA D1660 / @@1652=3260 TAD D0041 / @@1653=1041 TAD D1741 / @@1654=1341 DCA D1661 / @@1655=3261 TSF / Skip if teleprinter flag is a 1. @@1656=6041 JMS I D0022 / long call to S2443 @@1657=4422 D1660, 6201 / CDF0 D1661, 6202 / CIF0 JMP L1703 / @@1662=5303 RMF / Restore memory field. Used to exit @@1663=6244 JMP L1710 / @@1664=5310 L1665, C1665, 2277 / ISZ D1677 JMP L1633 / @@1666=5233 ISZ D1676 / @@1667=2276 JMP L1621 / @@1670=5221 ISZ D1675 / @@1671=2275 JMP L1615 / @@1672=5215 JMP I C1701 / long jump to L2200 @@1673=5701 C1674, 1663 / TAD I C1663 D1675, 0000 / AND S0000 D1676, 0000 / AND S0000 D1677, 0000 / AND S0000 C1700, C1700, 2000 / ISZ S0000 C1701, C1701, 2200 / ISZ L1600 C1702, 5404 / JMP I D0004 L1703, ION / Enable Interrupts @@1703=6001 NOP / @@1704=7000 IOF / Disable Interrupts @@1705=6002 HLT / @@1706=7402 C1707, 5333 / JMP L1733 L1710, CLA / @@1710=7200 RDF / Read data field into AC6-8. Bit 0-5 @@1711=6214 TAD D1740 / @@1712=1340 SNA CLA / @@1713=7650 JMP L1720 / @@1714=5320 TAD D1737 / @@1715=1337 HLT / @@1716=7402 JMP L1733 / @@1717=5333 L1720, RIF / Same as RDF except reads the instruc @@1720=6224 TAD D1742 / @@1721=1342 SNA CLA / @@1722=7650 JMP L1727 / @@1723=5327 TAD D1741 / @@1724=1341 HLT / @@1725=7402 JMP L1733 / @@1726=5333 L1727, CDF0 / Change to data field 0. The data fie @@1727=6201 CIF0 / Prepare to change to instruction fie @@1730=6202 JMP I C1732 / long jump to L1665 @@1731=5732 C1732, C1732, 1665 / TAD I L1665 L1733, CDF0 / Change to data field 0. The data fie @@1733=6201 CIF0 / Prepare to change to instruction fie @@1734=6202 JMP I D1736 / long jump to L1656 @@1735=5736 D1736, 1656 / TAD I C1656 D1737, 0000 / AND S0000 D1740, 0000 / AND S0000 D1741, 0000 / AND S0000 D1742, 0000 / AND S0000 C1743, 4753 / JMS I C1753 JMS S1765 / @@1744=4365 TAD D1736 / @@1745=1336 DCA D1736 / @@1746=3336 ISZ D1760 / @@1747=2360 JMP L1710 / @@1750=5310 C1751, 7777 / CLA MQA SCA MQL LSR + TAD I C1626 / @@1752=1626 TAD I C1641 / @@1753=1641 CIF0 / Prepare to change to instruction fie @@1754=6212 C1755, 4763 / JMS I C1763 AND C0007 / @@1756=0007 AND S0000 / @@1757=0000 D1760, 7404 / OSR / @@1761=7400 SMA SZA SNL CLA HLT / @@1762=7762 SMA CLA / @@1763=7700 AND S0000 / @@1764=0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1765 / / Called from: / 1744 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1765, 0 / return area CLL RTR / @@1766=7112 RTR / @@1767=7012 RTR / @@1770=7012 AND C1777 / @@1771=0377 SNA / @@1772=7450 TAD C1777 / @@1773=1377 IAC / @@1774=7001 CLL RAR / @@1775=7110 JMP I S1765 / return @@1776=5765 C1777, 0037 / AND C0037 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2000 / / Called from: / 1604 1643 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2000, 0 / return area CLA / @@2001=7200 TAD I S2000 / @@2002=1600 DCA D2042 / @@2003=3242 ISZ S2000 / @@2004=2200 TAD I S2000 / @@2005=1600 DCA D2043 / @@2006=3243 ISZ S2000 / @@2007=2200 TAD I S2000 / @@2010=1600 DCA D2044 / @@2011=3244 ISZ S2000 / @@2012=2200 TAD D0040 / @@2013=1040 DCA D2032 / @@2014=3232 TAD D2042 / @@2015=1242 DCA D2045 / @@2016=3245 L2017, TAD D2044 / @@2017=1244 DCA L0 / @@2020=3010 TAD D2044 / @@2021=1244 DCA AI1 / AUTO INDEX REGISTER @@2022=3011 C2023, 1243 / TAD D2043 DCA L2046 / @@2024=3246 TAD D2032 / @@2025=1232 TAD C0045 / @@2026=1045 DCA D2032 / @@2027=3232 L2030, CDF0 / Change to data field 0. The data fie @@2030=6201 TAD I L0 / @@2031=1410 D2032, 6201 / CDF0 DCA I AI1 / AUTO INDEX REGISTER @@2033=3411 ISZ L2046 / @@2034=2246 JMP L2030 / @@2035=5230 ISZ D2045 / @@2036=2245 JMP L2017 / @@2037=5217 D2040, 6201 / CDF0 C2041, 5600 / JMP I S2000 D2042, 0000 / AND S0000 D2043, 0000 / AND S0000 D2044, 0000 / AND S0000 D2045, 0000 / AND S0000 L2046, D2046, 0000 / AND S0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2047 / / Called from: / 2367 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2047, 0 / return area CLA CLL / AC = 0000 @@2050=7300 JMS I C0023 / long call to S2435 @@2051=4423 TAD D0040 / @@2052=1040 TAD C0045 / @@2053=1045 DCA D2057 / @@2054=3257 L2055, CLA CLL CMA / AC = 7777 (-0001) @@2055=7340 DCA L0 / @@2056=3010 D2057, 6201 / CDF0 JMS S2076 / @@2060=4276 CLA CLL CMA / AC = 7777 (-0001) @@2061=7340 DCA L0 / @@2062=3010 JMS S2112 / @@2063=4312 CLA CLL / AC = 0000 @@2064=7300 ISZ D0031 / @@2065=2031 SKP / @@2066=7410 JMP L2074 / @@2067=5274 TAD D2057 / @@2070=1257 TAD C0045 / @@2071=1045 DCA D2057 / @@2072=3257 JMP L2055 / @@2073=5255 L2074, CDF0 / Change to data field 0. The data fie @@2074=6201 JMP I S2047 / return @@2075=5647 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2076 / / Called from: / 2060 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2076, 0 / return area L2077, CLA CLL / AC = 0000 @@2077=7300 TAD C0157 / @@2100=1157 DCA I L0 / @@2101=3410 TAD C0157 / @@2102=1157 CMA / @@2103=7040 DCA I L0 / @@2104=3410 TAD L0 / @@2105=1010 IAC / @@2106=7001 SZA CLA / @@2107=7640 JMP L2077 / @@2110=5277 JMP I S2076 / return @@2111=5676 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2112 / / Called from: / 2063 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S2112, 0 / return area L2113, CLA CLL / AC = 0000 @@2113=7300 TAD I L0 / @@2114=1410 IAC / @@2115=7001 TAD I L0 / @@2116=1410 SZA / @@2117=7440 HLT / @@2120=7402 CLA CLL / AC = 0000 @@2121=7300 TAD L0 / @@2122=1010 IAC / @@2123=7001 SZA CLA / @@2124=7640 L2125, JMP L2113 / @@2125=5313 JMP I S2112 / return @@2126=5712 TAD C2041 / @@2127=1241 DCA I C0172 / @@2130=3572 CLA CML IAC / @@2131=7221 CDF0 / Change to data field 0. The data fie @@2132=6201 AND I C0171 / @@2133=0571 CDF0 / Change to data field 1. The data fie @@2134=6211 RAR / @@2135=7010 SPA SZL CLA / @@2136=7730 JMP I C0172 / long jump to L0077 @@2137=5572 JMP I C0170 / long jump to L0330 @@2140=5570 STL / @@2141=7120 JMP L2125 / @@2142=5325 C2143, C2143, 0223 / AND C2023 DCA D2040 / @@2144=3240 C2145, 6213 / 6213 TAD I D2040 / @@2146=1640 C2147, 6213 / 6213 JMP I C2143 / long jump to L0223 @@2150=5743 C2151, C2151, 0000 / AND S0000 TAD C2174 / @@2152=1374 DCA D2164 / @@2153=3364 CDF0 / Change to data field 0. The data fie @@2154=6201 TAD I C0171 / @@2155=1571 CDF0 / Change to data field 1. The data fie @@2156=6211 RTR / @@2157=7012 SZL CLA / @@2160=7630 JMP I C2151 / long jump to L0000 @@2161=5751 CIF0 / Prepare to change to instruction fie @@2162=6202 C2163, 4575 / JMS I C0175 D2164, 0000 / AND S0000 AND S0000 / @@2165=0000 AND D0033 / @@2166=0033 JMP L2046 / @@2167=5246 JMP I C2151 / long jump to L0000 @@2170=5751 CIF0 / Prepare to change to instruction fie @@2171=6202 C2172, 4575 / JMS I C0175 AND C0111 / @@2173=0111 C2174, C2174, 1000 / TAD S0000 AND C0026 / @@2175=0026 JMP L2046 / @@2176=5246 JMP I C2174 / long jump to L1000 @@2177=5774 L2200, CLA / @@2200=7200 TAD C0110 / @@2201=1110 DCA D0027 / @@2202=3027 L2203, D2203, 7604 / LAS AND C0044 / @@2204=0044 CIA / @@2205=7041 TAD C0044 / @@2206=1044 SNA / @@2207=7450 JMP I C0146 / long jump to L3633 @@2210=5546 DCA D0033 / @@2211=3033 DCA I C0147 / @@2212=3547 LAS / @@2213=7604 AND C0044 / @@2214=0044 IAC / @@2215=7001 CLL / @@2216=7100 RTL / @@2217=7006 RAL / @@2220=7004 DCA D0034 / @@2221=3034 TAD D0033 / @@2222=1033 CIA / @@2223=7041 DCA D0033 / @@2224=3033 TAD D0040 / @@2225=1040 TAD D0034 / @@2226=1034 DCA D2245 / @@2227=3245 JMS S2244 / @@2230=4244 L2231, ISZ D0033 / @@2231=2033 JMP L2237 / @@2232=5237 ISZ D0027 / @@2233=2027 JMP I C2236 / long jump to L2203 @@2234=5636 JMP I C0146 / long jump to L3633 @@2235=5546 C2236, C2236, 2203 / ISZ L2203 L2237, TAD D2245 / @@2237=1245 TAD C0045 / @@2240=1045 DCA D2245 / @@2241=3245 JMS S2244 / @@2242=4244 JMP L2231 / @@2243=5231 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2244 / / Called from: / 2230 2242 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S2244, 0 / return area D2245, 6201 / CDF0 STA / AC = 7777 (-0001) @@2246=7240 DCA L0 / @@2247=3010 CMA / @@2250=7040 DCA AI1 / AUTO INDEX REGISTER @@2251=3011 DCA L0002 / @@2252=3002 L2253, CMA / @@2253=7040 DCA I L0 / @@2254=3410 ISZ L0002 / @@2255=2002 JMP L2253 / @@2256=5253 L2257, TAD I AI1 / AUTO INDEX REGISTER @@2257=1411 SNA CLA / @@2260=7650 JMP L2264 / @@2261=5264 TAD AI1 / AUTO INDEX REGISTER @@2262=1011 HLT / @@2263=7402 L2264, ISZ L0002 / @@2264=2002 JMP L2257 / @@2265=5257 CDF0 / Change to data field 0. The data fie @@2266=6201 CIF0 / Prepare to change to instruction fie @@2267=6202 JMP I S2244 / return @@2270=5644 L2271, CLA CLL / AC = 0000 @@2271=7300 TAD D0020 / @@2272=1020 DCA L0001 / @@2273=3001 TAD D0040 / @@2274=1040 DCA D2304 / @@2275=3304 L2276, TAD D2304 / @@2276=1304 AND C0111 / @@2277=0111 STL / @@2300=7120 RAR / @@2301=7010 RTR / @@2302=7012 DCA D0112 / @@2303=3112 D2304, 6201 / CDF0 TSF / Skip if teleprinter flag is a 1. @@2305=6041 JMS I D0022 / long call to S2443 @@2306=4422 ION / Enable Interrupts @@2307=6001 CLA CLL CMA / AC = 7777 (-0001) @@2310=7340 C2311, 6004 / 6004 CIA / @@2312=7041 TAD D0112 / @@2313=1112 SZA / @@2314=7440 HLT / @@2315=7402 ISZ D0027 / @@2316=2027 JMP L2276 / @@2317=5276 TAD C0045 / @@2320=1045 TAD D2304 / @@2321=1304 DCA D2304 / @@2322=3304 ISZ D0113 / @@2323=2113 JMP L2276 / @@2324=5276 TAD C0110 / @@2325=1110 DCA D0113 / @@2326=3113 JMP I C2330 / long jump to L2331 @@2327=5730 C2330, C2330, 2331 / ISZ L2331 L2331, D2331, 7300 / CLA CLL TAD D0021 / @@2332=1021 DCA L0001 / @@2333=3001 TAD D0020 / @@2334=1020 DCA L0002 / @@2335=3002 C2336, 6005 / 6005 JMP L2340 / @@2337=5340 L2340, HLT / @@2340=7402 CLA CLL / AC = 0000 @@2341=7300 TAD C0115 / @@2342=1115 C2343, 6005 / 6005 STA / AC = 7777 (-0001) @@2344=7240 C2345, 6004 / 6004 CIA / @@2346=7041 TAD C0115 / @@2347=1115 SZA / @@2350=7440 HLT / @@2351=7402 CLA CLL / AC = 0000 @@2352=7300 C2353, 6005 / 6005 CLA CLL / AC = 0000 @@2354=7300 C2355, 6004 / 6004 CIA / @@2356=7041 TAD C0116 / @@2357=1116 SZA / @@2360=7440 HLT / @@2361=7402 JMP L2363 / @@2362=5363 L2363, HLT / @@2363=7402 CLA CLL / AC = 0000 @@2364=7300 ISZ D0027 / @@2365=2027 JMP L2331 / @@2366=5331 JMS I C0155 / long call to S2047 @@2367=4555 JMS I C2373 / long call to S4000 @@2370=4773 JMP I C2372 / long jump to L2400 @@2371=5772 C2372, C2372, 2400 / ISZ I S0000 C2373, C2373, 4000 / JMS S0000 C2374, 4315 / JMS C2315 C2375, 4316 / JMS C2316 C2376, 4217 / JMS C2217 C2377, 4317 / JMS C2317 L2400, CLA CLL / AC = 0000 @@2400=7300 JMS I D0022 / long call to S2443 @@2401=4422 TAD D0021 / @@2402=1021 DCA L0001 / @@2403=3001 TAD D0020 / @@2404=1020 C2405, 3002 / DCA L0002 DCA D0114 / @@2406=3114 L2407, TAD D0114 / @@2407=1114 C2410, 6005 / 6005 JMP L2412 / @@2411=5212 L2412, HLT / @@2412=7402 CLA CLL / AC = 0000 @@2413=7300 C2414, 6004 / 6004 AND C0117 / @@2415=0117 CIA / @@2416=7041 TAD D0114 / @@2417=1114 SZA / @@2420=7440 HLT / @@2421=7402 ISZ D0027 / @@2422=2027 JMP L2407 / @@2423=5207 TAD D0114 / @@2424=1114 TAD D0120 / @@2425=1120 DCA D0114 / @@2426=3114 ISZ D0113 / @@2427=2113 C2430, 5207 / JMP L2407 TAD C0110 / @@2431=1110 DCA D0113 / @@2432=3113 JMP I C2434 / long jump to L2452 @@2433=5634 C2434, C2434, 2452 / ISZ I C0052 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S2435 / / Called from: / 0601 0622 0665 0714 1010 1050 1070 1115 1173 1435 2051 2453 3504 / Total 0015 (13) calls //////////////////////////////////////////////////////////////////////////////// S2435, 0 / return area LAS / @@2436=7604 AND C0044 / @@2437=0044 CIA / @@2440=7041 DCA D0031 / @@2441=3031 JMP I S2435 / return @@2442=5635 C2443, C2443, 0000 / AND S0000 CLA / @@2444=7200 C2445, 6040 / 6040 L2446, TSF / Skip if teleprinter flag is a 1. @@2446=6041 JMP L2446 / @@2447=5246 CLA / @@2450=7200 JMP I C2443 / long jump to L0000 @@2451=5643 L2452, CLA CLL / AC = 0000 @@2452=7300 JMS I C0023 / long call to S2435 @@2453=4423 TAD D0120 / @@2454=1120 DCA D2460 / @@2455=3260 L2456, TAD C0132 / @@2456=1132 DCA L0 / @@2457=3010 D2460, 0000 / AND S0000 L2461, CLA CLL / AC = 0000 @@2461=7300 TAD D2460 / @@2462=1260 C2463, 6005 / 6005 IOF / Disable Interrupts @@2464=6002 CLA CLL / AC = 0000 @@2465=7300 ISZ I C0137 / @@2466=2537 NOP / @@2467=7000 TAD I C0137 / @@2470=1537 DCA D0136 / @@2471=3136 TAD C0124 / @@2472=1124 DCA I C0141 / @@2473=3541 TAD C0133 / @@2474=1133 DCA I L0 / @@2475=3410 TAD C0130 / @@2476=1130 DCA I L0 / @@2477=3410 TAD C0124 / @@2500=1124 C2501, C2501, 3410 / DCA I L0 TAD L0 / @@2502=1010 TAD C0057 / @@2503=1057 DCA D2510 / @@2504=3310 TAD C0134 / @@2505=1134 DCA L0001 / @@2506=3001 JMP I D2510 / long jump to L0000 @@2507=5710 D2510, 0000 / AND S0000 CIA / @@2511=7041 TAD D0136 / @@2512=1136 SZA / @@2513=7440 HLT / @@2514=7402 TAD S0000 / @@2515=1000 CIA / @@2516=7041 TAD L0 / @@2517=1010 SZA / @@2520=7440 HLT / @@2521=7402 RDF / Read data field into AC6-8. Bit 0-5 @@2522=6214 RIF / Same as RDF except reads the instruc @@2523=6224 SZA CLA / @@2524=7640 HLT / @@2525=7402 C2526, 6004 / 6004 AND C0117 / @@2527=0117 CIA / @@2530=7041 TAD D2460 / @@2531=1260 SZA / @@2532=7440 HLT / @@2533=7402 TAD L0 / @@2534=1010 IAC / @@2535=7001 SZA CLA / @@2536=7640 JMP L2461 / @@2537=5261 ISZ D0031 / @@2540=2031 SKP / @@2541=7410 JMP I C2550 / long jump to L1050 @@2542=5750 CLA CLL / AC = 0000 @@2543=7300 TAD D0120 / @@2544=1120 TAD D2460 / @@2545=1260 DCA D2460 / @@2546=3260 JMP L2456 / @@2547=5256 C2550, C2550, 1050 / TAD C0050 JMP I C2501 / long jump to L3410 @@2551=5701 C2552, C2552, 0000 / AND S0000 TAD I C0140 / @@2553=1540 CIA / @@2554=7041 TAD AI7 / AUTO INDEX REGISTER @@2555=1017 DCA AI7 / AUTO INDEX REGISTER @@2556=3017 JMP I C2552 / long jump to L0000 @@2557=5752 C2560, C2560, 0000 / AND S0000 TAD C0134 / @@2561=1134 DCA D2565 / @@2562=3365 CIF0 / Prepare to change to instruction fie @@2563=6202 C2564, 4451 / JMS I C0051 D2565, 4210 / JMS C2410 TAD I S0000 / @@2566=1400 AND L0001 / @@2567=0001 JMP I C0133 / long jump to L6001 @@2570=5533 JMP I C2560 / long jump to L0000 @@2571=5760 AND S0000 / @@2572=0000 AND C2430 / @@2573=0230 AND C2430 / @@2574=0230 AND C2434 / @@2575=0234 C2576, 4576 / JMS I C0176 AND I C2405 / @@2577=0605 L2600, CLA CLL / AC = 0000 @@2600=7300 C2601, 6007 / 6007 CUF / (KT8/I) Clears the user flag. Clear @@2602=6264 CINT / (KT8/I) Clear user interrupt. Reset @@2603=6204 TAD D0021 / @@2604=1021 DCA L0001 / @@2605=3001 TAD D0020 / @@2606=1020 DCA L0002 / @@2607=3002 C2610, 6007 / 6007 SKP / @@2611=7410 L2612, JMP L2612 / @@2612=5212 ION / Enable Interrupts @@2613=6001 SKP / @@2614=7410 L2615, JMP L2615 / @@2615=5215 KCC / Clear AC and clear keyboard flag. @@2616=6032 SKP / @@2617=7410 L2620, JMP L2620 / @@2620=5220 IOF / Disable Interrupts @@2621=6002 SKP / @@2622=7410 L2623, JMP L2623 / @@2623=5223 C2624, 6004 / 6004 SKP / @@2625=7410 L2626, JMP L2626 / @@2626=5226 ION / Enable Interrupts @@2627=6001 SUF / (KT8/I) Sets the user flag. Sets us @@2630=6274 JMP L2632 / @@2631=5232 L2632, HLT / @@2632=7402 L2633, JMP L2633 / @@2633=5233 SINT / (KT8/I) Skip on user interrupt. Whe @@2634=6254 L2635, JMP L2635 / @@2635=5235 CINT / (KT8/I) Clear user interrupt. Reset @@2636=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@2637=6254 SKP / @@2640=7410 L2641, JMP L2641 / @@2641=5241 LAS / @@2642=7604 SKP / @@2643=7410 L2644, JMP L2644 / @@2644=5244 RMF / Restore memory field. Used to exit @@2645=6244 ION / Enable Interrupts @@2646=6001 JMP L2650 / @@2647=5250 L2650, OSR / @@2650=7404 L2651, JMP L2651 / @@2651=5251 SINT / (KT8/I) Skip on user interrupt. Whe @@2652=6254 L2653, JMP L2653 / @@2653=5253 C2654, 6007 / 6007 SINT / (KT8/I) Skip on user interrupt. Whe @@2655=6254 SKP / @@2656=7410 HLT / @@2657=7402 OSR / @@2660=7404 SKP / @@2661=7410 L2662, JMP L2662 / @@2662=5262 RMF / Restore memory field. Used to exit @@2663=6244 ION / Enable Interrupts @@2664=6001 JMP L2666 / @@2665=5266 L2666, C2666, 6005 / 6005 L2667, JMP L2667 / @@2667=5267 SINT / (KT8/I) Skip on user interrupt. Whe @@2670=6254 L2671, JMP L2671 / @@2671=5271 CINT / (KT8/I) Clear user interrupt. Reset @@2672=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@2673=6254 SKP / @@2674=7410 HLT / @@2675=7402 C2676, 6004 / 6004 SKP / @@2677=7410 L2700, JMP L2700 / @@2700=5300 RMF / Restore memory field. Used to exit @@2701=6244 ION / Enable Interrupts @@2702=6001 JMP L2704 / @@2703=5304 L2704, ION / Enable Interrupts @@2704=6001 L2705, JMP L2705 / @@2705=5305 SINT / (KT8/I) Skip on user interrupt. Whe @@2706=6254 L2707, JMP L2707 / @@2707=5307 CLA CLL / AC = 0000 @@2710=7300 C2711, 6004 / 6004 AND C0126 / @@2712=0126 SNA / @@2713=7450 HLT / @@2714=7402 CINT / (KT8/I) Clear user interrupt. Reset @@2715=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@2716=6254 SKP / @@2717=7410 HLT / @@2720=7402 IOF / Disable Interrupts @@2721=6002 SKP / @@2722=7410 L2723, JMP L2723 / @@2723=5323 RMF / Restore memory field. Used to exit @@2724=6244 ION / Enable Interrupts @@2725=6001 JMP L2727 / @@2726=5327 L2727, LAS / @@2727=7604 L2730, JMP L2730 / @@2730=5330 CINT / (KT8/I) Clear user interrupt. Reset @@2731=6204 RMF / Restore memory field. Used to exit @@2732=6244 CUF / (KT8/I) Clears the user flag. Clear @@2733=6264 ION / Enable Interrupts @@2734=6001 JMP L2736 / @@2735=5336 L2736, OSR / @@2736=7404 SKP / @@2737=7410 L2740, JMP L2740 / @@2740=5340 CINT / (KT8/I) Clear user interrupt. Reset @@2741=6204 SUF / (KT8/I) Sets the user flag. Sets us @@2742=6274 ION / Enable Interrupts @@2743=6001 JMP L2745 / @@2744=5345 L2745, STA / AC = 7777 (-0001) @@2745=7240 LAS / @@2746=7604 L2747, JMP L2747 / @@2747=5347 SZA / @@2750=7440 HLT / @@2751=7402 CINT / (KT8/I) Clear user interrupt. Reset @@2752=6204 RMF / Restore memory field. Used to exit @@2753=6244 ION / Enable Interrupts @@2754=6001 JMP L2756 / @@2755=5356 L2756, CLA / @@2756=7200 OSR / @@2757=7404 L2760, JMP L2760 / @@2760=5360 SZA / @@2761=7440 HLT / @@2762=7402 CINT / (KT8/I) Clear user interrupt. Reset @@2763=6204 RMF / Restore memory field. Used to exit @@2764=6244 ION / Enable Interrupts @@2765=6001 JMP L2767 / @@2766=5367 L2767, STA / AC = 7777 (-0001) @@2767=7240 CLA HLT / @@2770=7602 L2771, JMP L2771 / @@2771=5371 SZA / @@2772=7440 HLT / @@2773=7402 CINT / (KT8/I) Clear user interrupt. Reset @@2774=6204 C2775, 6003 / 6003 SKP / @@2776=7410 HLT / @@2777=7402 D3000, 7300 / CLA CLL TAD C0126 / @@3001=1126 C3002, 6005 / 6005 ION / Enable Interrupts @@3003=6001 NOP / @@3004=7000 JMP L3006 / @@3005=5206 L3006, KCC / Clear AC and clear keyboard flag. @@3006=6032 L3007, JMP L3007 / @@3007=5207 L3010, C3010, 6003 / 6003 JMP L3010 / @@3011=5210 CINT / (KT8/I) Clear user interrupt. Reset @@3012=6204 CLA CLL / AC = 0000 @@3013=7300 TAD C0126 / @@3014=1126 C3015, 6005 / 6005 CLA CLL / AC = 0000 @@3016=7300 ION / Enable Interrupts @@3017=6001 JMP L3021 / @@3020=5221 L3021, C3021, 6004 / 6004 L3022, JMP L3022 / @@3022=5222 AND C0126 / @@3023=0126 SZA / @@3024=7440 HLT / @@3025=7402 L3026, C3026, 6003 / 6003 JMP L3026 / @@3027=5226 CINT / (KT8/I) Clear user interrupt. Reset @@3030=6204 RMF / Restore memory field. Used to exit @@3031=6244 ION / Enable Interrupts @@3032=6001 JMP L3034 / @@3033=5234 L3034, C3034, 6004 / 6004 L3035, JMP L3035 / @@3035=5235 SINT / (KT8/I) Skip on user interrupt. Whe @@3036=6254 L3037, JMP L3037 / @@3037=5237 CINT / (KT8/I) Clear user interrupt. Reset @@3040=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@3041=6254 SKP / @@3042=7410 L3043, JMP L3043 / @@3043=5243 ION / Enable Interrupts @@3044=6001 SKP / @@3045=7410 L3046, JMP L3046 / @@3046=5246 RMF / Restore memory field. Used to exit @@3047=6244 JMP L3051 / @@3050=5251 L3051, CIF0 / Prepare to change to instruction fie @@3051=6202 L3052, JMP L3052 / @@3052=5252 SINT / (KT8/I) Skip on user interrupt. Whe @@3053=6254 L3054, JMP L3054 / @@3054=5254 CINT / (KT8/I) Clear user interrupt. Reset @@3055=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@3056=6254 SKP / @@3057=7410 HLT / @@3060=7402 CIF0 / Prepare to change to instruction fie @@3061=6202 SKP / @@3062=7410 L3063, JMP L3063 / @@3063=5263 RMF / Restore memory field. Used to exit @@3064=6244 ION / Enable Interrupts @@3065=6001 JMP L3067 / @@3066=5267 L3067, RDF / Read data field into AC6-8. Bit 0-5 @@3067=6214 L3070, JMP L3070 / @@3070=5270 SINT / (KT8/I) Skip on user interrupt. Whe @@3071=6254 L3072, JMP L3072 / @@3072=5272 CINT / (KT8/I) Clear user interrupt. Reset @@3073=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@3074=6254 SKP / @@3075=7410 HLT / @@3076=7402 RDF / Read data field into AC6-8. Bit 0-5 @@3077=6214 SKP / @@3100=7410 L3101, JMP L3101 / @@3101=5301 C3102, 6040 / 6040 L3103, TSF / Skip if teleprinter flag is a 1. @@3103=6041 JMP L3103 / @@3104=5303 L3105, C3105, 6003 / 6003 JMP L3105 / @@3106=5305 ION / Enable Interrupts @@3107=6001 CLA CLL / AC = 0000 @@3110=7300 L3111, JMP L3111 / @@3111=5311 TAD C0126 / @@3112=1126 C3113, 6005 / 6005 C3114, 6007 / 6007 ION / Enable Interrupts @@3115=6001 JMP L3117 / @@3116=5317 L3117, C3117, 6007 / 6007 L3120, JMP L3120 / @@3120=5320 C3121, 6003 / 6003 HLT / @@3122=7402 C3123, 6007 / 6007 SINT / (KT8/I) Skip on user interrupt. Whe @@3124=6254 SKP / @@3125=7410 HLT / @@3126=7402 STA / AC = 7777 (-0001) @@3127=7240 STL / @@3130=7120 SUF / (KT8/I) Sets the user flag. Sets us @@3131=6274 ION / Enable Interrupts @@3132=6001 JMP L3134 / @@3133=5334 L3134, KRB / Clear AC, clear keyboard flag, and r @@3134=6036 L3135, JMP L3135 / @@3135=5335 CMA / @@3136=7040 SZA / @@3137=7440 L3140, JMP L3140 / @@3140=5340 SNL / @@3141=7420 L3142, JMP L3142 / @@3142=5342 SINT / (KT8/I) Skip on user interrupt. Whe @@3143=6254 L3144, JMP L3144 / @@3144=5344 CINT / (KT8/I) Clear user interrupt. Reset @@3145=6204 RMF / Restore memory field. Used to exit @@3146=6244 ION / Enable Interrupts @@3147=6001 JMP L3151 / @@3150=5351 L3151, C3151, 6040 / 6040 L3152, JMP L3152 / @@3152=5352 TSF / Skip if teleprinter flag is a 1. @@3153=6041 SKP / @@3154=7410 HLT / @@3155=7402 SINT / (KT8/I) Skip on user interrupt. Whe @@3156=6254 L3157, JMP L3157 / @@3157=5357 CINT / (KT8/I) Clear user interrupt. Reset @@3160=6204 RMF / Restore memory field. Used to exit @@3161=6244 ION / Enable Interrupts @@3162=6001 JMP I C3164 / long jump to L3200 @@3163=5764 C3164, C3164, 3200 / DCA D3000 C3165, 7777 / CLA MQA SCA MQL LSR + C3166, 7777 / CLA MQA SCA MQL LSR + C3167, 7777 / CLA MQA SCA MQL LSR + C3170, 7777 / CLA MQA SCA MQL LSR + C3171, 7777 / CLA MQA SCA MQL LSR + C3172, 7777 / CLA MQA SCA MQL LSR + C3173, 7777 / CLA MQA SCA MQL LSR + C3174, 7777 / CLA MQA SCA MQL LSR + C3175, 7777 / CLA MQA SCA MQL LSR + C3176, 7777 / CLA MQA SCA MQL LSR + C3177, 7777 / CLA MQA SCA MQL LSR + L3200, ION / Enable Interrupts @@3200=6001 L3201, JMP L3201 / @@3201=5201 SINT / (KT8/I) Skip on user interrupt. Whe @@3202=6254 L3203, JMP L3203 / @@3203=5203 CINT / (KT8/I) Clear user interrupt. Reset @@3204=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@3205=6254 SKP / @@3206=7410 HLT / @@3207=7402 IOF / Disable Interrupts @@3210=6002 SKP / @@3211=7410 L3212, JMP L3212 / @@3212=5212 RMF / Restore memory field. Used to exit @@3213=6244 ION / Enable Interrupts @@3214=6001 JMP L3216 / @@3215=5216 L3216, RIF / Same as RDF except reads the instruc @@3216=6224 L3217, JMP L3217 / @@3217=5217 CINT / (KT8/I) Clear user interrupt. Reset @@3220=6204 RMF / Restore memory field. Used to exit @@3221=6244 CUF / (KT8/I) Clears the user flag. Clear @@3222=6264 JMP L3224 / @@3223=5224 L3224, OSR / @@3224=7404 SKP / @@3225=7410 L3226, JMP L3226 / @@3226=5226 STA / AC = 7777 (-0001) @@3227=7240 SUF / (KT8/I) Sets the user flag. Sets us @@3230=6274 ION / Enable Interrupts @@3231=6001 JMP L3233 / @@3232=5233 L3233, HLT / @@3233=7402 L3234, JMP L3234 / @@3234=5234 C3235, 6203 / 6203 CUF / (KT8/I) Clears the user flag. Clear @@3236=6264 CINT / (KT8/I) Clear user interrupt. Reset @@3237=6204 ION / Enable Interrupts @@3240=6001 JMP L3242 / @@3241=5242 L3242, LAS / @@3242=7604 SKP / @@3243=7410 L3244, JMP L3244 / @@3244=5244 SNA / @@3245=7450 L3246, JMP L3246 / @@3246=5246 SUF / (KT8/I) Sets the user flag. Sets us @@3247=6274 ION / Enable Interrupts @@3250=6001 JMP L3252 / @@3251=5252 L3252, HLT / @@3252=7412 L3253, JMP L3253 / @@3253=5253 L3254, JMP L3254 / @@3254=5254 SINT / (KT8/I) Skip on user interrupt. Whe @@3255=6254 L3256, JMP L3256 / @@3256=5256 CINT / (KT8/I) Clear user interrupt. Reset @@3257=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@3260=6254 SKP / @@3261=7410 L3262, JMP L3262 / @@3262=5262 ISZ D3266 / @@3263=2266 JMP I C0131 / long jump to L2600 @@3264=5531 SKP / @@3265=7410 D3266, 0000 / AND S0000 JMP I C3270 / long jump to L3400 @@3267=5670 C3270, C3270, 3400 / DCA I S0000 C3271, 7777 / CLA MQA SCA MQL LSR + C3272, 7777 / CLA MQA SCA MQL LSR + C3273, 7777 / CLA MQA SCA MQL LSR + C3274, 7777 / CLA MQA SCA MQL LSR + C3275, 7777 / CLA MQA SCA MQL LSR + C3276, 7777 / CLA MQA SCA MQL LSR + C3277, 7777 / CLA MQA SCA MQL LSR + C3300, 7777 / CLA MQA SCA MQL LSR + C3301, 7777 / CLA MQA SCA MQL LSR + C3302, 7777 / CLA MQA SCA MQL LSR + C3303, 7777 / CLA MQA SCA MQL LSR + C3304, 7777 / CLA MQA SCA MQL LSR + C3305, 7777 / CLA MQA SCA MQL LSR + C3306, 7777 / CLA MQA SCA MQL LSR + C3307, 7777 / CLA MQA SCA MQL LSR + C3310, 7777 / CLA MQA SCA MQL LSR + C3311, 7777 / CLA MQA SCA MQL LSR + C3312, 7777 / CLA MQA SCA MQL LSR + C3313, 7777 / CLA MQA SCA MQL LSR + C3314, 7777 / CLA MQA SCA MQL LSR + C3315, 7777 / CLA MQA SCA MQL LSR + C3316, 7777 / CLA MQA SCA MQL LSR + C3317, 7777 / CLA MQA SCA MQL LSR + C3320, 7777 / CLA MQA SCA MQL LSR + C3321, 7777 / CLA MQA SCA MQL LSR + C3322, 7777 / CLA MQA SCA MQL LSR + C3323, 7777 / CLA MQA SCA MQL LSR + C3324, 7777 / CLA MQA SCA MQL LSR + C3325, 7777 / CLA MQA SCA MQL LSR + C3326, 7777 / CLA MQA SCA MQL LSR + C3327, 7777 / CLA MQA SCA MQL LSR + C3330, 7777 / CLA MQA SCA MQL LSR + C3331, 7777 / CLA MQA SCA MQL LSR + C3332, 7777 / CLA MQA SCA MQL LSR + C3333, 7777 / CLA MQA SCA MQL LSR + C3334, 7777 / CLA MQA SCA MQL LSR + C3335, 7777 / CLA MQA SCA MQL LSR + C3336, 7777 / CLA MQA SCA MQL LSR + C3337, 7777 / CLA MQA SCA MQL LSR + C3340, 7777 / CLA MQA SCA MQL LSR + C3341, 7777 / CLA MQA SCA MQL LSR + C3342, 7777 / CLA MQA SCA MQL LSR + C3343, 7777 / CLA MQA SCA MQL LSR + C3344, 7777 / CLA MQA SCA MQL LSR + C3345, 7777 / CLA MQA SCA MQL LSR + C3346, 7777 / CLA MQA SCA MQL LSR + C3347, 7777 / CLA MQA SCA MQL LSR + C3350, 7777 / CLA MQA SCA MQL LSR + C3351, 7777 / CLA MQA SCA MQL LSR + C3352, 7777 / CLA MQA SCA MQL LSR + C3353, 7777 / CLA MQA SCA MQL LSR + C3354, 7777 / CLA MQA SCA MQL LSR + C3355, 7777 / CLA MQA SCA MQL LSR + C3356, 7777 / CLA MQA SCA MQL LSR + C3357, 7777 / CLA MQA SCA MQL LSR + C3360, 7777 / CLA MQA SCA MQL LSR + C3361, 7777 / CLA MQA SCA MQL LSR + C3362, 7777 / CLA MQA SCA MQL LSR + C3363, 7777 / CLA MQA SCA MQL LSR + C3364, 7777 / CLA MQA SCA MQL LSR + C3365, 7777 / CLA MQA SCA MQL LSR + C3366, 7777 / CLA MQA SCA MQL LSR + C3367, 7777 / CLA MQA SCA MQL LSR + C3370, 7777 / CLA MQA SCA MQL LSR + C3371, 7777 / CLA MQA SCA MQL LSR + C3372, 7777 / CLA MQA SCA MQL LSR + C3373, 7777 / CLA MQA SCA MQL LSR + C3374, 7777 / CLA MQA SCA MQL LSR + C3375, 7777 / CLA MQA SCA MQL LSR + C3376, 7777 / CLA MQA SCA MQL LSR + C3377, 7777 / CLA MQA SCA MQL LSR + L3400, CLA / @@3400=7200 TAD C0125 / @@3401=1125 DCA L3407 / @@3402=3207 L3403, SUF / (KT8/I) Sets the user flag. Sets us @@3403=6274 CINT / (KT8/I) Clear user interrupt. Reset @@3404=6204 ION / Enable Interrupts @@3405=6001 JMP L3407 / @@3406=5207 L3407, D3407, 6000 / 6000 L3410, JMP L3410 / @@3410=5210 SINT / (KT8/I) Skip on user interrupt. Whe @@3411=6254 L3412, JMP L3412 / @@3412=5212 CINT / (KT8/I) Clear user interrupt. Reset @@3413=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@3414=6254 SKP CLA / @@3415=7610 HLT / @@3416=7402 ISZ L3407 / @@3417=2207 TAD L3407 / @@3420=1207 AND C0130 / @@3421=0130 SNA CLA / @@3422=7650 JMP L3403 / @@3423=5203 TAD C0124 / @@3424=1124 DCA L3432 / @@3425=3232 L3426, SUF / (KT8/I) Sets the user flag. Sets us @@3426=6274 CINT / (KT8/I) Clear user interrupt. Reset @@3427=6204 ION / Enable Interrupts @@3430=6001 JMP L3432 / @@3431=5232 L3432, D3432, 7406 / OSR HLT L3433, JMP L3433 / @@3433=5233 NOP / @@3434=7000 SINT / (KT8/I) Skip on user interrupt. Whe @@3435=6254 L3436, JMP L3436 / @@3436=5236 CINT / (KT8/I) Clear user interrupt. Reset @@3437=6204 SINT / (KT8/I) Skip on user interrupt. Whe @@3440=6254 SKP CLA / @@3441=7610 HLT / @@3442=7402 TAD L3432 / @@3443=1232 TAD C0123 / @@3444=1123 DCA L3432 / @@3445=3232 TAD L3432 / @@3446=1232 TAD C0122 / @@3447=1122 SZA CLA / @@3450=7640 JMP L3426 / @@3451=5226 RMF / Restore memory field. Used to exit @@3452=6244 CUF / (KT8/I) Clears the user flag. Clear @@3453=6264 ION / Enable Interrupts @@3454=6001 JMP L3456 / @@3455=5256 L3456, IOF / Disable Interrupts @@3456=6002 SINT / (KT8/I) Skip on user interrupt. Whe @@3457=6254 SKP / @@3460=7410 HLT / @@3461=7402 C3462, 6040 / 6040 L3463, TSF / Skip if teleprinter flag is a 1. @@3463=6041 JMP L3463 / @@3464=5263 ION / Enable Interrupts @@3465=6001 SKP / @@3466=7410 HLT / @@3467=7402 HLT / @@3470=7402 CLA CLL / AC = 0000 @@3471=7300 C3472, 6004 / 6004 AND C0126 / @@3473=0126 SZA / @@3474=7440 HLT / @@3475=7402 CLA CLL / AC = 0000 @@3476=7300 C3477, 6007 / 6007 CUF / (KT8/I) Clears the user flag. Clear @@3500=6264 NOP / @@3501=7000 CLA CLL / AC = 0000 @@3502=7300 C3503, 6007 / 6007 JMS I C0023 / long call to S2435 @@3504=4423 TAD D0040 / @@3505=1040 TAD C0045 / @@3506=1045 DCA D3535 / @@3507=3335 TAD D0041 / @@3510=1041 TAD C0045 / @@3511=1045 DCA D3547 / @@3512=3347 L3513, TAD C0144 / @@3513=1144 DCA L0 / @@3514=3010 TAD C0145 / @@3515=1145 DCA D0143 / @@3516=3143 CMA / @@3517=7040 DCA AI1 / AUTO INDEX REGISTER @@3520=3011 TAD D3535 / @@3521=1335 AND C0111 / @@3522=0111 RAR / @@3523=7010 RTR / @@3524=7012 DCA D0112 / @@3525=3112 TAD D3547 / @@3526=1347 AND C0111 / @@3527=0111 TAD D0112 / @@3530=1112 TAD C0142 / @@3531=1142 DCA I C3576 / @@3532=3776 L3533, CDF0 / Change to data field 0. The data fie @@3533=6201 TAD I L0 / @@3534=1410 D3535, 6201 / CDF0 DCA I AI1 / AUTO INDEX REGISTER @@3536=3411 ISZ D0143 / @@3537=2143 JMP L3533 / @@3540=5333 TAD D0021 / @@3541=1021 DCA L0001 / @@3542=3001 TAD D3547 / @@3543=1347 DCA L0002 / @@3544=3002 TAD D0020 / @@3545=1020 DCA L0003 / @@3546=3003 D3547, 6202 / CIF0 JMP L0002 / @@3550=5002 L3551, CLA CLL / AC = 0000 @@3551=7300 ISZ D0031 / @@3552=2031 SKP / @@3553=7410 JMP L3564 / @@3554=5364 TAD D3535 / @@3555=1335 TAD C0045 / @@3556=1045 DCA D3535 / @@3557=3335 TAD D3547 / @@3560=1347 TAD C0045 / @@3561=1045 DCA D3547 / @@3562=3347 JMP L3513 / @@3563=5313 L3564, CLA CLL / AC = 0000 @@3564=7300 C3565, 6007 / 6007 CUF / (KT8/I) Clears the user flag. Clear @@3566=6264 TAD C0151 / @@3567=1151 DCA I C0147 / @@3570=3547 LAS / @@3571=7604 SMA CLA / @@3572=7700 JMP I C0150 / long jump to L1555 @@3573=5550 HLT / @@3574=7402 JMP I C0152 / long jump to L3643 @@3575=5552 C3576, 3632 / DCA I L3432 C3577, 7777 / CLA MQA SCA MQL LSR + HLT / @@3600=7402 HLT / @@3601=7402 L3602, CLA CLL / AC = 0000 @@3602=7300 TAD D3632 / @@3603=1232 C3604, 6005 / 6005 JMP L3606 / @@3605=5206 L3606, D3606, 6000 / 6000 L3607, JMP L3607 / @@3607=5207 CLA CLL / AC = 0000 @@3610=7300 C3611, 6004 / 6004 CIA / @@3612=7041 TAD D3632 / @@3613=1232 SZA CLA / @@3614=7640 HLT / @@3615=7402 L3616, C3616, 6003 / 6003 JMP L3616 / @@3617=5216 CINT / (KT8/I) Clear user interrupt. Reset @@3620=6204 ISZ L3606 / @@3621=2206 TAD L3606 / @@3622=1206 TAD C3631 / @@3623=1231 SZA CLA / @@3624=7640 JMP L3602 / @@3625=5202 CIF0 / Prepare to change to instruction fie @@3626=6202 JMP I C3630 / long jump to L3551 @@3627=5630 C3630, C3630, 3551 / DCA I C0151 C3631, 1000 / TAD S0000 D3632, 0000 / AND S0000 L3633, CLA CLL / AC = 0000 @@3633=7300 LAS / @@3634=7604 SMA CLA / @@3635=7700 JMP I C0131 / long jump to L2600 @@3636=5531 C3637, 6007 / 6007 TAD C0151 / @@3640=1151 DCA I C0147 / @@3641=3547 JMP I C0150 / long jump to L1555 @@3642=5550 L3643, CLA CLL / AC = 0000 @@3643=7300 TAD C0153 / @@3644=1153 DCA L0001 / @@3645=3001 SUF / (KT8/I) Sets the user flag. Sets us @@3646=6274 ION / Enable Interrupts @@3647=6001 JMP L3651 / @@3650=5251 L3651, HLT / @@3651=7402 SINT / (KT8/I) Skip on user interrupt. Whe @@3652=6254 SKP / @@3653=7410 HLT / @@3654=7402 CUF / (KT8/I) Clears the user flag. Clear @@3655=6264 C3656, 6007 / 6007 JMP I C0127 / long jump to L0203 @@3657=5527 C3660, 7777 / CLA MQA SCA MQL LSR + C3661, 7777 / CLA MQA SCA MQL LSR + C3662, 7777 / CLA MQA SCA MQL LSR + C3663, 7777 / CLA MQA SCA MQL LSR + C3664, 7777 / CLA MQA SCA MQL LSR + C3665, 7777 / CLA MQA SCA MQL LSR + C3666, 7777 / CLA MQA SCA MQL LSR + C3667, 7777 / CLA MQA SCA MQL LSR + C3670, 7777 / CLA MQA SCA MQL LSR + C3671, 7777 / CLA MQA SCA MQL LSR + C3672, 7777 / CLA MQA SCA MQL LSR + C3673, 7777 / CLA MQA SCA MQL LSR + C3674, 7777 / CLA MQA SCA MQL LSR + C3675, 7777 / CLA MQA SCA MQL LSR + C3676, 7777 / CLA MQA SCA MQL LSR + C3677, 7777 / CLA MQA SCA MQL LSR + C3700, 7777 / CLA MQA SCA MQL LSR + C3701, 7777 / CLA MQA SCA MQL LSR + C3702, 7777 / CLA MQA SCA MQL LSR + C3703, 7777 / CLA MQA SCA MQL LSR + C3704, 7777 / CLA MQA SCA MQL LSR + C3705, 7777 / CLA MQA SCA MQL LSR + C3706, 7777 / CLA MQA SCA MQL LSR + C3707, 7777 / CLA MQA SCA MQL LSR + C3710, 7777 / CLA MQA SCA MQL LSR + C3711, 7777 / CLA MQA SCA MQL LSR + C3712, 7777 / CLA MQA SCA MQL LSR + C3713, 7777 / CLA MQA SCA MQL LSR + C3714, 7777 / CLA MQA SCA MQL LSR + C3715, 7777 / CLA MQA SCA MQL LSR + C3716, 7777 / CLA MQA SCA MQL LSR + C3717, 7777 / CLA MQA SCA MQL LSR + C3720, 7777 / CLA MQA SCA MQL LSR + C3721, 7777 / CLA MQA SCA MQL LSR + C3722, 7777 / CLA MQA SCA MQL LSR + C3723, 7777 / CLA MQA SCA MQL LSR + C3724, 7777 / CLA MQA SCA MQL LSR + C3725, 7777 / CLA MQA SCA MQL LSR + C3726, 7777 / CLA MQA SCA MQL LSR + C3727, 7777 / CLA MQA SCA MQL LSR + C3730, 7777 / CLA MQA SCA MQL LSR + C3731, 7777 / CLA MQA SCA MQL LSR + C3732, 7777 / CLA MQA SCA MQL LSR + C3733, 7777 / CLA MQA SCA MQL LSR + C3734, 7777 / CLA MQA SCA MQL LSR + C3735, 7777 / CLA MQA SCA MQL LSR + C3736, 7777 / CLA MQA SCA MQL LSR + C3737, 7777 / CLA MQA SCA MQL LSR + C3740, 7777 / CLA MQA SCA MQL LSR + C3741, 7777 / CLA MQA SCA MQL LSR + C3742, 7777 / CLA MQA SCA MQL LSR + C3743, 7777 / CLA MQA SCA MQL LSR + C3744, 7777 / CLA MQA SCA MQL LSR + C3745, 7777 / CLA MQA SCA MQL LSR + C3746, 7777 / CLA MQA SCA MQL LSR + C3747, 7777 / CLA MQA SCA MQL LSR + C3750, 7777 / CLA MQA SCA MQL LSR + C3751, 7777 / CLA MQA SCA MQL LSR + C3752, 7777 / CLA MQA SCA MQL LSR + C3753, 7777 / CLA MQA SCA MQL LSR + C3754, 7777 / CLA MQA SCA MQL LSR + C3755, 7777 / CLA MQA SCA MQL LSR + C3756, 7777 / CLA MQA SCA MQL LSR + C3757, 7777 / CLA MQA SCA MQL LSR + C3760, 7777 / CLA MQA SCA MQL LSR + C3761, 7777 / CLA MQA SCA MQL LSR + C3762, 7777 / CLA MQA SCA MQL LSR + C3763, 7777 / CLA MQA SCA MQL LSR + C3764, 7777 / CLA MQA SCA MQL LSR + C3765, 7777 / CLA MQA SCA MQL LSR + C3766, 7777 / CLA MQA SCA MQL LSR + C3767, 7777 / CLA MQA SCA MQL LSR + C3770, 7777 / CLA MQA SCA MQL LSR + C3771, 7777 / CLA MQA SCA MQL LSR + C3772, 7777 / CLA MQA SCA MQL LSR + C3773, 7777 / CLA MQA SCA MQL LSR + C3774, 7777 / CLA MQA SCA MQL LSR + C3775, 7777 / CLA MQA SCA MQL LSR + C3776, 7777 / CLA MQA SCA MQL LSR + C3777, 7777 / CLA MQA SCA MQL LSR + //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4000 / / Called from: / 2370 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S4000, 0 / return area L4001, CLA CLL / AC = 0000 @@4001=7300 DCA D4123 / @@4002=3323 DCA D4124 / @@4003=3324 TAD D0040 / @@4004=1040 DCA D4032 / @@4005=3232 TAD C0110 / @@4006=1110 DCA D4127 / @@4007=3327 TAD C0110 / @@4010=1110 DCA D0031 / @@4011=3031 TAD D0040 / @@4012=1040 DCA L4014 / @@4013=3214 L4014, D4014, 6201 / CDF0 JMS S4107 / @@4015=4307 C4016, 2031 / ISZ D0031 JMP L4022 / @@4017=5222 JMS S4052 / @@4020=4252 JMP L4027 / @@4021=5227 L4022, TAD C0045 / @@4022=1045 TAD L4014 / @@4023=1214 DCA L4014 / @@4024=3214 ISZ D4124 / @@4025=2324 JMP L4014 / @@4026=5214 L4027, CLA CLL / AC = 0000 @@4027=7300 TAD D4123 / @@4030=1323 DCA D4124 / @@4031=3324 D4032, 6201 / CDF0 JMS S4107 / @@4033=4307 C4034, 6203 / 6203 JMS S4052 / @@4035=4252 CLA CLL / AC = 0000 @@4036=7300 TAD D4032 / @@4037=1232 TAD C0045 / @@4040=1045 DCA D4032 / @@4041=3232 ISZ D4123 / @@4042=2323 ISZ D4127 / @@4043=2327 JMP L4027 / @@4044=5227 C4045, 6203 / 6203 C4046, 6007 / 6007 ISZ D0027 / @@4047=2027 JMP L4001 / @@4050=5201 JMP I S4000 / return @@4051=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4052 / / Called from: / 4020 4035 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4052, 0 / return area CLA CLL / AC = 0000 @@4053=7300 DCA D4124 / @@4054=3324 LAS / @@4055=7604 AND C0044 / @@4056=0044 CMA / @@4057=7040 DCA D0031 / @@4060=3031 TAD D0041 / @@4061=1041 DCA L4063 / @@4062=3263 L4063, D4063, 6202 / CIF0 JMP I C0141 / long jump to L0001 @@4064=5541 CIA / @@4065=7041 TAD D4124 / @@4066=1324 SNA / @@4067=7450 JMP L4076 / @@4070=5276 DCA D0112 / @@4071=3112 TAD L4063 / @@4072=1263 AND C0111 / @@4073=0111 TAD D0112 / @@4074=1112 HLT / @@4075=7402 L4076, CLA CLL / AC = 0000 @@4076=7300 ISZ D0031 / @@4077=2031 SKP / @@4100=7410 JMP I S4052 / return @@4101=5652 TAD L4063 / @@4102=1263 TAD C0045 / @@4103=1045 DCA L4063 / @@4104=3263 ISZ D4124 / @@4105=2324 JMP L4063 / @@4106=5263 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S4107 / / Called from: / 4015 4033 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S4107, 0 / return area TAD D4124 / @@4110=1324 DCA I C0137 / @@4111=3537 TAD C0130 / @@4112=1130 DCA I C0141 / @@4113=3541 C4114, C4114, 1041 / TAD D0041 DCA I C0122 / @@4115=3522 TAD C4126 / @@4116=1326 DCA I C0140 / @@4117=3540 TAD C4125 / @@4120=1325 DCA I C0123 / @@4121=3523 JMP I S4107 / return @@4122=5707 D4123, 0000 / AND S0000 D4124, 0000 / AND S0000 C4125, 4065 / JMS C0065 C4126, 5404 / JMP I D0004 D4127, 0000 / AND S0000 ISZ L0001 / @@4130=2001 JMP I C4114 / long jump to L1041 @@4131=5714 AND S0000 / @@4132=0000 AND S0000 / @@4133=0000 AND S0000 / @@4134=0000 AND S0000 / @@4135=0000 AND S0000 / @@4136=0000 AND S0000 / @@4137=0000 TAD C4034 / @@4140=1234 C4141, 7777 / CLA MQA SCA MQL LSR + AND S0000 / @@4142=0000 AND S0000 / @@4143=0000 ISZ L0001 / @@4144=2001 TAD I D0040 / @@4145=1440 AND D4124 / @@4146=0324 DCA D0120 / @@4147=3120 AND I C0156 / @@4150=0556 AND C4016 / @@4151=0216 JMP I L0003 / long jump to L0003 @@4152=5403 ISZ I D0031 / @@4153=2431 ISZ L0005 / @@4154=2005 JMP I L4014 / long jump to L6201 @@4155=5614 ISZ D4174 / @@4156=2374 AND D4124 / @@4157=0324 DCA D0120 / @@4160=3120 AND I C0156 / @@4161=0556 ISZ L0001 / @@4162=2001 AND S0000 / @@4163=0000 AND C0100 / @@4164=0100 AND S0000 / @@4165=0000 AND S0000 / @@4166=0000 AND S0000 / @@4167=0000 AND S0000 / @@4170=0000 AND S0000 / @@4171=0000 AND S0000 / @@4172=0000 AND S0000 / @@4173=0000 D4174, 0000 / AND S0000 AND S0000 / @@4175=0000 AND S0000 / @@4176=0000 AND S0000 / @@4177=0000 C4200, 1234 / TAD C4234 $