Changeset 3039

Timestamp:

Jul 6, 2012 9:46:38 AM (12 months ago)

Author:

quozl

Message:

TI BSL downloader - reverse polarity of test result report, cleanup messages, report timeout of flush, and initialise UART2 APB clocks and UART enable bit

File:

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

cpu/arm/olpc/bsl.fth

@@ -42 +42 @@
 
 : bsl-baud  ( baud-rate -- )   \ 9600,8,e,1
-   uart-base >r  bsl-uart-base to uart-base  baud  h# 1b 3 uart!  r> to uart-base
+   uart-base >r                 ( baud-rate r: uart-base )
+   bsl-uart-base to uart-base
+   h# 13 h# 30 apbc!                                            \ enable the uart2 clocks
+   h# 40 1 uart!                                                \ uart unit enable
+   baud  h# 1b 3 uart!          ( r: uart-base )
+   r> to uart-base              ( )
 ;
 
@@ -89 +94 @@
    bsl-test-gpio# gpio-clr
 ;
-: flush-bsl  ( -- )  begin  receive?  while  drop  repeat  ;
+
+: flush-bsl
+   get-msecs d# 2000 +                  ( limit )
+   begin
+      receive?  0=  if  exit  then      ( limit char )
+      drop  dup get-msecs - 0<          ( limit timeout? )
+   until
+   drop  true abort" BSL flush timeout"
+;
+
 : rst-bsl  ( -- )  msp430-off  start-bsl  flush-bsl  ;
 
@@ -103 +117 @@
    drop  true abort" BSL data timeout"
 ;
+
 : ack?  ( -- okay? )
    get-msecs timeout +        ( limit )
@@ -263 +278 @@
 
 : force-erase  ( -- )
-   ." Resetting/erasing" cr
    rst-bsl
    ['] 00-password catch drop
@@ -369 +383 @@
    $read-open           ( )
    set-bsl-file-format  ( )
+   ." Resetting/erasing" cr
    force-erase          ( )
    ." Programming" cr
@@ -429 +444 @@
    ." Writing ..." bsl-test-data h# 8000 bsl-write  cr  ( )
    ." Verifying ..."  bsl-test-data h# 8000 bsl-verify  cr  ( okay? )
-   if  ." FAILED!"  else  ." Good"  then  cr
+   if  ." Good"  else  ." FAILED!"  then  cr
 ;