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

    outa[7] := 1
    i2cObject.ReadPage(28, $A0, EAddr, PAddr, 12)
    Length := Word[LoadBase+$A]
    i2cObject.ReadPage(28, $A0, EAddr, PAddr, Length)

    ' Fixup
    Repeat i from 0 to 4
      Word[LoadBase+6+i<<1] += LoadBase

    Cognew($F004, Loadbase+4)
    repeat
      outa[7] := cnt[23]
      