C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 47

2199 03765 0 003746 FA91 DAC FA26 2200 03766 0 003742 DAC FA24 2201 03767 0 003736 DAC FA22 2202 * 2203 * 2204 * ************ 2205 * *FETCH LINK* 2206 * ************ 2207 * EXPAND LINK FIELD AND FETCH ASSIGNS FOR THE 2208 * LINKED ITEM 2209 * 2210 03770 0 000000 FL00 DAC ** 2211 03771 0 10 02672 JST STXA 2212 03772 1 02 15400 LDA DP,1 A = 5 * CL(A) 2213 03773 0 03 00735 ANA K118 2214 03774 0 04 00667 STA FLT1 2215 03775 0415 76 ALS 2 2216 03776 0 06 00667 ADD FLT1 (FLT1 ALSO USED BY ASSIGN SPEC) 2217 03777 0 04 00040 STA A 2218 04000 0 10 03656 JST FA00 FETCH ASSIGN 2219 04001 0 10 04005 JST KT00 D0 = = WDS /ITEM 2220 04002 0 02 00040 LDA A 2221 04003 0 07 00664 SUB F (A) = A-F 2222 04004 -0 01 03770 JMP* FL00 RETURN 2223 * 2224 * 2225 * ******************* 2226 * *D0=WORDS FOR LINK* 2227 * ******************* 2228 * D = ITEM MODE SIZE TIMES THE TOTAL SIZE IF 2229 * THE ITEM IS AN ARRAY 2230 * 2231 04005 0 000000 KT00 DAC ** 2232 04006 0 02 00655 LDA IU IF IU NOT 'ARR' 2233 04007 0 07 00721 SUB K103 2234 04010 100040 SZE 2235 04011 -0 01 04005 JMP* KT00 RETURN 2236 04012 0 02 00633 LDA D0 2237 04013 000201 IAB D0 = D0 * D1 * D2 * D3 2238 04014 0 02 00634 LDA D1 2239 04015 0 10 02703 JST IM00 MULTIPLY A BY B 2240 04016 000201 IAB 2241 04017 0 02 00635 LDA D2 2242 04020 0 10 02703 JST IM00 MULTIPLY A BY B 2243 04021 000201 IAB 2244 04022 0 02 00636 LDA D3 2245 04023 0 10 02703 JST IM00 MULTIPLY A BY B 2246 04024 0 04 00633 STA D0 2247 04025 -0 01 04005 JMP* KT00 RETURN 2248 *