Fixed systematic errors in the original MDL documentation scans (starting around...
[pdp10-muddle.git] / <mimc.mim> / em.mud.1
1 <DEFINE EMACRO (OBJ "AUX" (ERR <GET ERROR!-INTERRUPTS INTERRUPT>) TEM) 
2         <COND (.ERR <OFF .ERR>)>
3         <ON "ERROR"
4             <FUNCTION (FR "TUPLE" T) 
5                     <COND (<AND <GASSIGNED? MACACT> <LEGAL? ,MACACT>>
6                            <DISMISS [!.T] ,MACACT>)
7                           (ELSE <APPLY ,<PARSE "OVALRET!-COMBAT!-"> " ">)>>
8             100>
9         <COND (<TYPE? <SET TEM
10                            <PROG MACACT () #DECL ((MACACT) <SPECIAL ANY>)
11                                  <SETG MACACT .MACACT>
12                                  (<EXPAND .OBJ>)>>
13                       VECTOR>
14                <OFF "ERROR">
15                <COND (.ERR <EVENT .ERR>)>
16                <ERROR " MACRO EXPANSION LOSSAGE " !.TEM>)
17               (ELSE <OFF "ERROR"> <AND .ERR <EVENT .ERR>> <1 .TEM>)>>