debuggers: import openocd-0.7.0
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
This commit is contained in:
55
debuggers/openocd/tcl/chip/atmel/at91/sam9_smc.cfg
Normal file
55
debuggers/openocd/tcl/chip/atmel/at91/sam9_smc.cfg
Normal file
@ -0,0 +1,55 @@
|
||||
# Setup register
|
||||
#
|
||||
# ncs_read_setup
|
||||
# nrd_setup
|
||||
# ncs_write_setup
|
||||
# set nwe_setup
|
||||
#
|
||||
#
|
||||
# Pulse register
|
||||
#
|
||||
# ncs_read_pulse
|
||||
# nrd_pulse
|
||||
# ncs_write_pulse
|
||||
# nwe_pulse
|
||||
#
|
||||
#
|
||||
# Cycle register
|
||||
#
|
||||
# read_cycle 0
|
||||
# write_cycle 0
|
||||
#
|
||||
#
|
||||
# Mode register
|
||||
#
|
||||
# mode
|
||||
# tdf_cycles
|
||||
proc sam9_smc_config { cs smc_config } {
|
||||
;# Setup Register for CS n
|
||||
set AT91_SMC_SETUP [expr ($::AT91_SMC + 0x00 + ((cs)*0x10))]
|
||||
set val [expr ($smc_config(nwe_setup) << 0)]
|
||||
set val [expr ($val | $smc_config(ncs_write_setup) << 8]
|
||||
set val [expr ($val | $smc_config(nrd_setup)) << 16]
|
||||
set val [expr ($val | $smc_config(ncs_read_setup) << 24]
|
||||
mww $AT91_SMC_SETUP $val
|
||||
|
||||
;# Pulse Register for CS n
|
||||
set AT91_SMC_PULSE [expr ($::AT91_SMC + 0x04 + ((cs)*0x10))]
|
||||
set val [expr ($smc_config(nwe_pulse) << 0)]
|
||||
set val [expr ($val | $smc_config(ncs_write_pulse) << 8]
|
||||
set val [expr ($val | $smc_config(nrd_pulse) << 16]
|
||||
set val [expr ($val | $smc_config(ncs_read_pulse) << 24]
|
||||
mww $AT91_SMC_PULSE $val
|
||||
|
||||
;# Cycle Register for CS n
|
||||
set AT91_SMC_CYCLE [expr ($::AT91_SMC + 0x08 + ((cs)*0x10))]
|
||||
set val [expr ($smc_config(write_cycle) << 0)]
|
||||
set val [expr ($val | $smc_config(read_cycle) << 16]
|
||||
mww $AT91_SMC_CYCLE $val
|
||||
|
||||
;# Mode Register for CS n
|
||||
set AT91_SMC_MODE [expr ($::AT91_SMC + 0x0c + ((cs)*0x10))]
|
||||
set val [expr ($smc_config(mode) << 0)]
|
||||
set val [expr ($val | $smc_config(tdf_cycles) << 16]
|
||||
mww $AT91_SMC_MODE $val
|
||||
}
|
||||
Reference in New Issue
Block a user