Changeset 3457


Ignore:
Timestamp:
Nov 24, 2012, 1:34:03 AM (17 months ago)
Author:
wmb
Message:

XO-4 - Additional SMBUS functions for HDMI EDID reading.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/smbus.fth

    r3197 r3457  
    129129; 
    130130 
     131: smb-read  ( adr len reg# -- ) 
     132   over  0=  if  3drop exit  then   ( adr len reg# ) 
     133   smb-start              ( adr len reg# ) 
     134   0 smb-addr             ( adr len reg# ) 
     135   smb-byte               ( adr len ) 
     136   smb-stop smb-start   \ SCCB bus needs a stop and a start for the second phase 
     137   1 smb-addr             ( adr len ) 
     138   2dup  bounds  ?do      ( adr len ) 
     139      0 smb-byte-in i c!  ( adr len ) 
     140   loop                   ( adr len ) 
     141   1 smb-byte-in  -rot    ( byte adr len ) 
     142   1- + c!                ( ) 
     143   smb-stop               ( ) 
     144;    
     145 
     146: smb-write  ( adr len reg# -- ) 
     147   smb-start               ( adr len reg# ) 
     148   0 smb-addr              ( adr len reg# ) 
     149   smb-byte                ( adr len ) 
     150   bounds  ?do  i c@ smb-byte  loop  ( ) 
     151   smb-stop                ( ) 
     152; 
     153 
    131154: smb-word!  ( word reg# -- ) 
    132155   smb-start 
Note: See TracChangeset for help on using the changeset viewer.