tcl/cpld/jtagspi.cfg

   1 # SPDX-License-Identifier: GPL-2.0-or-later
   2
   3 set _USER1 0x02
   4
   5 if { [info exists JTAGSPI_IR] } {
   6         set _JTAGSPI_IR $JTAGSPI_IR
   7 } else {
   8         set _JTAGSPI_IR $_USER1
   9 }
  10
  11 if { [info exists TARGETNAME] } {
  12         set _TARGETNAME $TARGETNAME
  13 } else {
  14         set _TARGETNAME $_CHIPNAME.proxy
  15 }
  16
  17 if { [info exists FLASHNAME] } {
  18         set _FLASHNAME $FLASHNAME
  19 } else {
  20         set _FLASHNAME $_CHIPNAME.spi
  21 }
  22
  23 target create $_TARGETNAME testee -chain-position $_CHIPNAME.tap
  24 flash bank $_FLASHNAME jtagspi 0 0 0 0 $_TARGETNAME $_JTAGSPI_IR
  25
  26 # initialize jtagspi flash
  27 # chain_id: identifier of pld (you can get a list with 'pld devices')
  28 # proxy_bit: file with bitstream connecting JTAG and SPI interface in the PLD.
  29 # release_from_pwr_down_cmd: optional, command sent to spi flash before probing.
  30 #                            ex: 0xAB to release from power-dowm.
  31 #                            Just omit it to not send a command.
  32
  33 proc jtagspi_init {chain_id proxy_bit {release_from_pwr_down_cmd -1}} {
  34         # load proxy bitstream $proxy_bit and probe spi flash
  35         global _FLASHNAME
  36         pld load $chain_id $proxy_bit
  37         reset halt
  38         if {$release_from_pwr_down_cmd != -1} {
  39                 jtagspi cmd $_FLASHNAME 0 $release_from_pwr_down_cmd
  40         }
  41         flash probe $_FLASHNAME
  42 }
  43
  44 proc jtagspi_program {bin addr} {
  45         # write and verify binary file $bin at offset $addr
  46         global _FLASHNAME
  47         flash write_image erase $bin $addr
  48         flash verify_bank $_FLASHNAME $bin $addr
  49 }