2015-07-02 00:29:34 -05:00
|
|
|
# xilinx spartan6
|
|
|
|
|
# http://www.xilinx.com/support/documentation/user_guides/ug380.pdf
|
|
|
|
|
|
|
|
|
|
if { [info exists CHIPNAME] } {
|
|
|
|
|
set _CHIPNAME $CHIPNAME
|
|
|
|
|
} else {
|
|
|
|
|
set _CHIPNAME xc6s
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# the 4 top bits (28:31) are the die stepping. ignore it.
|
|
|
|
|
jtag newtap $_CHIPNAME tap -irlen 6 -ignore-version \
|
|
|
|
|
-expected-id 0x04000093 \
|
|
|
|
|
-expected-id 0x04001093 \
|
|
|
|
|
-expected-id 0x04002093 \
|
|
|
|
|
-expected-id 0x04004093 \
|
|
|
|
|
-expected-id 0x04024093 \
|
|
|
|
|
-expected-id 0x04008093 \
|
|
|
|
|
-expected-id 0x04028093 \
|
|
|
|
|
-expected-id 0x0400E093 \
|
|
|
|
|
-expected-id 0x0402E093 \
|
|
|
|
|
-expected-id 0x04011093 \
|
|
|
|
|
-expected-id 0x04031093 \
|
|
|
|
|
-expected-id 0x0401D093 \
|
|
|
|
|
-expected-id 0x0403D093
|
|
|
|
|
|
|
|
|
|
pld device virtex2 $_CHIPNAME.tap
|
|
|
|
|
|
|
|
|
|
set XC6S_CFG_IN 0x05
|
|
|
|
|
set XC6S_JSHUTDOWN 0x0d
|
|
|
|
|
set XC6S_JPROGRAM 0x0b
|
|
|
|
|
set XC6S_JSTART 0x0c
|
|
|
|
|
set XC6S_BYPASS 0x3f
|
|
|
|
|
|
|
|
|
|
proc xc6s_program {tap} {
|
|
|
|
|
global XC6S_JSHUTDOWN XC6S_JPROGRAM XC6S_JSTART XC6S_BYPASS
|
|
|
|
|
irscan $tap $XC6S_JSHUTDOWN
|
|
|
|
|
irscan $tap $XC6S_JPROGRAM
|
|
|
|
|
irscan $tap $XC6S_JSTART
|
|
|
|
|
irscan $tap $XC6S_BYPASS
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#xtp038 and xc3sprog approach
|
|
|
|
|
proc xc6s_program_iprog {tap} {
|
|
|
|
|
global XC6S_JSHUTDOWN XC6S_JSTART XC6S_BYPASS XC6S_CFG_IN
|
|
|
|
|
irscan $tap $XC6S_JSHUTDOWN
|
|
|
|
|
runtest 16
|
|
|
|
|
irscan $tap $XC6S_CFG_IN
|
|
|
|
|
# xtp038 IPROG 16bit flipped
|
|
|
|
|
drscan $tap 16 0xffff 16 0x9955 16 0x66aa 16 0x850c 16 0x7000 16 0x0004
|
|
|
|
|
irscan $tap $XC6S_JSTART
|
|
|
|
|
runtest 32
|
|
|
|
|
irscan $tap $XC6S_BYPASS
|
|
|
|
|
runtest 1
|
|
|
|
|
}
|
2015-09-27 05:09:38 -05:00
|
|
|
|
|
|
|
|
set XC6S_ISC_ENABLE 0x10
|
|
|
|
|
set XC6S_ISC_DISABLE 0x16
|
|
|
|
|
set XC6S_ISC_DNA 0x30
|
|
|
|
|
|
|
|
|
|
# Get the "Device DNA" from the Spartan 6.
|
|
|
|
|
# Most Xilinx FPGA devices contain an embedded, unique device identifier called
|
|
|
|
|
# the "Device DNA". The identifier is nonvolatile, permanently programmed into
|
|
|
|
|
# the FPGA, and is unchangeable providing a great serial / tracking number.
|
|
|
|
|
proc xc6s_get_dna {tap} {
|
|
|
|
|
global XC6S_ISC_ENABLE XC6S_ISC_DISABLE XC6S_ISC_DNA
|
|
|
|
|
irscan $tap $XC6S_ISC_ENABLE
|
|
|
|
|
runtest 64
|
|
|
|
|
irscan $tap $XC6S_ISC_DNA
|
|
|
|
|
# Device DNA is 57 bits long, but we can only read 32bits at a time
|
|
|
|
|
# with OpenOCD.
|
|
|
|
|
set dna [drscan $tap 16 0 16 0 16 0 9 0]
|
|
|
|
|
runtest 64
|
|
|
|
|
irscan $tap $XC6S_ISC_DISABLE
|
|
|
|
|
runtest 64
|
|
|
|
|
|
|
|
|
|
# Convert the binary data into the order impact uses
|
|
|
|
|
scan $dna "%x %x %x %x" v1 v2 v3 v4
|
|
|
|
|
set bin_dna [string reverse [concat [format "%09b" $v4][format "%016b" $v3][format "%016b" $v2][format "%016b" $v1]]]
|
|
|
|
|
|
|
|
|
|
# Return a hex version of binary
|
|
|
|
|
scan [format "0b%s" $bin_dna] "%i" hex_dna
|
|
|
|
|
return $hex_dna
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# Print out the "Device DNA" in the same format that impact uses.
|
|
|
|
|
proc xc6s_print_dna {tap} {
|
|
|
|
|
set hex_dna [xc6s_get_dna $tap]
|
|
|
|
|
|
|
|
|
|
puts [format "DNA = %57b (0x%x)\n" $hex_dna $hex_dna]
|
|
|
|
|
}
|
