2 # bluenrg-1/2 devices support only SWD transports.
5 source [find target/swj-dp.tcl]
7 if { [info exists CHIPNAME] } {
8 set _CHIPNAME $CHIPNAME
10 set _CHIPNAME bluenrg-1
15 # Work-area is a space in RAM used for flash programming
16 # By default use 24kB-256bytes
17 if { [info exists WORKAREASIZE] } {
18 set _WORKAREASIZE $WORKAREASIZE
20 set _WORKAREASIZE 0x5F00
25 if { [info exists CPUTAPID] } {
26 set _CPUTAPID $CPUTAPID
28 set _CPUTAPID 0x0bb11477
31 swj_newdap $_CHIPNAME cpu -expected-id $_CPUTAPID
33 set _TARGETNAME $_CHIPNAME.cpu
37 target create $_TARGETNAME cortex_m -endian $_ENDIAN -chain-position $_TARGETNAME
39 $_TARGETNAME configure -work-area-phys 0x20000100 -work-area-size $_WORKAREASIZE -work-area-backup 0
41 # flash size will be probed
42 set _FLASHNAME $_CHIPNAME.flash
43 flash bank $_FLASHNAME bluenrg-x 0 0 0 0 $_TARGETNAME
45 # In BlueNRG-X reset pin is actually a shutdown (power-off), so define reset as none
49 # if srst is not fitted use SYSRESETREQ to
50 # perform a soft reset
51 cortex_m reset_config sysresetreq
54 $_TARGETNAME configure -event halted {
57 # Stop watchdog during halt, if enabled
58 mem2array value 32 0x40700008 1
59 set WDOG_VALUE [expr ($value(0))]
60 if [expr ($value(0) & (1 << 1))] {
62 mww 0x40700008 [expr ($value(0) & 0xFFFFFFFD)]
65 $_TARGETNAME configure -event resumed {
68 if [expr $WDOG_VALUE_SET] {
69 # Restore watchdog enable value after resume
70 mww 0x40700008 $WDOG_VALUE