Changeset 3414

Timestamp:

Nov 3, 2012 3:34:49 AM (7 months ago)

Author:

quozl

Message:

OLPC XO-4 - touchscreen, switch to latest firmware 0.0.0.7 with missing IR PCB support, determine available version number from file, enable automatic reflash for wider testing (breaks manufacturing tests on B1).

Location:

cpu/arm/olpc

Files:

• 4.0/nn-version.fth (modified) (1 diff)
• nnflash.fth (modified) (4 diffs)

cpu/arm/olpc/4.0/nn-version.fth

@@ -1 +1 @@
 \ The Neonode touchscreen firmware
-macro: NN_VERSION 0_0_0_6
-
-\ FIXME: change in nnflash.fth too, until it knows how to read it
-\ using Neonode's instructions.
+macro: NN_VERSION 0_0_0_7

cpu/arm/olpc/nnflash.fth

@@ -1 +1 @@
 \ See license at end of file
 purpose: Reflash a Neonode touchscreen controller
+
+: (nnv)  ( version.d adr -- version.d )
+   2 $number abort" nn.hex, not a number"
+   >r 8 dlshift swap r> or swap
+;
+
+: $nn-version  ( file$ -- version.d )
+   $read-open           ( )
+   3 0 do
+      load-base d# 100 ifd @ read-line abort" nn.hex, read-line failed" 2drop
+   loop
+   load-base d# 25 +    ( adr )
+   >r  0.               ( version.d  r: adr )
+   r@ d#  2 + (nnv)  r@         (nnv)  r@ d#  6 + (nnv)  r@ d#  4 + (nnv)
+   r@ d# 10 + (nnv)  r@ d#  8 + (nnv)  r@ d# 14 + (nnv)  r@ d# 12 + (nnv)
+   r> drop              ( version.d )
+   ifd @ fclose
+   \ 59ms
+;
 
 : get-touchscreen-version  ( -- version.d )
@@ -7 +26 @@
    " get-version" 2 pick $call-method          ( handle version.d )
    >r >r close-dev r> r>                       ( version.d )
+   \ 20ms first time, 270ms subsequent
+;
+
+: nn-up-to-date?  ( file$ -- flag )
+   $nn-version                  ( version-in-file.d )
+   2dup h# 0001.0000.0000.0000. d>= abort" nn.hex, major version conflict"
+   get-touchscreen-version      ( version-in-file.d version-in-controller.d )
+   d<=
 ;
 
@@ -16 +43 @@
 : flash-nn  ( "filename" -- )  safe-parse-word  ?enough-power  reflash-nn  ;
 : flash-nn! ( "filename" -- )  safe-parse-word                 reflash-nn  ;
-: nn-up-to-date?  ( file$ -- flag )
-   2drop  h# 0000.0000.0000.0006.  \ FIXME: get version from file
-   get-touchscreen-version   \ 20ms first time, 270ms subsequent
-   d<=
-;
 
 : update-nn-flash  ( -- )
@@ -33 +55 @@
    \ XO-4 B1 have clear lightguides incompatible with later versions
    \ of touchscreen firmware.
-   board-revision h# 4b20  <  if  false exit  then
+   \ (disabled temporarily so that automatic update can be tested)
+   \ board-revision h# 4b20  <  if  false exit  then
    nn-image$  nn-up-to-date?  0=
 ;