FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 116

3563 * 3564 * 3565 * ******** 3566 * *RETURN* 3567 * ******** 3568 * OPTIMIZES EXIT CODING FOR FUNCTIONS TO MINIMIZE 3569 * FETCHES OF THE FUNCTION VALUE. 3570 05463 0 02 00632 R9 LDA SBF A = SBF. 3571 05464 0 04 00625 STA A IF ZERO, (O TO ERROR 3572 05465 100040 SZE 3573 05466 0 01 05471 JMP *+3 3574 05467 0 10 02615 JST ER00 3575 05470 151324 BCI 1,RT RETURN NOT ALLOWED IN MAIN PROGRAM 3576 05471 0 02 00631 LDA SFF ELSE, IF SFF = O, 3577 05472 101040 SNZ 3578 05473 0 01 05501 JMP R9C GO TO R9C 3579 05474 000201 IAB OUTPUT LOAD OF FUNCTION NAME 3580 05475 0 02 00643 LDA RPL SFF = RPL 3581 05476 0 04 00631 STA SFF 3582 05477 0 02 12427 LDA K152 OUTPUT ITEM (F,A) 3583 05500 0 10 12247 JST OM00 3584 05501 0400 40 R9C LRL 32 3585 05502 0 04 00625 STA A SET FOR OCTAL ADDRESS IN LISTING 3586 05503 0 04 00025 STA AF SET RELATIVE ADDRESS TO ZERO 3587 05504 0 02 13033 LDA K206 JUMP I, 0 3588 05505 0 10 13072 JST OR00 OUTPUT REL 3589 05506 0 01 03633 JMP B6 EXIT 3590 EJCT