openmsp430-loader
This simple program allows the user to load the openMSP430 program memory with an executable file (ELF or Intel-HEX format) provided as argument.
It is typically used in conjunction with ‘make‘ in order to automatically load the program after the compile step (see ‘Makefile‘ from software examples provided with the project‘s FPGA implementation).
openmsp430-loader.tcl
1 #!/usr/bin/tclsh
2 #------------------------------------------------------------------------------
3 # File Name: openmsp430-loader.tcl
4 #------------------------------------------------------------------------------
5
6 global omsp_conf
7 global omsp_info
8
9 ###############################################################################
10 # SOURCE LIBRARIES #
11 ###############################################################################
12
13 # Get library path
14 set current_file [info script]
15 if {[file type $current_file]=="link"} {
16 set current_file [file readlink $current_file]
17 }
18 set lib_path [file dirname $current_file]/../lib/tcl-lib
19
20 # Source library
21 source $lib_path/dbg_functions.tcl
22 source $lib_path/dbg_utils.tcl
23
25 ###############################################################################
26 # PARAMETER CHECK #
27 ###############################################################################
28 #proc GetAllowedSpeeds
29
30 proc help {} {
31 puts ""
32 puts "USAGE : openmsp430-loader.tcl \[-device <communication port>\]"
33 puts " \[-adaptor <adaptor type>\]"
34 puts " \[-speed <communication speed>\]"
35 puts " \[-i2c_addr <cpu address>\] <elf/ihex-file>"
36 puts ""
37 puts "DEFAULT : <communication port> = /dev/ttyUSB0"
38 puts " <adaptor type> = uart_generic"
39 puts " <communication speed> = 115200 (for UART) / I2C_S_100KHZ (for I2C)"
40 puts " <core address> = 42"
41 puts ""
42 puts "EXAMPLES: openmsp430-loader.tcl -device /dev/ttyUSB0 -adaptor uart_generic -speed 9600 leds.elf"
43 puts " openmsp430-loader.tcl -device COM2: -adaptor i2c_usb-iss -speed I2C_S_100KHZ -i2c_addr 75 ta_uart.ihex"
44 puts ""
45 }
46
47 # Default values
48 set omsp_conf(interface) uart_generic
49 set omsp_conf(device) /dev/ttyUSB0
50 set omsp_conf(baudrate) [lindex [GetAllowedSpeeds] 1]
51 set omsp_conf(0,cpuaddr) 42
52 set elf_file -1
53 set bin_file "[clock clicks].bin"
54
55 # Parse arguments
56 for {set i 0} {$i < $argc} {incr i} {
57 switch -exact -- [lindex $argv $i] {
58 -device {set omsp_conf(device) [lindex $argv [expr $i+1]]; incr i}
59 -adaptor {set omsp_conf(interface) [lindex $argv [expr $i+1]]; incr i}
60 -speed {set omsp_conf(baudrate) [lindex $argv [expr $i+1]]; incr i}
61 -i2c_addr {set omsp_conf(0,cpuaddr) [lindex $argv [expr $i+1]]; incr i}
62 default {set elf_file [lindex $argv $i]}
63 }
64 }
65
66 # Make sure arugments were specified
67 if {[string eq $elf_file -1]} {
68 puts "\nERROR: ELF/IHEX file isn‘t specified"
69 help
70 exit 1
71 }
72
73 # Make sure the elf file exists
74 if {![file exists $elf_file]} {
75 puts "\nERROR: Specified ELF/IHEX file doesn‘t exist"
76 help
77 exit 1
78 }
79
80 # Make sure the selected adptor is valid
81 if {![string eq $omsp_conf(interface) "uart_generic"] &
82 ![string eq $omsp_conf(interface) "i2c_usb-iss"]} {
83 puts "\nERROR: Specified adaptor is not valid (should be \"uart_generic\" or \"i2c_usb-iss\")"
84 help
85 exit 1
86 }
87
88 # Make sure the I2C address is an integer
89 if {![string is integer $omsp_conf(0,cpuaddr)]} {
90 puts "\nERROR: Specified I2C address is not an integer"
91 help
92 exit 1
93 }
94
95 # Make sure the I2C address is valid
96 if {($omsp_conf(0,cpuaddr)<8) | ($omsp_conf(0,cpuaddr)>119)} {
97 puts "\nERROR: Specified I2C address should lay between 7 and 120"
98 help
99 exit 1
100 }
101
102 # If the selected interface is a UART, make sure the selected speed is an integer
103 if {[string eq $omsp_conf(interface) "uart_generic"]} {
104 if {![string is integer $omsp_conf(baudrate)]} {
105 puts "\nERROR: Specified UART communication speed is not an integer"
106 help
107 exit 1
108 }
109 } elseif {[string eq $omsp_conf(interface) "i2c_usb-iss"]} {
110 if {[lsearch [lindex [GetAllowedSpeeds] 2] $omsp_conf(baudrate)]==-1} {
111 puts "\nERROR: Specified I2C communication speed is not valid."
112 puts " Allowed values are:"
113 foreach allowedVal [lindex [GetAllowedSpeeds] 2] {
114 puts " - $allowedVal"
115 }
116 puts ""
117 exit 1
118 }
119 }
120
122 ###############################################################################
123 # CREATE AND READ BINARY EXECUTABLE FILE #
124 ###############################################################################
125
126 # Detect the file format depending on the fil extention
127 set fileType [file extension $elf_file]
128 set fileType [string tolower $fileType]
129 regsub {\.} $fileType {} fileType
130 if {![string eq $fileType "ihex"] & ![string eq $fileType "hex"] & ![string eq $fileType "elf"]} {
131 puts "\nERROR: [string toupper $fileType] file format not supported"
132 return 0
133 }
134 if {[string eq $fileType "hex"]} {
135 set fileType "ihex"
136 }
137 if {[string eq $fileType "elf"]} {
138 set fileType "elf32-msp430"
139 }
140
141 # Generate binary file
142 if {[catch {exec msp430-objcopy -I $fileType -O binary $elf_file $bin_file} errMsg]} {
143 puts $errMsg
144 exit 1
145 }
146
147 # Wait until bin file is present on the filesystem
148 set timeout 100
149 for {set i 0} {$i <= $timeout} {incr i} {
150 after 500
151 if {[file exists $bin_file]} {
152 break
153 }
154 }
155 if {$i>=$timeout} {
156 puts "\nTimeout: ELF to BIN file conversion problem with \"msp430-objcopy\" executable"
157 puts "$errMsg"
158 exit 1
159 }
160
161 # Read file
162 set fp [open $bin_file r]
163 fconfigure $fp -translation binary
164 binary scan [read $fp] H* hex_data yop
165 close $fp
166
167 # Cleanup
168 file delete $bin_file
169
170 # Get program size
171 set hex_size [string length $hex_data]
172 set byte_size [expr $hex_size/2]
173 set word_size [expr $byte_size/2]
174
175 # Format data
176 for {set i 0} {$i < $hex_size} {set i [expr $i+4]} {
177 set hex_msb "[string index $hex_data [expr $i+2]][string index $hex_data [expr $i+3]]"
178 set hex_lsb "[string index $hex_data [expr $i+0]][string index $hex_data [expr $i+1]]"
179 lappend DataArray "0x$hex_msb$hex_lsb"
180 }
181
183 ###############################################################################
184 # LOAD PROGRAM TO OPENMSP430 TARGET #
185 ###############################################################################
186
187 # Connect to target and stop CPU
188 puts ""
189 puts -nonewline "Connecting with the openMSP430 ($omsp_conf(device), $omsp_conf(baudrate)\ bps)... "
190 flush stdout
191 if {![GetDevice 0]} {
192 puts "failed"
193 puts "Could not open $omsp_conf(device)"
194 puts "Available serial ports are:"
195 foreach port [utils::uart_port_list] {
196 puts " - $port"
197 }
198 if {[string eq $omsp_conf(interface) "i2c_usb-iss"]} {
199 puts "\nMake sure the specified I2C device address is correct: $omsp_conf(0,cpuaddr)\n"
200 }
201 exit 1
202 }
203 ExecutePOR_Halt 0
204 puts "done"
205 set sizes [GetCPU_ID_SIZE 0]
206
207 if {$omsp_info(0,alias)!=""} {
208 puts "Connected: target device identified as $omsp_info(0,alias)."
209 }
210 puts "Connected: target device has [lindex $sizes 0]B Program Memory and [lindex $sizes 1]B Data Memory"
211 puts ""
212
213 # Make sure ELF program size is the same as the available program memory
214 if {[lindex $sizes 0] != [expr $hex_size/2]} {
215 puts "ERROR: ELF program size ($byte_size B) is different than the available program memory ([lindex $sizes 0] B)"
216 exit 1
217 }
218
219 # Load Program Memory
220 set StartAddr [format "0x%04x" [expr 0x10000-$byte_size]]
221 puts -nonewline "Load Program Memory... "
222 flush stdout
223 WriteMemQuick 0 $StartAddr $DataArray
224 after 500
225 puts "done"
226
227 # Check Data
228 puts -nonewline "Verify Program Memory... "
229 flush stdout
230 if {[VerifyMem 0 $StartAddr $DataArray 1]} {
231 puts "done"
232 } else {
233 puts "ERROR"
234 exit 1
235 }
236
237 # Release device
238 ReleaseDevice 0 0xfffe
时间： 2024-09-20 16:41:58