openfirmware

openfirmware@openfirmware.info

3007 discussions

r1411 - cpu/x86/pc/olpc/via ofw/inet
by svn＠openfirmware.info 09 Oct '09

09 Oct '09

Author: wmb Date: 2009-10-10 01:43:00 +0200 (Sat, 10 Oct 2009) New Revision: 1411 Modified: cpu/x86/pc/olpc/via/fw.bth cpu/x86/pc/olpc/via/padlock.fth ofw/inet/tcp.fth Log: Via - randomize TCP sequence number. Modified: cpu/x86/pc/olpc/via/fw.bth =================================================================== --- cpu/x86/pc/olpc/via/fw.bth 2009-10-09 23:36:03 UTC (rev 1410) +++ cpu/x86/pc/olpc/via/fw.bth 2009-10-09 23:43:00 UTC (rev 1411) @@ -451,6 +451,8 @@ fload ${BP}/forth/lib/selstr.fth +fload ${BP}/cpu/x86/pc/olpc/via/padlock.fth \ Via security engine + fload ${BP}/ofw/inet/loadtcp.fth support-package: http @@ -481,7 +483,6 @@ fload ${BP}/cpu/x86/pc/olpc/nandcastui.fth fload ${BP}/cpu/x86/pc/olpc/wifichannel.fth [then] -fload ${BP}/cpu/x86/pc/olpc/via/padlock.fth \ Via security engine fload ${BP}/cpu/x86/pc/olpc/via/fsupdate.fth fload ${BP}/cpu/x86/pc/olpc/via/fsverify.fth devalias fsdisk int:0 Modified: cpu/x86/pc/olpc/via/padlock.fth =================================================================== --- cpu/x86/pc/olpc/via/padlock.fth 2009-10-09 23:36:03 UTC (rev 1410) +++ cpu/x86/pc/olpc/via/padlock.fth 2009-10-09 23:43:00 UTC (rev 1411) @@ -2,7 +2,7 @@ : enable-padlock ( -- ) cr4@ h# 200 or cr4! ; \ SSE enable -code random-bytes ( adr len -- ) +code random-bytes ( adr len -- ) \ The buffer at adr must be at least 8 bytes long cr4 ebx mov ebx eax mov h# 200 # eax or eax cr4 mov cx pop 0 [sp] di xchg @@ -12,6 +12,7 @@ ax cx sub 0= until 0 [sp] di xchg + ax pop ebx cr4 mov c; code random-byte ( -- n ) @@ -27,6 +28,7 @@ cx di mov ebx cr4 mov c; +: random-long ( -- l ) 0 0 sp@ 4 random-bytes nip ; create sha256-constants h# 6A09E667 , h# BB67AE85 , h# 3C6EF372 , h# A54FF53A , Modified: ofw/inet/tcp.fth =================================================================== --- ofw/inet/tcp.fth 2009-10-09 23:36:03 UTC (rev 1410) +++ ofw/inet/tcp.fth 2009-10-09 23:43:00 UTC (rev 1411) @@ -1390,8 +1390,12 @@ ; : next-iss ( -- ) +[ifdef] random-long + random-long to iss +[else] tcp_iss to iss issincr 2/ tcp_iss + to tcp_iss +[then] ; : do-syn-sent? ( -- done? )

1 0

r1410 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 09 Oct '09

09 Oct '09

Author: wmb Date: 2009-10-10 01:36:03 +0200 (Sat, 10 Oct 2009) New Revision: 1410 Modified: cpu/x86/pc/olpc/via/ioinit.fth Log: Via - A couple of startup register tweaks suggested by Via. Modified: cpu/x86/pc/olpc/via/ioinit.fth =================================================================== --- cpu/x86/pc/olpc/via/ioinit.fth 2009-10-09 20:23:36 UTC (rev 1409) +++ cpu/x86/pc/olpc/via/ioinit.fth 2009-10-09 23:36:03 UTC (rev 1410) @@ -116,6 +116,7 @@ [then] d# 16 4 devfunc \ EHCI + 41 20 20 mreg \ Evaluate PERIODIC Enable bit only at beginning of micro-frame 0 (undocumented) 42 40 40 mreg \ Enable Check PRESOF of ITDOUT Transaction during Fetching Data from DRAM 43 c0 c0 mreg \ Enable Dynamic Clock Scheme - 66MHz (80) & 33MHz (40) 48 20 00 mreg \ Disable DMA bursts @@ -233,6 +234,7 @@ 9f ff ad mreg \ be like Phx (slot 3 is Card Reader not SDIO) [then] + b0 08 00 mreg \ The BIOS Porting Note says to clear this bit. Phoenix and coreboot agree. b4 80 00 mreg \ No positive decoding for UART1 ??? b7 40 40 mreg \ 40 res be like Phx uart-dma-io-base wbsplit swap ( bits15:8 bits7:0 )

