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

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

3201 05527 0 04 00571 V6A STA NAMF+1 3202 05530 0 10 02722 JST NF00 SET UP NAMF 3203 05531 0 10 12337 JST OI00 OUTPUT I/0 LINK 3204 05532 0 01 04266 JMP A1 GO TO C/R TEST 3205 05533 0 02 05540 V7 LDA K72 3206 05534 0 01 05527 JMP V6A 3207 05535 0 02 05541 V8 LDA K73 3208 05536 0 01 05527 JMP V6A 3209 05537 143316 K71 BCI 1,FN FN 3210 05540 142316 K72 BCI 1,DN 3211 05541 141316 K73 BCI 1,BN BN 3212 * 3213 * 3214 * ************** 3215 * *READ * 3216 * *WRITE * 3217 * *INPUT FORMAT* 3218 * ************** 3219 * LIST ELEMENT DATA AND IMPLIED DO CONTROL 3220 * STACKED IN TRIAD TABLE. PROCESSED BY 3221 * OUTPUT TRIAD ROUTINE, SPECIAL OPERATORS 3222 * ARE -I = DO INITIALIZATION 3223 * T = DO TERMINATION 3224 * Q = I/0 ARG TRANSFER 3225 05542 0 00 00000 T0V5 PZE ** 3226 05543 0 02 00710 V5 LDA K41 FSRN 3227 05544 0 04 00571 STA NAMF+1 3228 05545 0 10 02525 JST XN00 EXAM NEXT CHAR 3229 05546 100040 SZE 3230 05547 0 01 05554 JMP V5A GENERAL READ 3231 05550 0 02 05736 LDA V5K4 3232 05551 0 01 05754 JMP V10A CARD READ 3233 05552 0 02 00707 V4 LDA K40 NAWF = F$WN 3234 05553 0 04 00571 STA NAMF+1 3235 05554 0 10 02722 V5A JST NF00 SET UP REMAINING NAME 3236 05555 0 02 00057 LDA D 3237 05556 0 04 05732 STA V5T1 3238 05557 0 10 01256 JST CH00 INPUT CHARACTER 3239 05560 0 02 00702 LDA K17 ='250......( 3240 05561 0 10 02547 JST TS00 (-TEST 3241 05562 0 10 12337 JST OI00 OUTPUT I0 LINK 3242 05563 0 02 00607 LDA TC IF TC .NE. , 3243 05564 0 07 00752 SUB K134 ='17 (,) 3244 05565 100040 SZE G0 10 V5J 3245 05566 0 01 05726 JMP V5J 3246 05567 0 10 05740 JST V5X INPUT FORMAT 3247 05570 0 10 02555 V5B JST IP00 ) - INPUT OPERATOR 3248 05571 0 02 00607 LDA TC 3249 05572 0 07 00756 SUB CRET TEST FOR TC=C/R 3250 05573 100040 SZE