1 files changed, 33 insertions, 0 deletions

diff --git a/tool/download.tcl b/tool/download.tcl
new file mode 100755
index 0000000..c0dca55
--- /dev/null
+++ b/tool/download.tcl
@@ -0,0 +1,33 @@
+#!/usr/bin/env expect
+
+set timeout 3600
+
+set core 0
+set wordsperline 1
+
+if {$::argc > 1} {
+    set core [lindex $::argv 0]
+    set wordsperline [lindex $::argv 1]
+} elseif {$::argc > 0} {
+    set core [lindex $::argv 0]
+}
+
+spawn tool/connect
+
+send "@[format %x [expr $core * 32768 / $wordsperline]]\n"
+
+while {[gets stdin line] >= 0} {
+    send "$line\n"
+    expect -ex "$line\n"
+}
+
+# It's likely we ended with a very large zero-memory operation. We want to see
+# two command bytes echoed back to us in order to guarantee that the zero
+# operation has completely flushed to memory.
+send "?"
+expect -ex "?"
+send "?"
+expect -ex "?"
+
+send "\n~."
+wait