FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 92

2667 04073 0 01 04075 JMP *+2 2668 04074 0 01 04100 JMP C8D2 TC = COMMA 2669 04075 0 07 00734 SUB K5 2670 04076 100040 SZE 2671 04077 0 01 04102 JMP C8E 2672 04100 0 02 04031 C8D2 LDA C8T1 GO TO C8C4, 2673 04101 0 01 04065 JMP C8C4 2674 04102 0 02 00067 C8E LDA TC ELSE, IF TC = '/' 2675 04103 0 07 00740 SUB K104 2676 04104 100040 SZE 2677 04105 0 07 00715 SUB FN90 2678 04106 101040 SNZ 2679 04107 0 01 04051 JMP C8B4 GO TO C8B4 2680 04110 0 02 00067 LDA TC 2681 04111 0 07 00733 SUB K18 IF NOT = , 2682 04112 100040 SZE 2683 04113 0 01 04040 JMP C8A GO TO C8A 2684 04114 0 10 01350 JST DN00 INPUT DNA 2685 04115 0 02 04153 LDA C8X9 RESTORE CC 2686 04116 0 04 00656 STA CC 2687 04117 0 02 00735 LDA K101 IPL 2688 04120 0 04 00705 STA ICSW ICSW = IPL 2689 04121 0 02 00067 LDA TC 2690 04122 0 07 00754 SUB K134 ='17 (FINISHED CODE FOR COMMA) 2691 04123 100040 SZE 2692 04124 0 01 04140 JMP C8G GO TO C8G 2693 04125 0 02 00736 LDA K102 ELSE, INPUT 2 CHARS 2694 04126 0 10 01253 JST IA00 2695 04127 0 02 01333 LDA IBUF IF (A) = 'DO' 2696 04130 0 07 14246 SUB KI9 2697 04131 101040 SNZ 2698 04132 0 01 04135 JMP *+3 2699 04133 0 10 02615 JST ER00 2700 04134 141715 BCI 1,CM COMMA OUTSIDE PARENTHESES, NOT IN DO STMNT. 2701 04135 0 02 00740 LDA K104 2702 04136 0 10 04272 JST NP00 FIRST NON-SPEC CHECK 2703 04137 0 01 04702 JMP C9 GO TO DO 2704 04140 0 02 04031 C8G LDA C8T1 1 IF NO ( TO LEFT OF EQUALS 2705 04141 100040 SZE 2706 04142 0 01 05452 JMP G2 ARITHMETIC ASSIGNMENT STATEMENT 2707 04143 0 10 02341 JST SY00 INPUT SYMBOL 2708 04144 0 02 04153 LDA C8X9 2709 04145 0 04 00656 STA CC RESTORE CC 2710 04146 0 02 00710 LDA IU IF IU = SUBR 2711 04147 0 07 00737 SUB K103 2712 04150 100040 SZE 2713 04151 0 01 05507 JMP G1 GO TO ARITH ST. FUNCT. 2714 04152 0 01 05452 JMP G2 OTHERWISE = ASSIGNMENT STATEMENT 2715 04153 0 00 00000 C8X9 PZE 0 2716 EJCT