FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 91

2617 * 2618 * **************** 2619 * *STATEMENT SCAN* 2620 * **************** 2621 * DETERMINE THE CLASS OF THE STATEMENT 2622 * IF AN = IS FOUND WITH A FOLLOWING , 2623 * THE STATEMENT IS A DO 2624 * IF NO FOLLOWING COMMA, THE PAREN FLAG 2625 * IS TESTED, IF NO PARENS, THE STATEMENT 2626 * IS ARITHMETIC ASSIGNMENT 2627 * IF PARENS WERE DETECTED AND THE FIRST 2628 * NAME IS AN ARRAY, THE STATEMENT IS 2629 * ARITHMETIC ASSIGNMENT 2630 * OTHERWISE, IT IS A STATEMENT FUNCTION 2631 * IF NO = IS FOUND THE STATEMENT IS 2632 * PROCESSED FURTHER IN STATEMENT ID 2633 04031 0 00 00000 C8T1 PZE 0 2634 04032 0 02 00656 C8 LDA CC SAVE CC 2635 04033 0 04 04153 STA C8X9 2636 04034 0 02 00735 LDA K101 2637 04035 0 04 04031 STA C8T1 T (1) = 1 2638 04036 140040 CRA 2639 04037 0 04 00705 STA ICSW ICSW = SIR 2640 04040 0 10 01157 C8A JST CH00 INPUT CHARACTER 2641 04041 0 02 00067 C8B LDA TC IF TC = ) 2642 04042 0 07 00657 SUB K4 2643 04043 100040 SZE 2644 04044 0 01 04056 JMP C8C 2645 04045 0 10 01157 JST CH00 INPUT CHAR 2646 04046 0 02 00037 C8B2 LDA DFL IF DFL NOT ZERO 2647 04047 100040 SZE 2648 04050 0 01 04041 JMP C8B GO TO C8B 2649 04051 0 02 04153 C8B4 LDA C8X9 RESTORE CC 2650 04052 0 04 00656 STA CC 2651 04053 0 02 00735 LDA K101 IPL 2652 04054 0 04 00705 STA ICSW ICSW = IPL 2653 04055 0 01 04157 JMP A9 GO TO STATEMENT ID 2654 04056 0 02 00067 C8C LDA TC IF TC NOT (, 2655 04057 0 07 14474 SUB K17 2656 04060 100040 SZE 2657 04061 0 01 04071 JMP C8D GO TO C8D 2658 04062 0 02 04031 LDA C8T1 T1 = T1 - 1 2659 04063 0 07 00735 SUB K101 2660 04064 0 04 04031 STA C8T1 2661 04065 100040 C8C4 SZE IF T1 = 0 2662 04066 0 01 04051 JMP C8B4 2663 04067 0 10 01350 JST DN00 INPUT DNA 2664 04070 0 01 04046 JMP C8B2 GO TO C8B2 2665 04071 0 02 00067 C8D LDA TC IF TC = , 2666 04072 0 11 00754 CAS K134 ='17 ('FINISHED' CODE FDR COMMA)