MSUBR-DECL LIST START-LOC FIX REFS LIST FINAL-LOC CONST-START FIX MIN-MAX-ARGS FIX MSUBR-OBLIST LIST> > MSGLUE-PM.MUD">> FIX> FIX>> FIX>> [REST FIX]>>) (ELSE [REST FIX]>>)> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > .EXPFLOAD>) (EST-LNT 0) (FNM1 >) CP ITM OBP OC (NM2 "MSUBR") (TEMP-FILE? ,TEMP-FILE?>) (END <>)) #DECL ((FILES) < [REST STRING]> (OUTCHAN) (OBP CP) (OC C TMP-TXT TMP-CODE) (EST-LNT) FIX (NM2) ) >> >> >>>>> >> >)> >> )>> > >) (T )> > ) (ELSE )> >> .EST-LNT>> > FIX>> )> >> > MSUBR>> )> )> > <2 > 0> <3 > <4 > () <> > >> ] GLUE-INFO>)>> >>)> > INFO <1 .CP>>> )> >> > ) ()>> )> > > )) > >>> > )>> 3> ) NP (OBLIST: .OBLIST) ITM:

) )> PACKAGE> #OBLIST PACKAGE>>) ( )> )> >>)> ) >>) (> > > >) (ELSE )> > .EST-LNT> >)> .OC .INM> >) (ELSE )>> T) ( .TMP-CODE) ( .TMP-TXT) (ELSE .C)>> (EXPFLOAD) (OBP) ) )> )) > .IND> >> )> >)> > )> 1> PACKAGE> <==? <1 .ITM> ENTRY>>> >) ( > FLOAD> >>) (<==? <1 .ITM> L-FLOAD> >>) (ELSE >)> > >> )>) (ELSE .OUT>)>>)> 1>> ) (ELSE > > >)> > GLUED-ATOM> .OUTCHAN>) (ELSE GLUED-ATOM>)>>)> )> ) (.OUTCHAN ) (ELSE > >>)>)>)>>> > .LNT>>) (OB ,OUTPUT-BUFFER) CNUM (CHRS 0)) #DECL ((IMSP IMP) LIST (CP) (CHRS OL LNT NUM) FIX (OB) STRING) .NUM>>> > ) (ELSE ,)> .IMS .IMP .NUM .NEW-CODE>> 1>>>> .CP> .CNUM>>> > > > > > > >> > 0> )>> > 0> )>> .NEW-CODE> )) #DECL ((C) CONST-REF (WRD) FIX) >> > 0> )>>> > >> > > " .OC> > .OC> INFO> .OC> .OC> .OC> " .OC> > ) (REL-PC 0) (FRM-STACK ()) (GLUE-CALL-NO 0) (PC-DIFF 0) (FRAME-CHANGES (T)) (FCP .FRAME-CHANGES) (CV-LN ) FUDGE (OUT-CNT <+ .CURR 1>)) #DECL ((IMS) IMSUBR (MV MVP FRM-STACK FCP FRAME-CHANGES) LIST (CALLS) (CV-LN REL-PC OUT-CNT GLUE-CALL-NO CURR CONST-S) FIX (COD) CODE (DB) (CV) ) ) MOB (NARG <>) LD-NARG LD-AT AC MI MA (INDX )) #DECL ((MI MA AC INS INDX LD-AT LD-NARG) FIX (NARG) ) !.FRM-STACK)>) (<==? .INS ,JSP-SFRAME> ) (<==? .INS ,JSP-CALL> ) (<==? <1 .FRM-STACK> -1> >) (ELSE >) I AC) #DECL ((AC I N) FIX) > ,AC-BP>> ,O1> 2> 1>>> ) ( <==? ,MOVEI>> >) (<==? .AC ,O2> )> > 0> )>> > GLUE-INFO> -18>>> *777777*>>>>> > " from " <2 .IMS> " supplied= " " max= " " min= " " not glued!"> ,OUTCHAN> T)>>> > > FIX> <+ .GLUE-CALL-NO ,GLUE-FRM-INS>> <1 .FRM-STACK>)> 3>> > >)> >)> >)>) ( >)> > .CONST-S> )>> .COD> > ) MOB CCOD (INDX )) #DECL ((CCOD INS INDX) FIX) *777777*> > ,GLUE-FRM-INS> .COD 4> >) (<==? .CCOD ,GLUE-LOAD-MS-INS> >) (<==? .CCOD ,GLUE-LOAD-ARG> ) (> ,INS-BP> ,MOVEI>> .COD > >>)> >)>) (<==? .INDX ,M> 2> 1>>> >>) (ELSE > )> -1> 2> 2>>>> )> > .CONST-S> )>> .COD> > ) TMP MOB CCOD G-I FL (INDX )) #DECL ((CCOD INS INDX) FIX (G-I) GLUE-INFO (FL) ) 5> )> > .CONST-S> ) ( *777777*> > ,GLUE-FRM-INS> > ,HRROI-T> > ,PUSH-TP-T> > ,PUSH-TP-PARENR> > ,PUSH-TP-F>) (<==? .CCOD ,GLUE-CALL-INS> > ,INS-BP> ,MOVEI> > ,SUB-F-O2> > ,SUB-F-O2>) (ELSE 2> 1>> *777777*>>>)> > >>> >) (ELSE )>)> >> >) (ELSE >)>) (<==? .INDX ,R> *777777*>>>) (ELSE )> >> .COD> <- .OUT-CNT 1>> .X> )> )>> >) (ELSE )>>)>> ) (INDX )) #DECL ((AD INS INDX) FIX) > .WHERE> > *777777*>>>)>> .COD>> )) #DECL ((DCL) LIST (MIN MAX) FIX) "VALUE">> ) (ELSE > >)>) ( ) (<=? .EL "QUOTE">) (<=? .EL "TUPLE"> ) (ELSE )>> > .MIN>)>> )) #DECL ((STR) STRING) ) (<==? .CH !\>> >) ( <==? .CH !\.>> ) (ELSE .CH)>> .STR>>