From c2c805cf64722a3f04980747cd169d43bdc79ad9 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 3 Nov 2016 15:32:09 +0100
Subject: [PATCH] Build DSKDMP.

---
 build/build.tcl         | 26 +++++++++++++++++++++++-
 doc/README.md           |  1 +
 doc/sysdoc/dskdmp.order | 45 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 71 insertions(+), 1 deletion(-)
 create mode 100755 doc/sysdoc/dskdmp.order

diff --git a/build/build.tcl b/build/build.tcl
index 63e10a7d..fec7fcca 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -156,10 +156,34 @@ respond "*" ":midas .;_kshack;nsalv\r"
 respond "Which machine?" "KSRP06\r"
 expect ":KILL"
 
+respond "*" ":midas .;_system;dskdmp\r"
+expect "Configuration"
+respond "?" "ksrp06\r"
+respond "Assemble BOOT?" "no\r"
+expect ":KILL"
+
+respond "*" ":midas .;bt_system;dskdmp\r"
+expect "Configuration"
+respond "?" "ksrp06\r"
+respond "Assemble BOOT?" "yes\r"
+expect ":KILL"
+
+respond "*" ":ksfedr\r"
+respond "!" "write\r"
+respond "Are you sure" "yes\r"
+respond "Which file" "bt\r"
+expect "Input from"
+sleep 1
+respond ":" ".;bt bin\r"
+respond "!" "quit\r"
+expect ":KILL"
+
 shutdown
 start_dskdmp
 respond "DSKDMP" "l\033ddt\r"
-expect "\n"; type "t\033its bin\r"
+expect "\n"; type "t\033dskdmp bin\r"
+expect "\n"; type "\033g"
+respond "DSKDMP" "t\033its bin\r"
 expect "\n"; type "\033u"
 respond "DSKDMP" "m\033nsalv bin\r"
 expect "\n"; type "d\033nits\r"
diff --git a/doc/README.md b/doc/README.md
index 06a8728c..3d200876 100644
--- a/doc/README.md
+++ b/doc/README.md
@@ -11,6 +11,7 @@
   [commands](_teco_/tecord.1132)
 - CRTSTY: [manual](info/crtsty.39)
 - TCTYP: [manual](_info_/tctyp.order)
+- DSKDUMP: [commands](sysdoc/dskdmp.order)
 
 ### DDT cheat sheet for Unix users
 
diff --git a/doc/sysdoc/dskdmp.order b/doc/sysdoc/dskdmp.order
new file mode 100755
index 00000000..78ad4f2e
--- /dev/null
+++ b/doc/sysdoc/dskdmp.order
@@ -0,0 +1,45 @@
+.DEVICE XGP
+.FONT 1 "FONTS;31VG"
+.<<FONT 2 "FONTS1;OLDENG">>
+.FONT 2 "LSPMAN;43VNYR"
+.SELECT 1
+.TURN ON "";
+.INDENT 0,0,0; NOFILL PREFACE 0
+.SKIP 2
+.ONCE CENTER SELECT 2
+DSKDMP ORDER
+.BREAK;SKIP 4
+COMMANDS ARE:
+.SKIP
+   L$file(16)load file into core
+   T$file(16)load file into core and give symbols to DDT and start DDT
+   M$file(16)load file into core without clearing core first
+   K$file(16)delete file
+   D$file(16)dump core into file
+   I$file(16)verify file against core
+   G$(16)start at starting address
+   U$dir;(16)list directory
+   F$(16)list current directory
+   S$(16)list pack ids then mfd
+   nnn$(16)set starting address to nnn
+   L$n$(16)put disk n online
+   K$n$(16)take disk n offline
+.SKIP 3
+ERROR MESSAGES ARE:
+.SKIP
+   CMPERR(16)verify failed to match
+   DIRFUL(16)directory full
+   EOF(16)unexpected end of file
+   DIRNF(16)directory does not exist
+   FNF(16)file not found
+   PKNMTD(16)file is on pack that is not mounted
+   CKSERR(16)checksum error
+   DSKFUL(16)disk full
+   NODDT(16)can't address DDT symbol table (bug)
+   ?BUG?(16)BUG
+   SEEKFL(16)disk failed to seek
+   CLOBRD(16)disk read error
+   CLOBWR(16)disk write error
+   DIRCLB(16)dir name differs, TUT disagrees with UFD
+   MFDCLB(16)M.F.D. clobbered
+
\ No newline at end of file