FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 69

2013 03112 0 01 03103 JMP AS18 2014 03113 0 10 03520 AS30 JST BUD BUILD ASSIGNMENT ENTRY 2015 03114 0 02 00054 LDA NT IF NT = 1 2016 03115 100040 SZE 2017 03116 0 01 03123 JMP AS32 OR IV = VAR, 2018 03117 0 02 00710 LDA IU 2019 03120 0 07 00736 SUB K102 2020 03121 100040 SZE 2021 03122 0 01 03145 JMP AS40 AMD 2022 03123 0 02 00706 AS32 LDA IM IF IM = CPX, 2023 03124 0 07 00741 SUB K105 2024 03125 100040 SZE 2025 03126 0 01 03145 JMP AS40 2026 03127 0 04 00710 STA IU MOVE IST PART OF 2027 03130 0 02 03271 LDA TIDB COMPLEX ENTRY TO 2028 03131 0 04 00774 STA TID TID AND BUILD 2029 03132 0 02 03272 LDA TIDB+1 ASSIGNMENT ENTRY 2030 03133 0 04 00775 STA TID+1 2031 03134 0 02 03273 LDA TIDB+2 2032 03135 0 04 00776 STA TID+2 2033 03136 0 02 00625 LDA A 2034 03137 0 06 00741 ADD K105 2035 03140 0 04 00625 STA A 2036 03141 0 10 03520 JST BUD 2037 03142 0 02 00625 LDA A 2038 03143 0 07 00741 SUB K105 RESTORE A 2039 03144 0 04 00625 STA A 2040 03145 0 02 00637 AS40 LDA ABAR 2041 03146 0 07 00625 SUB A T0 = -(ABAR-A+5) 2042 03147 0 06 00741 ADD K105 GIVING NO. OF WORDS TO MOVE TABLES UP 2043 03150 140407 TCA 2044 03151 0 04 02761 STA T0AS 2045 03152 140407 TCA 2046 03153 0 06 00655 ADD DO CO=DO+T0 2047 03154 0 04 00655 STA DO 2048 03155 0 02 00077 LDA IFLG IF IFLG = 0, THERE IS NO EXPRESSION TABLE 2049 03156 101040 SNZ 2050 03157 0 01 03215 JMP AS60 GO TO AS60 2051 03160 0 02 00626 LDA I 2052 03161 0 07 02761 SUB T0AS 2053 03162 0 04 00626 STA I I = I - T0(T0 IS NEGATIVE) 2054 03163 141206 AOA 2055 03164 0 11 00627 AS41 CAS L CHECK AGAINST BOTTOM OF TRIAD TABLE 2056 03165 101000 NOP 2057 03166 0 01 03213 JMP AS50 2058 03167 0 06 00104 ADD '104 =DP,1 2059 03170 0 04 03220 STA AS91 AS91 = NEW TABLE TOP 2060 03171 0 06 02761 ADD T0AS 2061 03172 0 04 03221 STA AS92 AS92 2062 03173 0 07 02761 SUB T0AS COMPUTE SIZE OF FLOATING TABLES