FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 75

2208 03353 0410 62 FA10 LLL 14 2209 03354 0 04 00000 STA 0 INDEX = GF(A) 2210 03355 1 02 17404 LDA DP+4,1 2211 03356 0 04 00072 STA X1 POINTER OF DIMENSION 1 2212 03357 1 02 17403 LDA DP+3,1 2213 03360 0 04 00073 STA X2 POINTER OF DIMENSION 2 2214 03361 1 02 17402 LDA DP+2,1 2215 03362 0 04 00074 STA X3 POINTER OF DIMENSION 3 2216 03363 1 02 17401 LDA DP+1,1 2217 03364 0 03 00670 ANA K111 ='37777 2218 03365 0 04 00025 STA AF AF = GF(GF(A)) 2219 03366 1 02 17400 LDA DP,1 2220 03367 0404 67 LGR 9 2221 03370 0 03 00743 ANA K107 =7 2222 03371 0 04 00076 STA ND NUMBER OF DIMENSIONS 2223 03372 0 04 00000 STA 0 2224 03373 0 02 00735 LDA K101 =1 2225 03374 0 04 00032 STA D2 2226 03375 0 04 00033 STA D3 2227 03376 -1 01 03422 JMP* FA91-1,1 2228 03377 0 35 00074 FA22 LDX X3 FETCH 3RD DIMENSION SIZE 2229 03400 0 10 03413 JST FA40 2230 03401 0 04 00033 STA D3 STORE D3 2231 03402 0 35 00073 FA24 LDX X2 2232 03403 0 10 03413 JST FA40 2233 03404 0 04 00032 STA D2 D2 = 2ND DIMENSION SIZE 2234 03405 0 35 00072 FA26 LDX X1 2235 03406 0 10 03413 JST FA40 2236 03407 0 04 00031 STA D1 D1 = 1ST DIMENSION SIZE 2237 03410 0 35 00625 LDX A EXIT WITH AF IN A 2238 03411 0 02 00025 LDA AF 2239 03412 -0 01 03317 JMP* FA00 2240 03413 0 000000 FA40 DAC ** 2241 03414 1 02 17400 LDA DP,1 IM OF SUBSCRIPT VALUE 2242 03415 140100 SSP 2243 03416 0404 64 LGR 12 2244 03417 0 07 00741 SUB K105 =5 2245 03420 100040 SZE SKIP IF DUMMY SUBSCRIPT 2246 03421 1 02 17404 LDA DP+4,1 FETCH VALUE OF SUBSCRIPT 2247 03422 -0 01 03413 JMP* FA40 2248 03423 0 003405 FA91 DAC FA26 2249 03424 0 003402 DAC FA24 2250 03425 0 003377 DAC FA22 2251 EJCT