Changeset 2640


Ignore:
Timestamp:
Oct 22, 2011, 7:20:01 AM (2 years ago)
Author:
wmb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/mmp2/mfpr.fth

    r2570 r2640  
    3737   mfpr-offsets swap wa+ w@ 
    3838   h# 01.e000 + 
    39 ;                                                                 
     39; 
    4040 
    4141: dump-mfprs  ( -- ) 
     
    4848: af@  ( gpio# -- function# )  gpio>mfpr io@  ; 
    4949: af!  ( function# gpio# -- )  gpio>mfpr io!  ; 
    50 : af,   ( n -- )  h# c0 + w,  ; 
    51 : +fast     ( n -- n' )  h# 1800 or  ; 
    52 : pull-up,  ( n -- )  h# c0c0 + w,  ; 
    53 : pull-dn,  ( n -- )  h# a0c0 + w,  ; 
     50 
     51: +edge-clr     ( n -- n' )  h#   40 or  ; 
     52: +medium       ( n -- n' )  h# 1000 or  ; 
     53: +fast         ( n -- n' )  h# 1800 or  ; 
     54: +twsi         ( n -- n' )  h#  400 or  ; 
     55: +pull-up      ( n -- n' )  h# c000 or  ; 
     56: +pull-dn      ( n -- n' )  h# a000 or  ; 
     57: +pull-up-alt  ( n -- n' )  h# 4000 or  ; 
     58: +pull-dn-alt  ( n -- n' )  h# 2000 or  ; 
     59 
     60\ We always start with edge detection off; it can be turned on later as needed 
     61: af,   ( n -- )  +edge-clr w,  ; 
     62 
     63: sleep-  ( n -- n' )  h# 0200 or  ; 
     64: sleep0  ( n -- n' )  h# 0000 or  ; 
     65: sleep1  ( n -- n' )  h# 0100 or  ; 
     66: sleepi  ( n -- n' )  h# 0080 or  ; 
Note: See TracChangeset for help on using the changeset viewer.