Skip to content
Snippets Groups Projects
Commit bd50535b authored by oharboe's avatar oharboe
Browse files

adding concept of production script

git-svn-id: svn://svn.berlios.de/openocd/trunk@1071 b42882b7-edfa-0310-969c-e2dbd0fdcd60
parent 3884c750
No related branches found
No related tags found
No related merge requests found
...@@ -22,7 +22,6 @@ arm7_9 dcc_downloads enable ...@@ -22,7 +22,6 @@ arm7_9 dcc_downloads enable
flash bank ecosflash 0x01000000 0x200000 2 2 0 ecos/at91eb40a.elf flash bank ecosflash 0x01000000 0x200000 2 2 0 ecos/at91eb40a.elf
[new_target_name] configure -event reset-init { [new_target_name] configure -event reset-init {
# Set up chip selects & timings # Set up chip selects & timings
mww 0xFFE00000 0x0100273D mww 0xFFE00000 0x0100273D
mww 0xFFE00004 0x08002125 mww 0xFFE00004 0x08002125
...@@ -42,12 +41,56 @@ mww 0xffff0034 0x100 ...@@ -42,12 +41,56 @@ mww 0xffff0034 0x100
#disable 16x5x UART interrupts #disable 16x5x UART interrupts
mww 0x08020004 0 mww 0x08020004 0
} }
# required for usable performance. Used for lots of # required for usable performance. Used for lots of
# other things than flash programming. # other things than flash programming.
working_area 0 0x00000000 0x20000 nobackup working_area 0 0x00030000 0x20000 nobackup
jtag_khz 16000 jtag_khz 16000
proc production_info {} {
return "Serial number is official MAC number"
}
proc production_help {} {
return "Serial number is MAC number. Format XXXXXXXXXXXXXX"
}
# There is no return value from this procedure. If it is
# successful it does not throw an exception
#
# Progress messages are output via puts
proc production {firmwarefile serialnumber} {
if {[string length $serialnumber]!=12} {
puts "Invalid serial number"
return
}
puts "Power cycling target"
power off
sleep 3000
power on
sleep 1000
reset init
flash write_image erase $firmwarefile 0x1000000 bin
verify_image $firmwarefile 0x1000000 bin
# Big endian... weee!!!!
puts "Setting MAC number to $serialnumber"
flash fillw [expr 0x1030000-0x8] "0x[string range $serialnumber 2 3][string range $serialnumber 0 1]0000" 1
flash fillw [expr 0x1030000-0x4] "0x[string range $serialnumber 10 11][string range $serialnumber 8 9][string range $serialnumber 6 7][string range $serialnumber 4 5]" 1
puts "Production successful"
}
proc production_test {} {
power on
sleep 1000
target_request debugmsgs enable
reset run
sleep 20000
target_request debugmsgs disable
return "See IP address above..."
}
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment