C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 99

4751 * ANY TRIAD TABLE ENTRY, EXIT WITH THE 4752 * POINTER VALUE OF THE MATCHING ENTRY 4753 * (THIS ACCOMPLISHES ELIMINATION OF REDUNDANT 4754 * SUBEXPRESSION CALCULATIONS. 4755 10335 0 000000 ST00 DAC ** TRIAD SEARCH 4756 10336 0 02 00664 LDA F 4757 10337 0 06 00721 ADD K103 4758 10340 100040 SZE 4759 10341 0 01 10353 JMP ST10 GO TO ST10 4760 10342 0 02 00600 ST05 LDA P ELSE, IF P = X 4761 10343 0 07 00755 SUB K139 4762 10344 101040 SNZ 4763 10345 0 01 10260 JMP CA31 GO TO CA31 4764 10346 0 02 00576 LDA O1 ELSE, IF 01=ACCP 4765 10347 0 07 10457 SUB ACCP 4766 10350 101040 SNZ 4767 10351 0 01 10256 JMP CA30 GO TO CA30 4768 10352 -0 01 10335 JMP* ST00 ELSE, RETURN 4769 10353 0 02 00113 ST10 LDA L0 4770 10354 0 04 00000 STA XR 4771 10355 0 02 00000 ST20 LDA XR 4772 10356 0 07 00721 SUB K103 4773 10357 0 04 00000 STA XR J = J-2 4774 10360 0 07 00044 SUB L IF J .LT. L 4775 10361 100400 SPL 4776 10362 0 01 10342 JMP ST05 GO TO ST05 4777 10363 0 02 00577 LDA O2 4778 10364 1 07 15400 SUB DP,1 IF O1/P/O2 .NE. O1/P/O2(J) 4779 10365 100040 SZE 4780 10366 0 01 10355 JMP ST20 GO TO ST20 4781 10367 1 02 15402 LDA DP+2,1 4782 10370 140100 SSP EXTRACT OFF STORE BIT 4783 10371 0 07 00600 SUB P 4784 10372 100040 SZE 4785 10373 0 01 10355 JMP ST20 4786 10374 0 02 00576 LDA O1 4787 10375 1 07 15401 SUB DP+1,1 4788 10376 100040 SZE 4789 10377 0 01 10355 JMP ST20 O1 = J 4790 10400 0 02 00000 LDA XR 4791 10401 0 04 00576 STA O1 4792 10402 0 10 02676 JST STXI ESTABLISH I 4793 10403 0 01 10261 JMP CA32 GO T0 CA32 4794 * IF J IS A REFERENCE TO A TRIAD , THE TEMP 4795 * STORE BIT 0F THE REFERENCED TRIAD IS SET.) 4796 10404 0 000000 TC00 DAC ** TEMP STORE CHECK 4797 10405 0 04 00000 STA XR 4798 10406 0 02 00054 LDA ABAR 4799 10407 0 07 00000 SUB XR 4800 10410 101400 SMI IS J .GR. ABAR