All driver files are from the Egel Project, from chapter 30ff. This code example works with all added driver versions of the noForth I2C implementation:
\ Example with clock & 24C32 EEPROM
: {EEADDR   ( a +n -- )                     \ Address EEprom
    50 device!  {i2c-write  b-b bus! bus! ;
\ Read data b from 24C32 EEPROM byte-address addr. 
: EC@       ( addr -- b )
    2 {eeaddr i2c}  1 {i2c-read bus@ i2c} ;
\ Write data b to 24C32 EEPROM byte-address addr.
: EC!       ( b addr -- )
    3 {eeaddr  bus! i2c}  {poll} ;
Files: