'***********************************************************
'**                                                       **
'**   CMPS03 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 
Compass		Con		0xC0	' Compass I2C Address
CmdReg		Con		0		' Sonar Command register
BearingReg	Con		2		' Sonar 1st Range register

Bearing		Var	Word		' 16 bit variable for Bearing

Main
	i2cin	SDA, SCL, Compass, BearingReg, [Bearing.HighByte, Bearing.LowByte]
	Serout	S_OUT, i9600, ["Compass Bearing ", DEC Bearing/10, " Degrees",  13] ' Use terminal window
goto	main