ucl_project_y3/scripts/check_rom_risc8.tcl

foreach hardware_name [get_hardware_names] {
	if { [string match "USB-Blaster*" $hardware_name] } {
		set usbblaster_name $hardware_name
	}
}
puts "JTAG chain: $usbblaster_name";
foreach device_name [get_device_names -hardware_name $usbblaster_name] {
	if { [string match "@1*" $device_name] } {
		set test_device $device_name
	}
}
puts "Device: $test_device";
begin_memory_edit -hardware_name $hardware_name -device_name $device_name

set content [read_content_from_memory -instance_index 1 -start_address 0 -word_count 1024 -content_in_hex]
puts "Checking rom0...[exec ./check_mem.sh ./memory/risc8.text_0.uhex $content]"
set content [read_content_from_memory -instance_index 2 -start_address 0 -word_count 1024 -content_in_hex]
puts "Checking rom1...[exec ./check_mem.sh ./memory/risc8.text_1.uhex $content]"
set content [read_content_from_memory -instance_index 3 -start_address 0 -word_count 1024 -content_in_hex]
puts "Checking rom2...[exec ./check_mem.sh ./memory/risc8.text_2.uhex $content]"
set content [read_content_from_memory -instance_index 4 -start_address 0 -word_count 1024 -content_in_hex]
puts "Checking rom3...[exec ./check_mem.sh ./memory/risc8.text_3.uhex $content]"

puts "Done!";
end_memory_edit