FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 164

5332 10450 0 01 10530 JMP C3O 5333 10451 0 02 10404 C3H2 LDA T1C3 5334 10452 0 06 00025 ADD AF T(0) = AF +T (1) 5335 10453 0 04 10403 STA T0C3 5336 10454 0 02 10407 LDA T4C3 IF T(4) = 0, GO TO C3K 5337 10455 0 07 00740 SUB K104 5338 10456 100040 SZE 5339 10457 0 01 10467 JMP C3K 5340 10460 0 02 10406 LDA T3C3 ELSE, 5341 10461 0 07 10403 SUB T0C3 T(0) = T(3)-T(0) 5342 10462 0 04 10403 STA T0C3 5343 10463 101400 SMI 5344 10464 0 01 10467 JMP C3K IF T(0)<0, 5345 10465 0 10 02615 JST ER00 5346 10466 144703 BCI 1,IC IMPOSSIBLE COMMON EQUIVALENCING 5347 10467 0 02 10407 C3K LDA C3T4 5348 10470 000201 IAB AT (A) = COM 5349 10471 0 02 10403 LDA T0C3 5350 10472 0415 76 ALS 2 5351 10473 0404 76 LGR 2 5352 10474 0 10 03571 JST AF00 DEFINE AF 5353 10475 0 10 03426 JST FL00 FETCH LINK 5354 10476 0 10 10717 JST SAF 5355 10477 0 02 00625 LDA A 5356 10500 0 07 10405 SUB C3T2 IF A .NE. T (2) 5357 10501 100040 SZE GO TO C3G (5) 5358 10502 0 01 10441 JMP C3G 5359 * EXCHANGE CL(A) == CL(I) 5360 10503 0 10 07602 JST EL00 EXCHANGE LINKS (CL(A) WITH CL(F) ) 5361 10504 0 02 00067 C3M LDA TC IF TC = , 5362 10505 0 07 00754 SUB K134 5363 10506 101040 SNZ 5364 10507 0 01 10427 JMP C3D ELSE, 5365 10510 0 10 02360 JST IP00 )-INPUT OPERATOR 5366 10511 0 02 00067 LDA TC 5367 10512 0 07 00754 SUB K134 IF TC = , OR C/R 5368 10513 101040 SNZ GO TO C3B (1) 5369 10514 0 01 10416 JMP C3B 5370 10515 0 02 00067 LDA TC 5371 10516 0 07 00702 SUB CRET 5372 10517 101040 SNZ 5373 10520 0 01 10416 JMP C3B ELSE, 5374 10521 0 10 02615 JST ER00 5375 10522 142703 BCI 1,EC EQUIVALENCE GROUP NOT FOLLOWED BY , OR CR 5376 10523 0 02 10404 C3N LDA T1C3 IF T1 = O, GO TO C3M 5377 10524 101040 SNZ 5378 10525 0 01 10504 JMP C3M 5379 10526 0 10 02615 C3N5 JST ER00 ERROR IMPOSSIBLE GROUP 5380 10527 144705 BCI 1,IE IMPOSSIBLE EQUIVALENCE GROUPING 5381 10530 0 02 00064 C3O LDA S1