FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 109

3313 * 3314 * ************************** 3315 * *FORMAT * 3316 * *INPUT FORMAT STRING * 3317 * *INPUT NUMERIC FORMAT STR* 3318 * *NON ZERO TEST STRING * 3319 * ************************** 3320 05131 0 00 00000 T0V2 PZE 0 3321 05132 0 00 00000 T2V2 PZE 0 3322 005132 V2T2 EQU T2V2 3323 05133 0 02 14474 V2 LDA K17 3324 05134 0 10 11444 JST OK00 OUTPUT RACK 3325 05135 140040 CRA 3326 05136 0 04 05131 STA T0V2 T0 = 0 3327 05137 0 02 00653 LDA LSTP IF LSTOP .NE. 0 3328 05140 100040 SZE 3329 05141 0 01 05270 JMP V2K GO TO V2K 3330 05142 0 10 05320 V2A JST SI00 INPUT FORMAT STRING 3331 05143 100040 SZE 3332 05144 0 01 05154 JMP V2B 3333 05145 0 02 00067 V2A1 LDA TC 3334 05146 0 07 00716 SUB K12 IF TC NOT MINUS 3335 05147 100040 SZE 3336 05150 0 01 05232 JMP V2F GO TO V2F 3337 05151 0 10 05313 JST IN00 INPUT NUMERIC FORMAT STRING 3338 05152 140040 CRA 3339 05153 0 04 00774 STA TID TID = 0 3340 05154 0 02 00067 V2B LDA TC IF TC .NE. P 3341 05155 0 07 05364 SUB K46 3342 05156 100040 SZE 3343 05157 0 01 05261 JMP V2H GO TO V2H 3344 05160 0 10 05320 JST SI00 INPUT FORMAT STRING 3345 05161 100040 SZE 3346 05162 0 10 05305 JST NZ00 IF (A) .NE. 0 3347 05163 0 02 00067 V2C LDA TC 3348 05164 0 11 00763 CAS K52 IF TC = D,E,F, OR G 3349 05165 101000 NOP 3350 05166 0 01 05170 JMP *+2 3351 05167 0 01 05200 JMP V2DA 3352 05170 0 11 05367 CAS K53 3353 05171 0 01 05221 JMP V2E2 3354 05172 101000 NOP 3355 05173 0 10 05313 JST IN00 INPUT NUMERIC FORMAT STRING 3356 05174 0 10 05305 JST NZ00 NON-ZERO STRING TEST 3357 05175 0 02 00661 LDA K10 3358 05176 0 10 02352 JST TS00 PERIOD TEST 3359 05177 0 10 05313 JST IN00 INPUT NUMERIC FORMAT STRING 3360 05200 0 02 00067 V2DA LDA TC IF TC = ) 3361 05201 0 07 00657 SUB K4 3362 05202 100040 SZE