diff options
| author | Julian Blake Kongslie | 2022-06-05 13:21:18 -0700 |
|---|---|---|
| committer | Julian Blake Kongslie | 2022-06-05 13:22:00 -0700 |
| commit | 3f708bda562f30f3cd754efe10b495a35f303766 (patch) | |
| tree | a586b70869094bf0f07d68f038e879607c1af28e /tool/download.tcl | |
| parent | More nefarious planning... (diff) | |
| download | multipdp8-3f708bda562f30f3cd754efe10b495a35f303766.tar.xz | |
More reliable download script.
Diffstat (limited to 'tool/download.tcl')
| -rwxr-xr-x | tool/download.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tool/download.tcl b/tool/download.tcl index 96fc03b..596e527 100755 --- a/tool/download.tcl +++ b/tool/download.tcl | |||
| @@ -26,10 +26,10 @@ while {[gets stdin line] >= 0} { | |||
| 26 | # It's likely we ended with a very large zero-memory operation. We want to see | 26 | # It's likely we ended with a very large zero-memory operation. We want to see |
| 27 | # two command bytes echoed back to us in order to guarantee that the zero | 27 | # two command bytes echoed back to us in order to guarantee that the zero |
| 28 | # operation has completely flushed to memory. | 28 | # operation has completely flushed to memory. |
| 29 | send "?" | 29 | # Note that this forces the last line of memory to be zero. |
| 30 | expect -ex "?" | 30 | set atline "@[format %x [expr ($core * 32768 + 32767) / $wordsperline]]" |
| 31 | send "?" | 31 | send "$atline =0 $atline ?" |
| 32 | expect -ex "?" | 32 | expect -ex "$atline =0 $atline ?0000\r\n" |
| 33 | 33 | ||
| 34 | send "\n~." | 34 | send "\n~." |
| 35 | wait | 35 | wait |