FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 68

1963 03030 100040 SZE 1964 03031 0 01 02765 JMP AS04 1965 03032 0 02 00710 LDA IU IF IU = 0, 1966 03033 101040 SNZ OR NOT EQUAL IU (A) 1967 03034 0 01 02765 JMP AS04 GO TO AS04 (1) 1968 03035 1 02 17401 LDA DP+1,1 1969 03036 0400 62 LRL 14 IU(A) 1970 03037 0 07 00710 SUB IU 1971 03040 100040 SZE 1972 03041 0 01 02765 JMP AS04 ELSE, 1973 03042 0 02 00706 LDA IM 1974 03043 0 07 00741 SUB K105 GO TO AS16 (4) 1975 03044 100040 SZE 1976 03045 0 01 03066 JMP AS16 1977 03046 0 02 00625 LDA A 1978 03047 0 06 00741 ADD K105 1979 03050 0 04 00000 STA 0 1980 03051 1 02 17404 LDA DP+4,1 TIDB(A) 1981 03052 0 07 03271 SUB TIDB GO TO AS16 (4) 1982 03053 100040 SZE ELSE, GO TO AS04 (1) 1983 03054 0 01 02765 JMP AS04 1984 03055 1 02 17403 LDA DP+3,1 TIDB+1(A) 1985 03056 0 07 03272 SUB TIDB+1 1986 03057 100040 SZE 1987 03060 0 01 02765 JMP AS04 1988 03061 1 02 17402 LDA DP+2,1 TIDB+2(A) 1989 03062 0 07 03273 SUB TIDB+2 1990 03063 100040 SZE 1991 03064 0 01 02765 JMP AS04 1992 03065 0 35 00625 AS15 LDX A 1993 03066 1 02 17401 AS16 LDA DP+1,1 1994 03067 0400 62 LRL 14 IU(A) 1995 03070 0 06 00055 ADD NTF 1996 03071 100040 SZE 1997 03072 0 01 03103 JMP AS18 GO TO AS18 (5) 1998 03073 0 02 00634 LDA SPF IF SPF = 0, GO TO AS18 (5) 1999 03074 101040 SNZ 2000 03075 0 01 03103 JMP AS18 2001 03076 0 02 00067 LDA TC IF TC = ( 2002 03077 0 07 14474 SUB K17 - 2003 03100 100040 SZE 2004 03101 0 01 03111 JMP AS19 2005 03102 0 10 03222 JST TG00 TAG SUBPROGRAM 2006 03103 140040 AS18 CRA SET NTF TO 0 2007 03104 0 04 00055 STA NTF SET NTF TO 0 2008 03105 0 10 03317 JST FA00 GO TO FETCH ASSIGNS 2009 03106 0 35 00625 LDX A 2010 03107 0 02 00706 LDA IM 2011 03110 -0 01 02762 JMP* AS00 RETURN 2012 03111 0 10 03274 AS19 JST TV00 TAG VARIABLE