Changeset 3443

Timestamp:

Nov 20, 2012 2:49:48 AM (6 months ago)

Author:

quozl

Message:

OLPC XO-4 - touchscreen firmware programming, fix INCREDIBLE slowness problem #12327 by following TI specification, convert progress bar to using hex file byte position instead of load address, since load address is outside our control.

File:

• cpu/arm/olpc/bsl.fth (modified) (6 diffs)

cpu/arm/olpc/bsl.fth

@@ -87 +87 @@
 
 \ These are MMP2/3 dependent
+\ Section 1.4 of TI slau319c.pdf says to wait 1.2 ms after receiving a
+\ character from MSP430 BSL prior to sending a new character.
+0 value bsl-time
+: set-bsl-time  ( -- )
+   \ MMP2 Timer 0 runs at 6.5 MHz so 1.2 ms is 1200 * 13 / 2 ticks
+   timer0@  [ d# 1200 d# 13 2 */ ] literal +  to bsl-time
+;
+: wait-send  ( -- )  begin  timer0@ bsl-time - 0>=  until  ;
 
 : bsl-baud  ( baud-rate -- )   \ 9600,8,e,1
@@ -97 +105 @@
 ;
 
-: bsl-send  ( char -- )  uart-base >r  bsl-uart-base to uart-base  uemit  r> to uart-base  ;
+: bsl-send  ( char -- )
+   wait-send
+   uart-base >r  bsl-uart-base to uart-base  uemit  r> to uart-base
+;
 
 : receive?  ( -- false | char true )
    uart-base >r  bsl-uart-base to uart-base
-   ukey?  if  ukey true  else  false  then
+   ukey?  if  ukey true  set-bsl-time  else  false  then
    r> to uart-base
 ;
@@ -117 +128 @@
 
    d# 9600 bsl-baud
+   set-bsl-time
 ;
 : bsl-close  ( -- )
@@ -145 +157 @@
    get-msecs d# 2000 +                  ( limit )
    begin
-      receive?  0=  if drop exit  then      ( limit char )
+      receive?  0=  if drop exit then      ( limit char )
       drop  dup get-msecs - 0<          ( limit timeout? )
    until
@@ -225 +237 @@
 defer bsl-progress  ' 2drop is bsl-progress  ( offset size -- )
 : rx-data-block  ( adr len device-adr -- )
-   dup h# 8000 - h# 8000 bsl-progress
    over  h# 12 frame(     ( adr len device-adr )
    send-summed            ( adr len )   \ device address
@@ -492 +503 @@
    ." Programming" cr
    begin                ( )
+      ifd @ ftell  ifd @ fsize  bsl-progress
       [char] . emit
       bsl-line-buf d# 100 ifd @ read-line abort" Read line failed"