\ 2006-06-28 EW adv_02.fs
\
\ i2c Bus am R8C
\ P1.0 -- SCL
\ P1.1 -- SDA
\ am Bus:
\ PCF8574 (8bit IO), 7-bit Adresse: $20

rom

include SMBus.fs

$40   Constant i2c_addr_portexpander

\ vom portexpander lesen
: <portexpander ( -- x )
    $ff                     \ "ControlByte"
    1 i2c_addr_portexpander NB>i2c
    1 i2c_addr_portexpander NB<i2c
;

ram