>> "for vocab up to 1024 words" > ) OUTCHAN (NDUP 0) (NORD 0) (BUF )) #DECL ((BYTADDR VLEN VNUM NDUP NORD) FIX (C) (OUTCHAN) > (BUF) >) "VOCAB">> > > >> > <* 256 <6 .BUF>>>> > 24> 16> 8> <4 .BUF>>> > > )> > > > ) (<==? .X1 .OX1> > )> >> )> >> <0? .NORD>> )> > )> > )> )>> > > FIX>> <2 ,ZWORD-BUF FIX>> <3 ,ZWORD-BUF FIX>> <4 ,ZWORD-BUF FIX>> <5 ,ZWORD-BUF FIX>> <6 ,ZWORD-BUF > >> )> > ) ( >> ) ( <>>) (<==? 4 .CH> ) (<1? .TCASE> ) (T )>) (<==? 5 .CH> ) (<1? .TCASE> ) (T )>) (<0? .TCASE> >> ) (<1? .TCASE> >> ) (<==? 6 .CH> > <* 32 >>>>> > ) (T>> )>>>