FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 144

4702 * 4703 * 4704 * ************* 4705 * *ENTER TRIAD* 4706 * ************* 4707 * STORE CURRENT TRIAD INTO THE NEXT TRIAD ENTRY 4708 * LOCATION. 4709 07470 0 000000 ET00 DAC ** 4710 07471 0 15 07511 STX ETXS SAVE INDEX 4711 07472 0 02 00627 LDA L 4712 07473 0 07 00737 SUB K103 =3 4713 07474 0 04 00627 STA L L=L-3 4714 07475 0 04 07512 STA ACCP SET ACCUM PTR TO LAST TRIAD ENTRY 4715 07476 0 04 00000 STA 0 J=L 4716 07477 0 02 00061 LDA P 4717 07500 1 04 17402 STA DP+2,1 P(J) = P 4718 07501 0 02 00057 LDA O1 4719 07502 1 04 17401 STA DP+1,1 O1(J) = O1 4720 07503 0 02 00060 LDA O2 4721 07504 1 04 17400 STA DP,1 O2(J) = O2 4722 07505 0 02 00000 LDA 0 4723 07506 0 04 00057 STA O1 O1=J 4724 07507 0 35 07511 LDX ETXS RESTORE INDEX 4725 07510 -0 01 07470 JMP* ET00 4726 07511 ETXS BSS 1 TEMP STORAGE FOR INDEX 4727 07512 0 000000 ACCP DAC ** ACCUM POINTER 4728 EJCT