F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 112

4809 * HEAD FNUL,BUFFER,BUFR,DOCL 4810 TLNK SET * 4811 VFD 1,0,1,FNUL,6,6,8,'302 4812 * =<FNUL,6>,'B' 4813 BCI 2,UFFE 4814 VFD 8,'122 ='R' 4815 DAC LINK 4816 LINK SET TLNK 4817 BUFR JST DOCL 4818 DAC USE 4819 DAC AT 4820 DAC DUP 4821 DAC TOR 4822 BUF1 DAC PBUF 4823 DAC ZBRA 4824 DAC BUF1 4825 DAC USE 4826 DAC STOR 4827 DAC R 4828 DAC AT 4829 DAC ZLES 4830 DAC ZBRA 4831 DAC BUF2 4832 DAC R 4833 DAC TWOP 4834 DAC R 4835 DAC AT 4836 DAC LIT 4837 OCT 77777 4838 DAC AND 4839 DAC ZERO 4840 DAC RW 4841 BUF2 DAC R 4842 DAC STOR 4843 DAC R 4844 DAC PREV 4845 DAC STOR 4846 DAC FRMR 4847 DAC TWOP 4848 DAC SMIS 4849 * 4850 * **** BLOCK **** 4851 * HEAD FNUL,BLOCK,BLCK,DOCL 4852 TLNK SET * 4853 VFD 1,0,1,FNUL,6,5,8,'302 4854 * =<FNUL,5>,'B' 4855 BCI 1,LO 4856 VFD 8,'303,8,'113 ='CK' 4857 DAC LINK 4858 LINK SET TLNK