Changeset 3115

Timestamp:

Aug 3, 2012 7:19:13 AM (10 months ago)

Author:

wmb

Message:

OLPC ARM - New convenience functions for setting bit fields in I/O registers.

File:

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

cpu/arm/mmp2/socregs.fth

@@ -15 +15 @@
 : io-set  ( mask offset -- )  dup io@  rot or  swap io!  ;
 : io-clr  ( mask offset -- )  dup io@  rot invert and  swap io!  ;
+: io-fld  ( clr-mask set-mask offset -- )  >r r@ io@  rot invert and  or  r> io!  ;
 
 : icu@  ( offset -- value )  +icu io@  ;
@@ -24 +25 @@
 : pmua@  ( offset -- l )  +pmua io@  ;
 : pmua!  ( l offset -- )  +pmua io!  ;
+
+: pmua-set  ( bits reg# -- )  +pmua io-set  ;
+: pmua-clr  ( bits reg# -- )  +pmua io-clr  ;
+: pmua-fld  ( clr set reg# -- )  +pmua io-fld  ;
 
 : apbc@  ( offset -- l )  +apbc io@  ;