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