21 lines
467 B
Tcl
21 lines
467 B
Tcl
|
|
set device AD469X
|
|
set mode 0
|
|
|
|
set hier_spi_engine spi_ad469x
|
|
|
|
# Mode DATA_WIDTH ASYNC_SPI_CLK NUM_CSN NUM_SDI SDI_DELAY
|
|
set params(AD469X,0) {32 1 1 1 1}
|
|
|
|
proc get_config_param {param} {
|
|
upvar device device
|
|
upvar mode mode
|
|
upvar params params
|
|
|
|
set spi_params {DATA_WIDTH ASYNC_SPI_CLK NUM_CS NUM_SDI SDI_DELAY}
|
|
set index [lsearch $spi_params $param]
|
|
|
|
return [lindex $params($device,$mode) $index]
|
|
}
|
|
|