FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 79

2320 * 2321 * 2322 * *********** 2323 * *DEFINE AF* 2324 * *********** 2325 * AF SUBA = AF (SET FROM A REG) 2326 * 2327 03477 0 000000 DA00 DAC ** 2328 03500 0 04 00025 STA AF AF = (A) 2329 03501 0400 62 LRL 14 2330 03502 0 35 00625 LDX A 2331 03503 1 02 17401 DA10 LDA DP+1,1 IF IU (A) NOT ARR 2332 03504 0404 62 LGR 14 2333 03505 0 11 00737 CAS K103 GF (A) = AF 2334 03506 0 01 03510 JMP *+2 2335 03507 0 01 03513 JMP DA20 ELSE, GF (GF (A)) = AF 2336 03510 0410 62 LLL 14 2337 03511 1 04 17401 STA DP+1,1 2338 03512 -0 01 03477 JMP* DA00 RETURN 2339 03513 1 02 17401 DA20 LDA DP+1,1 2340 03514 0 03 00670 ANA K111 2341 03515 0 04 00704 STA GFA 2342 03516 0 04 00000 STA 0 2343 03517 0 01 03503 JMP DA10 2344 EJCT