tcl/stm32l5x|u5x: refactor common tcl code

[fw/openocd] / tcl / target / atheros_ar9344.cfg

diff --git a/tcl/target/atheros_ar9344.cfg b/tcl/target/atheros_ar9344.cfg
index f273fb05d87a81bf537337f2dbf31c9ed11bea20..b698f25034b7a63ded43721a7a8a13f77318d83c 100644 (file)
--- a/tcl/target/atheros_ar9344.cfg
+++ b/tcl/target/atheros_ar9344.cfg
@@ -14,3 +14,26 @@ jtag newtap $_CHIPNAME cpu -irlen 5 -expected-id $_CPUTAPID
 
 set _TARGETNAME $_CHIPNAME.cpu
 target create $_TARGETNAME mips_m4k -endian big -chain-position $_TARGETNAME
+
+proc test_ar9344_uart0_tx {} {
+       echo "configuring uart0.."
+       mww 0xb802000c 0x87
+       mww 0xb8020000 0x15
+       mww 0xb8020004 0
+       mww 0xb802000c 7
+       mww 0xb8020004 0
+
+       echo "send message: hallo world"
+       mww 0xb8020000 0x68
+       mww 0xb8020000 0x65
+       mww 0xb8020000 0x6c
+       mww 0xb8020000 0x6c
+       mww 0xb8020000 0x6f
+       mww 0xb8020000 0x20
+       mww 0xb8020000 0x77
+       mww 0xb8020000 0x6f
+       mww 0xb8020000 0x72
+       mww 0xb8020000 0x6c
+       mww 0xb8020000 0x64
+       mww 0xb8020000 0x0a
+}