FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 163

5282 * 5283 * 5284 * ******************* 5285 * *GROUP EOUIVALENCE* 5286 * ******************* 5287 * THE EQUIV GROUPS ARE PRDCESSED NOW. ANY COMMON 5288 * USAGE IS CHECKED TO SEE THAT THE ORIGIN 5289 * IS NOT MOVED AND THAT ONLY ONE ITEM IS 5290 * COMMON. 5291 10403 0 00 00000 C3T0 PZE 0 5292 10404 0 00 00000 C3T1 PZE 0 5293 10405 0 00 00000 C3T2 PZE 0 5294 10406 0 00 00000 C3T3 PZE 0 5295 10407 0 00 00000 C3T4 PZE 0 5296 010403 T0C3 EQU C3T0 5297 010404 T1C3 EQU C3T1 5298 010406 T3C3 EQU C3T3 5299 010407 T4C3 EQU C3T4 5300 10410 0 02 00042 C3 LDA E0 5301 10411 0 04 00654 STA EBAR EBAR=E(0) = END OF EQUIVALENCE TABLE 5302 10412 0 02 00113 LDA L0 5303 10413 0 04 00040 STA E E=L(0) = START OF EQUIVALENCE TABLE 5304 10414 0 02 00702 LDA CRET 5305 10415 0 04 00067 STA TC 5306 10416 0 02 00040 C3B LDA E 5307 10417 0 04 00041 STA EP E-PRIME = E 5308 10420 140040 CRA 5309 10421 0 04 00045 STA F I = 0 5310 10422 0 02 00736 LDA K102 T4 = STR-ABS 5311 10423 0 04 10407 STA C3T4 5312 10424 0 10 01157 JST CH00 INPUT CHARACTER 5313 10425 0 02 14474 LDA K17 5314 10426 0 10 02352 JST TS00 (TEST 5315 10427 0 10 07755 C3D JST IL00 INPUT LIST ELEMENT 5316 10430 0 10 10717 JST SAF 5317 10431 0 02 00064 LDA S1 5318 10432 0 07 00025 SUB AF T1 = S1-AF 5319 10433 0 04 10404 STA C3T1 5320 10434 0 02 00625 LDA A T2 = A 5321 10435 0 04 10405 STA C3T2 5322 10436 0 02 00045 LDA F IF I=0, GO TO C3P 5323 10437 101040 SNZ 5324 10440 0 01 10554 JMP C3P 5325 10441 0 02 00045 C3G LDA F ELSE, 5326 10442 0 07 00625 SUB A IF A = I, GO TO C3N 5327 10443 101040 SNZ 5328 10444 0 01 10523 JMP C3N 5329 10445 0 02 00026 C3H LDA AT ELSE, 5330 10446 0 07 00740 SUB K104 IF AT = COM, GO TO C30 5331 10447 101040 SNZ