set usbblaster_name ""
set test_device ""

proc scan_jtag_chain {} {
global usbblaster_name
global test_device

# List all available programming hardware, and select the USB-Blaster.
# (Note: this example assumes only one USB-Blaster is connected.)
puts "Programming Hardware:"
foreach hardware_name [get_hardware_names] {
puts $hardware_name
if { [string match "USB-Blaster*" $hardware_name] } {
set usbblaster_name $hardware_name
}
}
puts "\nSelect JTAG chain connected to $usbblaster_name.\n";

# List all devices on the chain, and select the first device on the chain.
puts "\nDevices on the JTAG chain:"
foreach device_name [get_device_names -hardware_name $usbblaster_name] {
puts $device_name
if { [string match "@1*" $device_name] } {
set test_device $device_name
}
}
puts "\nSelect device: $test_device.\n";

# Open device
open_device -hardware_name $usbblaster_name -device_name $test_device

# Retrieve device id code.
# IDCODE instruction value is 6; The ID code is 32 bits long.

# IR and DR shift should be locked together to ensure that other applications
# will not change the instruction register before the id code value is shifted
# out while the instruction register is still holding the IDCODE instruction.
device_lock -timeout 10000
device_ir_shift -ir_value 6 -no_captured_ir_value
puts "IDCODE: 0x[device_dr_shift -length 32 -value_in_hex]"
device_unlock

# Close device
close_device
}

proc pulse_nconfig { } {
global usbblaster_name
global test_device

set ir_nconfig 1 # JTAG PULSE_NCONFIG command

# Open device
open_device -hardware_name $usbblaster_name -device_name $test_device

device_lock -timeout 10000
# scan instruction
device_ir_shift -ir_value $ir_nconfig -no_captured_ir_value

device_unlock

# Close device
close_device
}

#
# read IO
proc sample_io { } {
global usbblaster_name
global test_device
set ir_sample 5 # JTAG sample command
set bsr_length 997 # BSR length

array set bsr_io {
NCE 0
NCONFIG 3
DCLK 6
NCSO 9
ASDO 12
DATA0 15
NSTATUS 939
CONF_DONE 942
MSEL0 945
MSEL1 948
MSEL2 951
MSEL3 954
}
# Open device
open_device -hardware_name $usbblaster_name -device_name $test_device

device_lock -timeout 10000
# scan instruction
device_ir_shift -ir_value $ir_sample -no_captured_ir_value

# scan data
#puts "Capture data: [device_dr_shift -length $bsr_length -value_in_hex]"
set bsr_data [ string reverse "[device_dr_shift -length $bsr_length]" ]

puts "Captured data = $bsr_data\n"

# dump MSEL data
set MSEL0 "[string index $bsr_data $bsr_io(MSEL0) ]"
set MSEL1 "[string index $bsr_data $bsr_io(MSEL1) ]"
set MSEL2 "[string index $bsr_data $bsr_io(MSEL2) ]"
set MSEL3 "[string index $bsr_data $bsr_io(MSEL3) ]"

puts "MSEL0, MSEL1, MSEL2, MSEL3 = $MSEL0:$MSEL1:$MSEL2:$MSEL3"

# dump CONFIG data
puts "nCE (D2) : [string index $bsr_data $bsr_io(NCE)]" # 0
puts "nCONFIG (H4) : [string index $bsr_data $bsr_io(NCONFIG)]" # 3
puts "DCLK (D3) : [string index $bsr_data $bsr_io(DCLK)]" # 6
puts "NCSO (J4) : [string index $bsr_data $bsr_io(NCSO)]" # 9
puts "ASDO (D1) : [string index $bsr_data $bsr_io(ASDO)]" # 12
puts "DATA0 (K4) : [string index $bsr_data $bsr_io(DATA0)]" # 15

#dump STATUS data
set nSTATUS "[string index $bsr_data $bsr_io(NSTATUS)]" # 939
puts "nSTATUS = $nSTATUS"

set CONF_DONE "[string index $bsr_data $bsr_io(CONF_DONE)]" # 942
puts "CONF_DONE = $CONF_DONE"

device_unlock

# Close device
close_device
}