26 lines
506 B
Tcl
26 lines
506 B
Tcl
|
|
||
|
|
set device AD469X
|
||
|
|
set mode 0
|
||
|
|
|
||
|
|
set hier_spi_engine spi_ad469x
|
||
|
|
|
||
|
|
if [info exists ::env(ADI_DAC_MODE)] {
|
||
|
|
set mode $::env(ADI_DAC_MODE)
|
||
|
|
} else {
|
||
|
|
set env(ADI_DAC_MODE) $mode
|
||
|
|
}
|
||
|
|
|
||
|
|
# W A NC NS D
|
||
|
|
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]
|
||
|
|
}
|