123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139 |
- # FreeScale Kinetis K20 devices with 32kB Flash and 8kB Local On-Chip SRAM,
- # Nemuisan's Special for MK20DN32VFT5,MK20DX32VFT5,MK10DN32VFT5,MK10DX32VFT5
-
-
- # 0.8.0 has no these procs
- proc using_jtag {} {
- set _TRANSPORT [ transport select ]
- expr { [ string first "jtag" $_TRANSPORT ] != -1 }
- }
-
- proc using_swd {} {
- set _TRANSPORT [ transport select ]
- expr { [ string first "swd" $_TRANSPORT ] != -1 }
- }
-
- proc using_hla {} {
- set _TRANSPORT [ transport select ]
- expr { [ string first "hla" $_TRANSPORT ] != -1 }
- }
-
- source [find target/swj-dp.tcl]
-
- if { [info exists CHIPNAME] } {
- set _CHIPNAME $CHIPNAME
- } else {
- set _CHIPNAME k20
- }
-
- if { [info exists ENDIAN] } {
- set _ENDIAN $ENDIAN
- } else {
- set _ENDIAN little
- }
-
- if { [info exists CPUTAPID] } {
- set _CPUTAPID $CPUTAPID
- } else {
- if { [using_jtag] } {
- set _CPUTAPID 0x4BA00477
- } {
- # this is the SW-DP tap id not the jtag tap id
- set _CPUTAPID 0x2BA01477
- }
- }
-
- # Work-area is a space in RAM used for flash programming
- # By default use 8kB
- if { [info exists WORKAREASIZE] == 0 } {
- set _WORKAREASIZE 0x2000
- }
-
- # Select "srst_only", Nemuisan said so!
- echo "Kinetis MUST need Hardware SRST Control to Recover Secure-State!"
- adapter_nsrst_delay 200
- reset_config srst_only
-
- swj_newdap $_CHIPNAME cpu -irlen 4 -expected-id $_CPUTAPID
- set _TARGETNAME $_CHIPNAME.cpu
- target create $_TARGETNAME cortex_m -chain-position $_TARGETNAME
-
- # It is important that "kinetis mdm check_security" is called for
- # 'examine-end' event and not 'eximine-start'. Calling it in 'examine-start'
- # causes "kinetis mdm check_security" to fail the first time openocd
- # calls it when it tries to connect after the CPU has been power-cycled.
- $_CHIPNAME.cpu configure -event examine-end {
- kinetis mdm check_security
- # Uncomment when gone into s*ck'n secured state!
- # kinetis mdm mass_erase
- }
-
- # K20 has minimun 8kB of SRAM and starts at 1FFFF000.
- $_TARGETNAME configure -work-area-phys 0x1FFFF000 -work-area-size $_WORKAREASIZE -work-area-backup 0 -rtos auto
-
- # MK20DN32VFT5,MK20DX32VFT5,MK10DN32VFT5,MK10DX32VFT5 has 32kB of flash memory.
- flash bank $_CHIPNAME.pflash kinetis 0x00000000 0x8000 0 4 $_TARGETNAME
-
-
- proc mt_flash {IMGFILE} {
- flash write_image erase $IMGFILE
- reset run
- halt
- verify_image $IMGFILE
- reset run
- shutdown
- }
-
- proc mt_flash_bin {IMGFILE OFFSET} {
- flash write_image erase $IMGFILE $OFFSET bin
- reset run
- halt
- verify_image $IMGFILE $OFFSET bin
- reset run
- shutdown
- }
-
- proc mt_flash_hex {IMGFILE} {
- flash write_image erase $IMGFILE 0 ihex
- reset run
- halt
- verify_image $IMGFILE 0 ihex
- reset run
- shutdown
- }
-
- proc mt_flash_srec {IMGFILE} {
- flash write_image erase $IMGFILE 0 s19
- reset run
- halt
- verify_image $IMGFILE 0 s19
- reset run
- shutdown
- }
-
- proc mass_erase {} {
- kinetis mdm mass_erase
- }
-
- proc eraser {} {
- # Verbose procedure confirmed erase routine
- flash info 0
- # CAUTION! "flash erase_sector 0 0 last" goes into secure state!!!
- # USE "mass_erase" command instead of
- # flash erase_sector 0 0 last
- mass_erase
- shutdown
- }
-
- #debug_level 3
- # HLA doesn't have cortex_m commands
- if {![using_hla]} {
- # if srst is not fitted use SYSRESETREQ to
- # perform a soft reset
- cortex_m reset_config sysresetreq
- }
- adapter_khz 1000
- reset_config srst_only srst_nogate connect_assert_srst
- gdb_target_description disable
- init
- reset init
|