ibotflash-0.7 0000644 0001750 0001750 00000054201 10726751071 011746 0 ustar amos amos #!/bin/bash
# ibotFlash V0.1
#
# A cross platform interface for programming the Philips 89V51RX series microcontrollers
# Copyright (C) 2007 Deepak Barua
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see .
# This program is a modification of the KandaFlash v0.1 written by Ian Thompson-Bell
# KandaFlash V0.1
#
# A cross platform interface for programming the Philips 89C51RX series microcontrollers
#
# Copyright Ian Thompson-Bell 2005
#
# This software is licensed under the GNU General Public Licence
#
# For details see http://www.gnu.org
#
# Acknowledgements
# Sunil Beta Baskar for the original idea to write the program
# Ian Thompson-Bell for encouraging me in writing the program
# Amit Shah for encouraging me to write the program
# Contact
# Deepak Barua
# Email : dbbarua@gmail.com
# Web Site : http://dbbarua.googlepages.com
# Blog : http://bbaruablog.blogspot.com/
# restart using local wish \
exec `which wish` "$0" "$@"
# Globals
set progname "iBotFlash"
set connected 0
set serialfd 0
set reply ""
set replyflag 0
set display 0
# Procedures
proc init {} {
# initialisation
}
#
# Capture received serial data
#
proc rxchar {} {
global serialfd
global serialdata
global replyflag
global reply
global connected
# New global variable added to not display result in case of errors
global display
#
# Get data and append to text widget
#
after 50
set serialdata [read $serialfd]
.tx.textarea insert end $serialdata
.tx.textarea see end
#
# remove white space and concatenate to form reply
#
append reply [string trim $serialdata]
#
# Device sends terminating dot for success, X for failure and single U to confirm connection and P for password verification
#
set dot [string first "." $reply]
set exx [string first "X" $reply]
# New Check for serial number verification error
set pi [string first "P" $reply]
if {$dot >= 0} {set replyflag 1
set display 1
}
if {$exx >= 0} {
set replyflag 0
tmessage "Operation Failed"
}
if {$pi >= 0} {
set replyflag 0
tmessage "Enter serial number to proceed or reset serial number"
}
}
#
# Misc Read ISP function 05
#
proc miscreadbyte {request} {
global serialfd
global reply
global replyflag
#
# Send request and wait for reply
#
set reply ""
set replyflag 0
puts $serialfd $request
tkwait variable replyflag
#
# return last two hex digits
#
return [string range $reply end-2 end-1]
}
#
# Calc CRC from base number and two addresses
#
proc crc {base addr1 addr2} {
set base "0x$base"
set loaddr1 "0x[string range $addr1 2 3]"
set hiaddr1 "0x[string range $addr1 0 1]"
set loaddr2 "0x[string range $addr2 2 3]"
set hiaddr2 "0x[string range $addr2 0 1]"
set sum [ expr $base + $loaddr1 + $hiaddr1 +$loaddr2 +$hiaddr2]
set sum [expr 0 - [expr $sum & 0xFF]]
return $sum
}
#
# Standard message Box
#
proc tmessage {message} {
global progname
tk_messageBox -default ok -icon info -title $progname -message $message
}
#
# Not Connected message
#
proc notconnected {} {
tmessage "Not connected to 8051 \nSelect File/Connect first"
}
proc helpabout {} {
global progname
set a " $progname"
puts $a
set c "Copyright Deepak Barua 2007"
set d " ISP Flash Programmer"
tmessage "$a\n$c\n$d"
}
proc gui {} {
#
# Set window main window size, postion and prevent resizing
#
wm minsize . 480 320
wm maxsize . 480 320
wm geometry . +300+200
#
# Set title
#
global progname
wm title . $progname
#
# fix dialog font
#
option add *Dialog.msg.font {Helvetica 10}
#
# menu font
#
font create menufont -family Helvetica -size 10
#
# menu
#
menu .topmenu
#
#attach to root window
#
. config -menu .topmenu
#
# create cascade menus
# Note, window names cannot begin with an uppercase letter
#
foreach m {File Program Read Special Help} {
set $m [menu .topmenu.m$m -tearoff 0]
.topmenu add cascade -label $m -menu .topmenu.m$m -font menufont
}
#
# populate menus
#
# File
#
global .tx.textarea
$File add command -label Connect -font menufont -command filecomms
$File add command -label {Verify Serial Number} -font menufont -command verifyserial
$File add command -label {Clear Screen} -font menufont -command { .tx.textarea delete 0.1 end }
$File add separator
$File add command -label Quit -font menufont -command {cleanup quit}
#
# Also bind the exit button to cleanup
#
bind . {cleanup winquit}
#
# Program
#
$Program add command -label { Erase Block0 } -font menufont -command eraseblock
$Program add command -label { Erase Page } -font menufont -command erasepage
$Program add command -label {Code (Hex File)} -font menufont -command programintelhexfile
$Program add command -label {serial number} -font menufont -command programserialnumber
$Program add command -label {set SoftICE} -font menufont -command setsofticemode
#
# Read
#
$Read add command -label {Boot Code Version} -font menufont -command readcodeversion
$Read add command -label {Security Bits} -font menufont -command readsecuritybits
$Read add command -label {Manufacturer ID / Device ID} -font menufont -command readmanufacturerid
$Read add command -label Code -font menufont -command {dumpmemory code}
$Read add command -label {Blank Check} -font menufont -command {dumpmemory blank}
$Read add command -label {Serial Number} -font menufont -command displayserial
#
# Special
#
$Special add command -label {Reset Serial Number} -font menufont -command erasefullchip
$Special add command -label {Program Security Bits} -font menufont -command programsecuritybits
$Special add command -label {Double Clock} -font menufont -command doubleclock
$Special add command -label {Reset and Run User Code} -font menufont -command resetrun
#
# Help - Index/About
#
$Help add command -label {How To} -font menufont -command helpindex
$Help add command -label About -font menufont -command helpabout
#
# Add text area beneath
#
frame .tx
text .tx.textarea -yscrollcommand ".tx.scroll set"
scrollbar .tx.scroll -command ".tx.textarea yview"
pack .tx.scroll -side right -fill y
pack .tx.textarea -side left
pack .tx -side top
focus .tx.textarea
#
# capture key events and send to stdout
#
bind .tx.textarea { puts -nonewline %A; break }
}
# Set up a dialog in which serial number can be entered and verified
proc verifyserial {} {
# Global Variables
global serialfd
global connected
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Build a dialog box with two frames
#
toplevel .verserdlg -class Dialog
wm title .verserdlg "Enter Serial Number"
wm geometry .verserdlg +400+300
frame .verserdlg.tf -relief raised -borderwidth 1
frame .verserdlg.bf -relief raised -borderwidth 1
pack .verserdlg.tf
pack .verserdlg.bf
#
# Add a text box to enter serial number and transmit
#
label .verserdlg.tf.ser -text "serialnum:"
entry .verserdlg.tf.serentry -width 15 -validate key \
-vcmd {expr {[string is digit %P] && [string length %P]<64}}
.verserdlg.tf.serentry delete 0 end
.verserdlg.tf.serentry insert 0 010203
grid configure .verserdlg.tf.ser .verserdlg.tf.serentry
#
# Add cancel and OK buttons
#
button .verserdlg.bf.cancel -text "Cancel" -command { destroy .verserdlg }
button .verserdlg.bf.ok -text "OK" -command {
set serialnumber [.verserdlg.tf.serentry get]
set seriallength [string length $serialnumber]
set seriallength [expr {$seriallength / 2}]
# For proper formatting of the serial length for transmission
set seriallength [format "%2X" $seriallength]
if { $seriallength <= 0x0F } {
set seriallength [format "%1X" $seriallength]
set seriallength "0$seriallength"
}
set cmd ""
append cmd ":$seriallength"
append cmd "000008" $serialnumber
set cmdlength [string length $cmd]
append cmd [cc $cmd $cmdlength]
miscreadbyte $cmd
if { $display == 1 } {
tmessage "The serial number was verified and accepted"
}
set display 0
destroy .verserdlg
}
grid configure .verserdlg.bf.cancel .verserdlg.bf.ok
}
#
# Check sum Calculator
#
proc cc {cmd len} {
set temp 0
set temp [format "%2X" $temp]
for {set counter 1 } {$counter < $len } {set counter [expr {$counter + 2}]} {
set temp1 [string range $cmd $counter [expr $counter + 1] ]
set temp1 "0x$temp1"
set temp [expr $temp + $temp1]
}
set hex [format "%2X" 255]
set temp [expr 0XFF - $temp]
set temp [expr $temp + 1]
set temp [format "%2X" $temp]
return $temp
}
#
# proc filecomms
#
# Set up serial comms with Ibot board
#
proc filecomms {} {
#
# global file descriptor
#
global serialfd
global connected
global replyflag
global reply
#
# Build a dialog box with two frames
#
toplevel .portdlg -class Dialog
wm title .portdlg "Port Settings"
wm geometry .portdlg +400+300
frame .portdlg.tf -relief raised -borderwidth 1
frame .portdlg.bf -relief raised -borderwidth 1
pack .portdlg.tf
pack .portdlg.bf
#
# Add device and params labels and entries with sensible defaults
#
label .portdlg.tf.device -text "Device:"
entry .portdlg.tf.deventry -width 15 -textvariable device
.portdlg.tf.deventry delete 0 end
.portdlg.tf.deventry insert 0 "/dev/ttyUSB0"
label .portdlg.tf.params -text "Params:"
entry .portdlg.tf.paramentry -width 15 -textvariable params
.portdlg.tf.paramentry delete 0 end
.portdlg.tf.paramentry insert 0 "9600,n,8,1"
grid configure .portdlg.tf.device .portdlg.tf.deventry
grid configure .portdlg.tf.params .portdlg.tf.paramentry
#
# Add cancel and OK buttons
#
button .portdlg.bf.cancel -text "Cancel" -command { destroy .portdlg }
button .portdlg.bf.ok -text "OK" -command {
if { $serialfd != 0 } {
close $serialfd
set serialfd 0
}
if { [file exists $device ] } {
if { [file readable $device ] && [file writable $device] } {
set serialfd [open $device {RDWR NOCTTY} ]
fconfigure $serialfd -mode $params -buffering none -blocking 0 -translation binary
set reply ""
set connected 0
set replyflag 0
wrchar
} else {
tmessage "You do not have permission to access $device"
}
} else {
tmessage "Device $device does not exist"
}
destroy .portdlg
}
grid configure .portdlg.bf.cancel .portdlg.bf.ok
}
#
# Function to send "U" for initial auto baud to enter ISP mode , it repeatedly sends "U" until connected variable is
# set
proc wrchar {} {
global serialfd
global connected
while { $connected !=1 } {
puts $serialfd "U"
puts "sending U"
after 50
set serialdata [read $serialfd]
append temp [string trim $serialdata]
set con [string first "U" $temp]
if { $con >= 0 } {
set connected 1
fileevent $serialfd readable rxchar
tmessage "Connected OK"
}
}
return
}
#
# Reads the boot code version and displays it
#
proc readcodeversion {} {
global progname
global connected
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Send get boot code version and wait for result
#
set boot_code_version "0x[miscreadbyte :020000050002F7]"
#
#
# Report results to user
#
if { $display == 1 } {
tk_messageBox -default ok -icon info -title $progname\
-message "Boot Code Version : $boot_code_version "
}
set display 0
}
# Reads the current status of the flash status register (FST security bit and EDC )
proc readsecuritybits {} {
global progname
global connected
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Send get security bits and wait for result
#
set sbits "0x[miscreadbyte :020000050700F2]"
#
# Report results to user
#
if { $display ==1 } {
tmessage "Security Bits: $sbits "
}
set display 0
}
#
# Return the manufacturers id and device id of the 89V51RX2
#
proc readmanufacturerid {} {
global progname
global connected
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Send get manufacturer and device id and wait for result
#
set manid "0x[miscreadbyte :020000050000F9]"
set deviceid "0x[miscreadbyte :020000050001F8]"
#
# Report results to user
#
if { $display == 1 } {
tmessage "Manufacurer ID: $manid \n\ Device ID: $deviceid"
}
set display 0
}
#
# Function to display serial number
#
proc displayserial {} {
global serialfd
global connected
#
# Check connected
#
if {!$connected} {
notconnected
return
}
# Send get serial id and wait for result
miscreadbyte :0000000AF6
}
#
# Dump selected range of memory or blank check
# selected by type = blank/dump
# ISP subfunction 04
#
proc dumpmemory {type} {
global serialfd
global connected
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Create dialog box with top and bottom frames
#
toplevel .dumpdlg -class Dialog
if {$type == "blank"} {
wm title .dumpdlg "-----Blank Check-----"
} else {
wm title .dumpdlg "-----Display Code-----"
}
wm geometry .dumpdlg +400+300
frame .dumpdlg.tf -relief raised -borderwidth 1
frame .dumpdlg.bf -relief raised -borderwidth 1
pack .dumpdlg.tf
pack .dumpdlg.bf
#
# Add start and end labels and entries with sensible defaults
#
label .dumpdlg.tf.saddr -text "Start Address:" -font menufont
entry .dumpdlg.tf.saddrentry -width 15 -validate key \
-vcmd {expr {[string is xdigit %P] && [string length %P]<5}}
.dumpdlg.tf.saddrentry delete 0 end
.dumpdlg.tf.saddrentry insert 0 "0000"
label .dumpdlg.tf.eaddr -text "End Address:" -font menufont
entry .dumpdlg.tf.eaddrentry -width 15 -validate key \
-vcmd {expr {[string is xdigit %P] && [string length %P]<5}}
.dumpdlg.tf.eaddrentry delete 0 end
.dumpdlg.tf.eaddrentry insert 0 "00FF"
grid configure .dumpdlg.tf.saddr .dumpdlg.tf.saddrentry
grid configure .dumpdlg.tf.eaddr .dumpdlg.tf.eaddrentry
#
# Add cancel and OK buttons
#
button .dumpdlg.bf.cancel -text "Cancel" -command { destroy .dumpdlg }
button .dumpdlg.bf.ok -text "OK" -command "dumpmemoryokbutton \"$type\""
grid configure .dumpdlg.bf.cancel .dumpdlg.bf.ok
}
proc dumpmemoryokbutton {action} {
global serialfd
global replyflag
global progname
global display
#
# Get addresses and form start of ISP string
#
set saddr [.dumpdlg.tf.saddrentry get]
set eaddr [.dumpdlg.tf.eaddrentry get]
set cmd ":05000004$saddr$eaddr"
#
# Append command specific byte
#
if {$action == "code"} {
append cmd "00"
set base "09"
} else {
append cmd "01"
set base "0A"
}
#
# Get,format and append CRC
#
set check [crc $base $saddr $eaddr]
set check [format "%2X" $check]
append cmd [string range $check end-1 end]
destroy .dumpdlg
#
# If dump just send command, if blank check report result to user
#
if {$action =="code"} {
puts $serialfd $cmd
} else {
miscreadbyte $cmd
set flag $replyflag
if { $display == 1 } {
tmessage "Blank Check $flag "
}
set display 0
}
}
#
# Erase block 0
#
proc eraseblock {} {
global connected
global serialfd
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
miscreadbyte ":03000003010000F9"
if { $display == 1 } {
tmessage "Block 0 is erased"
}
set display 0
}
#
# Erase Page ( 128 Bytes )
#
proc erasepage {} {
global connected
global serialfd
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Create dialog box with top and bottom frames
#
toplevel .erasedlg -class Dialog
wm title .erasedlg "-----Erase Page-----"
wm geometry .erasedlg +400+300
frame .erasedlg.tf -relief raised -borderwidth 1
pack .erasedlg.tf
#
# Add start and end labels and entries with sensible defaults
#
label .erasedlg.tf.saddr -text "Page Address:" -font menufont
entry .erasedlg.tf.saddrentry -width 15 -validate key \
-vcmd {expr {[string is xdigit %P] && [string length %P]<5}}
.erasedlg.tf.saddrentry delete 0 end
.erasedlg.tf.saddrentry insert 0 "0000"
grid configure .erasedlg.tf.saddr .erasedlg.tf.saddrentry
#
# Add cancel and OK buttons
#
button .erasedlg.tf.cancel -text "Cancel" -command { destroy .erasedlg }
button .erasedlg.tf.ok -text "OK" -command {
set address [.erasedlg.tf.saddrentry get]
set cmd ":0300000308"
append cmd $address
set cmdlength [string length $cmd]
append cmd [cc $cmd $cmdlength]
miscreadbyte $cmd
if { $display == 1 } {
tmessage "Page $address was erased"
}
set display 0
destroy .erasedlg
}
grid configure .erasedlg.tf.cancel .erasedlg.tf.ok
}
#
# Erase Block 0 completely
#
proc erasefullchip {} {
global connected
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Confirm User really wants to do this
#
set answer [tk_messageBox -icon warning -title "Erase Full Chip" -type yesno -default no\
-message "This will reset the serial number , clear user code and reset softICE mode \n Are you sure you want to do this ?"]
if {$answer == "yes"} {
miscreadbyte ":00000007F9"
if { $display == 1 } {
tmessage "Chip Erased "
}
set display 0
}
}
#
# Program intel Hex File
#
proc programintelhexfile {} {
global connected
global serialfd
#
# Check connected
#
# if {!$connected} {
# notconnected
# return
# }
#
# get file name and open it
#
set types {
{ {Intel Hex Files} {*.ihx} }
{ {All Files} * }
}
set filename [tk_getOpenFile -title "Open Intel Hex File" -filetypes $types]
if { [file exists $filename] } {
set fd [open $filename r]
#
# Read and send one line at a time
#
while {1} {
set inteldata [gets $fd]
puts $inteldata
miscreadbyte $inteldata
if {[eof $fd]} {
close $fd
break
}
}
}
}
#
# Program Serial Number
#
proc programserialnumber {} {
global connected
global serialfd
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
#
# Build a dialog box with two frames
#
toplevel .proserdlg -class Dialog
wm title .proserdlg "Program Serial Number"
wm geometry .proserdlg +400+300
frame .proserdlg.tf -relief raised -borderwidth 1
frame .proserdlg.bf -relief raised -borderwidth 1
pack .proserdlg.tf
pack .proserdlg.bf
#
# Add a text box to enter serial number and transmit
#
label .proserdlg.tf.ser -text "serialnum:"
entry .proserdlg.tf.serentry -width 15 -validate key \
-vcmd {expr {[string is digit %P] && [string length %P]<64}}
.proserdlg.tf.serentry delete 0 end
.proserdlg.tf.serentry insert 0 010203
grid configure .proserdlg.tf.ser .proserdlg.tf.serentry
#
# Add cancel and OK buttons
#
button .proserdlg.bf.cancel -text "Cancel" -command { destroy .proserdlg }
button .proserdlg.bf.ok -text "OK" -command {
set serialnumber [.proserdlg.tf.serentry get]
set seriallength [string length $serialnumber]
set seriallength [expr {$seriallength / 2}]
set seriallength [format "%2X" $seriallength]
if { $seriallength <= 0x0F } {
set seriallength [format "%1X" $seriallength]
set seriallength "0$seriallength"
}
set cmd ""
append cmd ":$seriallength"
append cmd "000009" $serialnumber
set cmdlength [string length $cmd]
append cmd [cc $cmd $cmdlength]
miscreadbyte $cmd
if { $display == 1 } {
tmessage "The serial number $serialnumber is now activated"
}
set display 0
destroy .proserdlg
}
grid configure .proserdlg.bf.cancel .proserdlg.bf.ok
}
#
# Set softICE Mode
#
proc setsofticemode {} {
global connected
global serialfd
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
miscreadbyte ":00000002FE"
if { $display == 1 } {
tmessage " SoftICE mode set will be activated on next reset"
}
set display 0
}
#
# Program Security bits
#
proc programsecuritybits {} {
global connected
global serialfd
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
miscreadbyte ":03000003050100F4"
if { $display == 1 } {
tmessage " security bit is set "
}
set display 0
}
#
# Program the clock to run at double rate
#
proc doubleclock {} {
global connected
global serialfd
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
miscreadbyte ":03000003050500F0"
if { $display == 1 } {
tmessage " Chip running at double clock mode"
}
set display 0
}
#
# Reset device and run user code
#
proc resetrun {} {
global connected
global serialfd
global display
#
# Check connected
#
if {!$connected} {
notconnected
return
}
miscreadbyte ":0000000BF5"
if { $display == 1 } {
tmessage "Reset and running usercode"
}
}
#
# Help Manual
#
proc helpindex {} {
#
# Get data and append to text widget
#
.tx.textarea insert end " There are some basic quirks in using this \n
1) The connect function needs some time for the 89V51 to boot before it can receive the U's being transmitted so please wait for some 40 seconds after turning on the power before connecting or you can repeatedly press the connect in file menu. \n
2) Any serial number you enter to verify the serial number is verified positive when no serial number is set. \n
3) Be careful while entering the softICE mode i have not tested that feature.\n "
.tx.textarea see end
}
#
# Main
#
proc main {} {
gui
}
proc cleanup {source} {
global serialfd
if {$serialfd != 0} { close $serialfd }
puts "Source was $source"
exit
}
# Prog
init
main