--- /dev/null
+\r
+add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"\r
+\r
+proc selftest {tmpfile address size} {\r
+\r
+ for {set i 0} {$i < $size } {set i [expr $i+4]} {\r
+ mww [expr $address+$i] $i\r
+ }\r
+\r
+ for {set i 0} {$i < 10 } {set i [expr $i+1]} {\r
+ puts "Test iteration $i"\r
+ dump_image $tmpfile $address $size\r
+ verify_image $tmpfile $address bin\r
+ load_image $tmpfile $address bin\r
+ }\r
+\r
+}
\ No newline at end of file