FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 100

2998 * 2999 * ******* 3000 * *GO TO* 3001 * ******* 3002 * CHECK FOR NORMAL (R740), COMPUTED (R710) OR 3003 * ASSIGNED (R730). INPUT BRANCH LIST USED BY BOTH 3004 * R710 AND R730 FOR STATEMENT NO. LIST. 3005 * 3006 * 3007 04526 0 10 02346 R7 JST XN00 EXAMINE NEXT CHAR 3008 04527 100040 SZE 3009 04530 0 01 04535 JMP R7B GO TO TEST DFL 3010 04531 0 10 02264 JST IS00 INPUT STMNT = 3011 04532 0 02 00625 LDA A (GO TO 20) 3012 04533 0 04 00636 R7B1 STA IFF IFF = A 3013 04534 0 01 03633 JMP B6 CHECK NO PATH, INPUT NEXT STATEMENT 3014 04535 0 02 00037 R7B LDA DFL 3015 04536 100040 SZE 3016 04537 0 01 04550 JMP R7D 3017 04540 0 10 02260 JST IR00 GO TO I (10, 20, 30) 3018 04541 0400 40 LRL 32 3019 04542 0 02 13033 LDA K206 OUTPUT JMP* INSTRUCTION 3020 04543 0 10 11471 JST OB00 OUTPUT OA 3021 04544 0 02 00754 LDA K134 3022 04545 0 10 02352 JST TS00 , TEST 3023 04546 0 10 04606 JST IB00 INPUT BRANCH LIST 3024 04547 0 01 03633 JMP B6 GO TO JUMP 3025 04550 0 10 04606 R7D JST IB00 INPUT BRANCH LIST GO TO (10,11,12), I 3026 04551 0 02 00754 LDA K134 3027 04552 0 10 02352 JST TS00 , TEST 3028 04553 0 10 02260 JST IR00 INPUT INT VAR 3029 04554 0400 40 LRL 32 3030 04555 0 02 13030 LDA K200 OUTPUT LDA 3031 04556 0 10 11471 JST OB00 OUTPUT OA 3032 04557 140040 CRA 3033 04560 0 04 00625 STA A 3034 04561 0 04 00025 STA AF CAUSE OCTAL ADDRESS IN LISTING 3035 04562 0 02 04634 LDA K75 3036 04563 0 10 13235 JST OQ00 OUTPUT ABS (STA O) 3037 04564 0 02 00643 LDA RPL 3038 04565 0 04 00025 STA AF CAUSE RPL TO BE IN LISTING 3039 04566 0 02 13046 LDA K207 3040 04567 0 10 13072 JST OR00 OUTPUT RELATIVE (JMD RPL,1) 3041 04570 0 02 00113 LDA L0 3042 04571 0 07 00735 R7F SUB K101 3043 04572 0 04 00626 STA I I = L (0) 3044 04573 0 35 00626 LDX I 3045 04574 1 02 17400 LDA DP,1 3046 04575 0 04 00625 STA A 3047 04576 0 35 00625 LDX A