More files.

[pdp10-muddle.git] / <mimc.mim> / em.mud.1

diff --git a/<mimc.mim>/em.mud.1 b/<mimc.mim>/em.mud.1
new file mode 100644 (file)
index 0000000..2594073
--- /dev/null
+++ b/<mimc.mim>/em.mud.1
@@ -0,0 +1,17 @@
+<DEFINE EMACRO (OBJ "AUX" (ERR <GET ERROR!-INTERRUPTS INTERRUPT>) TEM) 
+       <COND (.ERR <OFF .ERR>)>
+       <ON "ERROR"
+           <FUNCTION (FR "TUPLE" T) 
+                   <COND (<AND <GASSIGNED? MACACT> <LEGAL? ,MACACT>>
+                          <DISMISS [!.T] ,MACACT>)
+                         (ELSE <APPLY ,<PARSE "OVALRET!-COMBAT!-"> " ">)>>
+           100>
+       <COND (<TYPE? <SET TEM
+                          <PROG MACACT () #DECL ((MACACT) <SPECIAL ANY>)
+                                <SETG MACACT .MACACT>
+                                (<EXPAND .OBJ>)>>
+                     VECTOR>
+              <OFF "ERROR">
+              <COND (.ERR <EVENT .ERR>)>
+              <ERROR " MACRO EXPANSION LOSSAGE " !.TEM>)
+             (ELSE <OFF "ERROR"> <AND .ERR <EVENT .ERR>> <1 .TEM>)>>
\ No newline at end of file