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

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

3101 * ******************* 3102 * INPUT STATEMENT NO. LISTS FOR GO TO PROCESSOR 3103 05414 0 000000 IB00 DAC ** 3104 05415 0 02 00113 LDA L0 3105 05416 0 07 00717 SUB K101 3106 05417 0 04 00041 STA I I = L0-1 3107 05420 0 10 01256 JST CH00 INPUT CHAR 3108 05421 0 02 00702 LDA K17 3109 05422 0 10 02547 JST TS00 (- TEST 3110 05423 0 10 02443 IB10 JST IS00 INPUT STMNT = 3111 05424 0 10 02676 JST STXI 3112 05425 0 02 00040 LDA A 3113 05426 1 04 15400 STA DP,1 SET POINTER OF ST. N0. INTO TRIAD TABLE 3114 * AREA 3115 05427 0 02 00041 LDA I DP (J) = A 3116 05430 0 07 00717 SUB K101 3117 05431 0 04 00041 STA I I = I-1 3118 05432 0 02 00607 LDA TC IF TC = , GO TO IB10 3119 05433 0 07 00672 SUB K5 3120 05434 101040 SNZ 3121 05435 0 01 05423 JMP IB10 CONTINUE LOOP 3122 05436 140040 CRA 3123 05437 1 04 15377 STA DP-1,1 SET END FLAG INTO TABLE 3124 05440 0 10 02555 JST IP00 )- INPUT OPEN 3125 05441 -0 01 05414 JMP* IB00 EXIT 3126 05442 0 04 00000 K75 STA 0 3127 * 3128 * 3129 * ******** 3130 * *ASSIGN* 3131 * ******** 3132 * CHECK TO SEE THAT 'TO' IS INCLUDED PROPERLY 3133 05443 0 10 02443 W3 JST IS00 INPUT STMNT = 3134 05444 0 02 00040 LDA A 3135 05445 0 04 05506 STA T1W3 SAVE A 3136 05446 0 02 00607 LDA TC 3137 05447 0 07 00705 SUB K34 CHECK FOR T0 3138 05450 100040 SZE 3139 05451 0 01 05460 JMP W305 CLEAR A FOR OUTPUT REL 3140 05452 0 04 00040 STA A CAUSE OCTAL ADDRESS IN LIST 3141 05453 0 10 01256 JST CH00 INPUT CHAR 3142 05454 0 02 00607 LDA TC 3143 05455 0 07 00706 SUB K35 3144 05456 101040 SNZ 3145 05457 0 01 05462 JMP *+3 3146 05460 0 10 03116 W305 JST ER00 ERROR 3147 05461 152317 BCI 1,TO GO TO IN ASSIGN STATEMENT 3148 05462 0 02 00060 LDA RPL 3149 05463 0 06 00720 ADD K102 3150 05464 0 04 00630 STA AF OUTPUT REL LDA *+2