[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