) (REG ) (FST <1 .K>) (INS >)) #DECL ((FST N) NODE (K) (REG) DATUM) ,QUOTE-CODE> > )> .REG>> .REG> >) (ELSE WORD)>> ) TT) #DECL ((NN) NODE (NXT) DATUM) AC>) (> AC> > ) (ELSE )> > ,ACPROT T> T> > > > > >>> >) (BP <2 >) REG POS WDTH BAC AC BPW WRD BPD TEM) #DECL ((WRDN N BP) NODE (POS WDTH) FIX (WRD REG BPD) DATUM (AC BAC) AC (BPW) ) ,QUOTE-CODE> > > FIX>> FIX>> 36> AC> >>> <==? .AC >>>> > <- .POS>>>) (ELSE >>> .REG> ,ACPROT T> ;"Could be half word hack." !>> T) (<==? .POS 18> !>> T)>>) (ELSE [

!>]>>)> > )>) (<==? ,BITS-CODE> ) (ELSE DONT-CARE)>>> .WRD>>>> >>> .REG> ,ACPROT T> > ,ACPROT T> > >> >> >> > > ) (ELSE ;"Non constant byte pointer." ) (ELSE DONT-CARE)>>> > >>> .REG> ,ACPROT T> >> > ,ACPROT T> !>> >> > > )> > ) (SWRD <1 .K>) (BP <2 .K>) BAC POS WDTH FLD BPW BPD SWRDD (FLG T) TEM NUM) #DECL ((N SWRD BP) NODE (FLD BPD REG SWRDD) DATUM (AC BAC PAC) AC (POS WDTH) FIX (BPW) (NUM) ) ,QUOTE-CODE> > #BITS *360600000000*> FIX>> FIX>> ,QUOTE-CODE> <0? FIX>>> .W>>> .SWRDD> 36> > >>>)> > .POS>>) (ELSE >) (ELSE TUPLE)> .W>>> .SWRDD> > >> `HLLZS ) (ELSE `HLLOS )> >>>) (ELSE >)>) (<==? .POS 18> > >> `HRRZS ) (ELSE `HRROS )> >>>) (ELSE >)> T)>>) ( 18>> > > >>>> `ANDCMI ) (ELSE `TLZ )>) (ELSE `IORI ) (ELSE `TLO )>)> > > .POS) (ELSE <- .POS 18>)>>>>) (ELSE >> ,ACPROT T> ,ACPROT T> > [ >>]>> ,ACPROT <>> ,ACPROT <>> )>)>) (ELSE > ,SNODES>>> >) (ELSE TUPLE)> .W>>>)> ,BITS-CODE> > <1 .SWRDD) (ELSE ,NO-DATUM)>>>>) (ELSE )>> > >>) (ELSE >>)> > >) (ELSE TUPLE)> .W>>>)> AC>> >) (ELSE TUPLE)> .W>>>)> ,ACPROT T> ,ACPROT T> > ,ACPROT T> 1 >> ()>)> .SWRDD> >>>)> > >> > ,ACPROT <>> ,ACPROT <>> )> > ) 2>) (>> ,QUOTE-CODE> <==? >> WORD> >> 0> > .NUM>>>)>> > ,ACPROT T> > > ,ACPROT <>> > >> ) (WDTHN <1 .K>) WDTH POS TEM (REG ) POSD (FLG T)) #DECL ((POS N WDTHN) NODE (REG WDTH POSD) DATUM (K) ) 2> >)> ,QUOTE-CODE> >>) (> <==? ,QUOTE-CODE>> ) (ELSE 0)>>> >) (ELSE > .REG> > 24>> > 0>>> >) (ELSE )>)> >> ,ACPROT T> > > > > .TEM>> >>) (ELSE )> ,ACPROT T> > [) >>]>> ,ACPROT <>> ,ACPROT <>> AC> .WDTH>)> [ .TEM]> >)) #DECL ((CNST) FIX) [ >) HERE>]) (ELSE [ >) 0>])>>