restart -force -nolist -nowave -nolog -novirtuals -noassertions

set toplev tb
force -freeze $toplev/RESETn 1 0, 0 10, 1 100
force -freeze $toplev/CLK100M 0 0, 1 5, 0 10 -repeat 10

set toplev tb
add wave -label RESETn $toplev/RESETn
add wave -label Adr -hexadecimal $toplev/Adr

force -freeze -repeat 104 ns tb/FD X"1122" 0 ns, X"3344" 21 ns, X"5566" 42 ns, X"7788" 63 ns, X"9900" 84 ns

run 2420 ns

И посложнее. Но чем такое "сложное" уж лучше модуль пристыковать на том же языке что и проект.

set ptrdynwas0 0

when -label when1 {BPCLK'EVENT and BPCLK=1} {
if {$ptrdynwas0 == 0} {
force -drive $toplev/PTATNn 0 6
}
}

when -label when4 {PTATNn = 0} {
force -drive $toplev/PTNUM B"00"
}

when -label when5 {PTATNn = 1} {
noforce $toplev/PTNUM
}