FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 121

3788 05774 0 10 06036 JST W5X 3789 05775 0 01 05612 JMP W5H GO TO W5H 3790 05776 0 02 00026 W5T LDA AT 3791 05777 0 11 00737 CAS K103 3792 06000 0 01 05601 JMP W5F STRUNG VARIABLE (IU=NON 0) 3793 06001 0 01 06013 JMP W5T5 3794 06002 0 11 00736 CAS K102 TEST FOR STG ABS ADDRESS 3795 06003 017400 W5U OCT 17400 3796 06004 0 01 06006 JMP *+2 3797 06005 0 01 05601 JMP W5F NO 3798 06006 1 02 17404 LDA DP+4,1 TEST FOR PREFIX G 3799 06007 0 03 06003 ANA W5U 3800 06010 0 07 06003 SUB W5U 3801 06011 100040 SZE 3802 06012 0 01 05601 JMP W5F STRUNG VARIABLE (IU=NON 0) 3803 06013 0 02 00710 W5T5 LDA IU 3804 06014 100040 SZE 3805 06015 0 01 05731 JMP W5P 3806 06016 0 10 13321 JST PRSP BLANK OUT BUFFER 3807 06017 0 35 00625 LDX A ASSIGNMENT POINTER TO PRESENT ITEM 3808 06020 1 02 17404 LDA DP+4,1 FIRST WORD OF UNDEFINFD STATEMENT NAME 3809 06021 0 03 00670 ANA K111 RESET FIRST TWO BITS USED AS FLAGS 3810 06022 0 05 00703 ERA HBIT X 3811 06023 0 04 13753 STA PRI+7 SAVE IN PRINT BUFFER 3812 06024 1 02 17403 LDA DP+3,1 FETCH AND SAVE NEXT TWO CHARACTERS 3813 06025 0 04 13754 STA PRI+8 X 3814 06026 1 02 17402 LDA DP+2,1 FETCH AND SAVE LAST TWO CHARACTERS 3815 06027 0 04 13755 STA PRI+9 X 3816 06030 0 02 06033 LDA SUED SET ERROR SUBROUTINE FOR A RETURN 3817 06031 0 04 02615 STA ER00 X 3818 06032 0 01 02617 JMP ER04 ENTER IT AFTER BUFFER IS BLANKED 3819 06033 0 006034 SUED DAC SUID STATEMENT UNDEFINED ERROR DAC 3820 06034 052723 SUID VFD 1,0,7,'325,8,'323 ASCII 'US' WITH SIGN BIT + 3821 06035 0 01 05731 JMP W5P 3822 06036 0 000000 W5X DAC ** 3823 06037 0 10 13243 JST OC00 OUTPUT ABS 3824 06040 0 35 00625 LDX A 3825 06041 -0 01 06036 JMP* W5X EXIT 3826 000667 W5Z1 EQU K100 OOO377 3827 000675 W5Z2 EQU K122 040000 3828 000672 W5Z3 EQU K116 177400 3829 EJCT