read_gps.bas

reading gps data from serial

GPSin VAR PORTB.2 
baudGPS CON 188 
digit var byte
digit1 VAR byte 
digit2 VAR byte
digit3 VAR byte
digit4 VAR byte
digit5 VAR byte 
digit6 VAR byte
digit7 VAR byte
digit8 VAR byte
digit9 VAR byte 
digit10 VAR byte
digit11 VAR byte 
digit12 VAR byte

LCDOUT $FE, 1, "deneme:"  
LCDOUT $FE, $c0, "deneme:"
pause 100
 
GPS: 
SerIn2 GPSin,baudGPS,[wait("$GPRMC"),skip 10,DEC1 digit,DEC1 digit1,DEC1 digit2,dec1 digit3,skip 1,dec1 digit4,dec1 digit5,skip 3,dec1 digit6,dec1 digit7,dec1 digit8,dec1 digit9,dec1 digit10,skip 1,dec1 digit11,dec1 digit12]
    pause 1000
LCDOut $FE, 1, "LAT:",DEC1 digit,DEC1 digit1,".",DEC1 digit2,dec1 digit3,".",DEC1 digit4,dec1 digit5,"N"
LCDOut $FE, $c0, "LON:",DEC1 digit6,DEC1 digit7,DEC1 digit8,".",dec1 digit9,DEC1 digit10,".",dec1 digit11,DEC1 digit12,"E"
    GOTO GPS
end