F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 54

2148 * 2149 * CONSTANTS 2150 * 2151 * **** 0 2152 * HEAD FNUL,0,ZERO,DOCN 2153 001714 TLNK SET * 2154 01714 000460 VFD 1,0,1,FNUL,6,1,8,'060 2155 * =<FNUL,1>,'0' 2156 01715 0 001704 DAC LINK 2157 001714 LINK SET TLNK 2158 01716 0 10 00140 ZERO JST DOCN 2159 01717 000000 DEC 0 2160 * 2161 * **** 1 **** 2162 * HEAD FNUL,1,ONE,DOCN 2163 001720 TLNK SET * 2164 01720 000461 VFD 1,0,1,FNUL,6,1,8,'061 2165 * =<FNUL,1>,'1' 2166 01721 0 001714 DAC LINK 2167 001720 LINK SET TLNK 2168 01722 0 10 00140 ONE JST DOCN 2169 01723 000001 DEC 1 2170 * 2171 * **** 2 **** 2172 * HEAD FNUL,2,TWO,DOCN 2173 001724 TLNK SET * 2174 01724 000462 VFD 1,0,1,FNUL,6,1,8,'062 2175 * =<FNUL,1>,'2' 2176 01725 0 001720 DAC LINK 2177 001724 LINK SET TLNK 2178 01726 0 10 00140 TWO JST DOCN 2179 01727 000002 DEC 2 2180 * 2181 * **** 3 **** 2182 * HEAD FNUL,3,THRE,DOCN 2183 001730 TLNK SET * 2184 01730 000463 VFD 1,0,1,FNUL,6,1,8,'063 2185 * =<FNUL,1>,'3' 2186 01731 0 001724 DAC LINK 2187 001730 LINK SET TLNK 2188 01732 0 10 00140 THRE JST DOCN 2189 01733 000003 DEC 3 2190 * 2191 * **** BL **** 2192 * HEAD FNUL,BL,BL,DOCN 2193 001734 TLNK SET * 2194 01734 001302 VFD 1,0,1,FNUL,6,2,8,'302 2195 * =<FNUL,2>,'B' 2196 01735 046000 VFD 8,'114 ='L' 2197 01736 0 001730 DAC LINK