diff --git a/README.md b/README.md
index 5074978..9a3a0c7 100644
--- a/README.md
+++ b/README.md
@@ -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
diff --git a/scripts/system_console_init.tcl b/scripts/system_console_init.tcl
new file mode 100644
index 0000000..62c43db
--- /dev/null
+++ b/scripts/system_console_init.tcl
@@ -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
+