diff --git a/build/misc.tcl b/build/misc.tcl
index c8f673be..512d1d29 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1147,6 +1147,34 @@ respond "\n" "\033y"
 respond " " "sys1; ts big\r"
 respond "*" ":kill\r"
 
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC GRYMG_DECUS;GRYMG MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC HDN_DECUS;HDN MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC JSBI13_DECUS;JSBI13 MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC JSBI1_DECUS;JSBI1 MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC MIDNIT_DECUS;MIDNIT MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC OLITTL_DECUS;OLITTL MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC PAPER_DECUS;PAPER MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC SILVER_DECUS;SILVER MUS\r"
+expect "$^X."
+respond "*" ":muscom\r"
+respond "MUSCOM" "PDP10;MUSIC WINCH_DECUS;WINCH MUS\r"
+expect "$^X."
+
 # WHOLIN
 respond "*" ":midas sys2;ts wholin_sysen2;wholin\r"
 expect ":KILL"