• openMSP430之openmsp430-loader


    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 "
    ERROR: 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 "
    ERROR: 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 "
    ERROR: 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 "
    ERROR: 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 "
    ERROR: 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 "
    ERROR: 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 "
    ERROR: 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 "
    ERROR: [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 "
    Timeout: 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 "
    Make sure the specified I2C device address is correct: $omsp_conf(0,cpuaddr)
    "
    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
  • 相关阅读:
    .NET Framework 概述
    .Net笔试(二)
    EF CodeFirst 创建数据库
    C#中的继承
    SqlHelper 基类
    在C#中实现OOP概念
    索引器、委托和事件
    .Net笔试(一)
    HTML标签速记整理W3C
    Java函数调用总结
  • 原文地址:https://www.cnblogs.com/mengdie/p/4520122.html
Copyright © 2020-2023  润新知