r631 - cpu/x86/pc/olpc

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]