FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 102

3056 * ******************* 3057 * *INPUT BRANCH LIST* 3058 * ******************* 3059 * INPUT STATENENT NO. LISTS FOR GO TO PROCESSOR 3060 04606 0 000000 IB00 DAC ** 3061 04607 0 02 00113 LDA L0 3062 04610 0 07 00735 SUB K101 3063 04611 0 04 00626 STA I I = L0-1 3064 04612 0 10 01157 JST CH00 INPUT CHAR 3065 04613 0 02 14474 LDA K17 3066 04614 0 10 02352 JST TS00 3067 04615 0 10 02264 IB10 JST IS00 INPUT STMNT = 3068 04616 0 35 00626 LDX I 3069 04617 0 02 00625 LDA A 3070 04620 1 04 17400 STA DP,1 SET POINTER OF ST. NO. INTO TRIAD TABLE 3071 * AREA 3072 04621 0 02 00626 LDA I DP (J) = A 3073 04622 0 07 00735 SUB K101 3074 04623 0 04 00626 STA I I = I-1 3075 04624 0 02 00067 LDA TC IF TC = , GO TO IB10 3076 04625 0 07 00734 SUB K5 3077 04626 101040 SNZ 3078 04627 0 01 04615 JMP IB10 CONTINUE LOOP 3079 04630 140040 CRA 3080 04631 1 04 17377 STA DP-1,1 SET END FLAG INTO TABLE 3081 04632 0 10 02360 JST IP00 )- INPUT OPEN 3082 04633 -0 01 04606 JMP* IB00 EXIT 3083 04634 0 04 00000 K75 STA 0 3084 EJCT