Author: wmb Date: 2007-09-20 00:21:09 +0200 (Thu, 20 Sep 2007) New Revision: 631
Modified: cpu/x86/pc/olpc/devices.fth Log: OLPC - set the EC date from the RTC at startup, per Quanta's request. They need the date for long-term battery-management purposes.
Modified: cpu/x86/pc/olpc/devices.fth =================================================================== --- cpu/x86/pc/olpc/devices.fth 2007-09-19 22:19:21 UTC (rev 630) +++ cpu/x86/pc/olpc/devices.fth 2007-09-19 22:21:09 UTC (rev 631) @@ -117,34 +117,12 @@ devalias n nand devalias sd /sd/disk
- dev /8042 [ifndef] lx-devel patch false ctlr-selftest open [then] device-end
-dev /8042/keyboard -0 value waiting-up? -: olpc-check-abort ( scan-code -- abort? ) \ Square pressed? - last-scan over to last-scan ( scan-code old-scan-code ) - h# e0 <> if drop false exit then ( scan-code ) - - check-abort? 0= if drop false exit then ( scan-code ) - - dup h# 7f and h# 5d <> if drop false exit then ( scan-code ) - - h# 80 and if \ Up - false to waiting-up? - false ( abort? ) - else - waiting-up? 0= ( abort? ) - true to waiting-up? - then -; -patch olpc-check-abort check-abort get-scan -dend - 0 0 " i70" " /isa" begin-package \ Real-time clock node fload ${BP}/dev/ds1385r.fth 8 encode-int 0 encode-int encode+ " interrupts" property @@ -272,6 +250,10 @@ sci-quiet ;
+stand-init: Date to EC + time&date d# 2000 - ec-date! 3drop +; + stand-init: Wireless reset [ifdef] lx-devel exit [then]