tcl: replace the deprecated commands with "adapter ..."
[fw/openocd] / tcl / target / stm32f4x.cfg
1 # script for stm32f4x family
2
3 #
4 # stm32 devices support both JTAG and SWD transports.
5 #
6 source [find target/swj-dp.tcl]
7 source [find mem_helper.tcl]
8
9 if { [info exists CHIPNAME] } {
10    set _CHIPNAME $CHIPNAME
11 } else {
12    set _CHIPNAME stm32f4x
13 }
14
15 set _ENDIAN little
16
17 # Work-area is a space in RAM used for flash programming
18 # By default use 32kB (Available RAM in smallest device STM32F410)
19 if { [info exists WORKAREASIZE] } {
20    set _WORKAREASIZE $WORKAREASIZE
21 } else {
22    set _WORKAREASIZE 0x8000
23 }
24
25 #jtag scan chain
26 if { [info exists CPUTAPID] } {
27    set _CPUTAPID $CPUTAPID
28 } else {
29    if { [using_jtag] } {
30       # See STM Document RM0090
31       # Section 38.6.3 - corresponds to Cortex-M4 r0p1
32       set _CPUTAPID 0x4ba00477
33    } {
34       set _CPUTAPID 0x2ba01477
35    }
36 }
37
38 swj_newdap $_CHIPNAME cpu -irlen 4 -ircapture 0x1 -irmask 0xf -expected-id $_CPUTAPID
39 dap create $_CHIPNAME.dap -chain-position $_CHIPNAME.cpu
40
41 if {[using_jtag]} {
42    jtag newtap $_CHIPNAME bs -irlen 5
43 }
44
45 set _TARGETNAME $_CHIPNAME.cpu
46 target create $_TARGETNAME cortex_m -endian $_ENDIAN -dap $_CHIPNAME.dap
47
48 $_TARGETNAME configure -work-area-phys 0x20000000 -work-area-size $_WORKAREASIZE -work-area-backup 0
49
50 set _FLASHNAME $_CHIPNAME.flash
51 flash bank $_FLASHNAME stm32f2x 0 0 0 0 $_TARGETNAME
52
53 flash bank $_CHIPNAME.otp stm32f2x 0x1fff7800 0 0 0 $_TARGETNAME
54
55 # JTAG speed should be <= F_CPU/6. F_CPU after reset is 16MHz, so use F_JTAG = 2MHz
56 #
57 # Since we may be running of an RC oscilator, we crank down the speed a
58 # bit more to be on the safe side. Perhaps superstition, but if are
59 # running off a crystal, we can run closer to the limit. Note
60 # that there can be a pretty wide band where things are more or less stable.
61 adapter speed 2000
62
63 adapter srst delay 100
64 if {[using_jtag]} {
65  jtag_ntrst_delay 100
66 }
67
68 reset_config srst_nogate
69
70 if {![using_hla]} {
71    # if srst is not fitted use SYSRESETREQ to
72    # perform a soft reset
73    cortex_m reset_config sysresetreq
74 }
75
76 $_TARGETNAME configure -event examine-end {
77         # Enable debug during low power modes (uses more power)
78         # DBGMCU_CR |= DBG_STANDBY | DBG_STOP | DBG_SLEEP
79         mmw 0xE0042004 0x00000007 0
80
81         # Stop watchdog counters during halt
82         # DBGMCU_APB1_FZ |= DBG_IWDG_STOP | DBG_WWDG_STOP
83         mmw 0xE0042008 0x00001800 0
84 }
85
86 $_TARGETNAME configure -event trace-config {
87         # Set TRACE_IOEN; TRACE_MODE is set to async; when using sync
88         # change this value accordingly to configure trace pins
89         # assignment
90         mmw 0xE0042004 0x00000020 0
91 }
92
93 $_TARGETNAME configure -event reset-init {
94         # Configure PLL to boost clock to HSI x 4 (64 MHz)
95         mww 0x40023804 0x08012008   ;# RCC_PLLCFGR 16 Mhz /8 (M) * 128 (N) /4(P)
96         mww 0x40023C00 0x00000102   ;# FLASH_ACR = PRFTBE | 2(Latency)
97         mmw 0x40023800 0x01000000 0 ;# RCC_CR |= PLLON
98         sleep 10                    ;# Wait for PLL to lock
99         mmw 0x40023808 0x00001000 0 ;# RCC_CFGR |= RCC_CFGR_PPRE1_DIV2
100         mmw 0x40023808 0x00000002 0 ;# RCC_CFGR |= RCC_CFGR_SW_PLL
101
102         # Boost JTAG frequency
103         adapter speed 8000
104 }
105
106 $_TARGETNAME configure -event reset-start {
107         # Reduce speed since CPU speed will slow down to 16MHz with the reset
108         adapter speed 2000
109 }