read_gps lat lon saat tarih.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
saat var byte
saat1 var byte
saat2 var byte
saat3 var byte
saat4 var byte
saat5 var byte
tarih var byte
tarih1 var byte
tarih2 var byte
tarih3 var byte
tarih4 var byte
tarih5 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
IF PORTB.7=1 THEN    
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"
ELSE
SerIn2 GPSin,baudGPS,[wait("$GPRMC"),skip 1,DEC1 saat,DEC1 saat1,DEC1 saat2,dec1 saat3,dec1 saat4,dec1 saat5,skip 38,dec1 tarih,dec1 tarih1,dec1 tarih2,dec1 tarih3,dec1 tarih4,dec1 tarih5]
PAUSE 1000
LCDOut $FE, 1, "SAAT:",DEC1 saat,DEC1 saat1,":",DEC1 saat2,dec1 saat3,":",DEC1 saat4,dec1 saat5
LCDOut $FE, $c0, "TARIH:",DEC1 tarih,DEC1 tarih1,".",DEC1 tarih2,dec1 tarih3,".",DEC1 tarih4,dec1 tarih5
ENDIF   
    GOTO GPS
end