[openfirmware] [commit] r2147 - cpu/arm/olpc/1.75
repository service
svn at openfirmware.info
Mon Jan 24 23:45:17 CET 2011
Author: wmb
Date: Mon Jan 24 23:45:17 2011
New Revision: 2147
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2147
Log:
OLPC XO-1.75 - RTC is now working on A2.
Modified:
cpu/arm/olpc/1.75/rtc.fth
Modified: cpu/arm/olpc/1.75/rtc.fth
==============================================================================
--- cpu/arm/olpc/1.75/rtc.fth Mon Jan 24 23:44:23 2011 (r2146)
+++ cpu/arm/olpc/1.75/rtc.fth Mon Jan 24 23:45:17 2011 (r2147)
@@ -1,18 +1,19 @@
0 0 " " " /" begin-package
" rtc" name
-: set-address ( -- )
[ifdef] cl2-a1
+: set-address ( -- )
d# 97 to smb-clock-gpio#
d# 98 to smb-data-gpio#
-[else]
- d# 53 to smb-clock-gpio#
- d# 54 to smb-data-gpio#
-[then]
h# d0 to smb-slave
;
: rtc@ ( reg# -- byte ) set-address smb-byte@ ;
: rtc! ( byte reg# -- ) set-address smb-byte! ;
+[else]
+: set-address ( -- ) h# d0 2 set-twsi-target ;
+: rtc@ ( reg# -- byte ) set-address twsi-b@ ;
+: rtc! ( byte reg# -- ) set-address twsi-b! ;
+[then]
headerless
@@ -30,7 +31,11 @@
: >bcd ( binary -- bcd ) d# 10 /mod 4 << + ;
: bcd-time&date ( -- s m h d m y century )
+[ifdef] cl2-a1
7 0 smb-read-n ( s m h dow d m y )
+[else]
+ 0 1 7 twsi-get ( s m h dow d m y )
+[then]
3 roll drop ( s m h dow d m y )
d# 20
;
More information about the openfirmware
mailing list