Altera Quartus II Scripting User Manual
Page 284
3–154
Chapter 3: Tcl Packages & Commands
jtag
Quartus II Scripting Reference Manual
© July 2013
Altera Corporation
# The follow virtual JTAG IR and DR shift sequence engage with
# the example virtual JTAG instance.
#
# Two instructions: SAMPLE (1) FEED (2)
# SAMPLE instruction samples a 8-bit bus; the captured value shows the
# number of sample performed.
# FEED instruction supplies a 8-bit value to the logic connected to this
# instance.
# Both data registers corresponding to the IR are 8 bit wide.
# Send SAMPLE instruction to IR, read captured IR for the sampling
# number.
# Capture the DR register for the current sampled value.
device_lock -timeout 10000
puts "Current LED Value (sample #[device_virtual_ir_shift -instance_index \
0 -ir_value 1]): \
[device_virtual_dr_shift -instance_index 0 -length 8 -value_in_hex]"
device_unlock
# Send FEED instruction to IR, read a two-digit hex string from the
# console,
# then send the new value to the DR register.
puts "\nType in 2 digits in hexadecimal to update the LED:"
gets stdin update_value
device_lock -timeout 10000
device_virtual_ir_shift -instance_index 0 -ir_value 2 \
-no_captured_ir_value
device_virtual_dr_shift -instance_index 0 -length 8 -dr_value \
$update_value -value_in_hex -no_captured_dr_value
device_unlock
# Close device
close_device