" Definitions of offsets into MAPINFO vector used by MAP hackers inferiors." \ \ ) (COD >)) #DECL ((NOD) NODE (COD) FIX (K) ) <>> ) (ELSE > ) MPINFO (INRAP <2 .K>) (W ) (DTEM ) F? FF? (MAYBE-FALSE <>) (ANY? <>) (NARG >>) (RW .WHERE) (POFF 0) (R? <==? ,MAPR>) (OFFS 0) (STKOFFS <>) (MAPEND >) (MAPLP ) (SUBRC ) (STB .STK) STOP (STK (0 !.STK)) TT) #DECL ((FAP INRAP) NODE (DTEM) DATUM (NARG POFF OFFS) FIX (STKOFFS) (MAPLP) ATOM (MAPEND) (STK) (STOP STB) LIST (MPINFO) DATUM ANY FIX LIST LIST FIX>>) FLUSHED) (ELSE )>> <> <> <>>> ,MFIRST-CODE>>> () <>>> >)> > > >> )> >>)> >> >]> > DONT-CARE>>) (.FF? > DONT-CARE> (<- .OFFS 1> ()) .NOD .FAP <1 >>) ( > .W> '`(TP) >> .TT>>) (ELSE > FLUSHED>)>) (ELSE >> >> >> > >) (.FF? (<- .OFFS 1> ()) .NOD .FAP .INRAP>) ( '`(TP) >> .TT>>)>)> > )> >)> <>> >>> > )>> .K> >) (.FF? .WHERE>>) ( '`(TP) >> .TT> .WHERE>>)> >)>> \ ) S TEM TT NEW) #DECL ((K) (BST) (S) SYMTAB) )) #DECL ((N) NODE) > ) (ELSE )>>> .TEM> )> > <==? >> > >> ,ACPROT T>)> > <==? >> >> ,ACPROT <>>) (ELSE >>>)>)> >)> > > TEMPV> > <* -2>) (ELSE 0)> !.TMPS) TEMPV>>)> > > AC> )>)> > ,ACRESIDUE (.S !)> >) (ELSE >> >)> > <==? .RT TEMPLATE>>> ) ( )>> .K> > >)> .NL> (K) ) ) (PTYP >) A1 A) #DECL ((S) SYMTAB (D) (N) NODE (A) AC) DUMMY-MAPF> )> >>> <>> <==? .PTYP BYTES>> ANY-AC) (ELSE .PTYP)> ANY-AC>>> >> > ,ACRESIDUE (.S !)> > AC> )>)> > )>> .BST .K> T> (K) (CNT) FIX (LV) LIST) ) > DUMMY-MAPF>> )> > >>> .LV>> >) (ELSE <> <>>>)> AC> ) (ELSE >)> > (>)>> > .TG>>)>) (ELSE >> >> >)>)>) ( <==? .PTYP TUPLE>> > '[<2 (2)>]>> > .TG>>)>) (ELSE ]>> >> >)>)>) ( <==? .PTYP STORAGE>> > .TG>>) (> '[<1 (1)>]>>)>) (ELSE ]>> >> >)>)>) ( <==? .PTYP BYTES>> >> >>)> AC> > -1>> ) (ELSE >> >)>)>)> > >> > 0> )> ,STORED T> ,INACS <>> >>> )) #DECL ((DTEM) DATUM (DAC) AC (STB) LIST) >>>) (ELSE .DTEM> > >> '`(P) >> >>)> .STKOFFS> )) #DECL ((FAP) NODE) >>)> ,GVAL-CODE>> FALSE>>> > > >> >) (ELSE >)> .MAYBE-FALSE> ) (T2 )) #DECL ((DAT) DATUM (T1 T2) ATOM) >> > > .TT>>> ) (> )>)>> \ 5> >)> >>> > .TT> .W>> ) (LMOD ) (MOD ) ACSY) #DECL ((OFFS) (DAT) DATUM (COD) FIX (N FAP NN) NODE) >> > > !<2 .OFFS> '`(TP) >> !<2 .OFFS> '`(TP) >> !<2 .OFFS> '`(TP) >> > !<2 .OFFS> '`(TP) >> !<2 .OFFS> '`(TP) >>) (ELSE >> 1> 2>> <==? .LMOD FIX> >> >> .COD> .ACSY <1 .OFFS> !<2 .OFFS> '`(TP) >> !<2 .OFFS> '`(TP) >>)>)> T> > > >>> ) (ELSE >)> >> > > .WHERE>>) (ELSE > ) (ELSE >)> .WHERE>>)>> SUBR> > 4> <==? <4 .TP> STACK>> >>) (ELSE >)>> FIX> FIX> 1 0]> 1.0 0.0000000]> \ >>) DAT TEM TT T1) #DECL ((FAP) NODE (COD) FIX) ,MFIRST-CODE> > ) (ELSE ())>>> > <>) ( ) (ELSE )>>> <>)>) ( T) ( >>> <>)>> \ >>) DAT TEM TT T1) #DECL ((FAP) NODE (COD) FIX (ACS) ) > .FLS> >>) (<==? ,MFIRST-CODE> > ) (.ACS ) (ELSE )>> .W>>> >) (ELSE >)>) ( ) (> .W>> > ANY-AC> >) ( )> > ANY-AC> >) ( )>)> >) (.ACS > .W>>> >) (ELSE >)> > > <* -2>) (ELSE 0)> !.TMPS) TEMPV>> > > > ,ACRESIDUE (.ACS !)> AC>> > ,ACRESIDUE (.ACS !)>)>)> <>) (ELSE .TEM)>> \ >) (OFFS
!.STKD>)) #DECL ((MP) DATUM ANY FIX LIST LIST LIST> (STKD OFFS) (DAT) DATUM (ETAG) ATOM) > > .TT>> 2>>) (> !>>> VECTOR (.OFFS)>> .TT>> 2>>) (ELSE -2> 1>) (0)>>> .TT>>)> > )>)> > .DAT >> > .W>> >> > >> > !.STKD)) !)> >> .W> \ >) (COD 0) TT (ETY ALL>) SAC TEM) #DECL ((N) NODE (SRC TEM) DATUM (SAC) AC (COD POFF) FIX) > <==? .STY VECTOR>> T>>>> .LBL>> ]>> >> >) (ELSE .TEM)>) (ELSE > ) (ELSE )>)>) (<==? .STY LIST> T>>>> > ()>> .LBL>> !>> ALL>>>> 1 ()>>) (> )>> > 1 ()>>)> > .TT>)>) ( <==? .STY STORAGE>> T>>>> .LBL>> ]>> >> > .TT>)>) ( <==? .STY BYTES>> >> > T>> >> >> .TEM) (ELSE >> CHARACTER) (ELSE FIX)> ANY-AC>> > > !>> .TEM)>) (ELSE ;"Don't know type of structure, much more hair." T>> > > > > > > >) (ELSE > > >)> > >> >> > > .TEM)>> ) D1 A1 A2 COD D2 (ETYP > >) TEM (TT >>) ET (BIND <>)) #DECL ((S1 S2) SYMTAB (D1) (A1) AC (COD NR) FIX (FSYM) ) > >>> <>> <==? .PTYP BYTES>> ANY-AC) (ELSE .PTYP)> ANY-AC>>> >> > ,ACRESIDUE (.S1 !)> ) ( <>>>) (ELSE >)> >)> >> .TG>>) ( <==? .PTYP UVECTOR> <==? .PTYP TUPLE> <==? .PTYP STORAGE>> .TG>>) (> AC> -1>> ) (ELSE >> >)>)> > > > !.NTSLOTS)> >> >)> TEMPV> > <* -2>) (ELSE 0)> !.TMPS) TEMPV>>) (ELSE )> >) (ELSE >>)>) (ELSE AC> ,ACPROT T>)> AC> ,ACPROT T>)> > > ,DATVAL >) (ELSE > ,DATTYP >> > >)> AC> ,ACPROT <>>)> AC> ,ACPROT <>>)> ) (ELSE >)> AC> ,ACPROT T>)> >> AC> ,ACPROT <>>)>) (ELSE >)> >>> 1 ()>>) (ELSE >> )>> > 1 ()>>)> )> > ()>>)> > 1 ()>>) (ELSE LIST>> >)>) ( <==? .PTYP TUPLE>> > >) (ELSE > ()>>)> > 1 ()>>)>) ( <==? .PTYP STORAGE>> > ) (ELSE )>>) (ELSE > >> >>> > (>)>>)> > ()>>)>) ( <==? .PTYP BYTES>> AC> ,ACPROT T>)> AC> ,ACPROT T>)> >> !>> >> CHARACTER) (ELSE FIX)> .A1>>> > AC> ,ACPROT <>>)> AC> ,ACPROT <>>)>) (ELSE > !>> >>)>)>)> AC> > ,ACRESIDUE (.S2 !)>)> AC> > ,ACRESIDUE (.S2 !)>)> > )>> >>) (ETYP > >) AC) #DECL ((SYM) SYMTAB (DAT) DATUM) TEMPV> > <* -2>) (ELSE 0)> !.TMPS) TEMPV>>)> ) (ELSE ANY-AC)> ANY-AC>>>> > AC> )>)> > ,ACRESIDUE (.SYM !)> > > ) (LMOD ) (MOD ) ACSY (D2 <>>)) #DECL ((D1 D2 D3) DATUM (N FAP NN) NODE (COD) FIX) 1> 2>> <==? .LMOD FIX> >> >> .COD> .ACSY !>> AC> > >>>) (ELSE >>)>)>> \ ) (ELSE (0))>) TEM (NSLOTS 0) (SPECD <>) STB (DTEM ) (STKOFFS <>) (FAP <1 .K>) (INRAP <2 .K>) F? (POFF 0) (ANY? <>) (NARG >>) START:TAG (R? <==? ,MAPR>) STRV (FF? <>) (MAPEND >) (OSTK .STK) (MAPLP ) (MAPL2 ) MAP:OFF (SUBRC ) STOP (STK (0 !.STK)) (TMPS .TMPS) BTP (BASEF .BASEF) (FRMS .FRMS) (MAYBE-FALSE <>) (OPRE .PRE) (OTAG ()) DEST CD (AC-HACK .AC-HACK) (EXIT ) (APPLTAG ) TT GMF (OUTD .WHERE) OUTSAV CHF (FLS <==? .WHERE FLUSHED>) (RTAG ) (NEED-INT T) FSYM OS NS (DOIT T) RV GSTK) #DECL ((NTSLOTS) (DTEM) DATUM (SPECD) > (TEM) (OFFS) FIX (TMPS) (POFF NSLOTS NARG) (FAP) NODE (BASEF MNOD INRAP) (K) (MAPEND) (MAP:OFF) ATOM (EXIT MAPLP RTAG APPLTAG) (OSTK) LIST (DEST CD) > (FRMS) (STOP STRV STB BTP STK GSTK) (AC-HACK START:TAG) (GMF MAYBE-FALSE ANY?) (FSYM) SYMTAB) .TOT-SPEC>> ) > '> >> T> .K>> >)> >> <>> ,MFIRST-CODE> 5>> .SUBRC> <==? >> DUMMY-MAPF>>> ) (ELSE >)> > >> .K> 0>> ) (ELSE >)> )>>> <0? >>>>> >> >> .FSYM)> .CHF <1? .NARG> .FLS>> >> ,MFIRST-CODE>>> > )> .WHERE>> .K .R?>)> > )> .CHF <1? .NARG> .FLS> > >)>> >)> > >>>>)> > > > > > !.NTSLOTS)>)> )>>> > > > >> > )> ) (BST ()) (ELSE ) > DUMMY-MAPF> ) (ELSE ())>> .BS>)>) (OFFSET (<- 1 <* .NARG 2>> ())) TEM (TOFF (0 ())) (GOFF '(0))) #DECL ((BST) (TOFF OFFSET) (KK) ) > > > )> > .SYM>> .BST> ) (ELSE > TEMPV>> >> >>) (ELSE .DTEM VECTOR (!<2 .OFFSET> !)>> > >)>>)>) (ELSE !> '`(TP) !<2 .OFFSET>>> >)> > 4> > )) (( !<2 .TOFF>> <1 >>> !<2 .TOFF>))>) !.OTAG)> > <1 .BS> <1 .BST> .R? <1 .MAPEND> .CHF .NARG .MAPL2> > >) (.RV > <1 .BST> .R? <1 .MAPEND> .POFF> .R?>) (ELSE .R? <1 .MAPEND> .POFF>>)> > > >)>> >> > > AC> > .S>)> > AC> > .S>)> >)>>)> <1? .NARG> > )> >> >>> > > > .FLS <1? .NARG> >>>> >) ( T>>) ( !> '`(TP) >> .TT>)> T>> ) (ELSE FLUSHED T>>>)> > ) ( >>>> !.NTSLOTS>) (ELSE )> ) ( >> >> >) (> >> >> > AC> ,ACRESIDUE (.FSYM !>)>)> ,ACRESIDUE (.FSYM !>)> > >> ) LL) #DECL ((L) LIST (LL) DATUM) )> >> AC> ,ACPROT T>)> AC> ,ACPROT T>)> >> >) ( > AC> >> > .R) (ELSE >)> ,ACPROT T>) (ELSE >> ,ACPROT T>)> > AC> >> > .R2) (ELSE >)>) (ELSE >>)>>> > >)> .D> !)> ) LL) #DECL ((L) LIST (LL) DATUM) )> >> AC> ,ACPROT <>>)> AC> ,ACPROT <>>)> >>)>) (.FF? ()) .MNOD .FAP .INRAP>)> >)> > >> >>)> >> .K .NARG .MAPL2 .R?>)> >> )> > )> >> !.NTSLOTS>) (ELSE )>)> >>> > )>> .K>) (ELSE )> >) ( <>> >) (.FF? > >) (.GMF >) (ELSE > '`(TP) >> .TT> >)>> > AC> .CD>>) (.F? >) ( >) ( >) (.FF? > >)> > AC> .DEST .CD>> AC> .DEST .CD>>)> > .XX> )) 1> <==? >> ,PUT-CODE> <==? >> 3> <==? >> ,QUOTE-CODE> <==? 1> <==? >> ,LVAL-CODE> .B> >> UVECTOR> <==? .TT VECTOR>> >> ANY>) (ELSE > >>)>> > ,QUOTE-CODE> <==? > ,GVAL-CODE> > > >> .B>>>> >) (ELSE ANY-AC)> ANY-AC>>> DONT-CARE>> ALL>>>) (.TT ) (ELSE .TY)> .D1 >>> > > ,ACPROT T> >> > !>> >> ()>> >>) (.TT '[<2 (2)>]>> .TG>> -2 ()>>) (ELSE .TG>> -1 ()>>)> -1 ()>> T)>> ) ,LVAL-CODE> .B>> <>) ( ,SNODES> T) ( ,COND-CODE> .B>>> <>) (ELSE T) (ELSE >)>> >)>> \ ) (TG <1 .L>) (OFF <2 .L>)) #DECL ((LL) (L) LIST (TG) ATOM (OFF) LIST) > > >> !.NTSLOTS>) (ELSE >)>)>)>> .TGS>> >> >> > ) >> > .DEST>> ) (ELSE > FLUSHED>> ) (ELSE > >> )> )> ,NO-DATUM> >> !.NTSLOTS>) (ELSE )>> \ ) (SG ) (DWN '(0)) (K ) (LN ) (UNK <>) TEM DAT (FAP <1 >) FTG (FF? <==? ,MFIRST-CODE>) (LEAVE <==? ,MAPSTOP>) (OS .STK) (FUZZY <* -2 .NARG>) (STK (0 !.STK)) AC-SY (OOS .STK) (NS .NTSLOTS)) #DECL ((N) NODE (K) (LN FUZZY STA) FIX (DWN) LIST (DAT) DATUM (STK) (OS) LIST) > DONT-CARE>>>> > > > .MNOD .FAP .INRAP >) (.FF? >) (ELSE )>)>) (.FF? ) (ELSE ,SEGMENT-CODE> > >> > > )> .UNK> > )> >) (ELSE > > )> >> >)>> .K> >> >>> ) (ELSE >>>)> > > )> >> >>) (ELSE >>)> `(P) >> '(0)>> 1>> ()>> >> '`(A) >> '`(TP) >> ]>>)>)> >)> > >> >)> ) ()> > ,NO-DATUM> \ (OFFS) FIX) >)>> )) #DECL ((NN) NODE (TG1 TG2) ATOM (DAT) DATUM (TT) ADDRESS:C) ,SEG-CODE> <> <> () <>>> >> > > .TT> <> > 0>> .MNOD .FAP .N> >> ]>>> >>>> >)> ]>>) (ELSE > )>> .K> > ,GVAL-CODE> <==? >>> ,QUOTE-CODE> > > >>>> .AT>>