device 16f876
DEFINE OSC 4
DEFINE LCD_BITS 4 "define display de 4 bits
DEFINE LCD_LINES 2 "cantidad de lineas del display
DEFINE LCD_DREG PORTB "portb control del display
DEFINE LCD_DBIT 0 "comienzo de bit del puerto
DEFINE LCD_RSREG PORTB "linea select
DEFINE LCD_RSBIT 4 "bit de comando de select
DEFINE LCD_EREG PORTB "puerto de habilitacion
DEFINE LCD_EBIT 5 "bit de habilitacion
BAUDGPS VAR BYTE
GPSin VAR PORTA.2 "entrada de datos
GPSout VAR PORTC.6 "salida hacia la PC
baudGPS = 188 "4800,8N1 CON MAX232
"baudGPS CON 16572 "4800,8N1 sin MAX232
" $GPRMC,HHMMSS.SSS,A,DDMM.MMMM,N,DDDMM.MMMM,W,????,DDD.DD,DDMMYY,W,CCC
H0 VAR BYTE "UTC tIME
H1 VAR BYTE
M2 VAR BYTE
M3 VAR BYTE
S4 VAR BYTE
S5 VAR BYTE
pUNTO1 VAR BYTE
SD6 VAR BYTE
SD7 VAR BYTE
SD8 VAR BYTE
STAT VAR BYTE "STADO DE LA TRAMA
DLAT0 VAR BYTE "LATITUD
DLAT1 VAR BYTE
MLAT2 VAR BYTE
MLAT3 VAR BYTE
PUNTO2 VAR BYTE
MDLAT4 VAR BYTE
MDLAT5 VAR BYTE
MDLAT6 VAR BYTE
MDLAT7 VAR BYTE
ORLAT VAR BYTE "N/S INDICADOR
DLON0 VAR BYTE "LONGITUD
DLON1 VAR BYTE
DLON2 VAR BYTE
MLON3 VAR BYTE
MLON4 VAR BYTE
PUNTO3 VAR BYTE
MDLON5 VAR BYTE
MDLON6 VAR BYTE
MDLON7 VAR BYTE
MDLON8 VAR BYTE
ORLON VAR BYTE "E/W INDICADOR
VEL0 VAR BYTE "VEOCIDAD
VEL1 VAR BYTE
VEL2 VAR BYTE
VEL3 VAR BYTE
COG0 VAR BYTE "CURSO DIRECCIÓN
COG1 VAR BYTE
COG2 VAR BYTE
PUNTO4 VAR BYTE
COG3 VAR BYTE
COG4 VAR BYTE
DIA0 VAR BYTE "FECHA GPS
DIA1 VAR BYTE
MES0 VAR BYTE
MES1 VAR BYTE
YEAR0 VAR BYTE
YEAR1 VAR BYTE
MV VAR BYTE "VARIACIÓN MAGNETICA
CK0 VAR BYTE "CHECKSUM DE LA TRAMA
CK1 VAR BYTE
CK2 VAR BYTE
GPS:
Serin2 portb.7,baudGPS,3000,errr,_
[ wait("$GPRMC,",H0,H1,M2,M3,S4,S5,punto1,SD6,SD7,SD8,STAT,DLAT0,DLAT1,_
MLAT2,MLAT3,PUNTO2,MDLAT4,MDLAT5,MDLAT6,MDLAT7,ORLAT,DLON0,DLON1,DLON2,_
MLON3,MLON4,PUNTO3,MDLON5,MDLON6,MDLON7,MDLON8,ORLON,VEL0,VEL1,VEL2,VEL3,_
COG0,COG1,COG2,PUNTO4,COG3,COG4,DIA0,DIA1,MES0,MES1,YEAR0,YEAR1,MV,CK0,CK1,CK2)]
"Muestra las lecturas en un LCD 2x16 conectado en 4 bits al
"portB
lcdout $fe,1,"$GPRMC,",H0,H1,M2,M3,S4,S5,punto1,SD6,SD7,SD8,STAT,DLAT0,DLAT1,_
MLAT2,MLAT3,PUNTO2,MDLAT4,MDLAT5,MDLAT6,MDLAT7,ORLAT,DLON0,DLON1,DLON2,_
MLON3,MLON4,PUNTO3,MDLON5,MDLON6,MDLON7,MDLON8,ORLON,VEL0,VEL1,VEL2,VEL3,_
COG0,COG1,COG2,PUNTO4,COG3,COG4,DIA0,DIA1,MES0,MES1,YEAR0,YEAR1,MV,CK0,CK1,CK2"
goto GPS
ERRR:
goto GPS
Algo que comentar??? al menos como teoría???
tengo una dudilla!!!!
wait("$GPRMC,",H0
el tema de las comas.....
tenemos la primera coma dentro de las comillas
"$GPRMC,"
es corecto el poner otra vez la coma fuera de las comillas
para enlazar con H0???
no se porque sale el simbolo / si yo no lo he escrito!!!!!
Bueno, ya sabeis.... omitie este simbolo!!!