Changeset 2640

Timestamp:

Oct 22, 2011 7:20:01 AM (19 months ago)

Author:

wmb

Message:

OLPC XO-1.75 - synchronized mfpr.fth with the version in CForth. Should be no functional change.

File:

• cpu/arm/mmp2/mfpr.fth (modified) (2 diffs)

cpu/arm/mmp2/mfpr.fth

@@ -37 +37 @@
    mfpr-offsets swap wa+ w@
    h# 01.e000 +
-;                                                                
+;
 
 : dump-mfprs  ( -- )
@@ -48 +48 @@
 : af@  ( gpio# -- function# )  gpio>mfpr io@  ;
 : af!  ( function# gpio# -- )  gpio>mfpr io!  ;
-: af,   ( n -- )  h# c0 + w,  ;
-: +fast     ( n -- n' )  h# 1800 or  ;
-: pull-up,  ( n -- )  h# c0c0 + w,  ;
-: pull-dn,  ( n -- )  h# a0c0 + w,  ;
+
+: +edge-clr     ( n -- n' )  h#   40 or  ;
+: +medium       ( n -- n' )  h# 1000 or  ;
+: +fast         ( n -- n' )  h# 1800 or  ;
+: +twsi         ( n -- n' )  h#  400 or  ;
+: +pull-up      ( n -- n' )  h# c000 or  ;
+: +pull-dn      ( n -- n' )  h# a000 or  ;
+: +pull-up-alt  ( n -- n' )  h# 4000 or  ;
+: +pull-dn-alt  ( n -- n' )  h# 2000 or  ;
+
+\ We always start with edge detection off; it can be turned on later as needed
+: af,   ( n -- )  +edge-clr w,  ;
+
+: sleep-  ( n -- n' )  h# 0200 or  ;
+: sleep0  ( n -- n' )  h# 0000 or  ;
+: sleep1  ( n -- n' )  h# 0100 or  ;
+: sleepi  ( n -- n' )  h# 0080 or  ;