Line 62... |
Line 62... |
|
|
proc read_fifo {{jtag_index_0 0}} {
|
proc read_fifo {{jtag_index_0 0}} {
|
#device_lock -timeout 5
|
#device_lock -timeout 5
|
#device_virtual_ir_shift -instance_index $jtag_index_0 -ir_value 1 -no_captured_ir_value
|
#device_virtual_ir_shift -instance_index $jtag_index_0 -ir_value 1 -no_captured_ir_value
|
#device_virtual_ir_shift -instance_index $jtag_index_0 -ir_value 3 -no_captured_ir_value
|
#device_virtual_ir_shift -instance_index $jtag_index_0 -ir_value 3 -no_captured_ir_value
|
#set fifo_data [device_virtual_dr_shift -instance_index $jtag_index_0 -length 50 -value_in_hex]
|
#set fifo_data [device_virtual_dr_shift -instance_index $jtag_index_0 -length 82 -value_in_hex]
|
#device_unlock
|
#device_unlock
|
global sim_started
|
global sim_started
|
if {$sim_started==0} {
|
if {$sim_started==0} {
|
global fifo_sim_act
|
global fifo_sim_act
|
global fifo_sim_num
|
global fifo_sim_num
|
Line 75... |
Line 75... |
set fifo_sim_num [expr $fifo_sim_num+1]
|
set fifo_sim_num [expr $fifo_sim_num+1]
|
set fifo_sim_len [expr $fifo_sim_len+2]
|
set fifo_sim_len [expr $fifo_sim_len+2]
|
append fifo_sim_act (0,1,3,[format "%X" 2]),
|
append fifo_sim_act (0,1,3,[format "%X" 2]),
|
set fifo_sim_num [expr $fifo_sim_num+1]
|
set fifo_sim_num [expr $fifo_sim_num+1]
|
set fifo_sim_len [expr $fifo_sim_len+2]
|
set fifo_sim_len [expr $fifo_sim_len+2]
|
append fifo_sim_act (0,2,0,[format "%X" 50]),
|
append fifo_sim_act (0,2,0,[format "%X" 82]),
|
set fifo_sim_num [expr $fifo_sim_num+1]
|
set fifo_sim_num [expr $fifo_sim_num+1]
|
set fifo_sim_len [expr $fifo_sim_len+50]
|
set fifo_sim_len [expr $fifo_sim_len+82]
|
return 0000000000000
|
return 000000000000000000000
|
} else {
|
} else {
|
force -freeze /up_monitor_tb/MON_LO/inst/u_virtual_jtag_adda_fifo/rd_en 1 -cancel 10ns
|
force -freeze /up_monitor_tb/MON_LO/inst/u_virtual_jtag_adda_fifo/rd_en 1 -cancel 10ns
|
run 20ns
|
run 20ns
|
#after 10
|
#after 10
|
set fifo_data [examine /up_monitor_tb/MON_LO/inst/u_virtual_jtag_adda_fifo/data_out]
|
set fifo_data [examine /up_monitor_tb/MON_LO/inst/u_virtual_jtag_adda_fifo/data_out]
|
Line 335... |
Line 335... |
$log insert end "\n****************************************\n"
|
$log insert end "\n****************************************\n"
|
for {set i 0} {$i<$fifoUsedw} {incr i} {
|
for {set i 0} {$i<$fifoUsedw} {incr i} {
|
set fifoContent [read_fifo 0]
|
set fifoContent [read_fifo 0]
|
set ok_trig [expr [format "%d" 0x[string index $fifoContent 0]]/2]
|
set ok_trig [expr [format "%d" 0x[string index $fifoContent 0]]/2]
|
set wr_cptr [expr [format "%d" 0x[string index $fifoContent 0]]%2]
|
set wr_cptr [expr [format "%d" 0x[string index $fifoContent 0]]%2]
|
set ad_cptr [string range $fifoContent 1 4]
|
set tm_cptr [format "%d" 0x[string range $fifoContent 1 8]]
|
set da_cptr [string range $fifoContent 5 12]
|
set ad_cptr [string range $fifoContent 9 12]
|
|
set da_cptr [string range $fifoContent 13 20]
|
if $ok_trig {
|
if $ok_trig {
|
$log insert end "@@@@@@@@@@@@@@@@@@@@\n"
|
$log insert end "@@@@@@@@@@@@@@@@@@@@\n"
|
}
|
}
|
if $wr_cptr {
|
if $wr_cptr {
|
$log insert end "wr $ad_cptr $da_cptr\n"
|
$log insert end "wr $ad_cptr $da_cptr @$tm_cptr\n"
|
} else {
|
} else {
|
$log insert end "rd $ad_cptr $da_cptr\n"
|
$log insert end "rd $ad_cptr $da_cptr @$tm_cptr\n"
|
}
|
}
|
}
|
}
|
query_usedw 0
|
query_usedw 0
|
}
|
}
|
|
|