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

[repository service]

Author: quozl
Date: Thu Nov  1 05:59:36 2012
New Revision: 3405
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3405

Log:
OLPC XO-4 - nn-touchscreen, watch-fss, compensate for X coordinate reversal in firmware 0.0.0.6, slightly breaks rendering of previous firmware versions, add signal strength control with keyboard keys

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

Modified: cpu/arm/olpc/nn-touchscreen.fth
==============================================================================
--- cpu/arm/olpc/nn-touchscreen.fth	Thu Nov  1 00:32:08 2012	(r3404)
+++ cpu/arm/olpc/nn-touchscreen.fth	Thu Nov  1 05:59:36 2012	(r3405)
@@ -672,9 +672,10 @@
 ;
 
 : xs>xy  ( signal# -- x y )
-   2+ screen-w xleds 2* / * r -         ( x )
-   x>x'                                 ( x' )
+   screen-w xleds 2* / *                ( x )
    r 2/ +
+   x>x'                                 ( x' )
+   d# 10 -
    xy                                   ( x y )
 ;
 
@@ -761,14 +762,30 @@
    then
 ;
 
+: watch-fss-sig  ( )
+   d# 50 d# 18 at-xy ."  signal strength: " fs .d
+   d# 50 d# 20 at-xy ."  d  down "
+   d# 50 d# 21 at-xy ."  u  up   "
+   d# 50 d# 22 at-xy ."  q  quit "
+;
+
+: watch-fss-key  ( stop-flag key -- stop-flag' )
+   case
+      h# 1b     of  drop true  endof
+      [char] q  of  drop true  endof
+      [char] u  of  fs 2* d# 64 min  to fs  watch-fss-sig  endof
+      [char] d  of  fs 2/  d# 1 max  to fs  watch-fss-sig  endof
+   endcase
+;
+
 : watch-fss
-   empty
-   begin
+   watch-fss-sig  empty  watch-fss-sig  false
+   begin					( stop-flag )
       0 watch-fss-axis
-      1 watch-fss-axis  key?
+      1 watch-fss-axis  key?  if  key watch-fss-key  then
+      dup
    until
-   key drop
-   page
+   drop page
 ;
 
 [then]