'***********************************************************
'**                                                       **
'**   SRF08 Demonstration Software for the Basic Atom     **
'**                                                       **
'**             Copyright 2002 - Devantech Ltd            **
'**     Commercial use of this software is prohibited     **
'**     Private and educational use only is permitted     **
'**                                                       **
'**         Written by Gerald Coe - April 2002            **
'**                                                       **
'***********************************************************


SDA			Con		P8		' Define Data pin
SCL			Con		P9		' Define Clk pin 
SRF08a		Con		0xE0	' 1st Sonar I2C Address
SRF08b		Con		0xE2	' 2nd Sonar I2C Address
CmdReg		Con		0		' Sonar Command register
LightReg	Con		1		' Sonar Light sensor register
RangeReg	Con		2		' Sonar 1st Range register

Light		Var	Byte		' Light sensor
Range		Var	Word		' 16 bit variable for Range

Main
	i2cout	SDA, SCL, SRF08a, CmdReg, [81]
	pause	66
	i2cin	SDA, SCL, SRF08a, LightReg, [Light, Range.HighByte, Range.LowByte]
	Serout	S_OUT, i9600, ["Light1 = 0x", HEX Light, ",  Range1 = ", DEC Range, " cm,  "] ' Use terminal window

	i2cout	SDA, SCL, SRF08b, CmdReg, [81]
	pause	66
	i2cin	SDA, SCL, SRF08b, LightReg, [Light, Range.HighByte, Range.LowByte]
	Serout	S_OUT, i9600, ["Light2 = 0x", HEX Light, ",  Range2 = ", DEC Range, " cm",  13] ' Use terminal window
goto	main