pluto_hdl_adi/projects/common/xilinx/sys_dmafifo.tcl

92 lines
3.2 KiB
Tcl

# sys bram (use only when dma is not capable of keeping up).
# generic fifo interface - existence is oblivious to software.
proc p_sys_dmafifo {p_name m_name adc_data_width dma_addr_width} {
global ad_hdl_dir
set p_instance [get_bd_cells $p_name]
set c_instance [current_bd_instance .]
current_bd_instance $p_instance
set m_instance [create_bd_cell -type hier $m_name]
current_bd_instance $m_instance
create_bd_pin -dir I adc_rst
create_bd_pin -dir I -type clk adc_clk
create_bd_pin -dir I adc_wr
create_bd_pin -dir I -from [expr ($adc_data_width-1)] -to 0 adc_wdata
create_bd_pin -dir O adc_wovf
create_bd_pin -dir I -type clk dma_clk
create_bd_pin -dir O dma_wr
create_bd_pin -dir O -from 63 -to 0 dma_wdata
create_bd_pin -dir I dma_wready
create_bd_pin -dir I dma_xfer_req
create_bd_pin -dir O -from 3 -to 0 dma_xfer_status
set util_adcfifo [create_bd_cell -type ip -vlnv analog.com:user:util_adcfifo:1.0 util_adcfifo]
set_property -dict [list CONFIG.ADC_DATA_WIDTH $adc_data_width] $util_adcfifo
set_property -dict [list CONFIG.DMA_DATA_WIDTH {64}] $util_adcfifo
set_property -dict [list CONFIG.DMA_READY_ENABLE {1}] $util_adcfifo
set_property -dict [list CONFIG.DMA_ADDRESS_WIDTH $dma_addr_width] $util_adcfifo
ad_connect adc_rst util_adcfifo/adc_rst
ad_connect adc_clk util_adcfifo/adc_clk
ad_connect adc_wr util_adcfifo/adc_wr
ad_connect adc_wdata util_adcfifo/adc_wdata
ad_connect adc_wovf util_adcfifo/adc_wovf
ad_connect dma_clk util_adcfifo/dma_clk
ad_connect dma_wr util_adcfifo/dma_wr
ad_connect dma_wdata util_adcfifo/dma_wdata
ad_connect dma_wready util_adcfifo/dma_wready
ad_connect dma_xfer_req util_adcfifo/dma_xfer_req
ad_connect dma_xfer_status util_adcfifo/dma_xfer_status
current_bd_instance $c_instance
}
proc p_sys_dacfifo {p_name m_name data_width addr_width} {
global ad_hdl_dir
set p_instance [get_bd_cells $p_name]
set c_instance [current_bd_instance .]
current_bd_instance $p_instance
set m_instance [create_bd_cell -type hier $m_name]
current_bd_instance $m_instance
create_bd_pin -dir I dma_clk
create_bd_pin -dir I dma_rst
create_bd_pin -dir O dma_ready
create_bd_pin -dir I dma_valid
create_bd_pin -dir I -from [expr ($data_width-1)] -to 0 dma_data
create_bd_pin -dir I dma_xfer_req
create_bd_pin -dir I dma_xfer_last
create_bd_pin -dir I dac_clk
create_bd_pin -dir I dac_valid
create_bd_pin -dir O -from [expr ($data_width - 1)] -to 0 dac_data
set util_dacfifo [create_bd_cell -type ip -vlnv analog.com:user:util_dacfifo:1.0 util_dacfifo]
set_property -dict [list CONFIG.DATA_WIDTH $data_width] $util_dacfifo
set_property -dict [list CONFIG.ADDRESS_WIDTH $addr_width] $util_dacfifo
ad_connect dma_clk util_dacfifo/dma_clk
ad_connect dac_clk util_dacfifo/dac_clk
ad_connect dma_rst util_dacfifo/dma_rst
ad_connect dma_ready util_dacfifo/dma_ready
ad_connect dma_valid util_dacfifo/dma_valid
ad_connect dma_data util_dacfifo/dma_data
ad_connect dma_xfer_req util_dacfifo/dma_xfer_req
ad_connect dma_xfer_last util_dacfifo/dma_xfer_last
ad_connect dac_valid util_dacfifo/dac_valid
ad_connect dac_data util_dacfifo/dac_data
current_bd_instance $c_instance
}