#picaxe 08m
symbol TXOUT=1
symbol GPSIN=4
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