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

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

2249 * 2250 * 2251 * *********** 2252 * *DEFINE IM* 2253 * *********** 2254 * IM SUBA = IM (SET FROM A REG) 2255 * 2256 04026 0 000000 DM00 DAC ** 2257 04027 0 04 00653 STA IM IM = (A) 2258 04030 0 10 02672 JST STXA ESTABLISH A 2259 04031 1 02 15400 LDA DP,1 2260 04032 0400 67 LRL 9 2261 04033 0404 75 LGR 3 IM(A) = IM 2262 04034 0414 75 LGL 3 2263 04035 0 06 00653 ADD IM 2264 04036 0410 67 LLL 9 2265 04037 1 04 15400 STA DP,1 2266 04040 -0 01 04026 JMP* DM00 2267 * 2268 * 2269 * *********** 2270 * *DEFINE AF* 2271 * *********** 2272 * AF SUBA = AF (SET FROM A REG) 2273 * 2274 04041 0 000000 DA00 DAC ** 2275 04042 0 04 00630 STA AF AF = (A) 2276 04043 0400 62 LRL 14 2277 04044 0 10 02672 JST STXA 2278 04045 1 02 15401 DA10 LDA DP+1,1 IF IU (A) NOT ARR 2279 04046 0404 62 LGR 14 2280 04047 0 11 00721 CAS K103 GF (A) : AF 2281 04050 0 01 04052 JMP *+2 2282 04051 0 01 04055 JMP DA20 ELSE, GF (GF (A)) = AF 2283 04052 0410 62 LLL 14 2284 04053 1 04 15401 STA DP+1,1 2285 04054 -0 01 04041 JMP* DA00 RETURN 2286 04055 1 02 15401 DA20 LDA DP+1,1 2287 04056 0 03 00730 ANA K111 2288 04057 0 04 00650 STA GFA 2289 04060 0 04 00000 STA 0 2290 04061 0 01 04045 JMP DA10 2291 04062 0 000000 NXT DAC ** GET NEXT ENTRY 2292 04063 0 02 00040 LDA A FROM ASSIGNMENT 2293 04064 0 06 00723 ADD K105 =5 2294 04065 0 04 00040 STA A 2295 04066 0 04 00000 STA 0 2296 04067 0 11 00054 CAS ABAR 2297 04070 -0 01 04062 JMP* NXT 2298 04071 101000 NOP