2 add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"
\r
4 proc selftest {tmpfile address size} {
\r
6 for {set i 0} {$i < $size } {set i [expr $i+4]} {
\r
7 mww [expr $address+$i] $i
\r
10 for {set i 0} {$i < 10 } {set i [expr $i+1]} {
\r
11 puts "Test iteration $i"
\r
12 dump_image $tmpfile $address $size
\r
13 verify_image $tmpfile $address bin
\r
14 load_image $tmpfile $address bin
\r