F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 89

3844 03770 0 004473 DAC MIN 3845 03771 0 001625 DAC CELL 3846 03772 0 002223 DAC ONEP ( HERE HERE WORDS-REQUD ) 3847 03773 0 001541 DAC DUP ( HERE HERE WORDS-REQUD WORDS-REQUD ) 3848 03774 0 002250 DAC ALOT ( HERE HERE WORDS-REQUD ) 3849 03775 0 001533 DAC SWAP ( HERE WORDS-REQUD HERE ) 3850 03776 0 001541 DAC DUP ( HERE WORDS-REQUD HERE HERE ) 3851 03777 0 000241 DAC LIT 3852 04000 020000 OCT 020000 SET SMUDGE BIT, LEAVE TOP CLEAR 3853 04001 0 001557 DAC TOGL ( HERE WORDS-REQUD HERE ) 3854 * 3855 04002 0 001443 DAC PLUS ( HERE LFA ) 3856 04003 0 001722 DAC ONE ( HERE LFA ONE ) 3857 04004 0 002266 DAC SUB ( HERE LFA-1 ) 3858 04005 0 001541 DAC DUP ( HERE LFA-1 LFA-1 ) 3859 04006 0 001565 DAC AT 3860 04007 0 000241 DAC LIT 3861 04010 177577 OCT 177577 CLEAR TOP BIT 3862 04011 0 001300 DAC AND 3863 04012 0 001533 DAC SWAP 3864 04013 0 001577 DAC STOR ( HERE ) 3865 * 3866 04014 0 002357 DAC LTST 3867 04015 0 002256 DAC COMA 3868 04016 0 002136 DAC CURR 3869 04017 0 001565 DAC AT 3870 04020 0 001577 DAC STOR LINK FIELD 3871 04021 0 001716 DAC ZERO HLT INSTRUCTION 3872 04022 0 002256 DAC COMA 3873 04023 0 001361 DAC SMIS 3874 * 3875 * **** [COMPILE] **** 3876 * HEAD FIMD,[COMPILE],BCMP,DOCL 3877 004024 TLNK SET * 3878 04024 044733 VFD 1,0,1,FIMD,6,9,8,'333 3879 * =<FIMD,9>,'[' 3880 04025 141717 BCI 3,COMPIL 04026 146720 04027 144714 3881 04030 142535 VFD 8,'305,8,'135 ='E]' 3882 04031 0 003741 DAC LINK 3883 004024 LINK SET TLNK 3884 04032 0 10 00130 BCMP JST DOCL 3885 04033 0 003562 DAC DFND 3886 04034 0 001423 DAC ZEQU 3887 04035 0 001716 DAC ZERO 3888 04036 0 002455 DAC QERR 3889 04037 0 001526 DAC DROP 3890 04040 0 002376 DAC CFA 3891 04041 0 002256 DAC COMA