) "AUX" AC (BEST <>) (OLDAGE FIX>)(WINNAGE -1)) #DECL ((DAT) ANY (BEST) (VALUE) AC (WINNAGE OLDAGE) FIX) )> )> .OLDAGE> )> >> )> )> > )> ) ( ) (ELSE )>) (ELSE )> > >)> >>) (ELSE >)> >> )>>> ,ALLACS> > ;"Make sure the poor compiler knows this guy is an AC" ) (ELSE )> ) IAC) #DECL ((INAC) DATUM) > AC> > )> > AC> > )> > > >)> >> .BEST> >> >)> T> .L>> ) (SCORE 0) OTHAC) #DECL ((AC OTHAC) AC (PREV-OR-NEXT) ATOM) 1>>>>> )>) ( 1>>>>> )> )> > ) (ELSE )>) (ELSE )>>> >> ,ALLACS>> ) > > >)>> )>> )) #DECL ((AC) AC (ACL) > (D) DATUM) > .D> > >) (ELSE >)>)> >>> > >>)> > .AC> <>> TEMP>> ) (TYPS <>) (VALS <>) TTMP HLAC) #DECL ((AC) AC (TMP) TEMP (ACL) > (TTMP) DATUM) > )) #DECL ((SYM) SYMBOL (INAC) DATUM) >> )> > AC> > ) (> AC> > )> > LIST> <1 >> 1 <>>)>)>> >)> > ATOM> >>> >) (ELSE <>)>>> >>> >> TEMP> AC> ,ACPROT T> AC> ,ACPROT <>>) ( TEMP> AC> ,ACPROT T> AC> ,ACPROT <>>)> > AC> > > ,ACPROT <>> > >)>> ) ( > >)> > AC> > > ,ACPROT <>> > )>> ) ( > >)>> .ACL> >>> >> AC>> >) (ELSE >)>)> > >> .AC> ) > > AC> )> > AC> )>)>> ) (FLS T) "AUX" ACL (ACPR )) #DECL ((AC) AC (GD ACL) ) ) TT) #DECL ((INAC) ) > > AC>> > > AC>>> )> > AC> > > > AC> > >>>>> > >)>)> >> >>> .GD> > >) (ELSE >)>) (ELSE >)> )> >>>) (ELSE >)> > )> .AC> .FLS>> ,ALLACS>> AC>> ,ALLACS>> > ,ALLACS>> )) #DECL ((AC) AC (ACL) >) > > >> > )) #DECL ((D) DATUM (L) ) ) (ELSE )>> .ACL> DATUM>>> )>> > > )>> ,ALLACS>) (ELSE )>) (ELSE )> ) (ELSE )> >> .AC> > > > > .DAT>)>> ) ( ) ( > .AD> .AD> >>) ( >)>> AC>> >> > )> .DAT> AC>> >> )> .DAT> (AC) AC) > >>>> >>> >>>)>> ) ) >> >> >> >>> >>>> >>>> .T> .T> ) ) > >> >> >>>> ) "AUX" (N 0)) #DECL ((N VALUE) FIX) > > > >>>> >)>> ,ALLACS> .N> >) > !> > > >>>>>)> LIST>>) !.STATV) SAVED-STATE>>> ,ALLACS> .STATV> > (OACR) ) ) (SMT <2 .ACLST>) (SYMT )) #DECL ((ACLST) > [REST ]> (SYMT) ]> (AC) AC (SMT) >) >> <>>>> > >> > ) (INAC <2 .SYMB>)) #DECL ((SYMB) (SYMT) SYMBOL) <4 .SYMB>>> > >>> > >>) (<4 .SYMB> >)>)> > > .SYMT>> .STATV>> (PAC) > (SYMT) SYMTAB) >> >>>>>) (.PREV-STORED)>> ) (DATS ) (STATAC ) (NINACS ()) (NRES ())) #DECL ((STATV) ]> (AC) AC (DATS) ]> (STATAC) > (NRES) (NINACS) ]>) ) (INAC <2 .ACX>) (OINAC ) (TEM <>) (PMERG T)) #DECL ((ACX) (SYMT) SYMBOL (INAC OINAC) ) <4 .ACX>>>)> >> >)>)> .OINAC .INAC .PMERG <==? > > LIST>>>> .TEM> <==? .TEM>>>>> > >) !.NINACS)> > AC> > AC>>> )>)> > <==? .AC >>> <>>)>> .DATS> <>>> > > .NRES)>> ) (ELEIN <2 .SYMB>)) #DECL ((SYMT) SYMBOL) > .NINACS>> .STATV>> ) ) ( ) ()>> ) ( ) (ELSE )>> > TEMP> > > AC> LIST>> )>>>)>)> > TEMP> > > AC> LIST>> )>>>)>)>> >) > >>>> T)>> >> > > .ONSYMT .OP!-PACKAGE <> !.SYM-LIST)> > >) ( > > )> >>)>)>> >> ,ALLACS> .SYM-LIST> ANY]>) >)> >> LIST> >> ) (ELSE ())>>)>>> >>> (L2) ANY]>) > ) (>> LIST> >> > )) )> .LL>> > >) (ELSE >>)>>)> > >>> ]> (SYMT) SYMTAB (SLOT) LIST (PRGAC) > (TEM) ) )> > .UNK> >> >>> > ,KILL-STORE >)>)> > >>>> > 1> <1 .TEM>> ,KILL-STORE >)> '(#FALSE ())> > LIST> >>> 1 <>>)>) (ELSE >)> > >>> >] TOKEN>>> > >> AC> >) ()> AC> >) ()> .BOOL] TOKEN>>> >> .SYMT>>>> (ACLIST) ) ) (ACR )) #DECL ((AC) AC (ACR) (ACL) >) .ACNUM .AC >>>) (ELSE <- .ACNUM 6> .AC >>>)>) (.ACR .ACNUM .AC >>>) (ELSE <- .ACNUM 6> .AC >>>)>)> >> ,ALLACS> > <0? <2 .ACDATA>>> >) (ELSE > )) #DECL ((TYP) ATOM) >>> .ACLIST> > `SAVAC* ) (ELSE `LSAVA* )> > [

>) >> !.ACLIST]) (ELSE [ >) >> >) >> !.ACLIST])>>>)>> > ATOM> ) ( ) (.DATA)>) ( >)>> TEMPLATE> #WORD *000000000077*> FIX>> ) ( 1>> (.TYP)>)>) (<==? WORD>) ( <+ > FIX> 8>> FIX>>)> .DATA> > FIX>> !]> > <3 .OBJ>) (.OBJ)>> >)>> > OFFPTR> > OFFPTR>> <3 >) ;"This CHTYPE to get around compiler bug." (> ATOM> > .D1)>> > > )) #DECL ((SYM) (DAT) ) <>> > ) NT ADDR) > TEMPV> AC> >) (ELSE )> AC>> > <>>>>>) ( > <>>>> >>)> >>)> >) ()>> ) NT) <1 .SLOT>> > !)>) (ELSE )> .NT> > >>>> >)>> >