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

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

4801 10411 -0 01 10404 JMP* TC00 NO. 4802 10412 1 02 15402 LDA DP+2,1 YES. 4803 10413 140500 SSM 4804 10414 1 04 15402 STA DP+2,1 S(J) = 1 4805 10415 -0 01 10404 JMP* TC00 4806 10416 000001 CA90 OCT 1,2,11,10,13,14,12,15 10417 000002 10420 000011 10421 000010 10422 000013 10423 000014 10424 000012 10425 000015 4807 10426 000002 CA91 OCT 2,1,13,14,11,10,12,15 10427 000001 10430 000013 10431 000014 10432 000011 10433 000010 10434 000012 10435 000015 4808 * 4809 * 4810 * ************* 4811 * *ENTER TRIAD* 4812 * ************* 4813 * STORE CURRENT TRIAD INTO THE NEXT TRIAD ENTRY 4814 * LOCATION. 4815 10436 0 000000 ET00 DAC ** 4816 10437 0 10 03007 JST SAV 4817 10440 0 02 00044 LDA L 4818 10441 0 07 00721 SUB K103 =3 4819 10442 0 04 00044 STA L L=L-3 4820 10443 0 04 10457 STA ACCP SET ACCUM PTR TO LAST TRIAD ENTRY 4821 10444 0 04 00000 STA 0 J=L 4822 10445 0 02 00600 LDA P 4823 10446 1 04 15402 STA DP+2,1 P(J) = P 4824 10447 0 02 00576 LDA O1 4825 10450 1 04 15401 STA DP+1,1 O1(J) = O1 4826 10451 0 02 00577 LDA O2 4827 10452 1 04 15400 STA DP,1 O2(J) = O2 4828 10453 0 02 00000 LDA 0 4829 10454 0 04 00576 STA O1 O1=J 4830 10455 0 10 03016 JST RST 4831 10456 -0 01 10436 JMP* ET00 4832 10457 0 000000 ACCP DAC ** ACCUM POINTER 4833 * 4834 * 4835 10460 SFTB BSS 36 SUBFUNCTION TABLE 4836 * **************************