FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 110

3363 05203 0 01 05214 JMP V2E 3364 05204 0 10 01157 JST CH00 3365 05205 0 10 11444 JST OK00 INPUT CHAR AND OUTPUT PACK 3366 05206 0 02 05131 LDA T0V2 IF F4 + ( = ( 3367 05207 0 07 00735 SUB K101 GO TO V2E 3368 05210 0 04 05131 STA T0V2 3369 05211 100400 SPL 3370 05212 0 01 03637 JMP V2N ELSE, 3371 05213 0 01 05200 JMP V2DA 3372 * GO TO C/R TEST 3373 05214 0 02 00067 V2E LDA TC IF TC =, 3374 05215 0 07 00734 SUB K5 3375 05216 101040 SNZ 3376 05217 0 01 05142 JMP V2A GO TO V2A 3377 05220 0 02 00720 LDA K9 3378 05221 0 10 02352 V2E2 JST TS00 / TEST 3379 05222 0 01 05142 JMP V2A 3380 05223 0 10 05320 V2E5 JST SI00 INPUT FORMAT STRING 3381 05224 100040 SZE IF (A) NOT 0, 3382 05225 0 01 05154 JMP V2B GO TO V2B 3383 05226 0 02 00037 LDA DFL IF DFL .NE. ZERO, 3384 05227 100040 SZE 3385 05230 0 01 05200 JMP V2DA GO TO V2DA 3386 05231 0 01 05145 JMP V2A1 3387 05232 0 02 00067 V2F LDA TC IF TC = H 3388 05233 0 11 14501 CAS K48 3389 05234 0 01 05236 JMP *+2 3390 05235 0 01 05352 JMP V2P GO TO V2P 3391 05236 0 11 05365 CAS K47 3392 05237 0 01 05241 JMP *+2 3393 05240 0 01 05223 JMP V2E5 3394 05241 0 11 14474 CAS K17 IF TC = (, 3395 05242 0 01 05244 JMP *+2 3396 05243 0 01 05355 JMP V2Q GO TO V2Q 3397 05244 0 02 00067 LDA TC IF TC .NE. A,I, OR L 3398 05245 0 11 00755 CAS K49 A 3399 05246 0 01 05250 JMP *+2 3400 05247 0 01 05256 JMP V2G 3401 05250 0 11 00664 CAS K50 I 3402 05251 0 01 05253 JMP *+2 3403 05252 0 01 05256 JMP V2G 3404 05253 0 07 05366 SUB K51 L 3405 05254 100040 SZE 3406 05255 0 01 05163 JMP V2C 3407 05256 0 10 05313 V2G JST IN00 INPUT NUMERIC FORMAT STRING 3408 05257 0 10 05305 JST NZ00 NON-ZERO STRING TEST 3409 05260 0 01 05200 JMP V2DA 3410 05261 0 10 05305 V2H JST NZ00 NON-ZERO STRING TEST 3411 05262 0 02 00067 LDA TC IF TC = H, 3412 05263 0 07 14501 SUB K48