'Example program to control SRF08

func main()
  const sda 0
  const scl 1
  const SRF08_1 $E0    ' default SRF08 I2C bus address
  const Ver_reg 0      ' SRF08 register addresses
  const Light_reg 1    ' SRF08 Light sensor register
  const Range_reg 2    ' SRF08 1st Range register
  dim  Ver, Light, Range 

loop:
  I2cout(sda,scl,$E0,0,81)
  Ver = I2cin(sda,scl,SRF08_1, Ver_reg)
  Light = I2cin(sda,scl,SRF08_1, Light_reg)
  Range.byte(1) = I2cin(sda,scl,SRF08_1,Range_reg)    ' high byte
  Range.byte(0) = I2cin(sda,scl,SRF08_1,Range_reg+1)  ' low byte

  print "Version ", Ver, ", Light ", Light, ", Range ",Range,"cm"
  goto loop

endfunc

include \lib\DiosI2c.lib