FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 81

2389 * 2390 * 2391 * 2392 * 2393 * 2394 * ************ 2395 * *DEFINE AFT* 2396 * ************ 2397 * AT SUBA = AT (FROM B REG), THEN DEFINE AF 2398 * 2399 03571 0 000000 AF00 DAC ** 2400 03572 000201 IAB 2401 03573 0 35 00625 LDX A 2402 03574 0414 64 LGL 12 2403 03575 1 13 17400 IMA DP,1 2404 03576 0 03 00757 ANA B4F 2405 03577 1 06 17400 ADD DP,1 2406 03600 1 04 17400 STA DP,1 AT(A) = CONTENTS OF B INPUT 2407 03601 000201 IAB 2408 03602 0 10 03477 JST DA00 DEFINE AF 2409 03603 -0 01 03571 JMP* AF00 2410 EJCT