FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 124

3863 * 3864 * 3865 * ********** 3866 * *DO INPUT* 3867 * ********** 3868 * SET UP DO TABLE ENTRIES. 3869 06064 0 000000 DP00 DAC ** 3870 06065 0 02 00642 LDA D D = D+5 3871 06066 0 06 00741 ADD K105 IFLG = NON-ZERO 3872 06067 0 04 00077 STA IFLG 3873 06070 0 04 00642 STA D 3874 06071 0 06 00655 ADD DO I = DO+D 3875 06072 0 04 00626 STA I 3876 06073 0 35 00626 LDX I 3877 06074 0 02 00625 LDA A DP (I-4) = (B) 3878 06075 1 04 17376 STA DP-2,1 DP (I-2) = A 3879 06076 000201 IAB 3880 06077 1 04 17374 STA DP-4,1 3881 06100 0 10 02253 JST IV00 INPUT INT VAR/CON 3882 06101 0 02 00754 LDA K134 = , 3883 06102 0 10 02352 JST TS00 COMMA TEST 3884 06103 0 35 00626 LDX I 3885 06104 0 02 00625 LDA A 3886 06105 1 04 17400 STA DP,1 DP(I) = INITIAL VALUE POINTER 3887 06106 0 10 02253 JST IV00 INPUT INT VAR/CON 3888 06107 0 35 00626 LDX I 3889 06110 0 02 00625 LDA A 3890 06111 1 04 17377 STA DP-1,1 DP (I-1) = A - FINAL VALUE POINTER 3891 06112 0 02 00067 LDA TC 3892 06113 0 07 00754 SUB K134 = , 3893 06114 100040 SZE IF THIRD TERM 3894 06115 0 01 06125 JMP DP20 3895 06116 0 10 02253 JST IV00 READ AND ASSIGN, 3896 06117 0 35 00626 DP10 LDX I 3897 06120 0 02 00625 LDA A 3898 06121 1 04 17375 STA DP-3,1 DP(I-3) = INCREMENT POINTER 3899 06122 140040 CRA 3900 06123 0 04 00077 STA IFLG CLEAR IFLAG 3901 06124 -0 01 06064 JMP* DP00 EXIT 3902 06125 0 02 00735 DP20 LDA K101 3903 06126 0 04 00774 STA ID THIRD TERM = 1 3904 06127 0 10 03612 JST AI00 ASSIGN CONSTANT 3905 06130 0 01 06117 JMP DP10 3906 EJCT