pipistrello: ftdi-jtag/spartan6/jtagspi board
[fw/openocd] / tcl / cpld / jtagspi.cfg
1 set _USER1 0x02
2
3 if { [info exists JTAGSPI_IR] } {
4         set _JTAGSPI_IR $JTAGSPI_IR
5 } else {
6         set _JTAGSPI_IR $_USER1
7 }
8
9 if { [info exists DR_LENGTH] } {
10         set _DR_LENGTH $DR_LENGTH
11 } else {
12         set _DR_LENGTH 1
13 }
14
15 if { [info exists TARGETNAME] } {
16         set _TARGETNAME $TARGETNAME
17 } else {
18         set _TARGETNAME $_CHIPNAME.proxy
19 }
20
21 if { [info exists FLASHNAME] } {
22         set _FLASHNAME $FLASHNAME
23 } else {
24         set _FLASHNAME $_CHIPNAME.spi
25 }
26
27 target create $_TARGETNAME testee -chain-position $_CHIPNAME.tap
28 flash bank $_FLASHNAME jtagspi 0 0 0 0 $_TARGETNAME $_JTAGSPI_IR $_DR_LENGTH
29
30 proc jtagspi_init {chain_id proxy_bit} {
31         # load proxy bitstream $proxy_bit and probe spi flash
32         global _FLASHNAME
33         pld load $chain_id $proxy_bit
34         reset halt
35         flash probe $_FLASHNAME
36 }
37
38 proc jtagspi_program {bin addr} {
39         # write and verify binary file $bin at offset $addr
40         global _FLASHNAME
41         flash write_image erase $bin $addr
42         flash verify_bank $_FLASHNAME $bin $addr
43 }