From 570fcb80ddb61bd58a2d8c7e8acd901f9c820915 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 3 Sep 2019 08:48:37 +0200
Subject: [PATCH] Make a @ SALV for KL10.

---
 build/kl10/include.tcl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/build/kl10/include.tcl b/build/kl10/include.tcl
index 1d2e20b4..72963bfb 100644
--- a/build/kl10/include.tcl
+++ b/build/kl10/include.tcl
@@ -101,10 +101,14 @@ proc dump_nits {} {
 
     sleep 3
 
-    # Since we bootstrap with a 1-pack ITS, we need to copy the MFD to
-    # the fresh packs.
+    # Dump an executable @ SALV.
     respond "\n" "\033l"
     respond " " "$salv bin\r"
+    respond "\n" "\033y"
+    respond " " "$salv\r"
+
+    # Since we bootstrap with a 1-pack ITS, we need to copy the MFD to
+    # the fresh packs.
     respond "\n" "ucop\033g"
     respond "UNIT #" "0"
     respond "UNIT #" "1"