Changeset 3383

Timestamp:

Oct 25, 2012 9:30:24 AM (7 months ago)

Author:

quozl

Message:

OLPC XO-4 - automatic reflash of Neonode touchscreen firmware, costs 276ms each boot

Location:

cpu/arm/olpc

Files:

• 4.0/nn-version.fth (added)
• 4.0/nn.bth (added)
• 4.0/olpc.bth (modified) (2 diffs)
• bsl.fth (modified) (1 diff)
• build-fw.fth (modified) (2 diffs)
• fetch-nn.fth (added)
• nnflash.fth (added)

cpu/arm/olpc/4.0/olpc.bth

@@ -3 +3 @@
 command: &builder &this
 in: ${BP}/cpu/arm/olpc/4.0/build/ec.img
+in: ${BP}/cpu/arm/olpc/4.0/build/nn.img
 in: ${BP}/cpu/arm/olpc/4.0/build/fw.img
 in: ${BP}/cpu/arm/olpc/4.0/build/resetvec.img
@@ -155 +156 @@
 
    " ec.img"                                    " ecimage.bin"   $add-deflated-dropin
+   " nn.hex"                                    " nn.hex"        $add-deflated-dropin
    " ${BP}/clients/emacs/x86/emacs.rc"          " emacs.rc"      $add-deflated-dropin
    " ${BP}/clients/emacs/emacs.hlp"             " emacs.hlp"     $add-deflated-dropin

cpu/arm/olpc/bsl.fth

@@ -223 +223 @@
 ;
 
+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

cpu/arm/olpc/build-fw.fth

@@ -367 +367 @@
 [ifdef] bsl-uart-base
 fload ${BP}/cpu/arm/olpc/bsl.fth
+fload ${BP}/cpu/arm/olpc/nnflash.fth
 [then]
 
@@ -858 +859 @@
       then
    then
+[ifdef] update-nn-flash?
+   update-nn-flash?  if
+      ['] ?enough-power catch  ?dup  if  ( error )
+         show-no-power
+         .error
+         ." Skipping NN reflash, not enough power" cr
+         d# 1000 ms
+      else
+         jots  ['] jot to bsl-progress
+         update-nn-flash
+      then
+   then
+[then]
 \+ use-screen-kbd  open-hotspot