> ,BITS-PER-FIELD>> (CODE SHFT WD1) FIX) > ,OP-OBLIST> > .CODE> 1>> > .SHFT> FIX>> >>> FIX>> > .WD1> >)>> .MODES> .WD1>> >> ) > 1>> >) ( > >) (ELSE > >)> ,BITS-PER-FIELD>> ,FIELD-MASK> FIX>> > ,OP-OBLIST> > <+ FIX> .SIZEN>> >> .SIZES> >> .MODES> > ,OP-OBLIST> > >> > .SIZES>> > 0>>> > > > )> > FIX>> > > >> >) (> >> >) (> >> >) (<==? .C !\.> ) (<==? .C !\$> ) (<==? .C !\%> ) (T )> > >> >>> > ) 40>> > > >>)> ) ( > CHARACTER>>) ( CHARACTER>>) (<==? .VAL 37> ) (<==? .VAL 38> ) (<==? .VAL 39> )> )> >>>