Changeset 2693

Timestamp:

Nov 20, 2011 11:23:51 PM (18 months ago)

Author:

quozl

Message:

OLPC XO-1.75 - community testers did not know how to use the accelerometer test, so add a test environment directive.

File:

• cpu/arm/olpc/1.75/accelerometer.fth (modified) (2 diffs)

cpu/arm/olpc/1.75/accelerometer.fth

@@ -13 +13 @@
 : ctl4!  ( b -- )  h# 23 acc-reg!  ;
 : accelerometer-on  ( -- )  h# 47 ctl1!  ;
-: accelerometer-off  ( -- )  h# 07 ctl1!  ;
+: accelerometer-off  ( -- )  h# 07 ctl1!  ;  \ should this be 00?
 : wext  ( b -- n )  dup h# 8000 and  if  h# ffff0000 or  then  ;
 : acceleration@  ( -- x y z )
@@ -137 +137 @@
    final-test?  if  accelerometer-off false  exit  then
 
+   ." Don't move!" cr
    lis-selftest
 ;