Move TCL script files -- Step 2 of 2:
- Move src/tcl to tcl/. - Update top Makefile.am to use new path name. git-svn-id: svn://svn.berlios.de/openocd/trunk@1919 b42882b7-edfa-0310-969c-e2dbd0fdcd60
This commit is contained in:
17
tcl/test/selftest.cfg
Normal file
17
tcl/test/selftest.cfg
Normal file
@@ -0,0 +1,17 @@
|
||||
|
||||
add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"
|
||||
|
||||
proc selftest {tmpfile address size} {
|
||||
|
||||
for {set i 0} {$i < $size } {set i [expr $i+4]} {
|
||||
mww [expr $address+$i] $i
|
||||
}
|
||||
|
||||
for {set i 0} {$i < 10 } {set i [expr $i+1]} {
|
||||
puts "Test iteration $i"
|
||||
dump_image $tmpfile $address $size
|
||||
verify_image $tmpfile $address bin
|
||||
load_image $tmpfile $address bin
|
||||
}
|
||||
|
||||
}
|
||||
29
tcl/test/syntax1.cfg
Normal file
29
tcl/test/syntax1.cfg
Normal file
@@ -0,0 +1,29 @@
|
||||
jtag_nsrst_delay 200
|
||||
jtag_ntrst_delay 200
|
||||
|
||||
#use combined on interfaces or targets that can't set TRST/SRST separately
|
||||
reset_config trst_and_srst srst_pulls_trst
|
||||
|
||||
#LPCs need reset pulled while RTCK is low. 0 to activate JTAG, power-on reset is not enough
|
||||
jtag_reset 1 1
|
||||
jtag_reset 0 0
|
||||
|
||||
#jtag scan chain
|
||||
#format L IRC IRCM IDCODE (Length, IR Capture, IR Capture Mask, IDCODE)
|
||||
jtag newtap lpc2148 one -irlen 4 -ircapture 0x1 -irmask 0xf -expected-id 0x4f1f0f0f
|
||||
|
||||
#target configuration
|
||||
#daemon_startup reset
|
||||
|
||||
set _TARGETNAME [format "%s.cpu" lpc2148]
|
||||
target create lpc2148.cpu arm7tdmi -endian little -work-area-size 0x4000 -work-area-phys 0x40000000 -work-area-virt 0 -work-area-backup 0
|
||||
|
||||
$_TARGETNAME configure -event reset-init {
|
||||
soft_reset_halt
|
||||
mvb 0xE01FC040 0x01
|
||||
}
|
||||
|
||||
|
||||
|
||||
flash bank lpc2000 0x0 0x7d000 0 0 0 lpc2000_v2 14765
|
||||
|
||||
Reference in New Issue
Block a user