F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 124

5358 005345 TLNK SET * 5359 05345 003323 VFD 1,0,1,FNUL,6,6,8,'323 5360 * =<FNUL,6>,'S' 5361 05346 150301 BCI 2,PACE 05347 141705 5362 05350 051400 VFD 8,'123 ='S' 5363 05351 0 005335 DAC LINK 5364 005345 LINK SET TLNK 5365 05352 0 10 00130 SPCS JST DOCL 5366 05353 0 001716 DAC ZERO 5367 05354 0 004507 DAC MAX 5368 05355 0 002345 DAC DDUP 5369 05356 0 000277 DAC ZBRA 5370 05357 0 005365 DAC SPC2 5371 05360 0 001716 DAC ZERO 5372 05361 0 000372 DAC XDO 5373 05362 0 002335 SPC1 DAC SPCE 5374 05363 0 000322 DAC XLOP 5375 05364 0 005362 DAC SPC1 5376 05365 0 001361 SPC2 DAC SMIS 5377 * 5378 * **** <# **** 5379 * HEAD FNUL,<#,BDGS,DOCL 5380 005366 TLNK SET * 5381 05366 001274 VFD 1,0,1,FNUL,6,2,8,'274 5382 * =<FNUL,2>,'<' 5383 05367 021400 VFD 8,'043 =' ' 5384 05370 0 005345 DAC LINK 5385 005366 LINK SET TLNK 5386 05371 0 10 00130 BDGS JST DOCL 5387 05372 0 003351 DAC PAD 5388 05373 0 001616 DAC BYTE 5389 05374 0 002203 DAC HLD 5390 05375 0 001577 DAC STOR 5391 05376 0 001361 DAC SMIS 5392 * 5393 * **** #> **** 5394 * HEAD FNUL,#>,EDGS,DOCL 5395 005377 TLNK SET * 5396 05377 001243 VFD 1,0,1,FNUL,6,2,8,'243 5397 * =<FNUL,2>,'#' 5398 05400 037000 VFD 8,'076 ='>' 5399 05401 0 005366 DAC LINK 5400 005377 LINK SET TLNK 5401 05402 0 10 00130 EDGS JST DOCL 5402 05403 0 001526 DAC DROP 5403 05404 0 001526 DAC DROP 5404 05405 0 002203 DAC HLD 5405 05406 0 001565 DAC AT 5406 05407 0 003351 DAC PAD