# # Nordic nRF52 series: ARM Cortex-M4 @ 64 MHz # source [find target/swj-dp.tcl] if { [info exists CHIPNAME] } { set _CHIPNAME $CHIPNAME } else { set _CHIPNAME nrf52 } # Work-area is a space in RAM used for flash programming # By default use 16kB if { [info exists WORKAREASIZE] } { set _WORKAREASIZE $WORKAREASIZE } else { set _WORKAREASIZE 0x4000 } if { [info exists CPUTAPID] } { set _CPUTAPID $CPUTAPID } else { set _CPUTAPID 0x2ba01477 } swj_newdap $_CHIPNAME cpu -expected-id $_CPUTAPID dap create $_CHIPNAME.dap -chain-position $_CHIPNAME.cpu set _TARGETNAME $_CHIPNAME.cpu target create $_TARGETNAME cortex_m -dap $_CHIPNAME.dap adapter speed 1000 $_TARGETNAME configure -work-area-phys 0x20000000 -work-area-size $_WORKAREASIZE -work-area-backup 0 if { [using_hla] } { echo "" echo "nRF52 device has a CTRL-AP dedicated to recover the device from AP lock." echo "A high level adapter (like a ST-Link) you are currently using cannot access" echo "the CTRL-AP so 'nrf52_recover' command will not work." echo "Do not enable UICR APPROTECT." echo "" } else { cortex_m reset_config sysresetreq $_TARGETNAME configure -event examine-fail nrf52_check_ap_lock } flash bank $_CHIPNAME.flash nrf5 0x00000000 0 1 1 $_TARGETNAME flash bank $_CHIPNAME.uicr nrf5 0x10001000 0 1 1 $_TARGETNAME # Test if MEM-AP is locked by UICR APPROTECT proc nrf52_check_ap_lock {} { set dap [[target current] cget -dap] set err [catch {set APPROTECTSTATUS [ocd_$dap apreg 1 0xc]}] if {$err == 0 && $APPROTECTSTATUS != 1} { echo "****** WARNING ******" echo "nRF52 device has AP lock engaged (see UICR APPROTECT register)." echo "Debug access is denied." echo "Use 'nrf52_recover' to erase and unlock the device." echo "" poll off } } # Mass erase and unlock the device using proprietary nRF CTRL-AP (AP #1) # http://www.ebyte.com produces modules with nRF52 locked by default, # use nrf52_recover to enable flashing and debug. proc nrf52_recover {} { set target [target current] set dap [$target cget -dap] set IDR [ocd_$dap apreg 1 0xfc] if {$IDR != 0x02880000} { echo "Error: Cannot access nRF52 CTRL-AP!" return } poll off # Assert reset $dap apreg 1 0 1 # Reset ERASEALLSTATUS event $dap apreg 1 8 0 # Trigger ERASEALL task $dap apreg 1 4 0 $dap apreg 1 4 1 for {set i 0} {1} {incr i} { set ERASEALLSTATUS [ocd_$dap apreg 1 8] if {$ERASEALLSTATUS == 1} { echo "$target device has been successfully erased and unlocked." break } if {$i >= 5} { echo "Error: $target recovery failed." break } sleep 100 } # Deassert reset $dap apreg 1 0 0 if {$ERASEALLSTATUS == 1} { sleep 100 $target arp_examine poll on } } add_help_text nrf52_recover "Mass erase and unlock nRF52 device"