From 282829039f4c5300dce8decc34ef43a53a0daa3f Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 10 Apr 2018 09:58:05 +0200
Subject: [PATCH] Use separate simulator config file for running newly built
 ITS.

This enables using a bootstrap ITS with a diffent configuration, such
as device support or channel 1 multiplexing, from the new ITS.
---
 build/ka10/include.tcl |  2 +-
 build/sims/boot2       |  9 +++++++++
 build/sims/build.tcl   | 12 ++++++++++--
 3 files changed, 20 insertions(+), 3 deletions(-)
 create mode 100644 build/sims/boot2

diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl
index 23bf2175..f67cf041 100644
--- a/build/ka10/include.tcl
+++ b/build/ka10/include.tcl
@@ -1,5 +1,5 @@
 proc start_dskdmp_its {} {
-    start_dskdmp
+    start_dskdmp build/sims/boot
 
     respond "DSKDMP" "its\r"
     expect "\n"; type "\033g"
diff --git a/build/sims/boot2 b/build/sims/boot2
new file mode 100644
index 00000000..0e788944
--- /dev/null
+++ b/build/sims/boot2
@@ -0,0 +1,9 @@
+set cpu its
+set cpu 512k
+set pd off
+at ptr bin/ka10/boot/dskdmp.rim
+at mta0 out/sources.tape
+at dpa0 out/rp03.2
+at dpa1 out/rp03.3
+set dpa noheaders
+b ptr
diff --git a/build/sims/build.tcl b/build/sims/build.tcl
index 764488cf..1230900e 100644
--- a/build/sims/build.tcl
+++ b/build/sims/build.tcl
@@ -6,9 +6,17 @@ proc start_salv {} {
     expect "\n"; send "t\033salv\r"
 }
 
-proc start_dskdmp {} {
+proc start_dskdmp args {
+    puts [llength $args]
     quit_emulator
-    uplevel #0 {spawn ./tools/sims/BIN/ka10 build/sims/boot}
+    set ini ""
+    if {[llength $args] == 1} {
+        set ini [lindex $args 0]
+    } {
+        set ini "build/sims/boot2"
+    }
+    set foo "spawn ./tools/sims/BIN/ka10 $ini"
+    uplevel #0 $foo
 }
 
 proc mount_tape {file} {