FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 118

3638 * *************** 3639 * *END PROCESSOR* 3640 * *************** 3641 * FIRST CHECK SUBPROGRAMS FOR CORRECT USAGE, THEN 3642 * GENERATE MAP AND STRING BACK VARIABLES 3643 * AND CONSTANTS. 3644 05555 0 00 00000 T1W5 PZE 3645 05556 0 02 00644 W5 LDA BDF IF BLOCK DATA, 3646 05557 100040 SZE 3647 05560 0 01 05672 JMP W5K GO TO W5K 3648 05561 0 02 00632 LDA SBF IF SBF NOT ZERO 3649 05562 0 04 00625 STA A INDICATES SUBROUTINES 3650 05563 100040 SZE OR FUNCTION, 3651 05564 0 01 05700 JMP W5M GO TO W5M 3652 05565 140040 W5B CRA 3653 05566 0 04 00625 STA A A=J=0 3654 05567 0 01 05612 JMP W5H 3655 05570 0 10 03317 W5D JST FA00 FETCH ASSIGNS 3656 05571 0 35 00625 LDX A 3657 05572 0 02 00054 LDA NT 3658 05573 100040 SZE IF NT=1 (CONSTANT) 3659 05574 0 01 05721 JMP W5O GO T0 W5O 3660 05575 0 02 00710 LDA IU 3661 05576 0 07 00735 SUB K101 IF IU=1 3662 05577 100040 SZE INDICATES VARIABLE, 3663 05600 0 01 05776 JMP W5T GO TO W5T 3664 05601 0 02 00643 W5F LDA RPL SAVE RPL 3665 05602 0 04 05555 STA T1W5 RPL=-AF (INHIBIT LISTING) 3666 05603 0 02 00025 LDA AF 3667 05604 140500 SSM 3668 05605 0 04 00643 STA RPL 3669 05606 140040 CRA 3670 05607 0 10 13072 JST OR00 OUTPUT REL 3671 05610 0 02 05555 LDA T1W5 RESTORE RPL 3672 05611 0 04 00643 STA RPL 3673 005612 W5H EQU * 3674 05612 0 02 01060 LDA LIBF CHECK IF DIAGNOSTIC DUMPS REQUESTED 3675 05613 0416 75 ALR 3 MOVE BIT 4 TO SIGN BIT 3676 05614 101400 SMI 3677 05615 0 01 05645 JMP W5I IF NOT. OMIT TABLE OUTPUT 3678 05616 0 10 13321 JST PRSP 3679 05617 0 02 00625 LDA A 3680 05620 0 10 13272 JST OR80 3681 05621 0 013746 DAC PRI+2 3682 05622 0 35 00625 LDX A 3683 05623 1 02 17404 LDA DP+4,1 3684 05624 0 10 13272 JST OR80 3685 05625 0 013753 DAC PRI+7 3686 05626 1 02 17403 LDA DP+3,1 3687 05627 0 10 13272 JST OR80