FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 142

4646 * IF THE CURRENT TRIAD (IN WORKING STORAGE) MATCHES 4647 * ANY TRIAD TABLE ENTRY, EXIT WITH THE 4648 * POINTER VALUE OF THE MATCHING ENTRY 4649 * (THIS ACCOMPLISHES ELIMINATIUN OF REDUNDANT 4650 * SUBEXPRESSION CALCULATIONS. 4651 07411 0 000000 ST00 DAC ** TRIAD SEARCH 4652 07412 0 02 00045 LDA F 4653 07413 0 06 00737 ADD K103 4654 07414 100040 SZE 4655 07415 0 01 07427 JMP ST10 GO TO ST10 4656 07416 0 02 00061 ST05 LDA P ELSE, IF P = X 4657 07417 0 07 00701 SUB K139 4658 07420 101040 SNZ 4659 07421 0 01 07334 JMP CA31 GO TO CA31 4660 07422 0 02 00057 LDA O1 ELSE, IF O1=ACCP 4661 07423 0 07 07512 SUB ACCP 4662 07424 101040 SNZ 4663 07425 0 01 07332 JMP CA30 GO TO CA30 4664 07426 -0 01 07411 JMP* ST00 ELSE, RETURN 4665 07427 0 35 00113 ST10 LDX L0 4666 07430 0 02 00000 ST20 LDA 0 4667 07431 0 07 00737 SUB K103 4668 07432 0 04 00000 STA 0 J = J-2 4669 07433 0 07 00627 SUB L IF J .LT. L 4670 07434 100400 SPL 4671 07435 0 01 07416 JMP ST05 GO TO ST05 4672 07436 0 02 00060 LDA O2 4673 07437 1 07 17400 SUB DP,1 IF O1/P/O2 .NE. O1/P/O2(J) 4674 07440 100040 SZE 4675 07441 0 01 07430 JMP ST20 GO TO ST20 4676 07442 1 02 17402 LDA DP+2,1 4677 07443 140100 SSP EXTRACT OFF STORE BIT 4678 07444 0 07 00061 SUB P 4679 07445 100040 SZE 4680 07446 0 01 07430 JMP ST20 4681 07447 0 02 00057 LDA O1 4682 07450 1 07 17401 SUB DP+1,1 4683 07451 100040 SZE 4684 07452 0 01 07430 JMP ST20 OI = 4685 07453 0 02 00000 LDA 0 4686 07454 0 04 00057 STA O1 4687 07455 0 01 07335 JMP CA32 GO TO CA32 4688 EJCT