Hello evryone, I am trying to do a GUI interface with tcl to load the .sof that I generated into the FPGA with tcl. I want also in this tcl script read from a memory adress, get a value and put it into a label in the GUI interface. I am using master_read_32 command to do this: # set m_path [lindex [get_service_paths master] 0] # open_service master $m_path # master_read_32 $m_path 0x00000000 1 to read the 32 bit value. My question is how can I save this value to put it into the label in the GUI interface!? I am waiting for some help please. Thanks a lot.

Look at the Tcl client GUI example in this tutorial http://www.alterawiki.com/wiki/using_the_usb-blaster_as_an_sopc/qsys_avalon-mm_master_tutorial Cheers, Dave

Hello Dave, that tutorial has nothing about how to save the master_read_32 <adress> to a variable to present that value saved into a label in GUI interface! Do you know how to do it? Kind regards,

--- Quote Start --- that tutorial has nothing about how to save the master_read_32 <adress> to a variable to present that value saved into a label in GUI interface! Do you know how to do it? --- Quote End --- As I commented, the Tcl code for the client GUI has everything you need. The code for the GUI shows how to control the content of a label or hex entry box by mapping that entry to a text variable, eg., here's the code for the response for a read # A hex entry box with the default data set jtag(data) 0 entry $win.f1.e2 -textvariable jtag(data) -width 12 -justify right -relief sunken -validate key -validatecommand {validate_isxdigit %d %P} and for the corresponding read command # Pressing the read/write buttons will automatically connect # to the client if needed. The trace on jtag(socket) will # cause the connection status GUI elements to update # proc read_button {} { global jtag # The address and data entry boxes contain only digits, # so add the leading 0x to the address set data # and then strip the response 0x set jtag(data) } Every time read is called, it updates jtag(data), which in turn updates the GUI. Then if you look at jtag_read on the server in jtag_read_cmds.tcl, you will see # Read 32-bits puts "SERVER: jtag_read $addr" if {} { if {} { # JTAG connection lost? jtag_close error "Error: Check the JTAG interface\n -> '$result'" } } else { if {} { # JTAG connection lost? jtag_close error "Error: Check the JTAG interface\n -> '$result'" } } return $result which uses master_read_32 to implement the read procedure. You can lump all of this into a single Tcl procedure if you want. Cheers, Dave

Hello Dave, thanks for answering so quick. I have a question: I have one Qsys with a component that I did and JTAG to Avalon Master Brige into the Qsys, connected. I did some tests to read a value with the avalon_master and I use this in Qsys console: # set m_path [lindex [get_service_paths master] 0] # open_service master $m_path # master_read_32 $m_path 0x00000000 1 # close_service master $m_path and with this I get the 32 bits value on the adress 0x00000000. When you write on your code JTAG it works with JTAG to Avalon Master Bridge or I need to change to other one in Qsys? King regards

--- Quote Start --- When you write on your code JTAG it works with JTAG to Avalon Master Bridge or I need to change to other one in Qsys? --- Quote End --- You can answer this question yourself very easily by just looking at the tutorial ... which part of the block diagram on the main page of the tutorial is not clear? http://www.alterawiki.com/wiki/using_the_usb-blaster_as_an_sopc/qsys_avalon-mm_master_tutorial Cheers, Dave

get value from master_read_32 | Altera Community

23 Replies

Altera_Forum
Honored Contributor
12 years ago
--- Quote Start ---

Thank you so much for your help.

--- Quote End ---

You're welcome. I'm glad to see that you are trying to figure it out for yourself.

--- Quote Start ---

I am stuck in something that without this I can't finish ...

--- Quote End ---

The Tcl variable jtag contains an element called jtag(address). In my application, this variable is the "address" field of the GUI.

If you look at the jtag_client.tcl code, and search for the jtag(address) text you will see it used in the draw_read_write procedure as the textvariable associated with an entry widget, i.e., the entry element in the GUI is what defines the jtag(address) variable.

If you have not used that same textvariable somewhere in your code, then it is not defined, so the calls to read fail.

You can debug this type of issue in your code by creating the variable and assigning to it, eg., to set the address to 5 you could use

tcl> set jtag(address) 5

at the Tcl console.

If you are still stuck, send me your Tcl code (either post it as an attachment to this thread, or email it to me directly), and I'll take a look at it.

Cheers,
Dave
Altera_Forum
Honored Contributor
12 years ago
I sent you an e-mail Dave.

Kind Regards
Altera_Forum
Honored Contributor
12 years ago
--- Quote Start ---
I sent you an e-mail Dave.
--- Quote End ---

Ok, I got it, I'll take a look at your code when I get a chance (which will be some time later today).

Cheers,
Dave

Forum Discussion

get value from master_read_32

23 Replies

Recent Discussions

Cyclone-V SCFIFO - adding ECC to M10K/MLAB/Auto memory

Will serialization factor of 6 in LVDS serdes IP be supported in the future on Agilex5?

System PLL of Agliex5 PCIE example design cannot be locked after configuration

JTAG Chain Broken on Agilex 7-I Dev Kit

Request for Cyclone V Pinout File Information