FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 78

2300 * 2301 * 2302 * 2303 * *********** 2304 * *DEFINE IM* 2305 * *********** 2306 * IM SUBA = IM (SET FROM A REG) 2307 * 2308 03464 0 000000 DM00 DAC ** 2309 03465 0 04 00706 STA IM IM = (A) 2310 03466 0 35 00625 LDX A ESTABLISH A 2311 03467 1 02 17400 LDA DP,1 2312 03470 0400 67 LRL 9 2313 03471 0404 75 LGR 3 IM(A) = IM 2314 03472 0414 75 LGL 3 2315 03473 0 06 00706 ADD IM 2316 03474 0410 67 LLL 9 2317 03475 1 04 17400 STA DP,1 2318 03476 -0 01 03464 JMP* DM00 2319 EJCT