FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 140

4588 * 4589 07324 0 01 07355 JMP CA37 4590 07325 0 11 00736 CA26 CAS K102 4591 07326 0 01 07330 JMP *+2 IF P = - 4592 07327 0 01 07352 JMP CA35 GO TO 4593 07330 0 02 00057 CA28 LDA O1 4594 07331 0 10 07456 JST TC00 TEMP STORE CHECK 4595 07332 0 02 00060 CA30 LDA O2 4596 07333 0 10 07456 JST TC00 TEMP STORE CHECK 4597 07334 0 10 07470 CA31 JST ET00 ENTER TRIAD 4598 07335 0 35 00626 CA32 LDX I 4599 07336 0 02 00057 LDA O1 4600 07337 1 04 17400 STA DP,1 4601 07340 1 02 17401 LDA DP+1,1 4602 07341 0400 61 LRL 15 4603 07342 0 02 07121 LDA T0CA 4604 07343 0404 61 LGR 15 4605 07344 0410 61 LLL 15 4606 07345 1 04 17401 STA DP+1,1 4607 07346 0 02 07123 LDA T2CA IF T2 NOT ZERO, 4608 07347 100040 SZE 4609 07350 0 01 07130 JMP CA04 GO TO CA04 4610 07351 -0 01 07125 JMP* CA00 ELSE, RETURN 4611 07352 0 02 07121 CA35 LDA T0CA 4612 07353 0 05 13021 ERA OMI0 4613 07354 0 04 07121 STA T0CA 4614 07355 0 02 00060 CA37 LDA O2 4615 07356 0 13 00057 IMA O1 O1 = = O2 4616 07357 0 04 00060 STA O2 4617 07360 101040 SNZ IF O2 = 0, 4618 07361 0 01 07335 JMP CA32 GO TO CA32 4619 * 4620 * 4621 * 4622 07362 0 10 07411 JST ST00 TRIAD SEARCH 4623 07363 0 02 07121 LDA T0CA 4624 07364 101400 SMI 4625 07365 0 01 07330 JMP CA28 GO TO CA28 4626 07366 0 02 00061 LDA P 4627 07367 0 01 07325 JMP CA26 ELSE, GO TO CA26 4628 07370 0 07 00750 CA39 SUB K128 4629 07371 101040 SNZ IF P = , OR 4630 07372 0 01 07130 JMP CA04 4631 07373 0 02 07122 LDA T1CA 4632 07374 0 07 00740 SUB K104 4633 07375 100040 SZE ELSE, 4634 07376 0 01 07260 JMP CA18 GO TO CA18 4635 07377 0 01 07130 JMP CA04 4636 07400 0 02 07122 CA45 LDA T1CA 4637 07401 0 04 00626 STA I I = T1