git.gag.com Git - fw/openocd/blob - tcl/chip/atmel/at91/sam9_smc.cfg

   1 # SPDX-License-Identifier: GPL-2.0-or-later
   2
   3 # Setup register
   4 #
   5 # ncs_read_setup
   6 # nrd_setup
   7 # ncs_write_setup
   8 # set nwe_setup
   9 #
  10 #
  11 # Pulse register
  12 #
  13 # ncs_read_pulse
  14 # nrd_pulse
  15 # ncs_write_pulse
  16 # nwe_pulse
  17 #
  18 #
  19 # Cycle register
  20 #
  21 # read_cycle 0
  22 # write_cycle 0
  23 #
  24 #
  25 # Mode register
  26 #
  27 # mode
  28 # tdf_cycles
  29 proc sam9_smc_config { cs smc_config } {
  30         ;# Setup Register for CS n
  31         set AT91_SMC_SETUP [expr {$::AT91_SMC + 0x00 + $cs * 0x10}]
  32         set val [expr {$smc_config(nwe_setup) << 0}]
  33         set val [expr {$val | $smc_config(ncs_write_setup) << 8}]
  34         set val [expr {$val | $smc_config(nrd_setup)) << 16}]
  35         set val [expr {$val | $smc_config(ncs_read_setup) << 24}]
  36         mww $AT91_SMC_SETUP $val
  37
  38         ;# Pulse Register for CS n
  39         set AT91_SMC_PULSE [expr {$::AT91_SMC + 0x04 + $cs * 0x10}]
  40         set val [expr {$smc_config(nwe_pulse) << 0}]
  41         set val [expr {$val | $smc_config(ncs_write_pulse) << 8}]
  42         set val [expr {$val | $smc_config(nrd_pulse) << 16}]
  43         set val [expr {$val | $smc_config(ncs_read_pulse) << 24}]
  44         mww $AT91_SMC_PULSE $val
  45
  46         ;# Cycle Register for CS n
  47         set AT91_SMC_CYCLE [expr {$::AT91_SMC + 0x08 + $cs * 0x10}]
  48         set val [expr {$smc_config(write_cycle) << 0}]
  49         set val [expr {$val | $smc_config(read_cycle) << 16}]
  50         mww $AT91_SMC_CYCLE $val
  51
  52         ;# Mode Register for CS n
  53         set AT91_SMC_MODE [expr {$::AT91_SMC + 0x0c + $cs * 0x10}]
  54         set val [expr {$smc_config(mode) << 0}]
  55         set val [expr {$val | $smc_config(tdf_cycles) << 16}]
  56         mww $AT91_SMC_MODE $val
  57 }