1 0

r1409 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 09 Oct '09

09 Oct '09

Author: wmb Date: 2009-10-09 22:23:36 +0200 (Fri, 09 Oct 2009) New Revision: 1409 Modified: cpu/x86/pc/olpc/via/startcominit.fth Log: Via - Checkpoint startcominit.fth in preparation for revamping the board type detection to use the EC's new fast-ID command. Modified: cpu/x86/pc/olpc/via/startcominit.fth =================================================================== --- cpu/x86/pc/olpc/via/startcominit.fth 2009-10-09 00:16:02 UTC (rev 1408) +++ cpu/x86/pc/olpc/via/startcominit.fth 2009-10-09 20:23:36 UTC (rev 1409) @@ -55,7 +55,13 @@ \ Wait until RTC PSON Gating is complete. See PG_VX855_VX875_092 page 139 (pdf page 160) \ This takes about 48 mS in the power-on case, and is almost instantaneous in the \ resume-from-S3 case due to the clearing of D17F0 Rx81[2] above. - begin 8882 config-rb h# 40 # al and 0<> until + cx cx xor + begin cx inc 8882 config-rb h# 40 # al and 0<> until + cl al mov + h# 88 # al mov al h# 74 # out cl al mov al h# 75 # out + h# 89 # al mov al h# 74 # out ch al mov al h# 75 # out + d# 16 # cx shr + h# 8a # al mov al h# 74 # out cl al mov al h# 75 # out \ As an optimization to avoid long waits for the EC to respond, read the board ID \ that is cached in CMOS RAM.

1 0

r1408 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 09 Oct '09

09 Oct '09

