"MUDDLE BITS,GETBITS,PUTBITS,ANDB,XORB,EQVB AND ORB COMPILER ROUTINES." ) (POSN 0) POS WIDTH) #DECL ((WIDTH POS NOD) NODE (K) ) ) (ELSE '(1 2) BITS> > FIX BITS> >> > FIX BITS> > ;"May be position field.")> ,QUOTE-CODE> > ;"Only one arg." <==? ,QUOTE-CODE>>> .POSN>> ) (ELSE )>)> > > > ) (NAM )) #DECL ((NOD) NODE (COD) FIX (K) ) ) (ELSE .NARG .NAM> ' >) (ELSE ')> .NAM> BITS .NAM> 3> ' .NAM>>)> WORD) (>>) (ELSE ')> .RTYP>> ) (LN )) #DECL ((NOD) NODE (K) (LN) FIX) ) (<0? .LN> >>) (<1? .LN> ) (ELSE >> .K>)> >