FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 106

3172 * 3173 * 3174 * ************** 3175 * *READ * 3176 * *WRITE * 3177 * *INPUT FORMAT* 3178 * ************** 3179 * LIST ELEMENT DATA AND IMPLIED DO CONTROL 3180 * STACKED IN TRIAD TABLE. PROCESSED BY 3181 * OUTPUT TRIAD ROUTINE. SPECIAL OPERATORS 3182 * ARE -I = DO INITIALIZATION 3183 * T = DO TERMINATION 3184 * C = I/O ARG TRANSFER 3185 04733 153716 K40 BCI 1,WN 3186 04734 141702 K42 BCI 1,CB 3187 04735 0 02 02336 V5 LDA K41 F$RN 3188 04736 0 01 04740 JMP *+2 3189 04737 0 02 04733 V4 LDA K40 NAMF = F$WN 3190 04740 0 04 00052 STA NAMF+1 3191 04741 0 10 02501 JST NF00 SET UP REMAINING NAME 3192 04742 0 02 00642 LDA D 3193 04743 0 04 05115 STA V5T1 3194 04744 0 10 01157 JST CH00 INPUT CHAPACTER 3195 04745 0 02 14474 LDA K17 ='250......( 3196 04746 0 10 02352 JST TS00 (-TEST 3197 04747 0 10 11337 JST OI00 OUTPUT IO LINK 3198 04750 0 02 00067 LDA TC IF TC .NE. 0 3199 04751 0 07 00754 SUB K134 ='17 (,) 3200 04752 100040 SZE GO TO V5J 3201 04753 0 01 05112 JMP V5J 3202 04754 0 10 05116 JST V5X INPUT FORMAT 3203 04755 0 10 02360 V5B JST IP00 ) - INPUT OPERATOR 3204 04756 0 02 00067 LDA TC 3205 04757 0 07 00702 SUB CRET TEST FOR TC=C/R 3206 04760 100040 SZE 3207 04761 0 01 04770 JMP V5C NO, GO TO V5C 3208 04762 0 02 04734 V5B2 LDA K42 YES, NAMF = ND 3209 04763 0 04 00052 STA NAMF+1 3210 04764 0 10 11363 JST CN00 CALL NAME 3211 04765 0 02 05115 LDA V5T1 3212 04766 0 04 00642 STA D 3213 04767 0 01 03637 JMP A1 GO TO C/R TEST 3214 04770 0 10 01152 V5C JST UC00 3215 04771 140040 CRA 3216 04772 0 04 00707 STA IOF IOF = 0 3217 04773 0 10 02224 V5D JST II00 INPUT ITEM 3218 04774 100040 SZE 3219 04775 0 01 05012 JMP V5E IF (A) NOT 0, GO TO V5E 3220 04776 0 02 14474 LDA K17 3221 04777 0 10 02352 JST TS00 (-TEST