F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 105

4537 04705 0 10 00130 MOD JST DOCL 4538 04706 0 004665 DAC SLMD 4539 04707 0 001526 DAC DROP 4540 04710 0 001361 DAC SMIS 4541 * 4542 * **** */MOD **** 4543 * HEAD FNUL,*/MOD,SSMD,DOCL 4544 004711 TLNK SET * 4545 04711 002652 VFD 1,0,1,FNUL,6,5,8,'252 4546 * =<FNUL,5>,'*' 4547 04712 127715 BCI 1,/M 4548 04713 147504 VFD 8,'317,8,'104 ='OD' 4549 04714 0 004702 DAC LINK 4550 004711 LINK SET TLNK 4551 04715 0 10 00130 SSMD JST DOCL 4552 04716 0 001402 DAC TOR 4553 04717 0 004523 DAC MSTR 4554 04720 0 001412 DAC FRMR 4555 04721 0 004555 DAC MSLA 4556 04722 0 001361 DAC SMIS 4557 * 4558 * **** */ **** 4559 * HEAD FNUL,*/,SSLA,DOCL 4560 004723 TLNK SET * 4561 04723 001252 VFD 1,0,1,FNUL,6,2,8,'252 4562 * =<FNUL,2>,'*' 4563 04724 027400 VFD 8,'057 ='/' 4564 04725 0 004711 DAC LINK 4565 004723 LINK SET TLNK 4566 04726 0 10 00130 SSLA JST DOCL 4567 04727 0 004715 DAC SSMD 4568 04730 0 001533 DAC SWAP 4569 04731 0 001526 DAC DROP 4570 04732 0 001361 DAC SMIS 4571 * 4572 * **** M/MOD **** 4573 * HEAD FNUL,M/MOD,MSMD,DOCL 4574 004733 TLNK SET * 4575 04733 002715 VFD 1,0,1,FNUL,6,5,8,'315 4576 * =<FNUL,5>,'M' 4577 04734 127715 BCI 1,/M 4578 04735 147504 VFD 8,'317,8,'104 ='OD' 4579 04736 0 004723 DAC LINK 4580 004733 LINK SET TLNK 4581 04737 0 10 00130 MSMD JST DOCL 4582 04740 0 001402 DAC TOR 4583 04741 0 001716 DAC ZERO 4584 04742 0 001416 DAC R 4585 04743 0 001205 DAC USLA 4586 04744 0 001412 DAC FRMR