' Argent GPS GPS, Letter C
#picaxe 08m 
symbol TXOUT=1
symbol GPSIN=4
' IDs are $55,$56,$59,$5A,$63,$66,$69,$6A,$93,$96
symbol ID=$59 ' Letter C

main:
	setfreq m8
	output TXOUT
	input GPSIN
	high TXOUT	'on
	pause 2000
	low TXOUT	'off
	pause 20

again:

	gosub getlon
	if b1=44 then goto again		 ' 44=comma

        gosub sendit
	gosub getlat
	if b1=44 then goto again		 ' 44=comma
        gosub sendit
	pause 20000
	goto again

getlon:
	serin GPSIN,N2400,("$GPGGA"),b1,b1,b1,
	b1,b1,b1,b1,b1,b1,b1,b1,
	b1,b1,b2,b3,b4,b5,b6,b7,b8,b9,b0,b0
	b10=32
	return

getlat:
	serin GPSIN,N2400,("$GPGGA"),b1,b1,b1,b1,
	b1,b1,b1,b1,b1,b1,b1,b1,b1,b1,
	b1,b1,b1,b1,b1,b1,b1,b1,b1,b1,
	b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b0,b0

	return

sendit:
	setfreq m4
	high TXOUT 
	pause 1000
	serout TXOUT,T2400,($AA,$AA,$AA,$AA,$AA,$AA,$F0,$0F,$41,$DF,
	$41,$DF,ID,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10)
	pause 100
	low TXOUT
	setfreq m8
	return