3 <LINK '<ERRET T> "
\ 5" <ROOT>>
6 <OR <ASSIGNED? PURE!-> <SET PURE!- T>>
7 <ENTRY BEGIN-HACK BEGIN-MHACK>
8 <LINK OP!-PACKAGE!- "OP" <2 .OBLIST>>
10 <FLOAD "PS:<COMPIL>NEWOP.MUD">
11 <FLOAD "PS:<COMPIL>BOPHAC.MUD">
12 <FLOAD "PS:<COMPIL>MUDHAK.MUD">
18 <REMOVE "OP" <1 .OBLIST>>
29 <COND (<NOT <ASSIGNED? SILENT!->><SET SILENT!- <>>)>
31 <COND (<NOT .SILENT> <PRINC " LOADING MUDDLE COMPILER "> <TERPRI>)>
34 <BLOAT 100000 5000 100 1500 100>
36 <PROG ((GLUE <COND (<ASSIGNED? GLUE> .GLUE)>)) #DECL ((GLUE) <SPECIAL ANY>)
37 <FLOAD "PS:<COMPIL>ASSEM.FBIN">>
39 <PACKAGE "CODING" "IC">
41 <FLOAD "PS:<COMPIL>ATOSQ.NBIN">
42 <SETG ONLY-FAST-OUTPUT T>
49 <FLOAD "PS:<COMPIL>CONNECT-DIR.NBIN">
51 <CONNECT-DIR "PS:<COMPIL>">
53 <USE "MACROS" "SORTX" "DOW" "DATIME" "TIMFCN" "NOW" "DFL" "FINDATOM">
55 <CONNECT-DIR "SRC:<MDL.COMP>">
59 <LINK ASSEMBLE1!-CODING!-PACKAGE "ASSEMBLE1" <1 .OBLIST>>
61 <FLOAD "PS:<COMPIL>WOFCH.FBIN">
62 <FLOAD "PS:<COMPIL>POPWR2.FBIN">
71 <USE "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
72 "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
73 "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
74 "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
75 "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH">
78 <MAPF <> <FUNCTION (ATM "AUX" (O <OBLIST? .ATM>)) <INSERT <REMOVE .ATM> .O>>
79 '(LOGOUT ERROR ERRET QUIT COND AGAIN REP TAG REDEFINE VALRET T)>
85 <DEFINE DUMP-COMP!- (N
86 "OPTIONAL" (GCQ T) (SN <SNAME>) UNM
87 "AUX" CH (SR .READ-TABLE))
88 <UNASSIGN <GUNASSIGN READ-TABLE>>
91 <COND (<=? <FSAVE .N .GCQ> "SAVED">
93 <SET READ-TABLE <SETG READ-TABLE .SR>>)
94 (<AND <OR <=? <SET UNM <UNAME>> "CLR">
99 <OR <=? <SET SN <SNAME>> "COMPIL">
100 <=? .SN "MDL.COMP">>>
101 <BEGIN-HACK "COMPIL"><BEGIN-MHACK> <RSUBR-LINK <>>
102 <PRINC "` and | hacks enabled. Rsubr-Link <>"> <CRLF>)
105 <COND (<SET CH <OPEN "READ" <COND (<=? .UNM "COMBAT">
112 <PRINC "MUDDLE COMPILER NOW READY.">
118 <INSERT <REMOVE COMPILE> <ROOT>>
120 <INSERT <REMOVE COMPILE-GROUP> <ROOT>>
125 <LINK '<DC> "
\ 1" <ROOT>>
128 <USE-TOTAL "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
129 "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
130 "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
131 "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
132 "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH" "COMPDEC">>
136 <DEFINE C ("OPTIONAL" (N 0)) <PRT <REST .CODE:TOP .N>>>
141 <FLOAD "PS:<COMPIL>PRIMHK.NBIN">
143 <FLOAD "PS:<COMPIL>PRNTYP">
145 <SETG EXPERIMENTAL T>
148 <DROP "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
149 "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
150 "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
151 "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
152 "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH" "COMPDEC">>
158 <PROG () <PRINC "Peep Hole optimizer enabled?">
159 <SET PEEP!-PEEPH!-PACKAGE <ERROR>>
161 <PRINC "KILL-COMP disabled">
163 <SETG KILL-COMP!-IFCOMPIL!-FCOMPIL!-PACKAGE ,TIME>>
165 <DROP "MACROS" "SORTX" "DOW" "DATIME" "TIMFCN">
167 <DROP "PASS1" "CODGEN" "SYMANA" "CHKDCL" "MAPPS1" "CUP" "MAPANA" "MAPGEN"
168 "VARANA" "CARANA" "NEWREP" "BACKAN" "CBACK" "COMSUB" "CARGEN" "CONFOR"
169 "CDRIVE" "CPRINT" "COMTEM" "NOTANA" "NOTGEN" "STRANA" "STRGEN" "ALLR"
170 "LNQGEN" "MMQGEN" "ISTRUC" "INFCMP" "BITTST" "BITANA" "BITSGEN" "BUILDL"
171 "SPCGEN" "ADVMES" "CACS" "COMCOD" "NPRINT" "CASE" "PEEPH">