write_read_ROM

set usb [lindex [get_hardware_names] 0]
# Выбор устройства на шине JTAG

set SEL_DEVICE_BUS 0
set device_name [lindex [get_device_names -hardware_name $usb] 0]
puts "*************************"
puts "Author        : Valentin"
puts "Company       : AO 'Kotlin-Novator'"
puts "Email         :"
puts "Description   :"
puts "*************************"
puts "programming cable:"
puts $usb

foreach hardware_name [get_hardware_names] {
    puts $hardware_name
    if {[string match "@*" $device_name]} {
        set test_device $device_name
    }
}

puts "\nSEL : $test_device.\n"

proc read_rom {} {
    global device_name usb

    puts "read board ROM:"
  puts "\t$device_name"
    # initiate a editin sequence
    begin_memory_edit -hardware_name $usb -device_name $device_name
    # save to file ROM
    # Читаем из памяти по инстансу
    save_content_from_memory_to_file -instance_index 0 -mem_file_path "./dataram/CycloneRAM1.hex" -mem_file_type hex
    save_content_from_memory_to_file -instance_index 1 -mem_file_path "./dataram/CycloneRAM2.hex" -mem_file_type hex
    save_content_from_memory_to_file -instance_index 2 -mem_file_path "./dataram/CycloneRAM3.hex" -mem_file_type hex
    save_content_from_memory_to_file -instance_index 3 -mem_file_path "./dataram/CycloneRAM4.hex" -mem_file_type hex
    # end the editing sequence
    end_memory_edit

}


#Чтение из памяти см. в функцию
read_rom