Added support for STMicroelectronics BlueNRG-1 and BlueNRG-2 SoC
[fw/openocd] / tcl / target / bluenrg-x.cfg
diff --git a/tcl/target/bluenrg-x.cfg b/tcl/target/bluenrg-x.cfg
new file mode 100644 (file)
index 0000000..3ae5108
--- /dev/null
@@ -0,0 +1,73 @@
+#
+# bluenrg-1/2 devices support only SWD transports.
+#
+
+source [find target/swj-dp.tcl]
+
+if { [info exists CHIPNAME] } {
+   set _CHIPNAME $CHIPNAME
+} else {
+   set _CHIPNAME bluenrg-1
+}
+
+set _ENDIAN little
+
+# Work-area is a space in RAM used for flash programming
+# By default use 24kB-256bytes
+if { [info exists WORKAREASIZE] } {
+   set _WORKAREASIZE $WORKAREASIZE
+} else {
+   set _WORKAREASIZE 0x5F00
+}
+
+adapter_khz 4000
+
+if { [info exists CPUTAPID] } {
+   set _CPUTAPID $CPUTAPID
+} else {
+   set _CPUTAPID 0x0bb11477
+}
+
+swj_newdap $_CHIPNAME cpu -expected-id $_CPUTAPID
+
+set _TARGETNAME $_CHIPNAME.cpu
+set WDOG_VALUE 0
+set WDOG_VALUE_SET 0
+
+target create $_TARGETNAME cortex_m -endian $_ENDIAN -chain-position $_TARGETNAME
+
+$_TARGETNAME configure -work-area-phys 0x20000100 -work-area-size $_WORKAREASIZE -work-area-backup 0
+
+# flash size will be probed
+set _FLASHNAME $_CHIPNAME.flash
+flash bank $_FLASHNAME bluenrg-x 0 0 0 0 $_TARGETNAME
+
+# In BlueNRG-X reset pin is actually a shutdown (power-off), so define reset as none
+reset_config none
+
+if {![using_hla]} {
+   # if srst is not fitted use SYSRESETREQ to
+   # perform a soft reset
+   cortex_m reset_config sysresetreq
+}
+
+$_TARGETNAME configure -event halted {
+       global WDOG_VALUE
+       global WDOG_VALUE_SET
+       # Stop watchdog during halt, if enabled
+       mem2array value 32 0x40700008 1
+       set WDOG_VALUE [expr ($value(0))]
+       if [expr ($value(0) & (1 << 1))] {
+               set WDOG_VALUE_SET 1
+               mww 0x40700008 [expr ($value(0) & 0xFFFFFFFD)]
+       }
+}
+$_TARGETNAME configure -event resumed {
+       global WDOG_VALUE
+       global WDOG_VALUE_SET
+       if [expr $WDOG_VALUE_SET] {
+               # Restore watchdog enable value after resume
+               mww 0x40700008 $WDOG_VALUE
+               set WDOG_VALUE_SET 0
+       }
+}