Author: wmb Date: 2009-10-09 02:16:02 +0200 (Fri, 09 Oct 2009) New Revision: 1408 Modified: cpu/x86/pc/olpc/via/cstate.fth Log: Via C-state test - display sleep time in percent. Modified: cpu/x86/pc/olpc/via/cstate.fth =================================================================== --- cpu/x86/pc/olpc/via/cstate.fth 2009-10-09 00:07:12 UTC (rev 1407) +++ cpu/x86/pc/olpc/via/cstate.fth 2009-10-09 00:16:02 UTC (rev 1408) @@ -55,16 +55,20 @@ ; : idling ( xt -- ) to do-idle - cursor-off + sleep-time off acpi-time@ start-time ! + + cursor-off begin green-letters (cr show-temperature d# 1024 idle-ms black-letters (cr show-temperature d# 1024 idle-ms key? until - acpi-time@ start-time @ - cursor-on - ." Slept " sleep-time @ .d ." of " .d ." ticks" cr + + sleep-time @ d# 1000 acpi-time@ start-time @ - */ ( %*10 ) + cr ." Slept " push-decimal <# u# [char] . hold u#s u#> pop-base type ." % of the time" cr + ['] default-idle-state to do-idle ; : .idling ( $ -- )

1 0

r1407 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 09 Oct '09

09 Oct '09

Author: wmb Date: 2009-10-09 02:07:12 +0200 (Fri, 09 Oct 2009) New Revision: 1407 Added: cpu/x86/pc/olpc/via/cstate.fth Modified: cpu/x86/pc/olpc/via/fsupdate.fth cpu/x86/pc/olpc/via/fw.bth cpu/x86/pc/olpc/via/romreset.bth Log: Via - Added C-state testing words c{0-4}-test Added: cpu/x86/pc/olpc/via/cstate.fth =================================================================== --- cpu/x86/pc/olpc/via/cstate.fth (rev 0) +++ cpu/x86/pc/olpc/via/cstate.fth 2009-10-09 00:07:12 UTC (rev 1407) @@ -0,0 +1,118 @@ +purpose: Test for processor C-states +\ See license at end of file + +: cpu-temperature ( -- degrees-C ) h# 1169 msr@ drop ; +: show-temperature ( -- ) space cpu-temperature .d ; + +variable start-time +variable sleep-time +: acpi-time@ ( -- t0 ) 8 acpi-l@ ; + +: arb-dis ( -- ) 1 h# 22 pc! ; +: arb-ena ( -- ) 0 h# 22 pc! ; +: bm-rld-on ( -- ) 4 acpi-w@ 2 or 4 acpi-w! ; +: bm-rld-off ( -- ) 4 acpi-w@ 2 invert and 4 acpi-w! ; + +\ Setting this makes C3 behave the same as C4 +\ So there are two ways to get into C4 - +\ Either set this bit and read the LVL_3 register, +\ or just read the LVL_4 register + +: lower-c3-voltage ( -- ) h# 26 acpi-b@ 1 or h# 26 acpi-b! ; + +: can-idle? ( -- flag ) + interrupts-enabled? if \ Interrupts must be enabled + h# 21 pc@ 1 and 0= \ Timer must be running + else + false + then +; + +defer do-idle ' noop to do-idle + +: safe-idle ( -- ) can-idle? if do-idle then ; +' safe-idle to stdin-idle + +alias c1-idle halt + +: c2-idle ( -- ) h# 14 acpi-b@ drop ; +: c3-idle ( -- ) arb-dis h# 15 acpi-b@ drop arb-ena ; +: c4-idle ( -- ) arb-dis h# 16 acpi-b@ drop arb-ena ; +code c5-idle ( -- ) acpi-io-base h# 17 + # dx mov wbinvd dx al in c; + +alias default-idle-state c2-idle +' default-idle-state to do-idle + +: enter-idle ( -- ) + acpi-time@ ( t ) + do-idle ( t ) + acpi-time@ swap - sleep-time +! +; +: idle-ms ( ms -- ) + tick-msecs + ( limit ) + begin enter-idle dup tick-msecs - 0<= until ( limit ) + drop +; +: idling ( xt -- ) + to do-idle + cursor-off + sleep-time off + acpi-time@ start-time ! + begin + green-letters (cr show-temperature d# 1024 idle-ms + black-letters (cr show-temperature d# 1024 idle-ms + key? until + acpi-time@ start-time @ - + cursor-on + ." Slept " sleep-time @ .d ." of " .d ." ticks" cr + ['] default-idle-state to do-idle +; +: .idling ( $ -- ) + ." Idling in " type ." state, showing core temperature" cr +; +: c0-test ( -- ) + " C0" .idling + ['] noop idling +; +: c1-test ( -- ) + " C1" .idling + ['] c1-idle idling +; +: c2-test ( -- ) + " C2" .idling + ['] c2-idle idling +; +: c3-test ( -- ) + bm-rld-on + " C3" .idling + ['] c3-idle idling +; +: c4-test ( -- ) + bm-rld-on + " C4" .idling + ['] c4-idle idling +; + +\ LICENSE_BEGIN +\ Copyright (c) 2009 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END Modified: cpu/x86/pc/olpc/via/fsupdate.fth =================================================================== --- cpu/x86/pc/olpc/via/fsupdate.fth 2009-10-08 23:06:25 UTC (rev 1406) +++ cpu/x86/pc/olpc/via/fsupdate.fth 2009-10-09 00:07:12 UTC (rev 1407) @@ -3,9 +3,6 @@ \ Depends on words from security.fth and copynand.fth -: cpu-temperature ( -- degrees-C ) h# 1169 msr@ drop ; -: show-temperature ( -- ) space cpu-temperature .d ; - : get-hex# ( -- n ) safe-parse-word push-hex $number pop-base " Bad number" ?nand-abort Modified: cpu/x86/pc/olpc/via/fw.bth =================================================================== --- cpu/x86/pc/olpc/via/fw.bth 2009-10-08 23:06:25 UTC (rev 1406) +++ cpu/x86/pc/olpc/via/fw.bth 2009-10-09 00:07:12 UTC (rev 1407) @@ -300,6 +300,9 @@ fload ${BP}/ofw/gui/loadmenu.fth fload ${BP}/ofw/gui/insticon.fth + +fload ${BP}/cpu/x86/pc/olpc/via/cstate.fth \ C-state tests + \ Uninstall the diag menu from the general user interface vector \ so exiting from emacs doesn't invoke the diag menu. ' quit to user-interface @@ -514,9 +517,6 @@ " dhcp" ' ip-address set-config-string-default -: c1-idle ( -- ) interrupts-enabled? if halt then ; -' c1-idle to stdin-idle - : fast-boot? ( -- flag ) [ifdef] rom-loaded button-x game-key? 0= Modified: cpu/x86/pc/olpc/via/romreset.bth =================================================================== --- cpu/x86/pc/olpc/via/romreset.bth 2009-10-08 23:06:25 UTC (rev 1406) +++ cpu/x86/pc/olpc/via/romreset.bth 2009-10-09 00:07:12 UTC (rev 1407) @@ -119,6 +119,7 @@ fload ${BP}/cpu/x86/pc/olpc/via/starthostctl.fth acpi-io-base 1 + 8888 config-ww \ Set ACPI base address + acpi-io-base wbsplit 0292 config-wb 0293 config-wb \ ACPI base address for C-states, big-endian [ifdef] debug-startup cominit #) call

1 0

r1406 - cpu/x86/pc/olpc/via
by svn＠openfirmware.info 08 Oct '09

08 Oct '09

Author: wmb Date: 2009-10-09 01:06:25 +0200 (Fri, 09 Oct 2009) New Revision: 1406 Added: cpu/x86/pc/olpc/via/fsverify.fth Log: Added via/fsverify.fth Added: cpu/x86/pc/olpc/via/fsverify.fth =================================================================== --- cpu/x86/pc/olpc/via/fsverify.fth (rev 0) +++ cpu/x86/pc/olpc/via/fsverify.fth 2009-10-08 23:06:25 UTC (rev 1406) @@ -0,0 +1,91 @@ +\ Boot script for post-audit testing +[ifndef] fs-verify +vocabulary fs-verify-commands +also fs-verify-commands definitions + +: zblocks: ( "eblock-size" "#eblocks" ... -- ) + get-hex# to /nand-block + get-hex# to #image-eblocks + open-nand + \ #image-eblocks show-init + /nand-block /nand-page / to nand-pages/block +; + +: zblocks-end: ( -- ) + \ XXX could check that everything else is erased ... +; + +\ This could be a no-op ... +: data: ( "filename" -- ) + safe-parse-word fn-buf place + " ${DN}${PN}\${CN}${FN}" expand$ image-name-buf place +; + +: erase-all ( -- ) + \ XXX probably should set a flag saying that unspecified blocks are expected to be ff +; + +\ We simultaneously DMA one data buffer onto NAND while unpacking the +\ next block of data into another. The buffers exchange roles after +\ each block. +load-base value data-buffer + +: verify-hash ( hashname$ hash$ -- okay? ) + 2swap ( hash$ hashname$ ) + data-buffer /nand-block 2swap ( hash$ data$ hashname$ ) + 2dup " sha256" $= if ( hash$ hashname$ ) + 2drop sha-256 ( hash$ calc-hash$ ) + else ( hash$ hashname$ ) + crypto-hash ( hash$ calc-hash$ ) + then ( hash$ calc-hash$ ) + $= ( okay? ) +; + +: zblock: ( "eblock#" "comprlen" "hashname" "hash-of-128KiB" -- ) + get-hex# ( eblock# ) + + data-buffer over nand-pages/block * nand-pages/block " read-blocks" $call-nand ( eblock# #read ) + nand-pages/block <> ( eblock# err? ) + " Read failure" ?nand-abort ( eblock# ) + + get-hex# drop ( eblock# ) \ comprlen not needed for verify + safe-parse-word ( eblock# hashname$ ) + safe-parse-word hex-decode ( eblock# hashname$ [ hash$ ] err? ) + " Malformed hash string" ?nand-abort ( eblock# hashname$ hash$ ) + + verify-hash ( eblock# okay? ) +\ if show-written else show-bad then ( ) + swap .d if (cr else cr then +; + +previous definitions + +: fs-verify ( "devspec" -- ) + load-crypto abort" Can't load hash routines" + + false to secure-fsupdate? + safe-parse-word r/o open-file ( fd ) + abort" Can't open file" ( fd ) + + file @ ( fd fd' ) + over file ! linefeed line-delimiter c! ( fd fd' ) + file ! ( fd ) + + t( + also fs-verify-commands + ['] include-file catch dup if + nip .error + then + previous + show-done + close-nand-ihs + )t-hms +; +[then] + +\ dev screen d# 5000 to burnin-time dend +\ dev /audio patch 0 -3 mic-test dend + +\ visible +\ test-all +\ fs-verify u:\os30.zsp

1 0

r1405 - cpu/x86/pc/olpc/via dev/mmc/sdhci
by svn＠openfirmware.info 08 Oct '09

08 Oct '09

Author: wmb Date: 2009-10-08 12:46:12 +0200 (Thu, 08 Oct 2009) New Revision: 1405 Modified: cpu/x86/pc/olpc/via/fsupdate.fth cpu/x86/pc/olpc/via/fw.bth dev/mmc/sdhci/sdhci.fth Log: OLPC trac 9474 - buffer conflict was causing fs-update to write bad filesystem data. Modified: cpu/x86/pc/olpc/via/fsupdate.fth =================================================================== --- cpu/x86/pc/olpc/via/fsupdate.fth 2009-10-08 05:18:17 UTC (rev 1404) +++ cpu/x86/pc/olpc/via/fsupdate.fth 2009-10-08 10:46:12 UTC (rev 1405) @@ -124,8 +124,11 @@ open-nand #image-eblocks show-init get-inflater + \ Separate the two buffers by enough space for both the compressed + \ and uncompressed copies of the data. 4x is overkill, but there + \ is plenty of space at load-base load-base to dma-buffer - load-base /nand-block + to data-buffer + load-base /nand-block 4 * + to data-buffer /nand-block /nand-page / to nand-pages/block ; @@ -230,7 +233,8 @@ ( eblock# ) \ Asynchronous writes data-buffer over nand-pages/block * nand-pages/block " write-blocks-start" $call-nand ( eblock# ) -\ data-buffer over nand-pages/block * nand-pages/block " write-blocks" $call-nand drop ( eblock# ) +\ data-buffer over nand-pages/block * nand-pages/block " write-blocks" $call-nand ( eblock# #written ) +\ nand-pages/block <> " Write error" ?nand-abort ( eblock# ) swap-buffers ( eblock# ) dup to last-eblock# ( eblock# ) @@ -256,7 +260,7 @@ ['] include-file catch ?dup if ( x error ) nip .error then ( ) - previous + previous definitions show-done ?all-written close-nand-ihs Modified: cpu/x86/pc/olpc/via/fw.bth =================================================================== --- cpu/x86/pc/olpc/via/fw.bth 2009-10-08 05:18:17 UTC (rev 1404) +++ cpu/x86/pc/olpc/via/fw.bth 2009-10-08 10:46:12 UTC (rev 1405) @@ -480,6 +480,7 @@ [then] fload ${BP}/cpu/x86/pc/olpc/via/padlock.fth \ Via security engine fload ${BP}/cpu/x86/pc/olpc/via/fsupdate.fth +fload ${BP}/cpu/x86/pc/olpc/via/fsverify.fth devalias fsdisk int:0 fload ${BP}/ofw/inet/sntp.fth Modified: dev/mmc/sdhci/sdhci.fth =================================================================== --- dev/mmc/sdhci/sdhci.fth 2009-10-08 05:18:17 UTC (rev 1404) +++ dev/mmc/sdhci/sdhci.fth 2009-10-08 10:46:12 UTC (rev 1405) @@ -674,14 +674,21 @@ : wait-write-done ( -- ) writing? 0= if exit then ( limit ) - get-msecs d# 1000 + ( limit ) - begin get-status 9 rshift h# f and 7 = while ( limit ) + get-msecs d# 1000 + ( limit ) + begin get-status dup 9 rshift h# f and 7 = while ( limit status ) + drop ( limit ) dup get-msecs - 0< if ." SDHCI: wait-write-done timeout" cr abort then - repeat ( limit ) - drop ( ) + repeat ( limit status ) + nip ( status ) + dup h# fff9.8008 and if ( status ) + cr ." SD Error - status = " . cr + noop + else + drop + then false to writing? ;

1 0

r1404 - dev/olpc/dcon
by svn＠openfirmware.info 08 Oct '09

08 Oct '09

Author: wmb Date: 2009-10-08 07:18:17 +0200 (Thu, 08 Oct 2009) New Revision: 1404 Modified: dev/olpc/dcon/dcon.fth Log: OLPC - added mode@ to XO-1 DCON driver. Modified: dev/olpc/dcon/dcon.fth =================================================================== --- dev/olpc/dcon/dcon.fth 2009-10-08 05:15:10 UTC (rev 1403) +++ dev/olpc/dcon/dcon.fth 2009-10-08 05:18:17 UTC (rev 1404) @@ -107,6 +107,7 @@ ['] dcon! catch if 2drop smb-stop 1 ms smb-off 1 ms smb-on then ; +: mode@ ( -- mode ) 1 dcon@ ; : mode! ( mode -- ) 1 dcon! ; : hres! ( hres -- ) 2 dcon! ; \ def: h# 458 d# 1200 : htotal! ( htotal -- ) 3 dcon! ; \ def: h# 4e8 d# 1256

1 0

r1403 - cpu/x86/pc/olpc
by svn＠openfirmware.info 08 Oct '09

08 Oct '09

Author: wmb Date: 2009-10-08 07:15:10 +0200 (Thu, 08 Oct 2009) New Revision: 1403 Modified: cpu/x86/pc/olpc/devices.fth Log: OLPC - Added confirm-selftest to XO-1 build. Modified: cpu/x86/pc/olpc/devices.fth =================================================================== --- cpu/x86/pc/olpc/devices.fth 2009-10-08 05:13:30 UTC (rev 1402) +++ cpu/x86/pc/olpc/devices.fth 2009-10-08 05:15:10 UTC (rev 1403) @@ -301,6 +301,7 @@ dend ; +fload ${BP}/dev/olpc/confirm.fth \ Selftest interaction modalities fload ${BP}/cpu/x86/pc/olpc/mfgdata.fth \ Manufacturing data fload ${BP}/cpu/x86/pc/olpc/mfgtree.fth \ Manufacturing data in device tree fload ${BP}/cpu/x86/pc/olpc/kbdtype.fth \ Export keyboard type

1 0

r1402 - dev/olpc/dcon
by svn＠openfirmware.info 08 Oct '09

08 Oct '09

Author: wmb Date: 2009-10-08 07:13:30 +0200 (Thu, 08 Oct 2009) New Revision: 1402 Modified: dev/olpc/dcon/dcon.fth Log: OLPC - Added backlight-{on,off} to DCON driver for XO-1. Modified: dev/olpc/dcon/dcon.fth =================================================================== --- dev/olpc/dcon/dcon.fth 2009-10-07 18:56:31 UTC (rev 1401) +++ dev/olpc/dcon/dcon.fth 2009-10-08 05:13:30 UTC (rev 1402) @@ -121,6 +121,9 @@ : brighter ( -- ) bright@ 1+ h# f min bright! ; : dimmer ( -- ) bright@ 1- 0 max bright! ; +: backlight-off ( -- ) mode@ 8 invert and mode! ; +: backlight-on ( -- ) mode@ 8 or mode! ; + \ Colour swizzle, AA, no passthrough, backlight : set-color ( color? -- ) dup to color?

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware