' Garmin eTrex GPS, Letter B
' Copyright 2009 Leigh L. Klotz, Jr.
' See file MIT-LICENSE.txt

#picaxe 08m

symbol TXOUT=1
symbol GPSIN=4
' IDs are $55,$56,$59,$5A,$63,$66,$69,$6A,$93,$96
symbol ID=$56

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,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,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