FPGA/basic_verilog
1
0
Fork 0
mirror of https://github.com/pConst/basic_verilog.git synced 2025-01-14 06:42:54 +08:00
Code Issues Releases Wiki Activity

Minor tcl script fixes

Browse Source
This commit is contained in:
Konstantin Pavlov 2019-03-30 18:16:28 +03:00
parent 80bcda370b
commit b6028753ef
4 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
README.md
View File

@ -1,8 +1,10 @@
# basic_verilog
### Some basic must-have verilog modules
(licensed under CC BY-SA 4_0)
Author: Konstantin Pavlov, pavlovconst@gmail.com
@ -12,14 +14,17 @@ Author: Konstantin Pavlov, pavlovconst@gmail.com
* **/KCPSM6_Release9_30Sept14/** - Xilinx's Picoblaze soft processor
* **/pacoblaze-2.2/** - version of Picoblaze adapted for Altera devices
* **/scripts/** - useful TCL scripts
* **/scripts/compile.tcl** - Modelsim no-project-mode compile script
* **/scripts/quartus_custom_report.tcl** - custom reporting or report analisys for Intel Quartus IDE
* **/scripts/quartus_system_console_init.tcl** - initialization script for reading/writing Avalon-MM through JTAG-to-Avalon-MM bridge IP
* **/scripts/write_avalon_mm_from_file.tcl** - writing bulk binary data from binary file to Avalon-MM through JTAG-to-Avalon-MM bridge IP
* **main_tb.sv** - basic testbench template
* **ActionBurst** - multichannel one-shot triggering module
* **ActionBurst2** - multichannel one-shot triggering with variable steps module
* **bin2pos** - converts binary coded value to positional (one-hot) code
@ -45,5 +50,6 @@ Author: Konstantin Pavlov, pavlovconst@gmail.com
* **UartTxExtreme** - extreme minimal UART transmitter implementation for FPGA written in Verilog
Also added testbenches for selected modules

4
scripts/convert_sof_to_rbf.bat
View File

@ -5,6 +5,6 @@ rem Konstantin Pavlov, pavlovconst@gmail.com
rem ------------------------------------------------------------------------------
echo "Converting .SOF to .RBF"
quartus_cpf -c PIN400_CC_dummy.sof PIN400_CC_dummy.rbf
quartus_cpf -c PRJ_NAME.sof PRJ_NAME.rbf
pause
exit
exit

1
scripts/quartus_system_console_init.tcl
View File

@ -43,7 +43,6 @@ proc sleep { N } {
after [expr {int($N * 1000)}]
}
# reading/Writing service master
puts "INIT DONE"
# closing the service

4
scripts/write_avalon_mm_from_file.tcl
View File

@ -28,6 +28,7 @@ proc write_avalon_mm_from_file { filename } {
set db1 0
set db0 0
set i 0
set b_str " kbytes done"
while {$i < $rbf_len} {
binary scan $data x${i}H2H2H2H2 db0 db1 db2 db3
@ -35,7 +36,6 @@ proc write_avalon_mm_from_file { filename } {
# puts 0x$db0$db1$db2$db3
master_write_32 $claim_path 0x20 0x$db0$db1$db2$db3
set b_str " bytes done"
if { 0 == [ expr $i % 1024 ] } {
puts $i$b_str
}
@ -44,4 +44,4 @@ proc write_avalon_mm_from_file { filename } {
}
puts "DONE!"
}
}