F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 67

2762 * HEAD FNUL,LFA,LFA,DOCL 2763 002364 TLNK SET * 2764 02364 001714 VFD 1,0,1,FNUL,6,3,8,'314 2765 * =<FNUL,3>,'L' 2766 02365 143101 VFD 8,'306,8,'101 ='FA' 2767 02366 0 002352 DAC LINK 2768 002364 LINK SET TLNK 2769 02367 0 10 00130 LFA JST DOCL 2770 02370 0 001726 DAC TWO 2771 02371 0 002266 DAC SUB 2772 02372 0 001361 DAC SMIS 2773 * 2774 * **** CFA **** (PFA --- CFA) GET CODE FIELD ADDRESS 2775 * HEAD FNUL,CFA,CFA,DOCL 2776 002373 TLNK SET * 2777 02373 001703 VFD 1,0,1,FNUL,6,3,8,'303 2778 * =<FNUL,3>,'C' 2779 02374 143101 VFD 8,'306,8,'101 ='FA' 2780 02375 0 002364 DAC LINK 2781 002373 LINK SET TLNK 2782 02376 0 10 00130 CFA JST DOCL 2783 02377 0 001722 DAC ONE 2784 02400 0 002266 DAC SUB 2785 02401 0 001361 DAC SMIS 2786 * 2787 * **** NFA **** (PFA --- NFA) GET NAME FIELD ADDRESS 2788 * HEAD FNUL,NFA,NFA,DOCL 2789 002402 TLNK SET * 2790 02402 001716 VFD 1,0,1,FNUL,6,3,8,'316 2791 * =<FNUL,3>,'N' 2792 02403 143101 VFD 8,'306,8,'101 ='FA' 2793 02404 0 002373 DAC LINK 2794 002402 LINK SET TLNK 2795 02405 0 10 00130 NFA JST DOCL 2796 02406 0 002367 DAC LFA 2797 02407 0 001722 NFA1 DAC ONE 2798 02410 0 002266 DAC SUB DECREMENT WORD POINTER 2799 02411 0 001541 DAC DUP 2800 02412 0 001565 DAC AT GET WORD 2801 02413 0 001716 DAC ZERO 2802 02414 0 002315 DAC GRTR LOOKING FOR POSITIVE WORD 2803 02415 0 000277 DAC ZBRA 2804 02416 0 002407 DAC NFA1 2805 02417 0 001361 DAC SMIS 2806 * 2807 * **** PFA **** (NFA --- PFA) GET PARAMETER FIELD ADDRESS 2808 * HEAD FNUL,PFA,PFA,DOCL 2809 002420 TLNK SET * 2810 02420 001720 VFD 1,0,1,FNUL,6,3,8,'320 2811 * =<FNUL,3>,'P'