Changeset 3103

Timestamp:

Jul 31, 2012 7:38:25 AM (11 months ago)

Author:

wmb

Message:

OLPC ARM - SSP SPI driver - sample data from EC on falling edge.

File:

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

cpu/arm/mmp2/sspspi.fth

@@ -9 +9 @@
 h# 035000 value ssp-base  \ SSP1
 : ssp-sscr0  ( -- adr )  ssp-base  ;
-: ssp-sscr1  ( -- adr )  ssp-base  la1+  ;
-: ssp-sssr   ( -- adr )  ssp-base  2 la+  ;
-: ssp-ssdr   ( -- adr )  ssp-base  4 la+  ;
+: ssp-sscr1  ( -- adr )  ssp-base  4 +  ;
+: ssp-sssr   ( -- adr )  ssp-base  8 +  ;
+: ssp-ssdr   ( -- adr )  ssp-base  h# 10 +  ;
+: ssp-sspsp  ( -- adr )  ssp-base  h# 2c +  ;
 
 : ssp-spi-start  ( -- )
@@ -18 +19 @@
    ssp-sscr1 io@ 0=  if  exit  then
 
+   h# 01 ssp-sspsp io!
    h# 07 ssp-sscr0 io!
    0 ssp-sscr1 io!