FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 77

2274 * 2275 * 2276 * ******************* 2277 * *D0=WORDS FOR LINK* 2278 * ******************* 2279 * D = ITEM MODE SIZE TIMES THE TOTAL SIZE IF 2280 * THE ITEM IS AN ARRAY 2281 * 2282 03443 0 000000 KT00 DAC ** 2283 03444 0 02 00710 LDA IU IF IU NOT 'ARR' 2284 03445 0 07 00737 SUB K103 2285 03446 100040 SZE 2286 03447 -0 01 03443 JMP* KT00 RETURN 2287 03450 0 02 00030 LDA D0 2288 03451 000201 IAB D0 = DO * D1 * D2 * D3 2289 03452 0 02 00031 LDA D1 2290 03453 0 10 02462 JST IM00 MULTIPLY A BY B 2291 03454 000201 IAB 2292 03455 0 02 00032 LDA D2 2293 03456 0 10 02462 JST IM00 MULTIPLY A BY B 2294 03457 000201 IAB 2295 03460 0 02 00033 LDA D3 2296 03461 0 10 02462 JST IM00 MULTIPLY A BY B 2297 03462 0 04 00030 STA D0 2298 03463 -0 01 03443 JMP* KT00 RETURN 2299 EJCT