mirror of
https://github.com/pConst/basic_verilog.git
synced 2025-01-14 06:42:54 +08:00
Added System Console initialization script
This commit is contained in:
parent
732a6883d5
commit
fbb6ecff17
@ -1,6 +1,8 @@
|
||||
# basic_verilog
|
||||
### Some basic must-have verilog modules
|
||||
|
||||
(licensed under CC BY-SA 4_0)
|
||||
|
||||
Author: Konstantin Pavlov, pavlovconst@gmail.com
|
||||
|
||||
|
||||
@ -10,9 +12,9 @@ Author: Konstantin Pavlov, pavlovconst@gmail.com
|
||||
* **/KCPSM6_Release9_30Sept14/** - Xilinx's Picoblaze soft processor
|
||||
* **/pacoblaze-2.2/** - version of Picoblaze adapted for Altera devices
|
||||
|
||||
* **Main_tb.v** - basic testbench template
|
||||
* **/scripts/** - useful TCL scripts
|
||||
|
||||
* **compile.tcl** - tcl script to configure and run Modelsim compilation without need to create simulation project manually
|
||||
* **main_tb.sv** - basic testbench template
|
||||
|
||||
* **ActionBurst** - multichannel one-shot triggering module
|
||||
* **ActionBurst2** - multichannel one-shot triggering with variable steps module
|
||||
|
29
scripts/system_console_init.tcl
Normal file
29
scripts/system_console_init.tcl
Normal file
@ -0,0 +1,29 @@
|
||||
#------------------------------------------------------------------------------
|
||||
# system_console_init.tcl
|
||||
# Konstantin Pavlov, pavlovconst@gmail.com
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
# INFO ------------------------------------------------------------------------
|
||||
# Initialization script for reading/writing Avalon-MM through
|
||||
# JTAG-to-Avalon-MM bridge IP when using Quartus System Console
|
||||
# To select the script press Ctrl+E in Quartus System Console
|
||||
|
||||
# setting path to first service master
|
||||
set master_path [lindex [get_service_paths master] 0]
|
||||
# example output
|
||||
#/devices/10CL025(Y|Z)|EP3C25|EP4CE22@1#3-3.1/(link)/JTAG/alt_sld_fab_sldfabric.node_0/phy_0/master_0.master
|
||||
|
||||
# claiming master resources
|
||||
set claim_path [claim_service master $master_path mylib]
|
||||
# example output
|
||||
#/channels/local/mylib/master_1
|
||||
|
||||
# reading/Writing service master
|
||||
puts "INIT DONE"
|
||||
puts "Example syntax for following commands:"
|
||||
puts "master_write_32 \$claim_path 0x10 0x810000FF"
|
||||
puts "master_read_8 \$claim_path 0x10 1"
|
||||
|
||||
# closing the service
|
||||
#close_service master $claim_path
|
||||
|
Loading…
x
Reference in New Issue
Block a user