Altera Quartus II Scripting - Manual (Page 286)

3–156 Chapter 3: Tcl Packages & Commands
jtag
Quartus II Scripting Reference Manual © July 2013 Altera Corporation
# 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