F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 47

1901 * **** DUP **** 1902 * ( N1 --- N1 N1 ) 1903 * HEAD FNUL,DUP,DUP 1904 001536 TLNK SET * 1905 01536 001704 VFD 1,0,1,FNUL,6,3,8,'304 1906 * =<FNUL,3>,'D' 1907 01537 152520 VFD 8,'325,8,'120 ='UP' 1908 01540 0 001527 DAC LINK 1909 001536 LINK SET TLNK 1910 001541 DUP EQU * 1911 01541 1 02 00001 LDA 1,1 1912 01542 0 01 00116 JMP PUSH 1913 * 1914 * **** +! **** 1915 * ( N A --- ) 1916 * HEAD FNUL,+!,PSTR 1917 001543 TLNK SET * 1918 01543 001253 VFD 1,0,1,FNUL,6,2,8,'253 1919 * =<FNUL,2>,'+' 1920 01544 020400 VFD 8,'041 ='!' 1921 01545 0 001536 DAC LINK 1922 001543 LINK SET TLNK 1923 001546 PSTR EQU * 1924 IFZ XTND 1925 01546 1 02 00002 LDA 2,1 1926 01547 -1 06 00001 ADD* 1,1 1927 01550 -1 04 00001 STA* 1,1 1928 ELSE 1929 LDA 1,1 1930 STA T1 1931 LDA 2,1 1932 ADD* T1 1933 STA* T1 1934 ENDC 1935 01551 0 01 00112 JMP POP2 1936 * 1937 * **** TOGGLE **** 1938 * ( A N --- ) EXCLUSIVE OR INTO MEMORY WORD 1939 * HEAD FNUL,TOGGLE,TOGL 1940 001552 TLNK SET * 1941 01552 003324 VFD 1,0,1,FNUL,6,6,8,'324 1942 * =<FNUL,6>,'T' 1943 01553 147707 BCI 2,OGGL 01554 143714 1944 01555 042400 VFD 8,'105 ='E' 1945 01556 0 001543 DAC LINK 1946 001552 LINK SET TLNK 1947 001557 TOGL EQU * 1948 IFZ XTND 1949 01557 1 02 00001 LDA 1,1 GET PATTERN