" Definitions of offsets into MAPINFO vector used by MAP hackers inferiors." ATOM TEMP TEMP ]>>> "" ) (BR <>) (DIR <>) "AUX" (K ) (COD >)) #DECL ((NOD) NODE (COD) FIX (K) ) ) (ELSE ) MPINFO (INRAP <2 .K>) W (STACKED 0) F? FF? (MAYBE-FALSE <>) (NARG >>) (R? <==? ,MAPR>) (MAPEND ) (MAPLP ) (SUBRC ) (FOONARG .NARG) (STMPS > 0> ) (ELSE >)>>>) (FTMP >) (EXTMP >) (APTMP <>) (FLS <==? .WHERE FLUSHED>) TMP (SEG? .STMPS>) (SEGCNT <>)) #DECL ((FAP INRAP) NODE (NARG POFF) FIX (MAPLP MAPEND) ATOM (MPINFO) (STACKED) (SEG?) ]> (SEGCNT) ) FLUSHED) (<==? .WHERE DONT-CARE> .FTMP) (ELSE .WHERE)>> > ,MFIRST-CODE>>> >)> >)> >>> > )>)> >> > ,POP-STACK> ) (.FF? > DONT-CARE> .NOD .FAP <1 > .FTMP .EXTMP>) ( > .FTMP>) (ELSE > FLUSHED>)>) (ELSE > > .SEG?> >>)> >>)>> )> >> >> >>)> )> >) (ELSE .WHERE)>> ) (.FF? )>)> ,FREE-TEMP .STMPS> )> > ) (.FF? >) ( > ) (ELSE )> .WHERE>)>> \ ) (SEGCALLED <>)) #DECL ((K) (STMPS) (SEG?) ]> (SEGCALLED COUNTMP SEGLABEL) ) ) (TMP <1 .TMPP>) TT CT TTT TY STY) #DECL ((N) NODE (SEG) LIST) ,SEGMENT-CODE> <==? ,SEG-CODE>> >> >> 0> > 1>>>> > .TT> )> > > .SEGLABEL>) (.SEGCALLED )> > ) (ELSE > >>> > 1>> > > = .TMP>)>) (> = .TMP>) (.STY ) (ELSE )>)>> .K .STMPS .SEG?> T> (STMPS) (SEG?) ]>) >) ETYP STMP LBL1 LBL2 ETMP) #DECL ((NOD) NODE (TMP) TEMP) > .TMP> >> ALL>>> LENGTH VALUE)>) (ELSE )> >> >> > 1> ) (ELSE )> ) (.ST ) (ELSE )>> .STMPS .K .SEG?>> ,GVAL-CODE>> FALSE>>) TG1 TG2) #DECL ((FAP) NODE) )> > T>)> '(`TYPE FIX)> >> '(`TYPE FALSE)> )> .MBYF> > T> >> ) (ELSE )>> > T> >> ) (ELSE )>> \ ]>> ) (LMOD >) (MOD >) T1 T2 TMP INS) #DECL ((COD) FIX (N FAP NN) NODE) > > > <>> >> > ) (ELSE 1> 2>> <==? .LMOD FIX>> >> )> .COD>> > (`TYPE FIX) (ELSE FLOAT)>)> ) (ELSE > )>)> T> > T> >) ( )> ) (ELSE )> >> ) (ELSE >) ( )> ) (ELSE )>)> .WHERE> .NARGS = .WHERE (`TYPE .SUBRC)>) (<==? .SUBRC LIST> ) (<==? .SUBRC TUPLE> )>) (ELSE )>> FIX> FIX> 1 0]> )> (FSLOT-FIRST) > \ >>)) #DECL ((FAP) NODE (COD) FIX) ,MFIRST-CODE> > ) (ELSE ())>> .FTMP> .EXTMP> <>) (ELSE ) (ELSE )>> .FTMP> <>)>) ( T) ( > .FTMP>> <>)>> \ ) "AUX" (MP .MPINFO)) #DECL ((MP) MPINFO (ETAG) ATOM) > <1 > .W <1 > .CNT>> >> >> >> .W> \ >) STMP ETMP LBL1 LBL2 (ETY ALL >>)) #DECL ((N) NODE) )(T)>>>) ( >)> > .SRC> LENGTH VALUE)> >> >> > 1> >> ALL>> ) (> ) (ELSE )> ) (ELSE > ) (.STY .W) (ELSE )>)> .W> (STMPS) (SEG?) ]>) >)) #DECL ((N) NODE) > .TMP> VALUE LENGTH)> >> >> >> ALL>>> > 1> ) (ELSE )> ) (.STYP ) (ELSE )>> .K .STMPS .SEG?>> > > )> ) ( )> ) ( >) ( > > )>> ) )> > .STMPS .SEG?>> \ ) (FAP <1 .K>) (INRAP <2 .K>) F? (NARG >>) (R? <==? ,MAPR>) (FF? <>) (MAPEND ) (MAPLP ) (REST-TAG ) (SUBRC ) (BASEF .BASEF) (MAYBE-FALSE <>) (EXIT ) (APPLTAG ) (FLS <==? .MWHERE FLUSHED>) (RTAG ) TEM (FOONARG .NARG) (STMPS > 0> ) (ELSE >)>>>) FTMP FEXIT (EXTMP >) (BNDTMP >) (SEG? > .STMPS>) SEGCNT MYFRAME (INRTYP >) (FWHERE <>) LEAVE? (OFT .FREE-TEMPS) (ANY-EMPTY <>) STKTMP (STK 0) (STK-CHARS7 0) (STK-CHARS8 0)) #DECL ((STK-CHARS7 STK-CHARS8 STK) (STKTMP) (SPECD) > (NARG) (FAP) NODE (BASEF MNOD INRAP) (K) (MAPEND EXIT MAPLP RTAG APPLTAG REST-TAG) (FTMP EXTMP MWHERE MAYBE-FALSE FLS) (FSYM) SYMTAB (F?) (BNDTMP LEAVE?) (DIR BR) (SEG?) ]> (TMPS) ) > 1> )>> .K> >)> (TMPS) ) >>>) (ELSE >>)> > ,MFIRST-CODE>>> >)> >>> > )>)> > )> ) (ELSE <==? .INRTYP FALSE>)>> .BR) (ELSE .APPLTAG)> .SEG?> > .F? > > > = >> ) !.ALL-TEMPS-LIST)> > 4 .MYFRAME>)> ) (K .K) TMP SYM (STMPS .STMPS) VAL (SEG? .SEG?) T-NAME TY PT) #DECL ((BS) (K) (STMPS) (TNAME) (SEG?) ]>) > )> > T >> >)> >> > )>> .BST> ) (ELSE >> > )> > T T>> > >> > FIX> <==? .PT WORD> <==? .PT LIST>>> .TY] ADECL>) (ELSE )>)>> )> <==? ,ARGL-TUPLE>> > 0> <1 .STMPS> .R? .MAPEND ,POP-STACK T .SEGCNT> >) (ELSE .TMP)>>) (<1 .SEG?> ) (ELSE <1 .STMPS> .R? .MAPEND DONT-CARE) (ELSE .TMP)> <> <>>>)> >)> > > > >)>> DONT-CARE>> > <>>>) (ELSE )> .SEGCNT> )> )>)>) (.FF? DONT-CARE>> )> .SEGCNT> )> )>) (.FLS FLUSHED> )> .SEGCNT> )> ) (ELSE .FTMP> )> .SEGCNT> )> )> > )>> 1>>> )> .SEGCNT> )> > ) (.FF? >) ( )>) (ELSE )> .MWHERE> > ) ,LVAL-CODE> .B>> <>) ( ,SNODES> T) ( ,COND-CODE> .B>>> <>) (ELSE T) (ELSE >)>> >)>> \ > )) #DECL ((SYM) SYMTAB (COD) FIX) ) (,ARGL-IAUX ) (,ARGL-AUX ) (,ARGL-TUPLE ) (,ARGL-ARGS ) (,ARGL-QIOPT ) (,ARGL-IOPT ) (,ARGL-QOPT ) (,ARGL-OPT ) (,ARGL-CALL ) (,ARGL-BIND ) (,ARGL-QUOTE ) (,ARGL-ARG )>> >) (TMP >) (BR .BR) (DIR .DIR) RT (FRAME? ) FOK TRUE-OK) #DECL ((MNOD FAP N) NODE (TMP) TEMP) >>>> FALSE>> FALSE>> ) (ELSE ) (ELSE .DIR)> )>)>) (ELSE )>) (ELSE > ) (ELSE )> > )> ) (ELSE )> )> ,NO-DATUM> )> )> T> \ ) (K ) (LN ) (FAP <1 >) DAT FTG (FF? <==? ,MFIRST-CODE>) (LEAVE <==? ,MAPSTOP>) (EXTMP .EXTMP) (FTMP .FTMP) (F? .F?) (MAYBE-FALSE .MAYBE-FALSE) SEGTMP (FRAME? ) (SEGLABEL ) (COUNTMP .FTMP) (SEGCALLED <>)) #DECL ((N MNOD) NODE (K) (LN) FIX (SEGCALLED SEGLABEL COUNTMP) ) > > >> .FAP .INRAP .FTMP .EXTMP>) (.F? <>>>) (ELSE )> )>) (ELSE )>) (.FF? ) (ELSE > )> ,SEGMENT-CODE> > >>)> >> .SEGTMP>> > T>)> >> > .SEGLABEL>) (.SEGCALLED )> > >> ) (ELSE )> <> .FTMP <> <>> )>) (ELSE > > T> >> ) (ELSE )>)>> .K> )> <>>>)>)> >)> ,NO-DATUM> \ )) #DECL ((N FAP) NODE (K) (SEGLABEL COUNTMP SEGCALLED) ) ,SEG-CODE> <==? ,SEGMENT-CODE>> > > >>>> 1>> ) ( > >>)> )> > >> VALUE)>) (ELSE VALUE LENGTH)>)> >> > ) (ELSE )> ) (ELSE )> )> > >> ) ( )>) (ELSE > )>> .K>> ,GVAL-CODE> <==? >>> ,QUOTE-CODE> > > >>>> .AT>>