3 if { [info exists JTAGSPI_IR] } {
4 set _JTAGSPI_IR $JTAGSPI_IR
6 set _JTAGSPI_IR $_USER1
9 if { [info exists DR_LENGTH] } {
10 set _DR_LENGTH $DR_LENGTH
15 if { [info exists TARGETNAME] } {
16 set _TARGETNAME $TARGETNAME
18 set _TARGETNAME $_CHIPNAME.proxy
21 if { [info exists FLASHNAME] } {
22 set _FLASHNAME $FLASHNAME
24 set _FLASHNAME $_CHIPNAME.spi
27 target create $_TARGETNAME testee -chain-position $_CHIPNAME.tap
28 flash bank $_FLASHNAME jtagspi 0 0 0 0 $_TARGETNAME $_JTAGSPI_IR $_DR_LENGTH
30 proc jtagspi_init {chain_id proxy_bit} {
31 # load proxy bitstream $proxy_bit and probe spi flash
33 pld load $chain_id $proxy_bit
35 flash probe $_FLASHNAME
38 proc jtagspi_program {bin addr} {
39 # write and verify binary file $bin at offset $addr
41 flash write_image erase $bin $addr
42 flash verify_bank $_FLASHNAME $bin $addr