FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 128

4023 06271 0 35 00626 LDX I 4024 06272 0 02 01060 LDA LIBF SPECIAL LIBRARY FLAG 4025 06273 100400 SPL SKIP IF SPECIAL LIBRARY FLAG NOT SET 4026 06274 0 01 06447 JMP EX39 4027 06275 0 01 07100 JMP EX95 ERROR CONDITION 4028 06276 1 02 14510 EXI1 LDA EX91+6,1 4029 06277 0 04 00000 STA 0 4030 06300 1 01 00000 JMP 0,1 PROCESS LEADING OPERATOR 4031 * SPECIAL OPERATOR FLAG SET WHEN COMPILING THE FORTRAN 4032 * LIBRARY IN WHICH CASE THE OPERATIONS ( A= ) AND 4033 * ( =A ) ARE REQUIRED. THIS LOGIC MILL ALLON THESE 4034 * TO BE PPOCESSED WITHOUT GIVING AN ERROR MESSAGE IF THE 4035 * SPECIAL LIBRARY FLAG (LIBF) IS SET TO NON-ZERO. 4036 * 4037 06301 0 02 00036 EX12 LDA B TC = ( 4038 06302 0 06 00666 ADD K109 B = B+16 4039 06303 0 04 00036 STA B SXF = NON-ZERO 4040 06304 0 04 00633 STA SXF 4041 06305 0 10 02224 EX14 JST II00 INPUT ITEM 4042 06306 0 01 06252 JMP EX10 GO TO EX10 4043 06307 0 35 00626 EX16 LDX I TC = * 4044 06310 0 02 00067 LDA TC 4045 06311 0414 67 LGL 9 OI (I-2) = *, B+13 4046 06312 0 06 00036 ADD B 4047 06313 0 06 00751 ADD K129 4048 06314 1 05 17377 ERA DP-1,1 4049 06315 140100 SSP 4050 06316 101040 SNZ 4051 06317 0 01 06322 JMP *+3 4052 06320 0 10 02615 JST ER00 NO, CONSTR ERROR 4053 06321 150327 BCI 1,PW * NOT PRECEDED BY ANOTHER * 4054 06322 0 02 00666 LDA K109 (E = '20) 4055 06323 0414 67 LGL 9 4056 06324 1 13 17377 IMA DP-1,1 4057 06325 0 03 00673 ANA K118 ='777 4058 06326 141206 AOA 4059 06327 1 05 17377 ERA DP-1,1 CHANGE * TO ** 4060 06330 1 04 17377 STA DP-1,1 4061 06331 0 01 06305 JMP EX14 GO TO EX14 4062 06332 0 02 00736 EX18 LDA K102 =2 4063 06333 0 04 00067 STA TC SET TC TO 4064 06334 0 02 00744 LDA K125 =8 4065 06335 0 04 06217 STA T1EX T1 = 8 4066 06336 0 35 00626 LDX I 4067 06337 1 02 17377 LDA DP-1,1 4068 06340 0 03 00673 ANA K118 4069 06341 0 07 00036 SUB B 8 .GT. I (I-2) -B 4070 06342 0 07 06217 SUB T1EX 4071 06343 100400 SPL 4072 06344 0 01 06347 JMP *+3