[OpenBIOS] r631 - cpu/x86/pc/olpc
svn at openbios.org
svn at openbios.org
Thu Sep 20 00:21:09 CEST 2007
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]
More information about the OpenBIOS
mailing list