F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 130

5657 DAC THRE 5658 DAC STAR 5659 DAC THRE 5660 DAC OVER 5661 DAC PLUS 5662 DAC SWAP 5663 DAC XDO 5664 TRA1 DAC CR 5665 DAC I 5666 DAC LIST 5667 DAC XLOP 5668 DAC TRA1 5669 DAC CR 5670 DAC LIT 5671 OCT 17 5672 DAC MESS 5673 DAC CR 5674 DAC SMIS 5675 ENDC 5676 * 5677 * **** VLIST **** 5678 * HEAD FNUL,VLIST,VLST,DOCL 5679 005560 TLNK SET * 5680 05560 002726 VFD 1,0,1,FNUL,6,5,8,'326 5681 * =<FNUL,5>,'V' 5682 05561 146311 BCI 1,LI 5683 05562 151524 VFD 8,'323,8,'124 ='ST' 5684 05563 0 005551 DAC LINK 5685 005560 LINK SET TLNK 5686 05564 0 10 00130 VLST JST DOCL 5687 05565 0 000241 DAC LIT 5688 05566 000200 OCT 200 5689 05567 0 002104 DAC OUT 5690 05570 0 001577 DAC STOR 5691 05571 0 002127 DAC CONT 5692 05572 0 001565 DAC AT 5693 05573 0 001565 DAC AT 5694 05574 0 002104 VLS1 DAC OUT 5695 05575 0 001565 DAC AT 5696 05576 0 000241 DAC LIT 5697 05577 000100 OCT 100 5698 05600 0 002315 DAC GRTR 5699 05601 0 000277 DAC ZBRA 5700 05602 0 005607 DAC VLS2 5701 05603 0 000627 DAC CR 5702 05604 0 001716 DAC ZERO 5703 05605 0 002104 DAC OUT 5704 05606 0 001577 DAC STOR 5705 05607 0 001541 VLS2 DAC DUP 5706 05610 0 003712 DAC IDDT