read_gps lat lon saat tarih.asm

reading gps data from serial

; PicBasic Pro Compiler 2.44, (c) 1998, 2003 microEngineering Labs, Inc. All Rights Reserved. 
PM_USED			EQU	1

	INCLUDE	"16F84A.INC"

RAM_START       		EQU	0000Ch
RAM_END         		EQU	0004Fh
RAM_BANKS       		EQU	00001h
BANK0_START     		EQU	0000Ch
BANK0_END       		EQU	0004Fh
EEPROM_START    		EQU	02100h
EEPROM_END      		EQU	0213Fh

R0              		EQU	RAM_START + 000h
R1              		EQU	RAM_START + 002h
R2              		EQU	RAM_START + 004h
R3              		EQU	RAM_START + 006h
R4              		EQU	RAM_START + 008h
R5              		EQU	RAM_START + 00Ah
R6              		EQU	RAM_START + 00Ch
R7              		EQU	RAM_START + 00Eh
R8              		EQU	RAM_START + 010h
FLAGS           		EQU	RAM_START + 012h
GOP             		EQU	RAM_START + 013h
RM1             		EQU	RAM_START + 014h
RM2             		EQU	RAM_START + 015h
RR1             		EQU	RAM_START + 016h
RR2             		EQU	RAM_START + 017h
_digit           		EQU	RAM_START + 018h
_digit1          		EQU	RAM_START + 019h
_digit10         		EQU	RAM_START + 01Ah
_digit11         		EQU	RAM_START + 01Bh
_digit12         		EQU	RAM_START + 01Ch
_digit2          		EQU	RAM_START + 01Dh
_digit3          		EQU	RAM_START + 01Eh
_digit4          		EQU	RAM_START + 01Fh
_digit5          		EQU	RAM_START + 020h
_digit6          		EQU	RAM_START + 021h
_digit7          		EQU	RAM_START + 022h
_digit8          		EQU	RAM_START + 023h
_digit9          		EQU	RAM_START + 024h
_saat            		EQU	RAM_START + 025h
_saat1           		EQU	RAM_START + 026h
_saat2           		EQU	RAM_START + 027h
_saat3           		EQU	RAM_START + 028h
_saat4           		EQU	RAM_START + 029h
_saat5           		EQU	RAM_START + 02Ah
_tarih           		EQU	RAM_START + 02Bh
_tarih1          		EQU	RAM_START + 02Ch
_tarih2          		EQU	RAM_START + 02Dh
_tarih3          		EQU	RAM_START + 02Eh
_tarih4          		EQU	RAM_START + 02Fh
_tarih5          		EQU	RAM_START + 030h
_PORTL           		EQU	 PORTB
_PORTH           		EQU	 PORTA
_TRISL           		EQU	 TRISB
_TRISH           		EQU	 TRISA
#define _GPSin           	_PORTB_2
#define _PORTB_2         	 PORTB, 002h
#define _PORTB_7         	 PORTB, 007h

; Constants.
_baudGPS         		EQU	000BCh
	INCLUDE	"READ_G~2.MAC"
	INCLUDE	"PBPPIC14.LIB"

	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	064h
	LCDOUT?C	065h
	LCDOUT?C	06Eh
	LCDOUT?C	065h
	LCDOUT?C	06Dh
	LCDOUT?C	065h
	LCDOUT?C	03Ah
	LCDOUT?C	0FEh
	LCDOUT?C	0C0h
	LCDOUT?C	064h
	LCDOUT?C	065h
	LCDOUT?C	06Eh
	LCDOUT?C	065h
	LCDOUT?C	06Dh
	LCDOUT?C	065h
	LCDOUT?C	03Ah
	PAUSE?C	064h

	LABEL?L	_GPS	
	SERIN2DPIN?T	_GPSin
	SERIN2MODE?C	_baudGPS

	LABEL?L	L00001	
	SERIN2WAIT?CL	024h, L00001
	SERIN2WAIT?CL	047h, L00001
	SERIN2WAIT?CL	050h, L00001
	SERIN2WAIT?CL	052h, L00001
	SERIN2WAIT?CL	04Dh, L00001
	SERIN2WAIT?CL	043h, L00001
	SERIN2COUNT?C	00Ah
	SERIN2SKIP?	
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit1
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit2
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit3
	SERIN2COUNT?C	001h
	SERIN2SKIP?	
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit4
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit5
	SERIN2COUNT?C	003h
	SERIN2SKIP?	
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit6
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit7
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit8
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit9
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit10
	SERIN2COUNT?C	001h
	SERIN2SKIP?	
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit11
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_digit12
	PAUSE?C	003E8h
	CMPNE?TCL	_PORTB_7, 001h, L00003
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	04Ch
	LCDOUT?C	041h
	LCDOUT?C	054h
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit1
	LCDOUTDEC?	
	LCDOUT?C	02Eh
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit2
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit3
	LCDOUTDEC?	
	LCDOUT?C	02Eh
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit4
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit5
	LCDOUTDEC?	
	LCDOUT?C	04Eh
	LCDOUT?C	0FEh
	LCDOUT?C	0C0h
	LCDOUT?C	04Ch
	LCDOUT?C	04Fh
	LCDOUT?C	04Eh
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit6
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit7
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit8
	LCDOUTDEC?	
	LCDOUT?C	02Eh
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit9
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit10
	LCDOUTDEC?	
	LCDOUT?C	02Eh
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit11
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_digit12
	LCDOUTDEC?	
	LCDOUT?C	045h
	GOTO?L	L00004
	LABEL?L	L00003	
	SERIN2DPIN?T	_GPSin
	SERIN2MODE?C	_baudGPS

	LABEL?L	L00002	
	SERIN2WAIT?CL	024h, L00002
	SERIN2WAIT?CL	047h, L00002
	SERIN2WAIT?CL	050h, L00002
	SERIN2WAIT?CL	052h, L00002
	SERIN2WAIT?CL	04Dh, L00002
	SERIN2WAIT?CL	043h, L00002
	SERIN2COUNT?C	001h
	SERIN2SKIP?	
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_saat
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_saat1
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_saat2
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_saat3
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_saat4
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_saat5
	SERIN2COUNT?C	026h
	SERIN2SKIP?	
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_tarih
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_tarih1
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_tarih2
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_tarih3
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_tarih4
	SERIN2COUNT?C	001h
	SERIN2DEC?B	_tarih5
	PAUSE?C	003E8h
	LCDOUT?C	0FEh
	LCDOUT?C	001h
	LCDOUT?C	053h
	LCDOUT?C	041h
	LCDOUT?C	041h
	LCDOUT?C	054h
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_saat
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_saat1
	LCDOUTDEC?	
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_saat2
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_saat3
	LCDOUTDEC?	
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_saat4
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_saat5
	LCDOUTDEC?	
	LCDOUT?C	0FEh
	LCDOUT?C	0C0h
	LCDOUT?C	054h
	LCDOUT?C	041h
	LCDOUT?C	052h
	LCDOUT?C	049h
	LCDOUT?C	048h
	LCDOUT?C	03Ah
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_tarih
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_tarih1
	LCDOUTDEC?	
	LCDOUT?C	02Eh
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_tarih2
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_tarih3
	LCDOUTDEC?	
	LCDOUT?C	02Eh
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_tarih4
	LCDOUTDEC?	
	LCDOUTCOUNT?C	001h
	LCDOUTNUM?B	_tarih5
	LCDOUTDEC?	
	LABEL?L	L00004	
	GOTO?L	_GPS
	END?	

	END