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