[openfirmware] [commit] r3316 - cpu/arm/olpc

[repository service]

Author: quozl
Date: Wed Sep 19 08:31:04 2012
New Revision: 3316
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3316

Log:
OLPC XO-4 - Neonode, draw maximum current at the start of test /touchscreen in order to trigger a known interconnect problem, split out version query components for re-use in manufacturing.

Modified:
   cpu/arm/olpc/nn-touchscreen.fth

Modified: cpu/arm/olpc/nn-touchscreen.fth
==============================================================================
--- cpu/arm/olpc/nn-touchscreen.fth	Wed Sep 19 07:07:59 2012	(r3315)
+++ cpu/arm/olpc/nn-touchscreen.fth	Wed Sep 19 08:31:04 2012	(r3316)
@@ -184,6 +184,18 @@
 
 
 
+: test-response  ( -- )
+   6 0  do
+      h# 40 h# 0 h# 0f 3 h# ee 5 bytes-out \ fss full level
+      0 pbuf 2+ c!
+      h# 0f d# 30 anticipate
+      pbuf 2+ c@ dup 0= abort" no response to fss"
+      h# 0f <> abort" bad response to fss"
+   loop
+;
+
+
+
 [ifdef] nn-version \ version display
 : (.version)  ( addr -- )
    dup c@  over 1+ c@  bwjoin           ( addr version )
@@ -192,7 +204,6 @@
 
 : .version  ( addr -- )
    pbuf 2+ c@ h# 1e <> abort" bad response"
-   ." Neonode zForce Touch Driver firmware version "
    pbuf 3 +  3 0  do                    ( addr )
       (.version) 2+
       [char] . emit
@@ -200,13 +211,18 @@
    (.version) drop                      ( )
 ;
 
-: test-version  ( -- )
+: (version)  ( -- )
    h# 1e h# 01 h# ee  3 bytes-out
    h# 1e d# 30 anticipate
+;
 
+: test-version  ( -- )
+   (version)
+   ." Neonode zForce Touch Driver firmware version "
    .version
    cr
 ;
+
 [then]
 
 
@@ -1014,6 +1030,7 @@
       faults  if  close  true  exit  then
    then
 
+   test-response
    test-station 6 =  if  d# 86400.000 to test-timeout  then
    scribble