From 47467acd163e7ec964dcc188981545f75270f24d Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 8 Nov 2016 11:48:22 +0100
Subject: [PATCH] Run MTBOOT to create new DSKDMP and NSALV boot tapes.

---
 build/build.tcl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/build/build.tcl b/build/build.tcl
index 0089b5e2..3f68ccec 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -289,6 +289,26 @@ respond "*" ":link sys; ts p,sys; ts peek\r"
 respond "*" ":midas kshack;ts mtboot_kshack;mtboot\r"
 expect ":KILL"
 
+respond "*" ":link kshack;good ram,.;ram ram\r"
+respond "*" ":link kshack;ddt bin,.;@ ddt\r"
+respond "*" $emulator_escape
+create_tape "out/ndskdmp.tape"
+type ":kshack;mtboot\r"
+respond "Write a tape?" "y"
+respond "Rewind tape first?" "y"
+respond "Include DDT?" "y"
+respond "Input file" ".;dskdmp bin\r"
+expect ":KILL"
+
+respond "*" $emulator_escape
+create_tape "out/nnsalv.tape"
+type ":kshack;mtboot\r"
+respond "Write a tape?" "y"
+respond "Rewind tape first?" "y"
+respond "Include DDT?" "y"
+respond "Input file" ".;nsalv bin\r"
+expect ":KILL"
+
 respond "*" $emulator_escape
 create_tape "out/output.tape"
 type ":dump\r"