From 233f6fac5b3e1f8a35e8a64223aea6a0f5cac9d9 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 27 Jun 2021 16:49:50 +0200
Subject: [PATCH] Refactor DSKDMP assembly-time switches.

---
 build/ka10/include.tcl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index d7787577..029f81a1 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -62,11 +62,10 @@ proc make_salv {} {
     expect ":KILL"
 }
 
-proc make_dskdmp {} {
-    respond "*" ":midas dsk0:.;@ dskdmp_system;dskdmp\r"
+proc dskdmp_switches {hriflg} {
     expect "Configuration"
     respond "?" "ASK\r"
-    respond "HRIFLG=" "N\r"
+    respond "HRIFLG=" "$hriflg\r"
     respond "BOOTSW=" "N\r"
     respond "R11R6P=" "N\r"
     respond "R11R7P=" "N\r"
@@ -77,6 +76,14 @@ proc make_dskdmp {} {
     respond "NUDSL=" "250.\r"
     respond "KS10P=" "N\r"
     respond "KL10P=" "N\r"
+}
+
+proc make_dskdmp {} {
+    global emulator_escape
+    global out
+
+    respond "*" ":midas dsk0:.;@ dskdmp_system;dskdmp\r"
+    dskdmp_switches "N"
     expect ":KILL"
 }