Author: wmb Date: Thu Jul 14 08:14:19 2011 New Revision: 2362 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2362
Log: OLPC XO-1.75 - RTC driver - force the Clock Halt bit off if necessary, and verify that it worked.
Modified: cpu/arm/olpc/1.75/rtc.fth
Modified: cpu/arm/olpc/1.75/rtc.fth ============================================================================== --- cpu/arm/olpc/1.75/rtc.fth Thu Jul 14 07:39:10 2011 (r2361) +++ cpu/arm/olpc/1.75/rtc.fth Thu Jul 14 08:14:19 2011 (r2362) @@ -1,3 +1,5 @@ +purpose: Driver for external IDT1338 RTC chip on XO-1.75 + 0 0 " " " /" begin-package " rtc" name
@@ -20,8 +22,22 @@ headerless
headers -: open ( -- true ) - true +: open ( -- okay ) + 0 ['] rtc@ catch if ( x ) + drop false exit ( -- false ) + then ( value ) + + \ Ensure that the Clock Halt bit is off + dup h# 80 and if ( value ) + \ Turn off Clock Halt + h# 7f and 0 rtc! ( ) + \ Verify that it went off + 0 rtc@ h# 80 and ( error? ) + dup if ." RTC Clock Halt is stuck on" cr then ( error? ) + 0= ( okay? ) + else ( value ) + drop true ( true ) + then ( okay? ) ; : close ( -- ) ;