From f2683113a08f2defcc14a0a7d24d04006957af45 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 4 Apr 2020 20:22:07 +0200
Subject: [PATCH] Compile DECUS music files.

Except those that already came from Samson's DECtapes.
---
 build/misc.tcl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

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"