diff options
| -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 |
