r649 - cpu/x86/pc/olpc

Author: wmb
Date: 2007-09-29 21:26:47 +0200 (Sat, 29 Sep 2007)
New Revision: 649

Added:
   cpu/x86/pc/olpc/gamekeys.fth
Log:
Moved game-key support from fw.bth into separate file.

Added: cpu/x86/pc/olpc/gamekeys.fth
===================================================================
--- cpu/x86/pc/olpc/gamekeys.fth	                        (rev 0)
+++ cpu/x86/pc/olpc/gamekeys.fth	2007-09-29 19:26:47 UTC (rev 649)
@@ -0,0 +1,27 @@
+purpose: Access to game keys (buttons on front panel)
+
+h#   1 constant button-square
+h#   2 constant button-check
+h#   4 constant rocker-up
+h#   8 constant rocker-down
+h#  10 constant rocker-left
+h#  20 constant rocker-right
+h#  40 constant button-rotate
+h#  80 constant button-o
+h# 100 constant button-x
+
+0 value game-key-mask
+
+: read-game-keys  ( -- )
+[ifdef] lx-devel  false exit  [then]
+   board-revision h# b18 <  if
+      button-x to game-key-mask  \ Force slow boot
+      exit
+   then
+
+   game-key@  dup to game-key-mask  if
+      ." Release the game key to continue" cr
+      begin  d# 100 ms  game-key@ 0=  until
+   then
+;
+: game-key?  ( mask -- flag )  game-key-mask and 0<>  ;