FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 161

5202 * 5203 * ************* 5204 * *EQUIVALENCE* 5205 * ************* 5206 * STORE EOUIV INFO IN THE DATA POOL FOR LATER 5207 * PROCESSING BY GROUP EQUIV (PART OF SPECS WRAPUP) 5208 10304 0 02 00042 B5 LDA E0 L=NEXT WORD IN EQUIVALENCE TABLE 5209 10305 0 04 00626 STA I I=L 5210 10306 0 07 00735 SUB K101 (=1) 5211 10307 0 04 00042 STA E0 L=L-1 5212 10310 0 07 00637 SUB ABAR 5213 10311 101400 SMI 5214 10312 0 01 10315 JMP *+3 5215 10313 0 10 02615 JST ER00 DATA POOL FULL 5216 10314 146717 BCI 1,MO MEMORY OVERFLOW 5217 10315 0 35 00626 LDX I 5218 10316 140040 CRA 5219 10317 1 04 17400 STA DP,1 DP (I) = 0 5220 10320 0 10 01157 B5B JST CH00 5221 10321 1 02 17400 LDA DP,1 INPUT CHAR 5222 10322 100040 SZE 5223 10323 0 01 10340 JMP B5D 5224 10324 0 02 00067 LDA TC PUT IN FIRST CHARACTER 5225 10325 0414 70 LGL 8 PACK INTO DP (I) 5226 10326 1 04 17400 B5C STA DP,1 5227 10327 0 02 00067 LDA TC 5228 10330 0 07 00702 SUB CRET 5229 10331 101040 SNZ 5230 10332 0 01 03641 JMP C6 CHARACTER E C/R - EXIT 5231 10333 1 02 17400 LDA DP,1 5232 10334 141050 CAL 5233 10335 101040 SNZ 5234 10336 0 01 10320 JMP B5B WORD NOT FULL 5235 10337 0 01 10304 JMP B5 OBTAIN NEW WORD 5236 10340 0 02 00067 B5D LDA TC PUT IN SECOND CHARACTER 5237 10341 1 05 17400 ERA DP,1 5238 10342 0 01 10326 JMP B5C 5239 EJCT