'***********************************************************
'**                                                       **
'**    SP03 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 - October 2002           **
'**                                                       **
'***********************************************************


SDA			Con		P8		' Define Data pin
SCL			Con		P9		' Define Clk pin 
SP03		Con		0xC4	' SP03 I2C Address
CmdReg		Con		0		' SP03 Command register
VerReg		Con		1		' SP03 Version register
LDBUF		Con		0x00	' NOP command is Load buffer
SPKBUF		Con		0x40	' Speak buffer Command

Stat		Var	Byte		' Status byte from SP03

Main
	i2cout	SDA, SCL, SP03, CmdReg, [21]
	GoSub   Wait4Shutup
	
	i2cout	SDA, SCL, SP03, CmdReg, [LDBUF, 0, 5, 3, "Hello Gerry, have a cuppa", 0]	
	i2cout	SDA, SCL, SP03, CmdReg, [SPKBUF]
	GoSub   Wait4Shutup

	i2cout	SDA, SCL, SP03, CmdReg, [LDBUF, 0, 5, 3, "Messages can also b"]	
	i2cout	SDA, SCL, SP03, CmdReg, [LDBUF, "e split on more than one line", 0]	
	i2cout	SDA, SCL, SP03, CmdReg, [SPKBUF]
	GoSub   Wait4Shutup

Forever: goto Forever
End


Wait4Shutup:
	i2cin	SDA, SCL, SP03, CmdReg, [Stat]
	if stat>0 then wait4shutup
	return