Changeset 3404

Timestamp:

Nov 1, 2012 12:32:08 AM (8 months ago)

Author:

quozl

Message:

OLPC XO-4 - touchscreen rework for firmware 0.0.0.6, which contained new behaviours not previously advised by Neonode

Location:

cpu/arm/olpc

Files:

• nn-touchscreen.fth (modified) (9 diffs)
• nnflash.fth (modified) (1 diff)

cpu/arm/olpc/nn-touchscreen.fth

@@ -18 +18 @@
 create nn-os            \ open short test
 create nn-fll           \ forced LED levels test
-create nn-version       \ version display
 create nn-watch         \ graphical signal tests
 
@@ -29 +28 @@
 d# 15 value xleds
 d# 11 value yleds
+
+0. 2value version#
+: get-version  ( -- version.d )  version#  ;
+
+: (.)'  ( version-segment.w -- )  (.) type  [char] . emit  ;
+
+: .version  ( version.d -- )  lwsplit (.)' (.)'  lwsplit (.)' (.)'  ;
+
+: show-version  ( -- )
+   ." Neonode zForce Touch Driver firmware version "  version# .version  cr
+;
 
 \ XXX these are really platform-related, not touchscreen-related
@@ -44 +54 @@
 [then]
 
-: x>x'  ( x -- x' )  screen-w swap -  ;  \ reverse x coordinate
+defer x>x'  ' noop to x>x'
+: (x>x')  ( x -- x' )  screen-w swap -  ;  \ reverse x coordinate
+: set-reverse-x  ['] (x>x') to x>x'  ;
 
 : set-gpios
@@ -56 +68 @@
 
 \ Neonode requested 250 ms
-\ we observe for 0.0.0.5
-\ less than 38 ms yields no response to reset,
-\ 40 ms yields 100 ms overall version check, and
-\ 45 ms yields 84 ms overall version check.
-: reset  ( -- )  touch-rst-gpio# dup gpio-clr gpio-set  d# 50 ms  ;
+: reset  ( -- )  touch-rst-gpio# dup gpio-clr gpio-set  d# 250 ms  ;
 : hold-reset  ( -- )  touch-rst-gpio# gpio-clr  ;
 : no-data?  ( -- no-data? )  touch-int-gpio# gpio-pin@  ;
@@ -105 +113 @@
 : read-boot-complete  ( -- )  h# 07 d# 0 anticipate  ;
 
+: read-version
+   h# 1e h# 01 h# ee  3 bytes-out  h# 1e d# 100 anticipate
+   pbuf 2+ c@ h# 1e <> abort" bad response"
+   pbuf 9 + le-w@  pbuf 7 + le-w@ wljoin  pbuf 5 + le-w@ pbuf 3 + le-w@ wljoin
+   to version#
+;
+
 : initialise  ( -- )  h# 01 h# 01 h# ee  3 bytes-out  h# 01 d# 20 anticipate  ;
 
@@ -126 +141 @@
 : configure  ( -- )
    configure?  if
+      read-version
+      version# h# 6. d<  if  set-reverse-x  then
       initialise
       set-resolution
@@ -200 +217 @@
    loop
 ;
-
-
-
-[ifdef] nn-version \ version display
-: (.version)  ( addr -- )
-   dup c@  over 1+ c@  bwjoin           ( addr version )
-   (.) type
-;
-
-: .version  ( -- )
-   pbuf 3 +  3 0  do                    ( addr )
-      (.version) 2+
-      [char] . emit
-   loop                                 ( addr )
-   (.version) drop                      ( )
-;
-
-: (version)  ( -- )
-   h# 1e h# 01 h# ee  3 bytes-out
-   h# 1e d# 30 anticipate
-   pbuf 2+ c@ h# 1e <> abort" bad response"
-;
-
-: test-version  ( -- )
-   (version)
-   ." Neonode zForce Touch Driver firmware version "
-   .version
-   cr
-;
-
-: get-version  ( -- version.d )
-   (version)
-   pbuf 9 + le-w@  pbuf 7 + le-w@ wljoin  pbuf 5 + le-w@ pbuf 3 + le-w@ wljoin
-;
-
-[then]
 
 
@@ -1004 +985 @@
 : mb-smt  ( -- error? )
    open  0=  if  true exit  then
-   test-version
+   show-version
    close
    false
@@ -1035 +1016 @@
    diagnostic-mode?  if
       0 to faults
-      [ifdef] nn-version  test-version  [then]
+      show-version
       [ifdef] nn-os       test-os       [then]
       [ifdef] nn-fss      test-fss      [then]

cpu/arm/olpc/nnflash.fth

@@ -18 +18 @@
 : nn-up-to-date?  ( file$ -- flag )
    2drop  h# 0000.0000.0000.0006.  \ FIXME: get version from file
-   get-touchscreen-version
+   get-touchscreen-version   \ 20ms first time, 270ms subsequent
    d<=
 ;