[OpenBIOS] r566 - cpu/x86/pc/olpc

svn at openbios.org svn at openbios.org
Sun Aug 19 03:13:04 CEST 2007


Author: wmb
Date: 2007-08-19 03:13:03 +0200 (Sun, 19 Aug 2007)
New Revision: 566

Modified:
   cpu/x86/pc/olpc/fw.bth
Log:
Added game-key (direction-pad left) to invoke the "freeze screen"
function for "pretty boot".



Modified: cpu/x86/pc/olpc/fw.bth
===================================================================
--- cpu/x86/pc/olpc/fw.bth	2007-08-19 01:07:32 UTC (rev 565)
+++ cpu/x86/pc/olpc/fw.bth	2007-08-19 01:13:03 UTC (rev 566)
@@ -476,23 +476,26 @@
    r> to load-started
    r> to playback-volume
 ;
+: go-hook-freeze
+   [ ' go-hook behavior compile, ]
+   0 " set-source" $call-screen
+;
+: freeze    ( -- )  ['] go-hook-freeze to go-hook  ;
+: unfreeze  ( -- )  ['] usb-quiet      to go-hook  ;
 
 : ?start-sound  ( -- )
    game-key-mask h# 40 and  if  start-sound  then
 ;
 : ?games  ( -- )
-   game-key-mask h# 20 and  if  pong  then
+   game-key-mask h# 20 and  if  pong    then
 ;
+: ?freeze  ( -- )
+   game-key-mask h# 10 and  if  freeze  then
+;
 : open-keyboard  ( -- )
    " keyboard" open-dev  ?dup  if  set-stdin  then
 ;
 
-: go-hook-freeze
-   [ ' go-hook behavior compile, ]
-   0 " set-source" $call-screen
-;
-: freeze    ( -- )  ['] go-hook-freeze to go-hook  ;
-: unfreeze  ( -- )  ['] usb-quiet      to go-hook  ;
 
 : startup  ( -- )
    standalone?  0=  if  exit  then
@@ -505,6 +508,7 @@
       stdout off
       probe-pci
       ?start-sound
+      ?freeze
       ['] false to interrupt-auto-boot?
       probe-usb
 \     " nand" $dev-update-flash
@@ -522,6 +526,7 @@
       ?start-sound
       open-keyboard
       ?games
+      ?freeze
       optional-startup
       interpreter-init
 [ifndef] lx-devel




More information about the OpenBIOS mailing list