[openfirmware] r1445 - cpu/x86/pc/olpc

[svn at openfirmware.info]

Author: rsmith
Date: 2009-10-29 03:18:53 +0100 (Thu, 29 Oct 2009)
New Revision: 1445

Modified:
   cpu/x86/pc/olpc/gamekeys.fth
Log:
OLPC: Gamekey/pad display command 'check-keys'

- Same display as what happens when you hold a key on boot but can be run from 
the ok prompt.



Modified: cpu/x86/pc/olpc/gamekeys.fth
===================================================================
--- cpu/x86/pc/olpc/gamekeys.fth	2009-10-28 23:56:45 UTC (rev 1444)
+++ cpu/x86/pc/olpc/gamekeys.fth	2009-10-29 02:18:53 UTC (rev 1445)
@@ -62,3 +62,15 @@
 ' (hold-message) to hold-message
 
 : bypass-bios-boot?  ( -- flag )  button-square game-key?  ;
+
+: check-keys
+   clear-screen
+   ." Press a key to exit"
+   cursor-off
+   begin
+      0 to game-key-mask  
+      d# 100 ms key? game-key@ update-game-keys       ( key? ) 
+   until
+   0 7 at-xy
+   cursor-on
+;