F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 68

2812 02421 143101 VFD 8,'306,8,'101 ='FA' 2813 02422 0 002402 DAC LINK 2814 002420 LINK SET TLNK 2815 02423 0 10 00130 PFA JST DOCL 2816 02424 0 001541 DAC DUP 2817 02425 0 001616 DAC BYTE 2818 02426 0 001572 DAC CAT GET FIRST BYTE 2819 02427 0 000241 DAC LIT 2820 02430 000037 OCT 37 2821 02431 0 001300 DAC AND LOWER 5 BITS 2822 02432 0 001625 DAC CELL CONVERT TO WORD ADDRESS (/ BY 2) 2823 02433 0 002223 DAC ONEP ADD ONE (ROUND UP) 2824 02434 0 001443 DAC PLUS ADD NFA 2825 02435 0 002231 DAC TWOP SKIP LINK AND CODE FIELDS 2826 02436 0 001361 DAC SMIS 2827 * 2828 * THE NEXT 7 OPERATIONS ARE USED BY THE COMPILER, FOR 2829 * COMPILE-TIME SYNTAX-ERROR CHECKS. 2830 * 2831 * **** !CSP **** 2832 * HEAD FNUL,!CSP,SCSP,DOCL 2833 002437 TLNK SET * 2834 02437 002241 VFD 1,0,1,FNUL,6,4,8,'241 2835 * =<FNUL,4>,'!' 2836 02440 141723 BCI 1,CS 2837 02441 050000 VFD 8,'120 ='P' 2838 02442 0 002420 DAC LINK 2839 002437 LINK SET TLNK 2840 02443 0 10 00130 SCSP JST DOCL 2841 02444 0 001324 DAC SPAT 2842 02445 0 002171 DAC CSP 2843 02446 0 001577 DAC STOR 2844 02447 0 001361 DAC SMIS 2845 * 2846 * **** ?ERROR **** 2847 * HEAD FNUL,?ERROR,QERR,DOCL 2848 002450 TLNK SET * 2849 02450 003277 VFD 1,0,1,FNUL,6,6,8,'277 2850 * =<FNUL,6>,'?' 2851 02451 142722 BCI 2,ERRO 02452 151317 2852 02453 051000 VFD 8,'122 ='R' 2853 02454 0 002437 DAC LINK 2854 002450 LINK SET TLNK 2855 02455 0 10 00130 QERR JST DOCL 2856 02456 0 001533 DAC SWAP 2857 02457 0 000277 DAC ZBRA 2858 02460 0 002464 DAC QER1 2859 02461 0 003662 DAC EROR 2860 02462 0 000263 DAC BRAN