FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 74

2158 * 2159 * 2160 * 2161 * 2162 * 2163 * ************** 2164 * *FETCH ASSIGN* 2165 * ************** 2166 * SET ASSIGNMENT DATA FROM ASSIGN (EXCEPT ID) 2167 * EXPAND DIMENSION INFO IF ARRAY 2168 * 2169 * 2170 * 2171 03310 000001 KM92 DEC 1 001 = INT 2172 03311 000002 DEC 2 010 = REA 2173 03312 000001 DEC 1 011 = LOG 2174 03313 000000 ZERO DEC 0 - - 2175 03314 000004 DEC 4 101 = CPX 2176 03315 000003 DEC 3 110 = DBL 2177 03316 000003 DEC 3 111 = HOL 2178 * 2179 * 2180 03317 0 000000 FA00 DAC ** 2181 03320 0 35 00625 LDX A 2182 03321 1 02 17400 LDA DP,1 2183 03322 0400 61 LRL 15 2184 03323 0 04 00054 STA NT NT=NT(A) 2185 03324 140040 CRA 2186 03325 0410 75 LLL 3 2187 03326 0 04 00026 STA AT AT=AT(A) 2188 03327 140040 CRA 2189 03330 0410 75 LLL 3 IM = IM(A) 2190 03331 0 04 00706 STA IM 2191 03332 0 04 00000 STA 0 2192 03333 1 02 03307 LDA KM92-1,1 2193 03334 0 04 00030 STA D0 D0 = NUMBER OF WORDS 2194 03335 0415 76 ALS 2 2195 03336 0 06 00030 ADD D0 2196 03337 0 04 00071 STA X X = POINTER TO CONSTANT NUMBER OF WORDS 2197 03340 0 35 00625 LDX A 2198 03341 1 02 17401 LDA DP+1,1 2199 03342 0400 62 LRL 14 2200 03343 0 04 00710 STA IU 2201 03344 0 07 00737 SUB K103 IF IU NOT 'ARR' 2202 03345 101040 SNZ 2203 03346 0 01 03353 JMP FA10 2204 03347 140040 CRA 2205 03350 0410 62 LLL 14 AF = GF(A) 2206 03351 0 04 00025 STA AF 2207 03352 -0 01 03317 JMP* FA00