FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 104

3128 * 3129 * 3130 * ************************ 3131 * *DO STATEMENT PROCESSOR* 3132 * ************************ 3133 * STACK INFO IN DO TABLE, OUTPUT DO INITIAL 3134 * CODE 3135 04701 0 00 00000 C9T0 PZE ** 3136 04702 0 10 02264 C9 JST IS00 INPUT STATEMENT = 3137 04703 0 10 02372 JST NR00 NON-REL TEST 3138 04704 0 02 00625 LDA A 3139 04705 0 04 04701 STA C9T0 TO = A 3140 04706 0 10 01152 JST UC00 UNINPUT COLUMN 3141 04707 0 10 02260 JST IR00 3142 04710 0 02 00753 LDA K153 3143 04711 0 10 02352 JST TS00 3144 04712 0 02 04701 LDA C9T0 (A) = T0 3145 04713 000201 IAB 3146 04714 0 10 06064 JST DP00 DO INPUT 3147 04715 0 10 06131 JST DS00 DO INITIALIZE 3148 04716 0 01 03635 JMP C5 GO TO ILLTERM 3149 EJCT