F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 71

2958 02564 147715 BCI 2,OMPI 02565 150311 2959 02566 146105 VFD 8,'314,8,'105 ='LE' 2960 02567 0 002545 DAC LINK 2961 002563 LINK SET TLNK 2962 02570 0 10 00130 COMP JST DOCL 2963 02571 0 002472 DAC QCMP 2964 02572 0 001412 DAC FRMR 2965 02573 0 001541 DAC DUP 2966 02574 0 002223 DAC ONEP 2967 02575 0 001402 DAC TOR 2968 02576 0 001565 DAC AT 2969 02577 0 002256 DAC COMA 2970 02600 0 001361 DAC SMIS 2971 * 2972 * **** [ **** STOP COMPILATION, ENTER EXECUTION STATE. 2973 * HEAD FIMD,[,LBRC,DOCL 2974 002601 TLNK SET * 2975 02601 040533 VFD 1,0,1,FIMD,6,1,8,'133 2976 * =<FIMD,1>,'[' 2977 02602 0 002563 DAC LINK 2978 002601 LINK SET TLNK 2979 02603 0 10 00130 LBRC JST DOCL 2980 02604 0 001716 DAC ZERO 2981 02605 0 002144 DAC STAT 2982 02606 0 001577 DAC STOR 2983 02607 0 001361 DAC SMIS 2984 * 2985 * **** ] **** ENTER COMPILATION STATE. 2986 * HEAD FNUL,],RBRC,DOCL 2987 002610 TLNK SET * 2988 02610 000535 VFD 1,0,1,FNUL,6,1,8,'135 2989 * =<FNUL,1>,']' 2990 02611 0 002601 DAC LINK 2991 002610 LINK SET TLNK 2992 02612 0 10 00130 RBRC JST DOCL 2993 02613 0 000241 DAC LIT 2994 02614 000100 OCT 100 NOT 300 BECAUSE MS BIT CLEAR ON H16 2995 02615 0 002144 DAC STAT 2996 02616 0 001577 DAC STOR 2997 02617 0 001361 DAC SMIS 2998 * 2999 * **** SMUDGE **** ALTER LATEST WORD NAME (SO THAT DICTIONARY SEARCH 3000 * WON'T FIND A PARTIALLY-COMPLETE ENTRY). 3001 * HEAD FNUL,SMUDGE,SMDG,DOCL 3002 002620 TLNK SET * 3003 02620 003323 VFD 1,0,1,FNUL,6,6,8,'323 3004 * =<FNUL,6>,'S' 3005 02621 146725 BCI 2,MUDG 02622 142307