Previous File Previous Page Single Page Next Page Next File

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 72

3401 06007 0 10 06153 JST IN00 INPUT NUMERIC FORMAT STRING 3402 06010 140040 CRA 3403 06011 0 04 01475 STA TID TID = 0 3404 06012 0 02 00607 V2B LDA TC IF TC .NE. P 3405 06013 0 07 06224 SUB K46 3406 06014 100040 SZE 3407 06015 0 01 06117 JMP V2H GO TO V2H 3408 06016 0 10 06160 JST SI00 INPUT FORMAT STRING 3409 06017 100040 SZE 3410 06020 0 10 06145 JST NZ00 IF (A) .NE. 0 3411 06021 0 02 00607 V2C LDA TC 3412 06022 0 11 02543 CAS K52 IF TC = D,E,F, OR G 3413 06023 101000 NOP 3414 06024 0 01 06026 JMP *+2 3415 06025 0 01 06036 JMP V2DA 3416 06026 0 11 06230 CAS K53 3417 06027 0 01 06057 JMP V2E5-2 3418 06030 101000 NOP 3419 06031 0 10 06153 JST IN00 INPUT NUMERIC FORMAT STRING 3420 06032 0 10 06145 JST NZ00 NON-ZERO STRING TEST 3421 06033 0 02 00675 LDA K10 3422 06034 0 10 02547 JST TS00 PERIOD TEST 3423 06035 0 10 06153 V2D JST IN00 INPUT NUMERIC FORMAT STRING 3424 06036 0 02 00607 V2DA LDA TC IF TC = ) 3425 06037 0 07 00671 SUB K4 3426 06040 100040 SZE 3427 06041 0 01 06052 JMP V2E 3428 06042 0 10 01256 JST CH00 3429 06043 0 10 12437 JST OK00 INPUT CHAR AND OUTPUT PACK 3430 06044 0 02 05767 LDA T0V2 IF F4 + ( Z ( 3431 06045 0 07 00717 SUB K101 GO TO V2E 3432 06046 0 04 05767 STA T0V2 3433 06047 100400 SPL 3434 06050 0 01 04266 JMP V2N ELSE, 3435 06051 0 01 06036 JMP V2DA 3436 * GO TO C/R TEST 3437 06052 0 02 00607 V2E LDA TC IF TC =, 3438 06053 0 07 00672 SUB K5 3439 06054 101040 SNZ 3440 06055 0 01 06000 JMP V2A GO TO V2A 3441 06056 0 02 00674 LDA K9 3442 06057 0 10 02547 JST TS00 / TEST 3443 06060 0 01 06000 JMP V2A 3444 06061 0 10 06160 V2E5 JST SI00 INPUT FORMAT STRING 3445 06062 100040 SZE IF (A) NOT 0, 3446 06063 0 01 06012 JMP V2B GO TO V2B 3447 06064 0 02 00643 LDA DFL IF DFL .NE. ZERO, 3448 06065 100040 SZE 3449 06066 0 01 06036 JMP V2DA GO TO V2DA 3450 06067 0 01 06003 JMP V2A1
Previous File Previous Page Single Page Next Page Next File