FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 120

3738 05712 0 02 00710 W5N LDA IU 3739 05713 0 07 00736 SUB K102 IU MUST BE VAR/CON, 3740 05714 101040 SNZ ELSE, 3741 05715 0 01 05565 JMP W5B 3742 05716 0 10 02615 JST ER00 NAME NOT DEFINED BY AN ARITH.STMT. ERROR 3743 05717 043304 VFD 1,0,7,'306,8,'304 ASCII 'FD' WITH SIGN BIT + 3744 05720 0 01 05565 JMP W5B 3745 05721 0 02 00710 W5O LDA IU IF IU=VAR/CCN 3746 05722 0 07 00736 SUB K102 3747 05723 100040 SZE 3748 05724 0 01 05612 JMP W5H 3749 05725 0 02 00026 LDA AT AND AT = STR/REL 3750 05726 0 07 00737 SUB K103 A "STRING" REQ'D. 3751 05727 100040 SZE 3752 05730 0 01 05612 JMP W5H 3753 05731 0 02 00030 W5P LDA D0 IF D0 IS 4, THE 3754 05732 0 07 00740 SUB K104 CONSTANT IS COMPLEX, 3755 05733 100040 SZE OTHERWISE 3756 05734 0 01 05754 JMP W5Q GO TO W5Q 3757 05735 0 02 00025 LDA AF 3758 05736 0 10 13257 JST OS00 OUTPUT STRING 3759 05737 0 35 00625 LDX A 3760 05740 1 02 17402 LDA DP+2,1 OUTPUT 4 WORDS 3761 05741 0 10 06036 JST W5X OF CONSTANT 3762 05742 1 02 17403 LDA DP+3,1 3763 05743 0 10 06036 JST W5X 3764 05744 0 02 00054 LDA NT 3765 05745 101040 SNZ 3766 05746 0 01 05763 JMP W5S 3767 05747 0 02 00625 LDA A INCREMENT A 3768 05750 0 06 00741 ADD K105 3769 05751 0 04 00625 STA A 3770 05752 0 35 00625 LDX A 3771 05753 0 01 05763 JMP W5S 3772 05754 0 02 00025 W5Q LDA AF 3773 05755 0 10 13257 JST OS00 OUTPUT STRING 3774 05756 0 35 00625 LDX A 3775 05757 0 02 00030 LDA D0 IF DO=1, 3776 05760 0 07 00735 SUB K101 INDICATES INTEGER, OR LOGICAL 3777 05761 101040 SNZ 3778 05762 0 01 05773 JMP W5R GO TO W5R 3779 05763 1 02 17402 W5S LDA DP+2,1 OUTPUT TWO WORDS 3780 05764 0 10 06036 JST W5X FLOATING POINT CONSTANT 3781 05765 1 02 17403 LDA DP+3,1 3782 05766 0 10 06036 JST W5X 3783 05767 0 02 00030 LDA D0 IF DOUBLE PRECISION, 3784 05770 0 07 00737 SUB K103 3785 05771 100040 SZE 3786 05772 0 01 05612 JMP W5H 3787 05773 1 02 17404 W5R LDA DP+4,1 OUTPUT THE 3RD WORD