Author: quozl Date: Mon Aug 13 03:41:09 2012 New Revision: 3155 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3155
Log: OLPC CL4 - Neonode, reconfigure controller after suspend resume test
Modified: cpu/arm/olpc/nn-touchscreen.fth
Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Sat Aug 11 05:10:47 2012 (r3154) +++ cpu/arm/olpc/nn-touchscreen.fth Mon Aug 13 03:41:09 2012 (r3155) @@ -24,6 +24,7 @@ d# 250 constant /pbuf 0 value pbuf 0 value plen +0 value configure?
: in? ( -- got-data? ) no-data? if false exit then @@ -33,6 +34,10 @@ dup 2+ to plen ( len )
pbuf 2+ swap twsi-read ( ) + + pbuf 2+ c@ h# 07 = pbuf 3 + c@ 0= and if ( ) + true to configure? + then true ;
@@ -60,12 +65,18 @@
: start ( -- ) h# 04 h# 01 h# ee 3 twsi-out ;
-: deactivate ( -- ) h# 00 h# 01 h# ee 3 twsi-out h# 00 d# 20 anticipate ; +: deactivate ( -- ) + h# 00 h# 01 h# ee 3 twsi-out h# 00 d# 20 anticipate + true to configure? +;
: configure ( -- ) - initialise - set-resolution - start + configure? if + initialise + set-resolution + start + false to configure? + then ;
: open ( -- okay? ) @@ -92,12 +103,11 @@ pbuf 4 + w@ pbuf 6 + w@ ( x y ) pbuf 8 + c@ 3 and 0= ( x y down? ) true ( x y buttons true ) - else - false + exit then - else - false then + configure + false ;
@@ -105,11 +115,11 @@ : fault faults 1+ to faults ;
: .bits ( addr low high -- addr ) - ." ( " swap do ( addr ) + ." ( " swap do ( addr ) i over bittest if - i . fault + i . fault then - loop ." )" cr ( addr ) + loop ." )" cr ( addr ) \ FIXME: express failed devices in terms of IR PCB component names. ;