F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 96

4172 ENDC 4173 IFZ DISK 4174 04372 0 003031 DAC PDTQ 4175 * STRG NO- 4176 04373 001716 VFD 8,3,8,'316 =3,'N' 4177 04374 147655 VFD 8,'317,8,'255 ='O-' 4178 ENDC 4179 04375 0 003031 DAC PDTQ 4180 * STRG DISK$ 4181 04376 002704 VFD 8,5,8,'304 =5,'D' 4182 04377 144723 BCI 1,IS 4183 04400 145640 VFD 8,'313,8,'240 ='K ' 4184 * 4185 04401 0 001777 DAC SZRO 4186 04402 0 001565 DAC AT 4187 04403 0 002240 DAC HERE 4188 04404 0 002266 DAC SUB 4189 04405 0 000241 DAC LIT 4190 04406 000100 OCT 100 4191 04407 0 002266 DAC SUB 4192 04410 0 005554 DAC UDOT 4193 04411 0 003031 DAC PDTQ 4194 * STRG WORDS FREE 4195 04412 005327 VFD 8,10,8,'327 =10,'W' 4196 04413 147722 BCI 4,ORDS FRE 04414 142323 04415 120306 04416 151305 4197 04417 142400 VFD 8,'305 ='E' 4198 * 4199 04420 0 005652 DAC FRTH 4200 04421 0 004272 DAC DFNS 4201 04422 0 004313 DAC QUIT 4202 * 4203 * COLD START 4204 * 4205 * THE ACTUAL CODE IS DOWN NEAR ORGN AT '1000 4206 * CLOSE TO THE ENTRY POINT 4207 * 4208 * **** COLD **** 4209 * HEAD FNUL,COLD,COLD 4210 004423 TLNK SET * 4211 04423 002303 VFD 1,0,1,FNUL,6,4,8,'303 4212 * =<FNUL,4>,'C' 4213 04424 147714 BCI 1,OL 4214 04425 042000 VFD 8,'104 ='D' 4215 04426 0 004343 DAC LINK 4216 004423 LINK SET TLNK 4217 004427 COLD EQU * 4218 04427 0 01 01025 JMP CENT