F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 66

2713 02332 150301 BCI 1,PA 2714 02333 141505 VFD 8,'303,8,'105 ='CE' 2715 02334 0 002322 DAC LINK 2716 002331 LINK SET TLNK 2717 02335 0 10 00130 SPCE JST DOCL 2718 02336 0 001737 DAC BL 2719 02337 0 000610 DAC EMIT 2720 02340 0 001361 DAC SMIS 2721 * 2722 * **** -DUP **** ( N--- N (N) ) DUPLICATE ONLY IF NONZERO 2723 * HEAD FNUL,-DUP,DDUP 2724 002341 TLNK SET * 2725 02341 002255 VFD 1,0,1,FNUL,6,4,8,'255 2726 * =<FNUL,4>,'-' 2727 02342 142325 BCI 1,DU 2728 02343 050000 VFD 8,'120 ='P' 2729 02344 0 002331 DAC LINK 2730 002341 LINK SET TLNK 2731 002345 DDUP EQU * 2732 02345 1 02 00001 LDA 1,1 2733 02346 100040 SZE 2734 02347 0 01 00116 JMP PUSH 2735 * 2736 * NEXT 2737 02350 0 12 00100 IRS IP 2738 02351 -0 01 00100 JMP* IP 2739 * 2740 * THIS SYSTEM DOES NOT NEED TRAVERSE, NFA AND PFA ARE OK 2741 * 2742 * **** LATEST **** 2743 * HEAD FNUL,LATEST,LTST,DOCL 2744 002352 TLNK SET * 2745 02352 003314 VFD 1,0,1,FNUL,6,6,8,'314 2746 * =<FNUL,6>,'L' 2747 02353 140724 BCI 2,ATES 02354 142723 2748 02355 052000 VFD 8,'124 ='T' 2749 02356 0 002341 DAC LINK 2750 002352 LINK SET TLNK 2751 02357 0 10 00130 LTST JST DOCL 2752 02360 0 002136 DAC CURR 2753 02361 0 001565 DAC AT 2754 02362 0 001565 DAC AT 2755 02363 0 001361 DAC SMIS 2756 * 2757 * THE NEXT 4 OPERATORS CAN DEPEND ON COMPUTER WORD SIZE. 2758 * THEY CONVERT ADDRESSES WITHIN THE NAME FIELDS OF FORTH 2759 * DICTIONARY ENTRIES. 2760 * 2761 * **** LFA **** (PFA --- LFA) GET LINK FIELD ADDRESS