F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 49

1961 * **** @ **** 1962 * ( A --- N) 1963 * HEAD FNUL,@,AT 1964 001563 TLNK SET * 1965 01563 000500 VFD 1,0,1,FNUL,6,1,8,'100 1966 * =<FNUL,1>,'@' 1967 01564 0 001552 DAC LINK 1968 001563 LINK SET TLNK 1969 001565 AT EQU * 1970 IFZ XTND 1971 01565 -1 02 00001 LDA* 1,1 1972 ELSE 1973 LDA 1,1 1974 STA T1 1975 LDA* T1 1976 ENDC 1977 01566 0 01 00125 JMP PUT 1978 * 1979 * **** C@ **** 1980 * ( CADDR --- N) 1981 * HEAD FNUL,C@,CAT 1982 001567 TLNK SET * 1983 01567 001303 VFD 1,0,1,FNUL,6,2,8,'303 1984 * =<FNUL,2>,'C' 1985 01570 040000 VFD 8,'100 ='@' 1986 01571 0 001563 DAC LINK 1987 001567 LINK SET TLNK 1988 001572 CAT EQU * 1989 01572 1 02 00001 LDA 1,1 1990 01573 0 10 00166 JST CHGT 1991 01574 0 01 00125 JMP PUT 1992 * 1993 * **** ! **** 1994 * ( N A --- ) 1995 * HEAD FNUL,!,STOR 1996 001575 TLNK SET * 1997 01575 000441 VFD 1,0,1,FNUL,6,1,8,'041 1998 * =<FNUL,1>,'!' 1999 01576 0 001567 DAC LINK 2000 001575 LINK SET TLNK 2001 001577 STOR EQU * 2002 IFZ XTND 2003 01577 1 02 00002 LDA 2,1 2004 01600 -1 04 00001 STA* 1,1 2005 ELSE 2006 LDA 1,1 2007 STA T1 2008 LDA 2,1 2009 STA* T1 2010 ENDC