FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 160

5152 * 5153 * 5154 * ******** 5155 * *COMMON* 5156 * ******** 5157 * INPUT BLOCK NAMES AND LINK THEM WITH THE 5158 * FOLLOWING VAR/ARRAY NAMES. BLOCK NAMES 5159 * ARE LINKED TOGETHER THROUGH THEIR GENERAL FIELDS 5160 10233 0 02 00765 B4 LDA K81 5161 10234 0 04 00774 STA ID 5162 10235 0 04 00775 STA ID+1 5163 10236 0 04 00776 STA ID+2 5164 10237 0 02 10303 LDA B4Z9 SET SWITCH IN INPUT DIMENSION 5165 10240 0 04 04155 STA A9T2 5166 10241 0 10 01157 JST CH00 INPUT CHAR 5167 10242 0 07 00720 SUB K9 IF NOT SLASH 5168 10243 100040 SZE GO TO 5169 10244 0 01 10301 JMP B4E 5170 10245 0 10 01350 B40 JST DN00 INPUT DNA 5171 10246 0 02 00740 LDA K104 SLASH TEST 5172 10247 0 10 02352 JST TS00 5173 10250 0400 40 B4B LRL 32 5174 10251 0 02 00735 LDA K101 (A) = SUB, (B) = O 5175 10252 0 10 03623 JST AA00 ASSIGN SPECIAL 5176 10253 0 02 00625 LDA A 5177 10254 0 04 00045 STA F 5178 10255 0 10 03426 JST FL00 FETCH LINK 5179 10256 100040 SZE 5180 10257 0 01 10270 JMP B4D 5181 10260 0 35 00641 LDX CFL 5182 10261 1 02 17401 LDA DP+1,1 GF(CFL) 5183 10262 0 35 00625 LDX A 5184 10263 1 04 17401 STA DP+1,1 GF(A) = GF(CFL) 5185 10264 0 35 00641 LDX CFL 5186 10265 0 02 00625 LDA A 5187 10266 0 06 00675 ADD K122 ='040000 5188 10267 1 04 17401 STA DP+1,1 GF(CFL) = A 5189 10270 0 10 02242 B4D JST NA00 INPUT NAME 5190 10271 0 10 07634 JST ND00 NON DUMMY/SUBPROG TEST 5191 10272 0 10 07625 JST NM00 NON-COMMON TEST 5192 10273 0 10 07602 JST EL00 EXCHANGE LINKS 5193 10274 1 02 17400 LDA DP,1 5194 10275 0 03 00757 ANA B4F ='107777 5195 10276 0 06 00675 ADD K122 AT(A) = COM (='040000) 5196 10277 1 04 17400 STA DP,1 5197 10300 0 01 10226 JMP B7 5198 10301 0 10 01152 B4E JST UC00 UNINPUT COLUMN 5199 10302 0 01 10250 JMP B4B 5200 10303 0 010270 B4Z9 DAC B4D GO TO INPUT DIMENSION 5201 *