#!/usr/bin/wish
|
#!/usr/bin/wish
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
# Copyright (C) 2001 Authors
|
# Copyright (C) 2001 Authors
|
#
|
#
|
# This source file may be used and distributed without restriction provided
|
# This source file may be used and distributed without restriction provided
|
# that this copyright statement is not removed from the file and that any
|
# that this copyright statement is not removed from the file and that any
|
# derivative work contains the original copyright notice and the associated
|
# derivative work contains the original copyright notice and the associated
|
# disclaimer.
|
# disclaimer.
|
#
|
#
|
# This source file is free software; you can redistribute it and/or modify
|
# This source file is free software; you can redistribute it and/or modify
|
# it under the terms of the GNU Lesser General Public License as published
|
# it under the terms of the GNU Lesser General Public License as published
|
# by the Free Software Foundation; either version 2.1 of the License, or
|
# by the Free Software Foundation; either version 2.1 of the License, or
|
# (at your option) any later version.
|
# (at your option) any later version.
|
#
|
#
|
# This source is distributed in the hope that it will be useful, but WITHOUT
|
# This source is distributed in the hope that it will be useful, but WITHOUT
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
|
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
|
# License for more details.
|
# License for more details.
|
#
|
#
|
# You should have received a copy of the GNU Lesser General Public License
|
# You should have received a copy of the GNU Lesser General Public License
|
# along with this source; if not, write to the Free Software Foundation,
|
# along with this source; if not, write to the Free Software Foundation,
|
# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
#
|
#
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
#
|
#
|
# File Name: minidebug.tcl
|
# File Name: minidebug.tcl
|
#
|
#
|
|
# Author(s):
|
|
# - Olivier Girard, olgirard@gmail.com
|
|
#
|
|
#------------------------------------------------------------------------------
|
|
# $Rev: 14 $
|
|
# $LastChangedBy: olivier.girard $
|
|
# $LastChangedDate: 2009-08-04 22:34:42 +0200 (Tue, 04 Aug 2009) $
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
|
|
###############################################################################
|
###############################################################################
|
# #
|
# #
|
# GLOBAL VARIABLES #
|
# GLOBAL VARIABLES #
|
# #
|
# #
|
###############################################################################
|
###############################################################################
|
|
|
global serial_baudrate
|
global serial_baudrate
|
global serial_device
|
global serial_device
|
global serial_status
|
global serial_status
|
global cpu_status
|
global cpu_status
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
# Initializations
|
# Initializations
|
set serial_status 0
|
set serial_status 0
|
set cpu_status 1
|
set cpu_status 1
|
for {set i 0} {$i<16} {incr i} {
|
for {set i 0} {$i<16} {incr i} {
|
set reg($i) 0x0000
|
set reg($i) 0x0000
|
set mem(address_$i) [format "0x%04x" [expr 0x0200+$i*2]]
|
set mem(address_$i) [format "0x%04x" [expr 0x0200+$i*2]]
|
set mem(data_$i) 0x0000
|
set mem(data_$i) 0x0000
|
}
|
}
|
|
|
###############################################################################
|
###############################################################################
|
# #
|
# #
|
# SOURCE LIBRARIES #
|
# SOURCE LIBRARIES #
|
# #
|
# #
|
###############################################################################
|
###############################################################################
|
|
|
# Get library path
|
# Get library path
|
set current_file [info script]
|
set current_file [info script]
|
if {[file type $current_file]=="link"} {
|
if {[file type $current_file]=="link"} {
|
set current_file [file readlink $current_file]
|
set current_file [file readlink $current_file]
|
}
|
}
|
set lib_path [file dirname $current_file]/../lib/tcl-lib
|
set lib_path [file dirname $current_file]/../lib/tcl-lib
|
|
|
# Source library
|
# Source library
|
source $lib_path/dbg_functions.tcl
|
source $lib_path/dbg_functions.tcl
|
source $lib_path/combobox.tcl
|
source $lib_path/combobox.tcl
|
package require combobox 2.3
|
package require combobox 2.3
|
catch {namespace import combobox::*}
|
catch {namespace import combobox::*}
|
|
|
|
|
###############################################################################
|
###############################################################################
|
# #
|
# #
|
# FUNCTIONS #
|
# FUNCTIONS #
|
# #
|
# #
|
###############################################################################
|
###############################################################################
|
|
|
proc connect_openMSP430 {} {
|
proc connect_openMSP430 {} {
|
global serial_status
|
global serial_status
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
set serial_status [GetDevice]
|
set serial_status [GetDevice]
|
|
|
if {$serial_status} {
|
if {$serial_status} {
|
set sizes [GetCPU_ID_SIZE]
|
set sizes [GetCPU_ID_SIZE]
|
|
|
.serial.p1 configure -state disabled
|
.serial.p1 configure -state disabled
|
.serial.p2 configure -state disabled
|
.serial.p2 configure -state disabled
|
.serial.connect configure -state disabled
|
.serial.connect configure -state disabled
|
.serial.l3 configure -text "Connected" -fg green
|
.serial.l3 configure -text "Connected" -fg green
|
.load.ft.file configure -state normal
|
.load.ft.file configure -state normal
|
.load.ft.browse configure -state normal
|
.load.ft.browse configure -state normal
|
.load.fb.read configure -state normal
|
.load.fb.read configure -state normal
|
.cpu.reset configure -state normal
|
.cpu.reset configure -state normal
|
.cpu.run configure -state normal
|
.cpu.run configure -state normal
|
.cpu.l7 configure -text [lindex $sizes 0]
|
.cpu.l7 configure -text [lindex $sizes 0]
|
.cpu.l5 configure -text [lindex $sizes 1]
|
.cpu.l5 configure -text [lindex $sizes 1]
|
.reg_mem.reg.cmd.refresh configure -state normal
|
.reg_mem.reg.cmd.refresh configure -state normal
|
.reg_mem.mem.cmd.refresh configure -state normal
|
.reg_mem.mem.cmd.refresh configure -state normal
|
for {set i 0} {$i<16} {incr i} {
|
for {set i 0} {$i<16} {incr i} {
|
.reg_mem.reg.entries.e$i configure -state normal
|
.reg_mem.reg.entries.e$i configure -state normal
|
.reg_mem.mem.address.e$i configure -state normal
|
.reg_mem.mem.address.e$i configure -state normal
|
.reg_mem.mem.data.e$i configure -state normal
|
.reg_mem.mem.data.e$i configure -state normal
|
}
|
}
|
refreshReg
|
refreshReg
|
refreshMem
|
refreshMem
|
|
|
} else {
|
} else {
|
.serial.l3 configure -text "Connection problem" -fg red
|
.serial.l3 configure -text "Connection problem" -fg red
|
}
|
}
|
}
|
}
|
|
|
proc disconnect_openMSP430 {} {
|
proc disconnect_openMSP430 {} {
|
global serial_status
|
global serial_status
|
|
|
if {$serial_status} {
|
if {$serial_status} {
|
ReleaseDevice 0xfffe
|
ReleaseDevice 0xfffe
|
}
|
}
|
}
|
}
|
|
|
proc loadProgram {elf_file_name} {
|
proc loadProgram {elf_file_name} {
|
global cpu_status
|
global cpu_status
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
# Create and read binary executable file
|
# Create and read binary executable file
|
#----------------------------------------
|
#----------------------------------------
|
|
|
# Generate binary file
|
# Generate binary file
|
set bin_file "[clock clicks].bin"
|
set bin_file "[clock clicks].bin"
|
catch {exec msp430-objcopy -O binary $elf_file_name $bin_file}
|
catch {exec msp430-objcopy -O binary $elf_file_name $bin_file}
|
|
|
# Read file
|
# Read file
|
set fp [open $bin_file r]
|
set fp [open $bin_file r]
|
fconfigure $fp -translation binary
|
fconfigure $fp -translation binary
|
binary scan [read $fp] H* hex_data yop
|
binary scan [read $fp] H* hex_data yop
|
close $fp
|
close $fp
|
|
|
# Cleanup
|
# Cleanup
|
file delete $bin_file
|
file delete $bin_file
|
|
|
# Get program size
|
# Get program size
|
set hex_size [string length $hex_data]
|
set hex_size [string length $hex_data]
|
set byte_size [expr $hex_size/2]
|
set byte_size [expr $hex_size/2]
|
set word_size [expr $byte_size/2]
|
set word_size [expr $byte_size/2]
|
|
|
# Format data
|
# Format data
|
for {set i 0} {$i < $hex_size} {set i [expr $i+4]} {
|
for {set i 0} {$i < $hex_size} {set i [expr $i+4]} {
|
set hex_msb "[string index $hex_data [expr $i+2]][string index $hex_data [expr $i+3]]"
|
set hex_msb "[string index $hex_data [expr $i+2]][string index $hex_data [expr $i+3]]"
|
set hex_lsb "[string index $hex_data [expr $i+0]][string index $hex_data [expr $i+1]]"
|
set hex_lsb "[string index $hex_data [expr $i+0]][string index $hex_data [expr $i+1]]"
|
lappend DataArray "0x$hex_msb$hex_lsb"
|
lappend DataArray "0x$hex_msb$hex_lsb"
|
}
|
}
|
|
|
# Load program to openmsp430 target
|
# Load program to openmsp430 target
|
#-----------------------------------
|
#-----------------------------------
|
|
|
# Reset & Stop CPU
|
# Reset & Stop CPU
|
ExecutePOR_Halt
|
ExecutePOR_Halt
|
|
|
# Load ROM
|
# Load ROM
|
set StartAddr [format "0x%04x" [expr 0x10000-$byte_size]]
|
set StartAddr [format "0x%04x" [expr 0x10000-$byte_size]]
|
.load.fb.l configure -text "Load..." -fg yellow
|
.load.fb.l configure -text "Load..." -fg yellow
|
update
|
update
|
WriteMemQuick $StartAddr $DataArray
|
WriteMemQuick $StartAddr $DataArray
|
|
|
# Check Data
|
# Check Data
|
.load.fb.l configure -text "Verify..." -fg yellow
|
.load.fb.l configure -text "Verify..." -fg yellow
|
update
|
update
|
if {[VerifyMem $StartAddr $DataArray]} {
|
if {[VerifyMem $StartAddr $DataArray]} {
|
.load.fb.l configure -text "Done" -fg green
|
.load.fb.l configure -text "Done" -fg green
|
} else {
|
} else {
|
.load.fb.l configure -text "ERROR" -fg red
|
.load.fb.l configure -text "ERROR" -fg red
|
}
|
}
|
update
|
update
|
|
|
# Release device if it was not previously stopped
|
# Release device if it was not previously stopped
|
if {$cpu_status} {
|
if {$cpu_status} {
|
ReleaseCPU
|
ReleaseCPU
|
}
|
}
|
refreshReg
|
refreshReg
|
refreshMem
|
refreshMem
|
}
|
}
|
|
|
proc runCPU {} {
|
proc runCPU {} {
|
global cpu_status
|
global cpu_status
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
if {$cpu_status} {
|
if {$cpu_status} {
|
HaltCPU
|
HaltCPU
|
.cpu.run configure -text "Run"
|
.cpu.run configure -text "Run"
|
.cpu.l3 configure -text "Stopped" -fg yellow
|
.cpu.l3 configure -text "Stopped" -fg yellow
|
set cpu_status 0
|
set cpu_status 0
|
} else {
|
} else {
|
ReleaseCPU
|
ReleaseCPU
|
.cpu.run configure -text "Stop"
|
.cpu.run configure -text "Stop"
|
.cpu.l3 configure -text "Running" -fg green
|
.cpu.l3 configure -text "Running" -fg green
|
set cpu_status 1
|
set cpu_status 1
|
}
|
}
|
refreshReg
|
refreshReg
|
refreshMem
|
refreshMem
|
}
|
}
|
|
|
proc resetCPU {} {
|
proc resetCPU {} {
|
global cpu_status
|
global cpu_status
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
if {$cpu_status} {
|
if {$cpu_status} {
|
ExecutePOR
|
ExecutePOR
|
} else {
|
} else {
|
ExecutePOR_Halt
|
ExecutePOR_Halt
|
}
|
}
|
refreshReg
|
refreshReg
|
refreshMem
|
refreshMem
|
}
|
}
|
|
|
proc refreshReg {} {
|
proc refreshReg {} {
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
set new_vals [ReadRegAll]
|
set new_vals [ReadRegAll]
|
for {set i 0} {$i<16} {incr i} {
|
for {set i 0} {$i<16} {incr i} {
|
set reg($i) [lindex $new_vals $i]
|
set reg($i) [lindex $new_vals $i]
|
}
|
}
|
}
|
}
|
|
|
proc write2Reg {reg_num} {
|
proc write2Reg {reg_num} {
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
WriteReg $reg_num $reg($reg_num)
|
WriteReg $reg_num $reg($reg_num)
|
refreshReg
|
refreshReg
|
refreshMem
|
refreshMem
|
}
|
}
|
|
|
proc refreshMem {} {
|
proc refreshMem {} {
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
for {set i 0} {$i<16} {incr i} {
|
for {set i 0} {$i<16} {incr i} {
|
# Check if address lay in 16 or 8 bit space
|
# Check if address lay in 16 or 8 bit space
|
if {[expr $mem(address_$i)]>=[expr 0x100]} {
|
if {[expr $mem(address_$i)]>=[expr 0x100]} {
|
set Format 0
|
set Format 0
|
} else {
|
} else {
|
set Format 1
|
set Format 1
|
}
|
}
|
|
|
# Read data
|
# Read data
|
set mem(data_$i) [ReadMem $Format $mem(address_$i)]
|
set mem(data_$i) [ReadMem $Format $mem(address_$i)]
|
}
|
}
|
}
|
}
|
|
|
proc write2Mem {mem_num} {
|
proc write2Mem {mem_num} {
|
global reg
|
global reg
|
global mem
|
global mem
|
|
|
# Check if address lay in 16 or 8 bit space
|
# Check if address lay in 16 or 8 bit space
|
if {[expr $mem(address_$mem_num)]>=[expr 0x100]} {
|
if {[expr $mem(address_$mem_num)]>=[expr 0x100]} {
|
set Format 0
|
set Format 0
|
} else {
|
} else {
|
set Format 1
|
set Format 1
|
}
|
}
|
|
|
WriteMem $Format $mem(address_$mem_num) $mem(data_$mem_num)
|
WriteMem $Format $mem(address_$mem_num) $mem(data_$mem_num)
|
refreshReg
|
refreshReg
|
refreshMem
|
refreshMem
|
}
|
}
|
|
|
###############################################################################
|
###############################################################################
|
# #
|
# #
|
# CREATE GRAPHICAL INTERFACE #
|
# CREATE GRAPHICAL INTERFACE #
|
# #
|
# #
|
###############################################################################
|
###############################################################################
|
|
|
####################################
|
####################################
|
# CREATE & PLACE MAIN WIDGETS #
|
# CREATE & PLACE MAIN WIDGETS #
|
####################################
|
####################################
|
|
|
wm title . "openMSP430 mini debuger"
|
wm title . "openMSP430 mini debuger"
|
wm iconname . "openMSP430 mini debuger"
|
wm iconname . "openMSP430 mini debuger"
|
|
|
# Create the Main Menu budget
|
# Create the Main Menu budget
|
frame .menu
|
frame .menu
|
pack .menu -side top -padx 10 -pady 10 -fill x
|
pack .menu -side top -padx 10 -pady 10 -fill x
|
|
|
# Create the Serial Menu budget
|
# Create the Serial Menu budget
|
frame .serial
|
frame .serial
|
pack .serial -side top -padx 10 -pady 10 -fill x
|
pack .serial -side top -padx 10 -pady 10 -fill x
|
|
|
# Create the Load executable field
|
# Create the Load executable field
|
frame .load
|
frame .load
|
pack .load -side top -padx 10 -pady 10 -fill x
|
pack .load -side top -padx 10 -pady 10 -fill x
|
|
|
# Create the cpu control field
|
# Create the cpu control field
|
frame .cpu
|
frame .cpu
|
pack .cpu -side top -padx 10 -pady 10 -fill x
|
pack .cpu -side top -padx 10 -pady 10 -fill x
|
|
|
# Create the cpu registers/memory fields
|
# Create the cpu registers/memory fields
|
frame .reg_mem
|
frame .reg_mem
|
pack .reg_mem -side top -padx 10 -pady 10 -fill x
|
pack .reg_mem -side top -padx 10 -pady 10 -fill x
|
frame .reg_mem.reg
|
frame .reg_mem.reg
|
pack .reg_mem.reg -side left -fill x
|
pack .reg_mem.reg -side left -fill x
|
frame .reg_mem.mem
|
frame .reg_mem.mem
|
pack .reg_mem.mem -side left -fill x
|
pack .reg_mem.mem -side left -fill x
|
|
|
|
|
####################################
|
####################################
|
# CREATE THE REST #
|
# CREATE THE REST #
|
####################################
|
####################################
|
|
|
# Exit button
|
# Exit button
|
button .menu.exit -text "Exit" -command {disconnect_openMSP430; exit 0}
|
button .menu.exit -text "Exit" -command {disconnect_openMSP430; exit 0}
|
pack .menu.exit -side left
|
pack .menu.exit -side left
|
|
|
|
|
# Serial Port fields
|
# Serial Port fields
|
label .serial.l1 -text "Serial Port:" -anchor w
|
label .serial.l1 -text "Serial Port:" -anchor w
|
pack .serial.l1 -side left
|
pack .serial.l1 -side left
|
set serial_device [lindex [dbg_list_uart] end]
|
set serial_device [lindex [dbg_list_uart] end]
|
combobox .serial.p1 -textvariable serial_device -editable true
|
combobox .serial.p1 -textvariable serial_device -editable true
|
eval .serial.p1 list insert end [dbg_list_uart]
|
eval .serial.p1 list insert end [dbg_list_uart]
|
pack .serial.p1 -side left -padx 5
|
pack .serial.p1 -side left -padx 5
|
|
|
label .serial.l2 -text " Baudrate:" -anchor w
|
label .serial.l2 -text " Baudrate:" -anchor w
|
pack .serial.l2 -side left
|
pack .serial.l2 -side left
|
set serial_baudrate 115200
|
set serial_baudrate 115200
|
combobox .serial.p2 -textvariable serial_baudrate -editable true
|
combobox .serial.p2 -textvariable serial_baudrate -editable true
|
eval .serial.p2 list insert end [list 9600 19200 38400 57600 115200 \
|
eval .serial.p2 list insert end [list 9600 19200 38400 57600 115200 \
|
230400 460800 500000 576000 921600 \
|
230400 460800 500000 576000 921600 \
|
1000000 1152000]
|
1000000 1152000]
|
pack .serial.p2 -side left -padx 5
|
pack .serial.p2 -side left -padx 5
|
|
|
button .serial.connect -text "Connect" -command {connect_openMSP430}
|
button .serial.connect -text "Connect" -command {connect_openMSP430}
|
pack .serial.connect -side left -padx 10
|
pack .serial.connect -side left -padx 10
|
label .serial.l3 -text "Disconnected" -anchor w -fg Red
|
label .serial.l3 -text "Disconnected" -anchor w -fg Red
|
pack .serial.l3 -side left
|
pack .serial.l3 -side left
|
|
|
|
|
# Load ELF file fields
|
# Load ELF file fields
|
frame .load.ft
|
frame .load.ft
|
pack .load.ft -side top -fill x
|
pack .load.ft -side top -fill x
|
label .load.ft.l -text "ELF file:"
|
label .load.ft.l -text "ELF file:"
|
pack .load.ft.l -side left -padx 5
|
pack .load.ft.l -side left -padx 5
|
entry .load.ft.file -width 58 -relief sunken -textvariable elf_file_name -state disabled
|
entry .load.ft.file -width 58 -relief sunken -textvariable elf_file_name -state disabled
|
pack .load.ft.file -side left -padx 5
|
pack .load.ft.file -side left -padx 5
|
button .load.ft.browse -text "Browse" -state disabled -command {set elf_file_name [tk_getOpenFile]}
|
button .load.ft.browse -text "Browse" -state disabled -command {set elf_file_name [tk_getOpenFile]}
|
pack .load.ft.browse -side left -padx 5
|
pack .load.ft.browse -side left -padx 5
|
frame .load.fb
|
frame .load.fb
|
pack .load.fb -side top -fill x
|
pack .load.fb -side top -fill x
|
button .load.fb.read -text "Load ELF File !" -state disabled -command {loadProgram $elf_file_name}
|
button .load.fb.read -text "Load ELF File !" -state disabled -command {loadProgram $elf_file_name}
|
pack .load.fb.read -side left -padx 5 -fill x
|
pack .load.fb.read -side left -padx 5 -fill x
|
label .load.fb.l -text "Not loaded" -anchor w -fg Red
|
label .load.fb.l -text "Not loaded" -anchor w -fg Red
|
pack .load.fb.l -side left
|
pack .load.fb.l -side left
|
|
|
|
|
# CPU Control
|
# CPU Control
|
label .cpu.l1 -text "Control CPU:" -anchor w
|
label .cpu.l1 -text "Control CPU:" -anchor w
|
pack .cpu.l1 -side left
|
pack .cpu.l1 -side left
|
button .cpu.reset -text "Reset" -state disabled -command {resetCPU}
|
button .cpu.reset -text "Reset" -state disabled -command {resetCPU}
|
pack .cpu.reset -side left -padx 5 -fill x
|
pack .cpu.reset -side left -padx 5 -fill x
|
button .cpu.run -text "Stop" -state disabled -command {runCPU}
|
button .cpu.run -text "Stop" -state disabled -command {runCPU}
|
pack .cpu.run -side left -padx 5 -fill x
|
pack .cpu.run -side left -padx 5 -fill x
|
label .cpu.l2 -text "CPU Status:" -anchor w
|
label .cpu.l2 -text "CPU Status:" -anchor w
|
pack .cpu.l2 -side left
|
pack .cpu.l2 -side left
|
label .cpu.l3 -text "Running" -anchor w -fg green
|
label .cpu.l3 -text "Running" -anchor w -fg green
|
pack .cpu.l3 -side left
|
pack .cpu.l3 -side left
|
|
|
label .cpu.l4 -text "B)" -anchor w
|
label .cpu.l4 -text "B)" -anchor w
|
pack .cpu.l4 -side right
|
pack .cpu.l4 -side right
|
label .cpu.l5 -text "--" -anchor w
|
label .cpu.l5 -text "--" -anchor w
|
pack .cpu.l5 -side right
|
pack .cpu.l5 -side right
|
label .cpu.l6 -text "B; RAM size:" -anchor w
|
label .cpu.l6 -text "B; RAM size:" -anchor w
|
pack .cpu.l6 -side right
|
pack .cpu.l6 -side right
|
label .cpu.l7 -text "--" -anchor w
|
label .cpu.l7 -text "--" -anchor w
|
pack .cpu.l7 -side right
|
pack .cpu.l7 -side right
|
label .cpu.l8 -text "(ROM size:" -anchor w
|
label .cpu.l8 -text "(ROM size:" -anchor w
|
pack .cpu.l8 -side right
|
pack .cpu.l8 -side right
|
|
|
|
|
# CPU Registers
|
# CPU Registers
|
frame .reg_mem.reg.labels
|
frame .reg_mem.reg.labels
|
pack .reg_mem.reg.labels -side left -fill x
|
pack .reg_mem.reg.labels -side left -fill x
|
frame .reg_mem.reg.entries
|
frame .reg_mem.reg.entries
|
pack .reg_mem.reg.entries -side left -fill x
|
pack .reg_mem.reg.entries -side left -fill x
|
for {set i 0} {$i<16} {incr i} {
|
for {set i 0} {$i<16} {incr i} {
|
switch $i {
|
switch $i {
|
{0} {set reg_label "r0 (pc):"}
|
{0} {set reg_label "r0 (pc):"}
|
{1} {set reg_label "r1 (sp):"}
|
{1} {set reg_label "r1 (sp):"}
|
{2} {set reg_label "r2 (sr):"}
|
{2} {set reg_label "r2 (sr):"}
|
default {set reg_label "r$i:"}
|
default {set reg_label "r$i:"}
|
}
|
}
|
label .reg_mem.reg.labels.l$i -text $reg_label -anchor w
|
label .reg_mem.reg.labels.l$i -text $reg_label -anchor w
|
pack .reg_mem.reg.labels.l$i -side top -padx 5 -pady 1
|
pack .reg_mem.reg.labels.l$i -side top -padx 5 -pady 1
|
entry .reg_mem.reg.entries.e$i -textvariable reg($i) -relief sunken -state disabled
|
entry .reg_mem.reg.entries.e$i -textvariable reg($i) -relief sunken -state disabled
|
pack .reg_mem.reg.entries.e$i -side top
|
pack .reg_mem.reg.entries.e$i -side top
|
bind .reg_mem.reg.entries.e$i <Return> "write2Reg $i"
|
bind .reg_mem.reg.entries.e$i <Return> "write2Reg $i"
|
}
|
}
|
frame .reg_mem.reg.cmd
|
frame .reg_mem.reg.cmd
|
pack .reg_mem.reg.cmd -side left -fill x
|
pack .reg_mem.reg.cmd -side left -fill x
|
button .reg_mem.reg.cmd.refresh -text "Refresh\nRegisters" -state disabled -command {refreshReg}
|
button .reg_mem.reg.cmd.refresh -text "Refresh\nRegisters" -state disabled -command {refreshReg}
|
pack .reg_mem.reg.cmd.refresh -side top -padx 5 -fill x
|
pack .reg_mem.reg.cmd.refresh -side top -padx 5 -fill x
|
|
|
# CPU Memory
|
# CPU Memory
|
frame .reg_mem.mem.cmd
|
frame .reg_mem.mem.cmd
|
pack .reg_mem.mem.cmd -side left -fill x
|
pack .reg_mem.mem.cmd -side left -fill x
|
button .reg_mem.mem.cmd.refresh -text "Refresh\nMemory" -state disabled -command {refreshMem}
|
button .reg_mem.mem.cmd.refresh -text "Refresh\nMemory" -state disabled -command {refreshMem}
|
pack .reg_mem.mem.cmd.refresh -side top -padx 5 -fill x
|
pack .reg_mem.mem.cmd.refresh -side top -padx 5 -fill x
|
frame .reg_mem.mem.address
|
frame .reg_mem.mem.address
|
pack .reg_mem.mem.address -side left -fill x
|
pack .reg_mem.mem.address -side left -fill x
|
frame .reg_mem.mem.data
|
frame .reg_mem.mem.data
|
pack .reg_mem.mem.data -side left -fill x
|
pack .reg_mem.mem.data -side left -fill x
|
label .reg_mem.mem.address.l -text "Address" -anchor w
|
label .reg_mem.mem.address.l -text "Address" -anchor w
|
pack .reg_mem.mem.address.l -side top -padx 5
|
pack .reg_mem.mem.address.l -side top -padx 5
|
label .reg_mem.mem.data.l -text "Data" -anchor w
|
label .reg_mem.mem.data.l -text "Data" -anchor w
|
pack .reg_mem.mem.data.l -side top -padx 5
|
pack .reg_mem.mem.data.l -side top -padx 5
|
|
|
for {set i 0} {$i<16} {incr i} {
|
for {set i 0} {$i<16} {incr i} {
|
entry .reg_mem.mem.address.e$i -textvariable mem(address_$i) -relief sunken -state disabled
|
entry .reg_mem.mem.address.e$i -textvariable mem(address_$i) -relief sunken -state disabled
|
pack .reg_mem.mem.address.e$i -side top
|
pack .reg_mem.mem.address.e$i -side top
|
bind .reg_mem.mem.address.e$i <Return> "refreshMem"
|
bind .reg_mem.mem.address.e$i <Return> "refreshMem"
|
entry .reg_mem.mem.data.e$i -textvariable mem(data_$i) -relief sunken -state disabled
|
entry .reg_mem.mem.data.e$i -textvariable mem(data_$i) -relief sunken -state disabled
|
pack .reg_mem.mem.data.e$i -side top
|
pack .reg_mem.mem.data.e$i -side top
|
bind .reg_mem.mem.data.e$i <Return> "write2Mem $i"
|
bind .reg_mem.mem.data.e$i <Return> "write2Mem $i"
|
|
|