)> ;"GETS names" COMPILER-INPUT > >)> > >)> ACTIVATION MRETURN LOOP TBIND BINDID DISPATCH ARGS OBLIST INGC UBLOCK UUBLOCK USBLOCK SBLOCK BIND PAGPTR MINF ICALL ECALL NCALL UWATM MAPPER ENVIR RUNINT PURVEC DBVEC M$$BINDID FRAME SFRAME ADJ SCALL CALL NTHR = FCN GFCN IFSYS IFCANNOT IFCAN ENDIF TEMP MAKTUP END COMPERR UNWCONT IOERR JUMP OPT-DISPATCH ICALL ACALL BRANCH-FALSE DEAD-FALL DEAD-JUMP STACK TYPE-CODE TYPE-WORD RECORD-TYPE DEAD ALL > >)> > >)> > )> > )> > )> > >)> > >)> > )> > >)> > >)> > >)> > >)> > >)> > >)> > >)> > >)> > >)> > )> > >)> > >)> > )> > > )> > >)> 1>> FIX>> >>)> >) (ELSE >)> > ,CTLZ+1>> >>>)> > > > > )> 127> >) ( )>> )) #DECL ((ATM) ATOM (SPN) STRING) 2> <==? <1 .SPN> !\T> <==? <2 .SPN> !\$>> > >) ( > ,ROOT-ATOMS>> > ) (T )> > > )> > > > >) ( > ">)>> > > WORD> )> ">> > > WORD> )> ">> > )> OP.MUD">) ( )> > MIMOPS.MUD">)> (THIS-GUY) >> )) #DECL ((IFL LP LL) LIST) )> > FORM> > '[IFSYS ENDIF IFCAN IFCANNOT]>> "TOPS20"> !.IFL)> >>) (T >>>)>) ( <==? .IFOBJ IFCANNOT>> ,MIMOC-OBLIST>) (ELSE ,MIMOC-OBLIST>>)> !.IFL)> >>) (T >>>)>) (T <1 .IFL>>> .IFL>) (ELSE >)> >>)> )> >>>> >> )> > > ENDIF> >> >)>) ( <==? .FRST IFCAN> <==? .FRST IFCANNOT>> >)>)>>> )) #DECL ((STR) STRING) ) (<==? .CH !\>> >) ( <==? .CH !\.>> ) (ELSE .CH)>> .STR>> .EXPFLOAD>) F-OR-G (PREC <>) PRE-INDEX COMPILER-INPUT (REDO .REDO>) ON (PRECOMPILED .PRECOMPILED>)) #DECL ((FILES) < [REST STRING]> (OUTCHAN) (PREC OC C) (COMPILER-INPUT) (PRE-INDEX) ]> (REDO) ) >> > ".MSUBR">>>> > > >)) >>> .REDO>>>>> > )) #DECL ((BUFFER) STRING) ) ITM NM ACCESS-DATA SPN HASH-CODE) #DECL ((L) LIST (NAME) (NXT) FORM (END) > (HASH-CODE) WORD (ACCESS-DATA) ) > 2> > ATOM>> > >>)> )>) (T )> > > ) (> ) .NM> > 3> > <==? <3 .ACCESS-DATA> .HASH-CODE>> ) (ELSE >)>)>> .PRE-INDEX>> > <1 .ACCESS-DATA>>)) #DECL ((NCHRS) FIX) ) (ELSE >)>> ) (ELSE >)> )> > > >> )> ,LABELS> > .F-OR-G> >>> ,LABELS>)> >> )> >> > ) ()>> ,NULL) (ELSE .C> .OC> ) (ELSE )>) (ELSE )>)>> ) NMSTR (LEN 0) (FCN-COUNT 0) MSUBR-ACCESS (LOWERSTR <>) (TFILES .FILES) TN (OUTCHAN .OUTCHAN) (EXPFLOAD .EXPFLOAD>) TOC PN ON TON TFILE-LENGTH COMPILER-INPUT (OB ,OUTPUT-BUFFER)) #DECL ((TFILES FILES) < [REST STRING]> (OB) STRING (OC TC C) (LEN MSUBR-ACCESS TFILE-LENGTH) FIX (FCN-COUNT) FIX (LOWERSTR) (OUTCHAN) (COMPILER-INPUT) ) > ,CTLZ+1>> >>>)> > <> <> <>]>)>)> ) > ,MV-TABLE> ) > ,CONSTANT-TABLE> > >> > ".MSUBR">>>> > ".TMSUBR">>>> > ".MIMOCTEMP">>>>>> > FALSE>) .EXPFLOAD>> > > >>> >> > >> ) .NAME> <=? <2 .X> .OBLIST>> )>> ,LIST-OF-FCNS>) (ELSE ) !,LIST-OF-FCNS)>)>) (ELSE >)> )) #DECL ((CHR) CHARACTER) > >> >) (.CHR)>> >>)> GFCN> )> > !,PRE-OPTS)>) (> > ) > >>>> 3>> )>)> >> GFCN> )> > BIND> <==? .OP BBIND> <==? .OP ADJ>> FIX>>> FIX>>>> )>)>> .L>) (ELSE )>> )> >> >) ()>> > >> >) ()> ) (END <>) ITM (FCN-FOUND 0) (FIRST T) MSBASE (IFL ())) #DECL ((L) LIST (NAME) (NXT) (END) > (ITM) ANY (FCN-FOUND) FIX (IFL MSBASE) LIST) > > > >) (T )> >> >) ()>)>> >)> )> >> >>) (ELSE >)> > > > >>> ,LABELS> ()> )> > >> ,LABELS> ,LABELS ,GREFS ,GCALS)> !,GLUE-LIST)> > >)> >> )> > )>> >> .MSUBR-ACCESS>> )) >>)> > )> > 0> )>> > )> > )) #DECL ((FROB) (CODE) UVECTOR) ) > <3 .X>>> FIX>>> LIST>> ) > >>>> <6 .FROB>> FIX>>> > 0> )>>> .CODE> .LEN>>> ,GLUE-LIST> > > )) #DECL ((BUFSTR) STRING) >>)> > 0> )>> ) (ELSE )> )> )) #DECL ((BUFSTR) STRING) >>)> > 0> )>> )> ,NULL) (ELSE .C> .OC> ) (ELSE )>) (ELSE )>)>>

) (ELSE )>> ) (VL ,VICTIMS)) #DECL ((VL) LIST) <=? <1 .OBJ> .SP> LIST>>> )>> .VL>>>> ) (ELSE )>> ) (SP ) O (PP <>) PO) #DECL ((LL) !) )) #DECL ((PN) LIST) .SP> >) (ELSE T)>> ,PRE-NAMES> 2> !\I> <==? <2 .SP> !\$>>>>> > >> <==? .O >>> .SP> <2 .LL>>> )>> ,SURVIVORS>>) ( )>> <2 .LL>>> ) !.VL)>)> > )>> <2 .LL>> >>>> > >)>)>> .LOF> >> > )> .OUTCHAN> ) (ELSE )> .OUTCHAN> .OUTCHAN> .OUTCHAN> " .OUTCHAN> )> > )) #DECL ((INCHAN) CHANNEL (OUTCHAN) (END?) (EXPFLOAD EVAL?) ) > )> > .IND> >> >)> > )> <=? "">>>> > .END?>> ) (> )> .OUTCHAN> )> )> > FLOAD> >>) (<==? <1 .ITM> L-FLOAD> >>)>> ) (T > '[INCLUDE-WHEN USE-WHEN]> >> > FORM> > <==? <1 .TMP> COMPILING?>> ) (ELSE )>>)> )> )> )>)>)>>> ) (ELSE )> > .CH> >> .CH>)>> > ) MS OO) MSUBR> >> #OBLIST PACKAGE> > #OBLIST PACKAGE> >> ,SUBRIFIED-PKGS>> >> 2>) (CNT:FIX 0) IT) )> > STRING>> >) ( >)> >>] SUBR-INFO>)>> > ">> )>