TITLE "AUTOMATIC DISASSEMBLY OF maindec-12-d3eb-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-12-d3eb-pb.bin / Generated 2010 02 19 00:10:28 / 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 / / 1755 locations used, 0576 code and 1157 data //////////////////////////////////////////////////////////////////////////////// *0017 AI7, 0000 / AUTO-INDEX REGISTER AND C0000 C0020, 6141 / 6141 C0021, 6200 / 6200 *0200 C0200, 0011 / AND AI1 TAD C0020 / @@0201=1020 C0202, 6400 / 6400 C0203, 0500 / AND I C0100 C0204, 6151 / 6151 C0205, 0011 / AND AI1 C0206, 0500 / AND I C0100 C0207, 6154 / 6154 C0210, 0451 / AND I C0051 C0211, 0456 / AND I C0056 C0212, 6220 / 6220 JMP L0371 / @@0213=5371 TAD C0020 / @@0214=1020 C0215, 2000 / ISZ C0000 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0216=7352 C0217, 6200 / 6200 TAD C0020 / @@0220=1020 C0221, 0002 / AND C0002 C0222, 0500 / AND I C0100 C0223, 6152 / 6152 C0224, 0011 / AND AI1 C0225, 0500 / AND I C0100 C0226, 6154 / 6154 C0227, 0471 / AND I C0071 C0230, 0456 / AND I C0056 C0231, 6237 / 6237 JMP L0371 / @@0232=5371 TAD C0020 / @@0233=1020 C0234, 2015 / ISZ AI5 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0235=7352 C0236, 6220 / 6220 L0237, TAD C0020 / @@0237=1020 AND C0020 / @@0240=0020 C0241, 0004 / AND C0004 TAD C0020 / @@0242=1020 C0243, 6400 / 6400 C0244, 0500 / AND I C0100 C0245, 6151 / 6151 C0246, 0011 / AND AI1 C0247, 0500 / AND I C0100 C0250, 6154 / 6154 C0251, 0451 / AND I C0051 C0252, 0456 / AND I C0056 CDF0 / Change to data field 6. The data fie @@0253=6261 JMP L0371 / @@0254=5371 TAD C0020 / @@0255=1020 C0256, 2000 / ISZ C0000 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0257=7352 C0260, 6237 / 6237 TAD C0020 / @@0261=1020 C0262, 6400 / 6400 C0263, 0500 / AND I C0100 C0264, 6151 / 6151 TAD C0020 / @@0265=1020 C0266, 0003 / AND C0003 C0267, 0500 / AND I C0100 C0270, 6152 / 6152 C0271, 0011 / AND AI1 C0272, 0500 / AND I C0100 C0273, 6154 / 6154 C0274, 1460 / TAD I C0060 C0275, 6000 / 6000 C0276, 0456 / AND I C0056 C0277, 6305 / 6305 JMP L0371 / @@0300=5371 TAD C0020 / @@0301=1020 C0302, 2031 / ISZ C0031 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0303=7352 CDF0 / Change to data field 6. The data fie @@0304=6261 TAD C0020 / @@0305=1020 AND C0020 / @@0306=0020 C0307, 0004 / AND C0004 TAD C0020 / @@0310=1020 C0311, 6400 / 6400 C0312, 0500 / AND I C0100 C0313, 6151 / 6151 C0314, 0011 / AND AI1 C0315, 0500 / AND I C0100 C0316, 6154 / 6154 C0317, 1460 / TAD I C0060 C0320, 0000 / AND C0000 C0321, 0456 / AND I C0056 C0322, 6330 / 6330 JMP L0371 / @@0323=5371 TAD C0020 / @@0324=1020 C0325, 2046 / ISZ C0046 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0326=7352 C0327, 6305 / 6305 TAD C0020 / @@0330=1020 C0331, 5000 / JMP C0000 C0332, 0500 / AND I C0100 C0333, 6151 / 6151 C0334, 0011 / AND AI1 C0335, 0500 / AND I C0100 C0336, 6154 / 6154 C0337, 1560 / TAD I C0160 C0340, 7767 / CLA MQA SCA MQL DVI + C0341, 0450 / AND I C0050 C0342, 0456 / AND I C0056 C0343, 6351 / 6351 JMP L0371 / @@0344=5371 TAD C0020 / @@0345=1020 C0346, 2064 / ISZ C0064 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0347=7352 C0350, 6330 / 6330 TAD C0020 / @@0351=1020 C0352, 0100 / AND C0100 C0353, 0500 / AND I C0100 C0354, 6152 / 6152 C0355, 0011 / AND AI1 C0356, 0500 / AND I C0100 C0357, 6154 / 6154 C0360, 1560 / TAD I C0160 C0361, 7773 / CLA MQA SCA MQL SHL + C0362, 0470 / AND I C0070 C0363, 0456 / AND I C0056 C0364, 6372 / 6372 JMP L0371 / @@0365=5371 TAD C0020 / @@0366=1020 C0367, 2101 / ISZ C0101 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0370=7352 L0371, C0371, 6330 / 6330 TAD C0020 / @@0372=1020 C0373, 5000 / JMP C0000 C0374, 0500 / AND I C0100 C0375, 6151 / 6151 TAD C0020 / @@0376=1020 C0377, 0004 / AND C0004 C0400, 0500 / AND I C0100 C0401, 6152 / 6152 C0402, 0011 / AND AI1 C0403, 0500 / AND I C0100 D0404, 6154 / 6154 C0405, 1560 / TAD I C0160 C0406, 7773 / CLA MQA SCA MQL SHL + C0407, 0450 / AND I C0050 C0410, 0456 / AND I C0056 C0411, 6417 / 6417 JMP L0571 / @@0412=5371 TAD C0020 / @@0413=1020 C0414, 2116 / ISZ C0116 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0415=7352 C0416, 6372 / 6372 C0417, 0011 / AND AI1 C0420, 0500 / AND I C0100 C0421, 6154 / 6154 C0422, 1560 / TAD I C0160 D0423, 7767 / CLA MQA SCA MQL DVI + C0424, 0470 / AND I C0070 C0425, 0456 / AND I C0056 T2on / (Data Communications System 680/I) s @@0426=6434 JMP L0571 / @@0427=5371 TAD C0020 / @@0430=1020 C0431, 2135 / ISZ C0135 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0432=7352 C0433, 6372 / 6372 TAD C0020 / @@0434=1020 C0435, 0100 / AND C0100 C0436, 0500 / AND I C0100 C0437, 6152 / 6152 C0440, 0011 / AND AI1 C0441, 0500 / AND I C0100 C0442, 6154 / 6154 C0443, 1560 / TAD I C0160 C0444, 7763 / CLA MQA SCA MQL SCL + C0445, 1460 / TAD I C0060 C0446, 0014 / AND AI4 C0447, 0456 / AND I C0056 C0450, 6456 / 6456 JMP L0571 / @@0451=5371 TAD C0020 / @@0452=1020 C0453, 2135 / ISZ C0135 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0454=7352 T2on / (Data Communications System 680/I) s @@0455=6434 C0456, 0011 / AND AI1 TAD C0020 / @@0457=1020 AND C0400 / @@0460=0200 C0461, 0500 / AND I C0100 C0462, 6152 / 6152 C0463, 0011 / AND AI1 C0464, 0434 / AND I C0034 C0465, 0456 / AND I C0056 C0466, 6474 / 6474 JMP L0571 / @@0467=5371 TAD C0020 / @@0470=1020 C0471, 2151 / ISZ C0151 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0472=7352 C0473, 6456 / 6456 TAD C0020 / @@0474=1020 AND C0020 / @@0475=0020 C0476, 0500 / AND I C0100 C0477, 6151 / 6151 C0500, 0434 / AND I C0034 C0501, 0456 / AND I C0056 C0502, 6510 / 6510 JMP L0571 / @@0503=5371 TAD C0020 / @@0504=1020 ISZ D0404 / @@0505=2204 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0506=7352 C0507, 6474 / 6474 CLA CML IAC / @@0510=7223 C0511, 0414 / AND I AI4 C0512, 0456 / AND I C0056 PLPL / Plotter pen left. @@0513=6521 JMP L0571 / @@0514=5371 TAD C0020 / @@0515=1020 C0516, 2167 / ISZ C0167 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0517=7352 C0520, 6510 / 6510 TAD C0020 / @@0521=1020 AND C0400 / @@0522=0200 C0523, 0500 / AND I C0100 C0524, 6152 / 6152 C0525, 0414 / AND I AI4 C0526, 0456 / AND I C0056 C0527, 0456 / AND I C0056 C0530, 6536 / 6536 JMP L0571 / @@0531=5371 TAD C0020 / @@0532=1020 C0533, 2151 / ISZ C0151 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0534=7352 PLPL / Plotter pen left. @@0535=6521 TAD C0020 / @@0536=1020 AND C0400 / @@0537=0200 C0540, 0500 / AND I C0100 C0541, 6152 / 6152 TAD C0020 / @@0542=1020 AND C0020 / @@0543=0020 C0544, 0004 / AND C0004 CLA CML RTR / @@0545=7232 C0546, 0011 / AND AI1 C0547, 0434 / AND I C0034 C0550, 0456 / AND I C0056 C0551, 6557 / 6557 JMP L0571 / @@0552=5371 TAD C0020 / @@0553=1020 ISZ D0404 / @@0554=2204 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0555=7352 C0556, 6536 / 6536 TAD C0020 / @@0557=1020 C0560, 0400 / AND I C0000 C0561, 0500 / AND I C0100 C0562, 6152 / 6152 CLA CMA CML / @@0563=7260 TAD C0020 / @@0564=1020 AND C0020 / @@0565=0020 C0566, 0004 / AND C0004 C0567, 0500 / AND I C0100 C0570, 6151 / 6151 L0571, C0571, 0434 / AND I C0034 C0572, 0456 / AND I C0056 DCMA / Clears memory address register, pari @@0573=6601 JMP L0571 / @@0574=5371 TAD C0020 / @@0575=1020 ISZ D0423 / @@0576=2223 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0577=7352 C0600, 6557 / 6557 TAD C0020 / @@0601=1020 C0602, 0000 / AND C0000 CLA IAC RAL / @@0603=7205 TAD C0020 / @@0604=1020 C0605, 7777 / CLA MQA SCA MQL LSR + CLL CMA CML IAC RTR / @@0606=7173 TAD C0020 / @@0607=1020 C0610, 0030 / AND C0030 C0611, 0500 / AND I C0100 C0612, 6151 / 6151 C0613, 0011 / AND AI1 C0614, 0003 / AND C0003 C0615, 1460 / TAD I C0060 C0616, 7777 / CLA MQA SCA MQL LSR + C0617, 0456 / AND I C0056 DMAC / Clear the AC then loads contents of @@0620=6626 JMP L0771 / @@0621=5371 TAD C0020 / @@0622=1020 ISZ D0642 / @@0623=2242 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0624=7352 DCMA / Clears memory address register, pari @@0625=6601 TAD C0020 / @@0626=1020 C0627, 0000 / AND C0000 CLA IAC RAL / @@0630=7205 TAD C0020 / @@0631=1020 C0632, 7777 / CLA MQA SCA MQL LSR + CLL CMA CML IAC RTR / @@0633=7173 TAD C0020 / @@0634=1020 C0635, 0003 / AND C0003 C0636, 0500 / AND I C0100 C0637, 6152 / 6152 TAD C0020 / @@0640=1020 AND C0020 / @@0641=0020 D0642, 0500 / AND I C0100 C0643, 6151 / 6151 C0644, 0011 / AND AI1 C0645, 0003 / AND C0003 C0646, 1460 / TAD I C0060 C0647, 7777 / CLA MQA SCA MQL LSR + C0650, 0456 / AND I C0056 C0651, 6657 / 6657 JMP L0771 / @@0652=5371 TAD C0020 / @@0653=1020 ISZ D0642 / @@0654=2242 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0655=7352 D0656, 6626 / DMAC TAD C0020 / @@0657=1020 AND C0020 / @@0660=0020 C0661, 0004 / AND C0004 TAD C0020 / @@0662=1020 AND C0600 / @@0663=0200 C0664, 0500 / AND I C0100 C0665, 6152 / 6152 TAD C0020 / @@0666=1020 C0667, 7777 / CLA MQA SCA MQL LSR + CLL CMA CML IAC RTR / @@0670=7173 CLA CML IAC / @@0671=7223 TAD C0020 / @@0672=1020 C0673, 7777 / CLA MQA SCA MQL LSR + CLA IAC RAL / @@0674=7205 TAD C0020 / @@0675=1020 AND I C0707 / @@0676=0707 CLL CMA CML IAC RTR / @@0677=7173 TAD C0020 / @@0700=1020 C0701, 0003 / AND C0003 C0702, 0500 / AND I C0100 C0703, 6152 / 6152 CLA CML RTR / @@0704=7232 C0705, 0011 / AND AI1 C0706, 0003 / AND C0003 C0707, 1460 / TAD I C0060 C0710, 0000 / AND C0000 C0711, 0456 / AND I C0056 C0712, 6720 / 6720 JMP L0771 / @@0713=5371 TAD C0020 / @@0714=1020 ISZ D0656 / @@0715=2256 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0716=7352 RCSE / Generates an IOP pulse (IOP 2) to ad @@0717=6672 TAD C0020 / @@0720=1020 C0721, 7777 / CLA MQA SCA MQL LSR + CLA IAC RAL / @@0722=7205 TAD C0020 / @@0723=1020 C0724, 0000 / AND C0000 CLL CMA CML IAC RTR / @@0725=7173 CLA CML IAC / @@0726=7223 C0727, 0011 / AND AI1 C0730, 0003 / AND C0003 C0731, 1460 / TAD I C0060 C0732, 7777 / CLA MQA SCA MQL LSR + C0733, 0456 / AND I C0056 C0734, 6742 / 6742 JMP L0771 / @@0735=5371 TAD C0020 / @@0736=1020 ISZ D0656 / @@0737=2256 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0740=7352 C0741, 6720 / 6720 TAD C0020 / @@0742=1020 C0743, 7777 / CLA MQA SCA MQL LSR + CLA IAC RAL / @@0744=7205 TAD C0020 / @@0745=1020 AND I C0707 / @@0746=0707 CLL CMA CML IAC RTR / @@0747=7173 TAD C0020 / @@0750=1020 C0751, 0003 / AND C0003 C0752, 0500 / AND I C0100 C0753, 6152 / 6152 CLA CML RTR / @@0754=7232 C0755, 0011 / AND AI1 C0756, 0003 / AND C0003 C0757, 1460 / TAD I C0060 C0760, 0000 / AND C0000 C0761, 0456 / AND I C0056 C0762, 6770 / 6770 JMP L0771 / @@0763=5371 TAD C0020 / @@0764=1020 ISZ D0656 / @@0765=2256 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@0766=7352 C0767, 6742 / 6742 TAD C0020 / @@0770=1020 L0771, AND C0020 / @@0771=0020 C0772, 0004 / AND C0004 C0773, 0011 / AND AI1 C0774, 0477 / AND I C0077 C0775, 0456 / AND I C0056 RAL / @@0776=7004 JMP L0771 / @@0777=5371 TAD C0020 / @@1000=1020 L1001, ISZ D1071 / @@1001=2271 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1002=7352 C1003, 6770 / 6770 D1004, 0011 / AND AI1 C1005, 7223 / CLA CML IAC TAD C0020 / @@1006=1020 C1007, 0020 / AND C0020 C1010, 0004 / AND C0004 TAD C0020 / @@1011=1020 C1012, 7775 / CLA MQA SCA MQL ASR + C1013, 7335 / CLA CLL CML IAC RAR RAL C1014, 0477 / AND I C0077 C1015, 0456 / AND I C0056 CML RAL / @@1016=7024 JMP L1171 / @@1017=5371 TAD C0020 / @@1020=1020 ISZ D1071 / @@1021=2271 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1022=7352 RAL / @@1023=7004 TAD C0020 / @@1024=1020 C1025, 0002 / AND C0002 C1026, 0500 / AND I C0100 C1027, 6152 / 6152 C1030, 0011 / AND AI1 C1031, 0457 / AND I C0057 C1032, 0456 / AND I C0056 CIA / @@1033=7041 JMP L1171 / @@1034=5371 C1035, 1020 / TAD C0020 C1036, 2305 / ISZ D1105 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1037=7352 CML RAL / @@1040=7024 C1041, 0076 / AND C0076 SPA SNA SZL CLA OSR / @@1042=7774 TAD C0020 / @@1043=1020 SPA SNA SZL CLA OSR HLT / @@1044=7776 C1045, 7335 / CLA CLL CML IAC RAR RAL C1046, 0477 / AND I C0077 C1047, 0000 / AND C0000 AND C1036 / @@1050=0236 CMA IAC / @@1051=7043 C1052, 0077 / AND C0077 C1053, 1477 / TAD I C0077 C1054, 7314 / CLA CLL RAR RAL C1055, 0414 / AND I AI4 CMA CML IAC / @@1056=7063 TAD C0020 / @@1057=1020 ISZ D1004 / @@1060=2204 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1061=7352 CMA RTR / @@1062=7052 C1063, 0077 / AND C0077 C1064, 1511 / TAD I C0111 C1065, 7314 / CLA CLL RAR RAL C1066, 0414 / AND I AI4 C1067, 7074 / CMA CML RAR RAL TAD C0020 / @@1070=1020 D1071, 2204 / ISZ D1004 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1072=7352 CMA CML IAC / @@1073=7063 C1074, 0077 / AND C0077 C1075, 1523 / TAD I C0123 C1076, 7314 / CLA CLL RAR RAL C1077, 0414 / AND I AI4 CLL IAC RAL / @@1100=7105 TAD C0020 / @@1101=1020 ISZ D1004 / @@1102=2204 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1103=7352 C1104, 7074 / CMA CML RAR RAL D1105, 0077 / AND C0077 C1106, 1535 / TAD I C0135 C1107, 7314 / CLA CLL RAR RAL C1110, 0414 / AND I AI4 C1111, 7116 / CLL RTR RTL TAD C0020 / @@1112=1020 ISZ D1004 / @@1113=2204 C1114, 7352 / CLA CLL CMA RTR CLL IAC RAL / @@1115=7105 C1116, 0077 / AND C0077 C1117, 1547 / TAD I C0147 C1120, 7314 / CLA CLL RAR RAL C1121, 0414 / AND I AI4 CLL CML IAC RTL / @@1122=7127 TAD C0020 / @@1123=1020 C1124, 2204 / ISZ D1004 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1125=7352 C1126, 7116 / CLL RTR RTL C1127, 0077 / AND C0077 C1130, 1561 / TAD I C0161 C1131, 7314 / CLA CLL RAR RAL C1132, 0414 / AND I AI4 CLL CMA / @@1133=7140 TAD C0020 / @@1134=1020 ISZ D1004 / @@1135=2204 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1136=7352 CLL CML IAC RTL / @@1137=7127 C1140, 0077 / AND C0077 C1141, 1573 / TAD I C0173 C1142, 7314 / CLA CLL RAR RAL C1143, 0414 / AND I AI4 CLL CMA IAC RAR / @@1144=7151 TAD C0020 / @@1145=1020 ISZ D1004 / @@1146=2204 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1147=7352 CLL CMA / @@1150=7140 C1151, 0077 / AND C0077 TAD I C1005 / @@1152=1605 C1153, 7314 / CLA CLL RAR RAL C1154, 0414 / AND I AI4 CLL CMA CML / @@1155=7162 TAD C0020 / @@1156=1020 ISZ D1004 / @@1157=2204 CLA CLL CMA RTR / AC = 5777 (-2001 = -1025 dec) @@1160=7352 CLL CMA IAC RAR / @@1161=7151 AND C1035 / @@1162=0235 CLL CMA CML IAC RTL / @@1163=7167 TAD C0020 / @@1164=1020 AND C1007 / @@1165=0207 C1166, 7467 / SCA MQL DVI + TAD C0020 / @@1167=1020 AND C0020 / @@1170=0020 L1171, C1171, 0004 / AND C0004 C1172, 6200 / 6200 JMP L1001 / @@1173=5201 TAD C0020 / @@1174=1020 C1175, 1000 / TAD C0000 C1176, 0500 / AND I C0100 C1177, 6151 / 6151 TAD C0020 / @@1200=1020 C1201, 0000 / AND C0000 C1202, 0500 / AND I C0100 C1203, 6154 / 6154 C1204, 6000 / 6000 JMP L1213 / @@1205=5213 TAD C0020 / @@1206=1020 C1207, 0000 / AND C0000 C1210, 0500 / AND I C0100 C1211, 6151 / 6151 TAD C0020 / @@1212=1020 L1213, C1213, 0000 / AND C0000 C1214, 0500 / AND I C0100 C1215, 6154 / 6154 TAD C0020 / @@1216=1020 C1217, 1000 / TAD C0000 C1220, 0500 / AND I C0100 C1221, 6152 / 6152 C1222, 6000 / 6000 TAD C0020 / @@1223=1020 AND C0020 / @@1224=0020 C1225, 0004 / AND C0004 TAD C0020 / @@1226=1020 C1227, 0002 / AND C0002 C1230, 0500 / AND I C0100 C1231, 6152 / 6152 TAD C0020 / @@1232=1020 C1233, 0040 / AND C0040 C1234, 0001 / AND C0001 C1235, 0077 / AND C0077 TAD C1245 / @@1236=1245 C1237, 0006 / AND C0006 C1240, 1037 / TAD C0037 C1241, 0470 / AND I C0070 C1242, 6000 / 6000 C1243, 0500 / AND I C0100 C1244, 6151 / 6151 C1245, 7237 / CLA CML IAC RTR RTL AND C0020 / @@1246=0020 C1247, 0030 / AND C0030 AND C0020 / @@1250=0020 C1251, 0030 / AND C0030 AND C0020 / @@1252=0020 C1253, 0030 / AND C0030 AND C0020 / @@1254=0020 AND C0020 / @@1255=0020 C1256, 0030 / AND C0030 C1257, 7777 / CLA MQA SCA MQL LSR + TAD C0020 / @@1260=1020 AND C0020 / @@1261=0020 C1262, 0004 / AND C0004 TAD C0020 / @@1263=1020 C1264, 0002 / AND C0002 C1265, 0500 / AND I C0100 C1266, 6152 / 6152 TAD C0020 / @@1267=1020 C1270, 0040 / AND C0040 C1271, 0001 / AND C0001 C1272, 0077 / AND C0077 TAD C1302 / @@1273=1302 C1274, 0006 / AND C0006 C1275, 1037 / TAD C0037 C1276, 0470 / AND I C0070 C1277, 6000 / 6000 C1300, 0500 / AND I C0100 C1301, 6151 / 6151 C1302, 7274 / CLA CMA CML RAR RAL AND C0020 / @@1303=0020 C1304, 0030 / AND C0030 AND C0020 / @@1305=0020 C1306, 0030 / AND C0030 AND C0020 / @@1307=0020 C1310, 0030 / AND C0030 AND C0020 / @@1311=0020 AND C0020 / @@1312=0020 C1313, 7777 / CLA MQA SCA MQL LSR + TAD C0020 / @@1314=1020 AND C0020 / @@1315=0020 C1316, 0004 / AND C0004 TAD C0020 / @@1317=1020 C1320, 0002 / AND C0002 C1321, 0500 / AND I C0100 C1322, 6152 / 6152 TAD C0020 / @@1323=1020 C1324, 0040 / AND C0040 C1325, 0001 / AND C0001 C1326, 0006 / AND C0006 C1327, 1037 / TAD C0037 C1330, 0470 / AND I C0070 C1331, 6000 / 6000 C1332, 0500 / AND I C0100 C1333, 6151 / 6151 CLA CLL CML RTL / AC = 0002 @@1334=7326 C1335, 4001 / JMS C0001 TAD C0020 / @@1336=1020 C1337, 0040 / AND C0040 C1340, 0500 / AND I C0100 C1341, 6151 / 6151 TAD C0020 / @@1342=1020 AND C0020 / @@1343=0020 C1344, 0500 / AND I C0100 C1345, 6151 / 6151 C1346, 0006 / AND C0006 AND C1221 / @@1347=0221 C1350, 7336 / CLA CLL CML RTR RTL C1351, 6000 / 6000 JMP L1363 / @@1352=5363 C1353, 2000 / ISZ C0000 JMP L1373 / @@1354=5373 C1355, 0516 / AND I C0116 C1356, 1560 / TAD I C0160 JMP I C1377 / long jump to L0237 @@1357=5777 C1360, 0450 / AND I C0050 CLA CLL CMA CML IAC RAL / @@1361=7365 TAD C0020 / @@1362=1020 L1363, C1363, 0000 / AND C0000 C1364, 7374 / CLA CLL CMA CML RAR RAL C1365, 0516 / AND I C0116 C1366, 0451 / AND I C0051 CLA CLL CMA CML IAC RTR / @@1367=7373 TAD C0020 / @@1370=1020 C1371, 0000 / AND C0000 C1372, 0000 / AND C0000 L1373, C1373, 0000 / AND C0000 JMS AI7 / AUTO INDEX REGISTER @@1374=4017 C1375, 2000 / ISZ C0000 C1376, 5466 / JMP I C0066 C1377, C1377, 0237 / AND C1237 C1400, 0016 / AND AI6 C1401, 0011 / AND AI1 AND I C1441 / @@1402=0641 TAD C1537 / @@1403=1337 C1404, 0470 / AND I C0070 C1405, 7417 / LSR + AND C1467 / @@1406=0267 AND C1507 / @@1407=0307 C1410, 0472 / AND I C0072 C1411, 3415 / DCA I AI5 C1412, 3416 / DCA I AI6 C1413, 7467 / SCA MQL DVI + NOP / @@1414=7401 C1415, 0040 / AND C0040 AND C1440 / @@1416=0240 TAD C0020 / @@1417=1020 AND C1440 / @@1420=0240 C1421, 7467 / SCA MQL DVI + TAD C0020 / @@1422=1020 AND C1520 / @@1423=0320 C1424, 7467 / SCA MQL DVI + TAD C0020 / @@1425=1020 AND C1503 / @@1426=0303 C1427, 7467 / SCA MQL DVI + TAD C0020 / @@1430=1020 AND C1440 / @@1431=0240 C1432, 7467 / SCA MQL DVI + DCA D1573 / @@1433=3373 C1434, 1560 / TAD I C0160 C1435, 6000 / 6000 C1436, 5440 / JMP I C0040 C1437, 1000 / TAD C0000 C1440, 0000 / AND C0000 C1441, 1560 / TAD I C0160 C1442, 6000 / 6000 C1443, 0076 / AND C0076 C1444, 7773 / CLA MQA SCA MQL SHL + AND C1443 / @@1445=0243 C1446, 1060 / TAD C0060 C1447, 0000 / AND C0000 C1450, 1560 / TAD I C0160 SPA SNA SZL CLA / @@1451=7770 C1452, 1120 / TAD C0120 AND C1460 / @@1453=0260 C1454, 7467 / SCA MQL DVI + C1455, 3447 / DCA I C0047 AND C1436 / @@1456=0236 C1457, 7445 / SCA MUY + C1460, 1020 / TAD C0020 AND C1415 / @@1461=0215 C1462, 7467 / SCA MQL DVI + TAD C0020 / @@1463=1020 AND C1412 / @@1464=0212 C1465, 7467 / SCA MQL DVI + C1466, 0000 / AND C0000 C1467, 0500 / AND I C0100 TLS / Load the TTO from the content of AC4 @@1470=6046 C1471, 0011 / AND AI1 C1472, 2000 / ISZ C0000 C1473, 5477 / JMP I C0077 C1474, 0500 / AND I C0100 TSF / Skip if teleprinter flag is a 1. @@1475=6041 SNA SZL OSR / @@1476=7474 C1477, 0000 / AND C0000 C1500, 0030 / AND C0030 C1501, 0030 / AND C0030 AND C0020 / @@1502=0020 C1503, 0030 / AND C0030 AND C0020 / @@1504=0020 C1505, 0030 / AND C0030 AND C0020 / @@1506=0020 C1507, 0020 / AND C0020 C1510, 0030 / AND C0030 C1511, 7777 / CLA MQA SCA MQL LSR + AND C0020 / @@1512=0020 AND C0020 / @@1513=0020 AND C0020 / @@1514=0020 C1515, 0030 / AND C0030 AND C0020 / @@1516=0020 C1517, 0030 / AND C0030 C1520, 0020 / AND C0020 AND C0020 / @@1521=0020 C1522, 0030 / AND C0030 C1523, 7777 / CLA MQA SCA MQL LSR + AND C0020 / @@1524=0020 C1525, 0030 / AND C0030 C1526, 0030 / AND C0030 C1527, 0030 / AND C0030 AND C0020 / @@1530=0020 C1531, 0030 / AND C0030 AND C0020 / @@1532=0020 AND C0020 / @@1533=0020 C1534, 0030 / AND C0030 C1535, 7777 / CLA MQA SCA MQL LSR + AND C0020 / @@1536=0020 C1537, 0030 / AND C0030 AND C0020 / @@1540=0020 C1541, 0030 / AND C0030 C1542, 0030 / AND C0030 C1543, 0030 / AND C0030 AND C0020 / @@1544=0020 AND C0020 / @@1545=0020 C1546, 0030 / AND C0030 C1547, 7777 / CLA MQA SCA MQL LSR + AND C0020 / @@1550=0020 C1551, 0030 / AND C0030 AND C0020 / @@1552=0020 AND C0020 / @@1553=0020 AND C0020 / @@1554=0020 C1555, 0030 / AND C0030 AND C0020 / @@1556=0020 AND C0020 / @@1557=0020 C1560, 0030 / AND C0030 C1561, 7777 / CLA MQA SCA MQL LSR + AND C0020 / @@1562=0020 C1563, 0030 / AND C0030 AND C0020 / @@1564=0020 C1565, 0030 / AND C0030 AND C0020 / @@1566=0020 AND C0020 / @@1567=0020 AND C0020 / @@1570=0020 AND C0020 / @@1571=0020 C1572, 0030 / AND C0030 D1573, 7777 / CLA MQA SCA MQL LSR + AND C0020 / @@1574=0020 C1575, 0030 / AND C0030 AND C0020 / @@1576=0020 C1577, 0030 / AND C0030 AND C0020 / @@1600=0020 C1601, 0030 / AND C0030 C1602, 0030 / AND C0030 AND C0020 / @@1603=0020 C1604, 0030 / AND C0030 C1605, 7777 / CLA MQA SCA MQL LSR + AND C0020 / @@1606=0020 C1607, 0030 / AND C0030 AND C0020 / @@1610=0020 C1611, 0030 / AND C0030 AND C0020 / @@1612=0020 C1613, 0030 / AND C0030 AND C0020 / @@1614=0020 C1615, 0030 / AND C0030 C1616, 0030 / AND C0030 C1617, 7777 / CLA MQA SCA MQL LSR + *2000 D2000, 7777 / CLA MQA SCA MQL LSR + C2001, 4003 / JMS C0003 C2002, 1405 / TAD I C0005 C2003, 0122 / AND C0122 D2004, 4014 / JMS AI4 C2005, 2420 / ISZ I C0020 CMA / @@2006=7040 C2007, 2401 / ISZ I C0001 C2010, 2005 / ISZ C0005 C2011, 4006 / JMS C0006 C2012, 0111 / AND C0111 C2013, 1405 / TAD I C0005 C2014, 0400 / AND I C0000 C2015, 7777 / CLA MQA SCA MQL LSR + C2016, 4023 / JMS C0023 C2017, 0524 / AND I C0124 C2020, 4014 / JMS AI4 ISZ I C0020 / @@2021=2420 CMA / @@2022=7040 C2023, 2401 / ISZ I C0001 C2024, 2005 / ISZ C0005 C2025, 4006 / JMS C0006 C2026, 0111 / AND C0111 C2027, 1405 / TAD I C0005 C2030, 0400 / AND I C0000 C2031, 7777 / CLA MQA SCA MQL LSR + C2032, 4023 / JMS C0023 C2033, 0524 / AND I C0124 C2034, 4014 / JMS AI4 ISZ I C0020 / @@2035=2420 CMA / @@2036=7040 ISZ I C2122 / @@2037=2722 C2040, 1124 / TAD C0124 C2041, 0540 / AND I C0140 AND I C2001 / @@2042=0601 C2043, 1114 / TAD C0114 C2044, 0504 / AND I C0104 C2045, 0000 / AND C0000 C2046, 7777 / CLA MQA SCA MQL LSR + C2047, 4003 / JMS C0003 C2050, 1405 / TAD I C0005 C2051, 0122 / AND C0122 C2052, 4014 / JMS AI4 ISZ I C0020 / @@2053=2420 CMA / @@2054=7040 ISZ I C2122 / @@2055=2722 C2056, 1124 / TAD C0124 C2057, 0540 / AND I C0140 AND I C2001 / @@2060=0601 C2061, 1114 / TAD C0114 C2062, 0504 / AND I C0104 C2063, 0000 / AND C0000 C2064, 7777 / CLA MQA SCA MQL LSR + C2065, 4015 / JMS AI5 TAD I C2124 / @@2066=1724 C2067, 1117 / TAD C0117 TAD I C2040 / @@2070=1640 AND I C2001 / @@2071=0601 C2072, 1114 / TAD C0114 C2073, 0504 / AND I C0104 C2074, 4024 / JMS C0024 TAD I C2140 / @@2075=1740 AND C2114 / @@2076=0314 C2077, 0501 / AND I C0101 ISZ D2000 / @@2100=2200 C2101, 7777 / CLA MQA SCA MQL LSR + C2102, 4014 / JMS AI4 C2103, 2415 / ISZ I AI5 C2104, 4023 / JMS C0023 D2105, 0524 / AND I C0124 C2106, 4006 / JMS C0006 TAD I C2122 / @@2107=1722 ISZ I C2101 / @@2110=2701 ISZ D2004 / @@2111=2204 C2112, 4006 / JMS C0006 C2113, 0111 / AND C0111 C2114, 1405 / TAD I C0005 C2115, 0400 / AND I C0000 C2116, 7777 / CLA MQA SCA MQL LSR + C2117, 4004 / JMS C0004 C2120, 1122 / TAD C0122 C2121, 0503 / AND I C0103 C2122, 2411 / ISZ I AI1 TAD I C2116 / @@2123=1716 C2124, 4006 / JMS C0006 C2125, 0111 / AND C0111 C2126, 1405 / TAD I C0005 C2127, 0440 / AND I C0040 ISZ I AI7 / AUTO INDEX REGISTER @@2130=2417 C2131, 4003 / JMS C0003 C2132, 1405 / TAD I C0005 C2133, 0122 / AND C0122 C2134, 0000 / AND C0000 C2135, 7777 / CLA MQA SCA MQL LSR + C2136, 4015 / JMS AI5 TAD I C2124 / @@2137=1724 C2140, 1117 / TAD C0117 TAD I C2040 / @@2141=1640 AND I C2001 / @@2142=0601 C2143, 1114 / TAD C0114 C2144, 0504 / AND I C0104 C2145, 4024 / JMS C0024 TAD I C2140 / @@2146=1740 ISZ D2105 / @@2147=2305 C2150, 2400 / ISZ I C0000 C2151, 7777 / CLA MQA SCA MQL LSR + C2152, 4003 / JMS C0003 C2153, 1405 / TAD I C0005 C2154, 0122 / AND C0122 C2155, 4014 / JMS AI4 ISZ I C0020 / @@2156=2420 CMA / @@2157=7040 AND C2014 / @@2160=0214 TAD I C2103 / @@2161=1703 TAD C2140 / @@2162=1340 AND I C2001 / @@2163=0601 C2164, 1114 / TAD C0114 C2165, 0504 / AND I C0104 C2166, 0000 / AND C0000 C2167, 7777 / CLA MQA SCA MQL LSR + C2170, 4023 / JMS C0023 C2171, 0524 / AND I C0124 C2172, 4014 / JMS AI4 ISZ I C0020 / @@2173=2420 CMA / @@2174=7040 AND C2014 / @@2175=0214 TAD I C2103 / @@2176=1703 TAD C2140 / @@2177=1340 D2200, 0601 / AND I C2201 C2201, 1114 / TAD C0114 C2202, 0504 / AND I C0104 C2203, 0000 / AND C0000 C2204, 7777 / CLA MQA SCA MQL LSR + C2205, 4006 / JMS C0006 C2206, 0114 / AND C0114 ISZ D2305 / @@2207=2305 C2210, 4014 / JMS AI4 ISZ I C0020 / @@2211=2420 CMA / @@2212=7040 AND C2214 / @@2213=0214 C2214, 1703 / TAD I C2303 C2215, 1340 / TAD C2340 C2216, 0405 / AND I C0005 D2217, 2405 / ISZ I C0005 AND C2324 / @@2220=0324 C2221, 0504 / AND I C0104 C2222, 0000 / AND C0000 C2223, 7777 / CLA MQA SCA MQL LSR + C2224, 4014 / JMS AI4 ISZ I C0020 / @@2225=2420 CMA / @@2226=7040 AND C2314 / @@2227=0314 TAD I C2323 / @@2230=1723 C2231, 0540 / AND I C0140 CMA / @@2232=7040 ISZ I C2311 / @@2233=2711 TAD I C2204 / @@2234=1604 C2235, 1727 / TAD I C2327 C2236, 4006 / JMS C0006 C2237, 0111 / AND C0111 C2240, 1405 / TAD I C0005 C2241, 0400 / AND I C0000 C2242, 7777 / CLA MQA SCA MQL LSR + C2243, 4024 / JMS C0024 C2244, 0103 / AND C0103 C2245, 4003 / JMS C0003 C2246, 1405 / TAD I C0005 C2247, 0122 / AND C0122 C2250, 0504 / AND I C0104 C2251, 4011 / JMS AI1 TAD I C2240 / @@2252=1640 C2253, 0522 / AND I C0122 ISZ D2217 / @@2254=2217 ISZ D2200 / @@2255=2200 C2256, 7777 / CLA MQA SCA MQL LSR + C2257, 4024 / JMS C0024 C2260, 0103 / AND C0103 C2261, 4006 / JMS C0006 C2262, 0111 / AND C0111 C2263, 1405 / TAD I C0005 C2264, 0440 / AND I C0040 ISZ I AI7 / AUTO INDEX REGISTER @@2265=2417 C2266, 4014 / JMS AI4 TAD I C2301 / @@2267=1701 C2270, 0400 / AND I C0000 C2271, 7777 / CLA MQA SCA MQL LSR + C2272, 4006 / JMS C0006 C2273, 0114 / AND C0114 ISZ D2305 / @@2274=2305 C2275, 4014 / JMS AI4 ISZ I C0020 / @@2276=2420 CMA / @@2277=7040 C2300, 2401 / ISZ I C0001 C2301, 2005 / ISZ C0005 C2302, 4027 / JMS C0027 TAD I C2322 / @@2303=1722 C2304, 0400 / AND I C0000 D2305, 7777 / CLA MQA SCA MQL LSR + C2306, 4014 / JMS AI4 ISZ I C0020 / @@2307=2420 CMA / @@2310=7040 C2311, 2401 / ISZ I C0001 C2312, 2005 / ISZ C0005 C2313, 4027 / JMS C0027 C2314, 1722 / TAD I C2322 C2315, 0440 / AND I C0040 AND I C2201 / @@2316=0601 C2317, 1114 / TAD C0114 C2320, 0504 / AND I C0104 C2321, 4024 / JMS C0024 C2322, 1740 / TAD I C2340 C2323, 2313 / ISZ C2313 C2324, 1120 / TAD C0120 C2325, 0000 / AND C0000 *4020 C4020, 0600 / AND I C4000 C4021, 6200 / 6200 *4400 C4400, 0600 / AND I C4400 C4401, 6200 / 6200 $