Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 90

3892 04042 0 001361 DAC SMIS 3893 * 3894 * **** LITERAL **** 3895 * HEAD FIMD,LITERAL,LTRL,DOCL 3896 004043 TLNK SET * 3897 04043 043714 VFD 1,0,1,FIMD,6,7,8,'314 3898 * =<FIMD,7>,'L' 3899 04044 144724 BCI 2,ITER 04045 142722 3900 04046 140514 VFD 8,'301,8,'114 ='AL' 3901 04047 0 004024 DAC LINK 3902 004043 LINK SET TLNK 3903 04050 0 10 00130 LTRL JST DOCL 3904 04051 0 002144 DAC STAT 3905 04052 0 001565 DAC AT 3906 04053 0 000277 DAC ZBRA 3907 04054 0 004060 DAC LIT1 3908 04055 0 002570 DAC COMP 3909 04056 0 000241 DAC LIT 3910 04057 0 002256 DAC COMA 3911 04060 0 001361 LIT1 DAC SMIS 3912 * 3913 * **** DLITERAL **** 3914 * HEAD FIMD,DLITERAL,DLIT,DOCL 3915 004061 TLNK SET * 3916 04061 044304 VFD 1,0,1,FIMD,6,8,8,'304 3917 * =<FIMD,8>,'D' 3918 04062 146311 BCI 3,LITERA 04063 152305 04064 151301 3919 04065 046000 VFD 8,'114 ='L' 3920 04066 0 004043 DAC LINK 3921 004061 LINK SET TLNK 3922 04067 0 10 00130 DLIT JST DOCL 3923 04070 0 002144 DAC STAT 3924 04071 0 001565 DAC AT 3925 04072 0 000277 DAC ZBRA 3926 04073 0 004077 DAC DLT1 3927 04074 0 001533 DAC SWAP 3928 04075 0 004050 DAC LTRL 3929 04076 0 004050 DAC LTRL 3930 04077 0 001361 DLT1 DAC SMIS 3931 * 3932 * **** U< **** UNSIGNED LESS-THAN, NEEDED FOR '?STACK' 3933 * : U< >R 0 R> 0 DMINUS D+ SWAP DROP 0< ; 3934 * HEAD FNUL,U<,ULES,DOCL 3935 004100 TLNK SET * 3936 04100 001325 VFD 1,0,1,FNUL,6,2,8,'325 3937 * =<FNUL,2>,'U' 3938 04101 036000 VFD 8,'074 ='<'
  Previous Page Single Page Next Page