examples/build/cw10gcc/bt_app_twrk60d100m/Debugger/mass_erase_kinetis.tcl

   1 # This script performs the mass erase operation for Kinetis targets
   2
   3 # Command mass erase with system reset and core reset
   4 set mdmapControl [cmdwin::reg MDMAP_C -np]
   5 set mdmapControl [expr $mdmapControl | 0x19]
   6 cmdwin::reg MDMAP_C = $mdmapControl
   7
   8 # Release system reset while still holding core reset
   9 set mdmapControl [expr $mdmapControl & 0xFFFFFFF7]
  10 cmdwin::reg MDMAP_C = $mdmapControl
  11
  12 # Wait for the mass erase operation to complete
  13 set done 0
  14 for {set i 0} {$i < 10} {incr i} {
  15         refresh
  16         set mdmapControl [cmdwin::reg MDMAP_C -np]
  17         if {($mdmapControl & 1) == 0} {
  18                 set done 1
  19                 break;
  20         }
  21         wait 50
  22 }
  23
  24 # Release the core reset
  25 set mdmapControl [expr $mdmapControl & 0xFFFFFFEF]
  26 cmdwin::reg MDMAP_C = $mdmapControl
  27 if {$done} {
  28         puts "OK: Mass erase succeeded"
  29 } else {
  30         puts "Error: Timeout"
  31 }