[openfirmware] [commit] r2252 - cpu/arm/olpc/1.75
repository service
svn at openfirmware.info
Tue Jun 7 22:41:07 CEST 2011
Author: wmb
Date: Tue Jun 7 22:41:07 2011
New Revision: 2252
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2252
Log:
OLPC XO-1.75 trac #10973 - Fixed RTC register scrambling.
Modified:
cpu/arm/olpc/1.75/rtc.fth
Modified: cpu/arm/olpc/1.75/rtc.fth
==============================================================================
--- cpu/arm/olpc/1.75/rtc.fth Tue Jun 7 09:39:17 2011 (r2251)
+++ cpu/arm/olpc/1.75/rtc.fth Tue Jun 7 22:41:07 2011 (r2252)
@@ -33,12 +33,12 @@
: bcd-time&date ( -- s m h d m y century )
set-address
[ifdef] cl2-a1
- 7 0 smb-read-n ( s m h dow d m y )
+ 9 0 smb-read-n ( s m h dow d m y control c )
[else]
- 0 1 7 twsi-get ( s m h dow d m y )
+ 0 1 9 twsi-get ( s m h dow d m y control c )
[then]
- 3 roll drop ( s m h dow d m y )
- d# 20
+ nip ( s m h dow d m y c )
+ 4 roll drop ( s m h d m y c )
;
: bcd! ( n offset -- ) swap >bcd swap rtc! ;
@@ -50,7 +50,7 @@
d# 100 * + \ Merge century with year
;
: set-time ( s m h d m y -- )
- d# 100 /mod h# 1a bcd! 9 bcd! 8 bcd! 7 bcd! 4 bcd! 2 bcd! 0 bcd!
+ d# 100 /mod h# 8 bcd! 6 bcd! 5 bcd! 4 bcd! 2 bcd! 1 bcd! 0 bcd!
;
: selftest ( -- flag )
More information about the openfirmware
mailing list