diff --git a/build/misc.tcl b/build/misc.tcl
index 479402cb..9688e56e 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -497,6 +497,36 @@ respond "*" ":midas sys1;ts who%_sysen3;who%\r"
 expect ":KILL"
 respond "*" ":link sys1;ts %,sys1;ts who%\r"
 
+# MACRO-10
+respond "*" ":cwd decsys\r"
+respond "*" ":dec sys:macro\r"
+respond "*" "macro=macro\r"
+respond "*" "\003"
+type ":kill\r"
+respond "*" ":dec sys:link\r"
+respond "*" "macro/go\r"
+# Strange error here.  Workaround is to retry.
+expect "%LNKNED"
+respond "*" "macro/go\r"
+respond "*" ":start 45\r"
+respond "Command" "d"
+respond "*" ":pdump sys2; ts macro\r"
+respond "*" ":kill\r"
+respond "*" ":delete decsys; macro shr\r"
+# Assemble with itself, now no errors
+respond "*" ":macro\r"
+respond "*" "macro=macro\r"
+respond "*" "\003"
+type ":kill\r"
+respond "*" ":dec sys:link\r"
+respond "*" "macro/go\r"
+expect "%LNKNED"
+respond "*" "macro/go\r"
+respond "*" ":start 45\r"
+respond "Command" "d"
+respond "*" ":pdump sys2; ts macro\r"
+respond "*" ":kill\r"
+
 # Old PALX
 respond "*" ":midas sys3;ts plx143_rms;palx 143\r"
 expect ":KILL"
diff --git a/src/decsys/macro.mac b/src/decsys/macro.mac
new file mode 100644
index 00000000..11cb37f6
Binary files /dev/null and b/src/decsys/macro.mac differ