forth-cpu

1
# Richard Howe
2
# TCL Script for GTKWave on tb.ghw 
3
#
4

5
set nfacs [ gtkwave::getNumFacs ]
6

7
gtkwave::/Edit/Set_Trace_Max_Hier 0
8
gtkwave::/Time/Zoom/Zoom_Amount -31.5
9

10
set instruction "top.tb.dbgi.insn"
11

12
set names [list]
13
lappend names "top.tb.clk"
14
lappend names "top.tb.rst"
15
lappend names "top.tb.dbgi.pc"
16
lappend names "$instruction"
17
lappend names "top.tb.dbgi.daddr"
18
lappend names "top.tb.dbgi.dout"
19
lappend names "top.tb.dbgi.din"
20
lappend names "top.tb.o_vga.hsync"
21
lappend names "top.tb.o_vga.vsync"
22

23
puts "signal list: $names"
24

25
set num_added [ gtkwave::addSignalsFromList $names ]
26
puts "num signals added: $num_added"
27

28
set highlight_insn [list]
29
lappend highlight_insn $instruction
30

31
set num_added [ gtkwave::highlightSignalsFromList "top.tb.dbgi.insn\[15:0\]"]
32
puts "num highlighted: $num_added"
33
gtkwave::/Edit/Highlight_Regexp "insn"
34
set procFile "./h2"
35
set OS [lindex $tcl_platform(os) 0]
36
if { $OS == "Windows" } {
37
	set procFile "h2.exe"
38
} 
39

40
set which_f [ gtkwave::setCurrentTranslateProc $procFile ]
41
puts "which_f: $which_f"
42
gtkwave::/Edit/Data_Format/Translate_Filter_Process/Enable_and_Select
43

44