FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 127

3973 * ************ 3974 * *EXPRESSION* 3975 * ************ 3976 * THE RESULTANT OUTPUT IS A BUILT UP AOIN 3977 * TABLE THAT IS FURTHER PROCESSED BY SCAN. 3978 06216 0 00 00000 T0EX PZE 0 3979 006216 EXT0 EQU T0EX 3980 06217 0 00 00000 T1EX PZE 0 3981 06220 0 00 00000 T2EX PZE 0 3982 06221 0 00 00000 T3EX PZE 0 3983 06222 0 00 00000 T5EX PZE 0 3984 06223 0 00 00000 EXT7 PZE 0 3985 06224 0 00 00000 T9EX PZE 0 3986 06225 0 000000 EX00 DAC ** 3987 06226 0 04 00045 STA F F = (A) 3988 06227 0 02 00625 LDA A SAVE POINTER TO FIRST VARIABLE 3989 06230 0 04 00646 STA TRFA FOR LATER POSSIBLE TRACING 3990 06231 0 02 00642 LDA D I = D+DO+1O 3991 06232 0 06 00655 ADD DO 3992 06233 0 06 00744 ADD K125 =8 3993 06234 0 04 00626 STA I 3994 06235 0 10 07106 JST EX99 DATA POOL CHECK 3995 06236 0 35 00626 LDX I 3996 06237 140040 CRA 3997 06240 0 04 06216 STA EXT0 TO = 0 3998 06241 0 04 00036 STA B B = 0 3999 06242 0 04 06223 STA EXT7 T7 = 0 4000 06243 0 06 14524 ADD EX92+12 4001 06244 0414 67 LGL 9 O(I-2) = '=' 4002 06245 1 04 17377 STA DP-1,1 O (I) = O 4003 06246 140401 CMA 4004 06247 0 04 00077 STA IFLG IFLG NOT 0 4005 06250 0 02 00113 LDA L0 4006 06251 1 04 17376 STA DP-2,1 O(I-2) = L0 4007 06252 0 35 00626 EX10 LDX I 4008 06253 140040 CRA 4009 06254 0 04 06217 STA T1EX T1 = 0 4010 06255 1 04 17400 STA DP,1 AOIN(I) = T(I) = 0 4011 06256 1 04 17401 STA DP+1,1 4012 06257 0 02 00706 LDA IM IF IM NOT ZERO, 4013 06260 100040 SZE 4014 06261 0 01 06477 JMP EX50 GO TO EX50 4015 06262 0 35 00762 LDX K130 -6 4016 * PERFORM TABLE SEARCH 4017 06263 0 02 00067 EX11 LDA TC GO TO ROUTINE ACCORDING 4018 06264 1 07 14502 SUB K17+6,1 TO TC. 4019 06265 101040 SNZ IF NO MATCH, ERROR 4020 06266 0 01 06276 JMP EXI1 4021 06267 0 12 00000 IRS 0 4022 06270 0 01 06263 JMP EX11