C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 41

1950 03343 0 01 03353 JMP AS19 1951 03344 0 10 03465 JST TG00 TAG SUBPROGRAM 1952 03345 140040 AS18 CRA SET NTF TO 0 1953 03346 0 04 00574 STA NTF SET NTF TO 0 1954 03347 0 10 03656 JST FA00 GO TO FETCH ASSIGNS 1955 03350 0 10 02672 JST STXA 1956 03351 0 02 00653 LDA IM 1957 03352 -0 01 03241 JMP* AS00 RETURN 1958 03353 0 10 03642 AS19 JST TV00 TAG VARIABLE 1959 03354 0 01 03345 JMP AS18 1960 03355 0 10 04142 AS30 JST BUD BUILD ASSIGNMENT ENTRY 1961 03356 0 02 00573 LDA NT IF NT = 1 1962 03357 100040 SZE 1963 03360 0 01 03365 JMP AS32 OR IV = VAR, 1964 03361 0 02 00655 LDA IU 1965 03362 0 07 00720 SUB K102 1966 03363 100040 SZE 1967 03364 0 01 03407 JMP AS40 AMD 1968 03365 0 02 00653 AS32 LDA IM IF IM = CPX, 1969 03366 0 07 00723 SUB K105 1970 03367 100040 SZE 1971 03370 0 01 03407 JMP AS40 1972 03371 0 04 00655 STA IU MOVE 1ST PART OF 1973 03372 0 02 03637 LDA TIDB COMPLEX ENTRY TO 1974 03373 0 04 01475 STA TID TID AND BUILD 1975 03374 0 02 03640 LDA TIDB+1 ASSIGNMENT ENTRY 1976 03375 0 04 01476 STA TID+1 1977 03376 0 02 03641 LDA TIDB+2 1978 03377 0 04 01477 STA TID+2 1979 03400 0 02 00040 LDA A 1980 03401 0 06 00723 ADD K105 1981 03402 0 04 00040 STA A 1982 03403 0 10 04142 JST BUD 1983 03404 0 02 00040 LDA A 1984 03405 0 07 00723 SUB K105 RESTORE A 1985 03406 0 04 00040 STA A 1986 03407 0 02 00054 AS40 LDA ABAR 1987 03410 0 07 00040 SUB A TO = -(ABAR-A+5) 1988 03411 0 06 00723 ADD K105 GIVING NO. OF WORDS TO MOVE TABLES UP 1989 03412 140407 TCA 1990 03413 0 04 03240 STA T0AS 1991 03414 140407 TCA 1992 03415 0 06 00661 ADD DO CO=DO+TO 1993 03416 0 04 00661 STA DO 1994 03417 0 02 00652 LDA IFLG IF IFLG = 0, THERE IS NO EXPRESSION TABLE 1995 03420 101040 SNZ 1996 03421 0 01 03460 JMP AS60 GO TO AS60 1997 03422 0 02 00041 LDA I 1998 03423 0 07 03240 SUB T0AS 1999 03424 0 04 00041 STA I I = I - T0(T0 IS NEGATIVE)