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

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

3351 05740 0 000000 V5X DAC ** INPUT FORMAT 3352 05741 0 10 02525 JST XN00 EXAM NEXT CHARACTER 3353 05742 100040 SZE 3354 05743 0 01 05750 JMP V5X5 GO TO INPUT ARRAY NAME 3355 05744 0 10 02443 JST IS00 INPUT STMNT NO. 3356 05745 0400 40 V5X2 LRL 32 OUTPUT DAC A 3357 05746 0 10 12467 JST OB00 OUTPUT 0A 3358 05747 -0 01 05740 JMP* V5X RETURN 3359 05750 0 10 02373 V5X5 JST NA00 INPUT NAME 3360 05751 0 10 02626 JST AT00 ARRAY TEST 3361 05752 0 01 05745 JMP V5X2 3362 * PRINT 3363 05753 0 02 05737 V10 LDA V5K5 PRINTER 3364 05754 0 04 00571 V10A STA NAMF+1 3365 05755 0 10 02722 JST NF00 SET UP REST 0F NAME 3366 05756 0 10 12363 JST CN00 CALL NAME 3367 05757 0 10 05740 JST V5X INPUT FORMAT 3368 05760 0 02 00607 LDA TC 3369 05761 0 07 00752 SUB K134 3370 05762 100040 SZE SKIP IF COMMA 3371 05763 0 01 05575 JMP V5B2 3372 05764 0 02 00057 LDA D 3373 05765 0 04 05732 STA V5T1 3374 05766 0 01 05604 JMP V5C5 3375 * 3376 * 3377 * ************************** 3378 * *FORMAT * 3379 * *INPUT FORMAT STRING * 3380 * *INPUT NUMERIC FORMAT STR* 3381 * *NON ZERO TEST STRING * 3382 * ************************** 3383 05767 0 00 00000 T0V2 PZE 0 3384 05770 0 00 00000 T2V2 PZE 0 3385 005767 V2T0 EQU T0V2 3386 005770 V2T2 EQU T2V2 3387 05771 0 02 00702 V2 LDA K17 3388 05772 0 10 12437 JST OK00 OUTPUT RACK 3389 05773 140040 CRA 3390 05774 0 04 05767 STA T0V2 TO = 0 3391 05775 0 02 00073 LDA LSTP IF LSTOP .NE. 0 3392 05776 100040 SZE 3393 05777 0 01 06126 JMP V2K GO TO V2K 3394 06000 0 10 06160 V2A JST SI00 INPUT FORMAT STRING 3395 06001 100040 SZE 3396 06002 0 01 06012 JMP V2B 3397 06003 0 02 00607 V2A1 LDA TC 3398 06004 0 07 00676 SUB K12 IF TC NOT MINUS 3399 06005 100040 SZE 3400 06006 0 01 06070 JMP V2F GO TO V2F