tcl例程 example.tcl

proc wd {addr data} {
set vio_obj [get_hw_vios -of_objects [get_hw_devices xc7z045_1] -filter {CELL_NAME=~"*spi_vio"}]
set_property OUTPUT_VALUE 1 [get_hw_probes *spi_en -of_objects $vio_obj]
commit_hw_vio $vio_obj
set_property OUTPUT_VALUE [format “%016X” $data] [get_hw_probes *datain -of_objects $vio_obj]
set_property OUTPUT_VALUE [format “%04X” $addr] [get_hw_probes *address -of_objects $vio_obj]
set_property OUTPUT_VALUE 0 [get_hw_probes *ifread -of_objects $vio_obj]
set_property OUTPUT_VALUE 1 [get_hw_probes *selDDC -of_objects $vio_obj]
set_property OUTPUT_VALUE 0 [get_hw_probes *start -of_objects $vio_obj]
commit_hw_vio $vio_obj
set_property OUTPUT_VALUE 1 [get_hw_probes *start -of_objects $vio_obj]
set_property OUTPUT_VALUE 0 [get_hw_probes *spi_en -of_objects $vio_obj]
commit_hw_vio $vio_obj
}

proc rd {addr } {
set vio_obj [get_hw_vios -of_objects [get_hw_devices xc7z045_1] -filter {CELL_NAME=~"*spi_vio"}]
set_property OUTPUT_VALUE 1 [get_hw_probes *spi_en -of_objects $vio_obj]
commit_hw_vio $vio_obj
set_property OUTPUT_VALUE [format “%04X” $addr] [get_hw_probes *address -of_objects $vio_obj]
set_property OUTPUT_VALUE 1 [get_hw_probes *ifread -of_objects $vio_obj]
set_property OUTPUT_VALUE 1 [get_hw_probes *selDDC -of_objects $vio_obj]
set_property OUTPUT_VALUE 0 [get_hw_probe