[openfirmware] [commit] r2656 - cpu/arm/olpc/1.75

[repository service]

Author: quozl
Date: Thu Oct 27 03:53:58 2011
New Revision: 2656
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2656

Log:
OLPC XO-1.75 - accelerometer ADC test words

Modified:
   cpu/arm/olpc/1.75/accelerometer.fth

Modified: cpu/arm/olpc/1.75/accelerometer.fth
==============================================================================
--- cpu/arm/olpc/1.75/accelerometer.fth	Wed Oct 26 08:40:16 2011	(r2655)
+++ cpu/arm/olpc/1.75/accelerometer.fth	Thu Oct 27 03:53:58 2011	(r2656)
@@ -16,15 +16,24 @@
 
 0 [if]
 
+select /accelerometer
+
 : temperature-on  ( -- )  h# c0 h# 1f acc-reg!  ;
+: bdu  ( -- )  h# 23 acc-reg@  h# 80 or  h# 23 acc-reg!  ;
 : adc1@  ( -- )  h# 08 acc-reg@ h# 09 acc-reg@ bwjoin wext 5 >>a  ;
 : adc2@  ( -- )  h# 0a acc-reg@ h# 0b acc-reg@ bwjoin wext 5 >>a  ;
-: adc3@  ( -- )  h# 0c acc-reg@ h# 0d acc-reg@ bwjoin wext 5 >>a  ;
+
+: wait-adc3  begin  h# 07 acc-reg@ h# 04 and until  ;
+: adc3@  ( -- l h )
+    h# 0c acc-reg@ h# 0d acc-reg@ bwjoin wext 5 >>a
+;
+: 1hz  ( -- )  h# 20 acc-reg@  h# 0f and  h# 10 or  h# 20 acc-reg!  ;
 
 : .xr  ( n -- )  push-hex      2 .r  pop-base  space ;
 : .dr  ( n -- )  push-decimal  3 .r  pop-base  space ;
 : .br  ( n -- )
    push-binary  0  <# # # # # [char] . hold # # # # #>  type  pop-base  space ;
+: .status-aux  h# 07 acc-reg@  .br  ;
 
 : .reg  ( register -- value )
    space