CON

  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000
  LoadBase = $400

OBJ
  i2cObject     : "basic_i2c_driver"

PUB Go | EAddr, PAddr, Length, i
    dira[7] := 1
    i2cObject.Initialize(28)
    PAddr := LoadBase
    EAddr := 0

    Repeat 12
     Byte[PAddr++] := i2cObject.ReadByte(28, $A0, EAddr++)                                  
    Length := Word[LoadBase+$A]

    Repeat
     Byte[PAddr++] := i2cObject.ReadByte(28, $A0, EAddr++)                                  
     outa[7] := cnt[22]
    Until PAddr > (Length+LoadBase)

    ' Fixup
    Repeat i from 0 to 4
      Word[LoadBase+6+i<<1] += LoadBase
    Cognew($F004, Loadbase+4)
    repeat
     outa[7] := cnt[24]
      