send_gps.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
_PORTL           		EQU	 PORTB
_PORTH           		EQU	 PORTA
_TRISL           		EQU	 TRISB
_TRISH           		EQU	 TRISA
#define _GPSout          	_PORTB_2
#define _PORTB_2         	 PORTB, 002h

; Constants.
_baudGPS         		EQU	000BCh
	INCLUDE	"SEND_GPS.MAC"
	INCLUDE	"PBPPIC14.LIB"


	LABEL?L	_GPS	
	SEROUT2DPIN?T	_GPSout
	SEROUT2MODE?C	_baudGPS
	SEROUT2PACE?C	000h
	SEROUT2?C	024h
	SEROUT2?C	047h
	SEROUT2?C	050h
	SEROUT2?C	052h
	SEROUT2?C	04Dh
	SEROUT2?C	043h
	SEROUT2?C	02Ch
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	033h
	SEROUT2?C	02Ch
	SEROUT2?C	041h
	SEROUT2?C	02Ch
	SEROUT2?C	033h
	SEROUT2?C	035h
	SEROUT2?C	032h
	SEROUT2?C	032h
	SEROUT2?C	02Eh
	SEROUT2?C	036h
	SEROUT2?C	033h
	SEROUT2?C	031h
	SEROUT2?C	02Ch
	SEROUT2?C	04Eh
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	033h
	SEROUT2?C	030h
	SEROUT2?C	032h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	036h
	SEROUT2?C	033h
	SEROUT2?C	037h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	034h
	SEROUT2?C	02Eh
	SEROUT2?C	039h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	031h
	SEROUT2?C	031h
	SEROUT2?C	030h
	SEROUT2?C	036h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	02Eh
	SEROUT2?C	030h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ah
	SEROUT2?C	037h
	SEROUT2?C	032h
	SEROUT2?C	00Ah
	SEROUT2?C	00Dh
	PAUSE?C	003E8h
	SEROUT2DPIN?T	_GPSout
	SEROUT2MODE?C	_baudGPS
	SEROUT2PACE?C	000h
	SEROUT2?C	024h
	SEROUT2?C	047h
	SEROUT2?C	050h
	SEROUT2?C	052h
	SEROUT2?C	04Dh
	SEROUT2?C	043h
	SEROUT2?C	02Ch
	SEROUT2?C	031h
	SEROUT2?C	034h
	SEROUT2?C	030h
	SEROUT2?C	032h
	SEROUT2?C	033h
	SEROUT2?C	034h
	SEROUT2?C	02Ch
	SEROUT2?C	041h
	SEROUT2?C	02Ch
	SEROUT2?C	033h
	SEROUT2?C	035h
	SEROUT2?C	038h
	SEROUT2?C	038h
	SEROUT2?C	02Eh
	SEROUT2?C	037h
	SEROUT2?C	035h
	SEROUT2?C	031h
	SEROUT2?C	02Ch
	SEROUT2?C	04Eh
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	032h
	SEROUT2?C	039h
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	02Eh
	SEROUT2?C	035h
	SEROUT2?C	035h
	SEROUT2?C	037h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	034h
	SEROUT2?C	02Eh
	SEROUT2?C	039h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	031h
	SEROUT2?C	031h
	SEROUT2?C	030h
	SEROUT2?C	036h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	02Eh
	SEROUT2?C	030h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ah
	SEROUT2?C	037h
	SEROUT2?C	032h
	SEROUT2?C	00Ah
	SEROUT2?C	00Dh
	PAUSE?C	003E8h
	SEROUT2DPIN?T	_GPSout
	SEROUT2MODE?C	_baudGPS
	SEROUT2PACE?C	000h
	SEROUT2?C	024h
	SEROUT2?C	047h
	SEROUT2?C	050h
	SEROUT2?C	052h
	SEROUT2?C	04Dh
	SEROUT2?C	043h
	SEROUT2?C	02Ch
	SEROUT2?C	031h
	SEROUT2?C	035h
	SEROUT2?C	030h
	SEROUT2?C	033h
	SEROUT2?C	033h
	SEROUT2?C	035h
	SEROUT2?C	02Ch
	SEROUT2?C	041h
	SEROUT2?C	02Ch
	SEROUT2?C	033h
	SEROUT2?C	035h
	SEROUT2?C	036h
	SEROUT2?C	036h
	SEROUT2?C	02Eh
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	02Ch
	SEROUT2?C	04Eh
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	032h
	SEROUT2?C	037h
	SEROUT2?C	036h
	SEROUT2?C	031h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	034h
	SEROUT2?C	037h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	034h
	SEROUT2?C	02Eh
	SEROUT2?C	039h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	031h
	SEROUT2?C	031h
	SEROUT2?C	030h
	SEROUT2?C	036h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	02Eh
	SEROUT2?C	030h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ah
	SEROUT2?C	037h
	SEROUT2?C	032h
	SEROUT2?C	00Ah
	SEROUT2?C	00Dh
	PAUSE?C	003E8h
	SEROUT2DPIN?T	_GPSout
	SEROUT2MODE?C	_baudGPS
	SEROUT2PACE?C	000h
	SEROUT2?C	024h
	SEROUT2?C	047h
	SEROUT2?C	050h
	SEROUT2?C	052h
	SEROUT2?C	04Dh
	SEROUT2?C	043h
	SEROUT2?C	02Ch
	SEROUT2?C	031h
	SEROUT2?C	036h
	SEROUT2?C	030h
	SEROUT2?C	034h
	SEROUT2?C	033h
	SEROUT2?C	036h
	SEROUT2?C	02Ch
	SEROUT2?C	041h
	SEROUT2?C	02Ch
	SEROUT2?C	033h
	SEROUT2?C	035h
	SEROUT2?C	034h
	SEROUT2?C	031h
	SEROUT2?C	02Eh
	SEROUT2?C	032h
	SEROUT2?C	033h
	SEROUT2?C	032h
	SEROUT2?C	02Ch
	SEROUT2?C	04Eh
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	033h
	SEROUT2?C	030h
	SEROUT2?C	035h
	SEROUT2?C	035h
	SEROUT2?C	02Eh
	SEROUT2?C	032h
	SEROUT2?C	032h
	SEROUT2?C	037h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	034h
	SEROUT2?C	02Eh
	SEROUT2?C	039h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	031h
	SEROUT2?C	031h
	SEROUT2?C	030h
	SEROUT2?C	036h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	02Eh
	SEROUT2?C	030h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ah
	SEROUT2?C	037h
	SEROUT2?C	032h
	SEROUT2?C	00Ah
	SEROUT2?C	00Dh
	PAUSE?C	003E8h
	SEROUT2DPIN?T	_GPSout
	SEROUT2MODE?C	_baudGPS
	SEROUT2PACE?C	000h
	SEROUT2?C	024h
	SEROUT2?C	047h
	SEROUT2?C	050h
	SEROUT2?C	052h
	SEROUT2?C	04Dh
	SEROUT2?C	043h
	SEROUT2?C	02Ch
	SEROUT2?C	031h
	SEROUT2?C	037h
	SEROUT2?C	030h
	SEROUT2?C	035h
	SEROUT2?C	033h
	SEROUT2?C	037h
	SEROUT2?C	02Ch
	SEROUT2?C	041h
	SEROUT2?C	02Ch
	SEROUT2?C	033h
	SEROUT2?C	035h
	SEROUT2?C	035h
	SEROUT2?C	036h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	034h
	SEROUT2?C	031h
	SEROUT2?C	02Ch
	SEROUT2?C	04Eh
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	033h
	SEROUT2?C	030h
	SEROUT2?C	039h
	SEROUT2?C	036h
	SEROUT2?C	02Eh
	SEROUT2?C	031h
	SEROUT2?C	034h
	SEROUT2?C	037h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	034h
	SEROUT2?C	02Eh
	SEROUT2?C	039h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	031h
	SEROUT2?C	031h
	SEROUT2?C	030h
	SEROUT2?C	036h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	02Eh
	SEROUT2?C	030h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ah
	SEROUT2?C	037h
	SEROUT2?C	032h
	SEROUT2?C	00Ah
	SEROUT2?C	00Dh
	PAUSE?C	003E8h
	SEROUT2DPIN?T	_GPSout
	SEROUT2MODE?C	_baudGPS
	SEROUT2PACE?C	000h
	SEROUT2?C	024h
	SEROUT2?C	047h
	SEROUT2?C	050h
	SEROUT2?C	052h
	SEROUT2?C	04Dh
	SEROUT2?C	043h
	SEROUT2?C	02Ch
	SEROUT2?C	031h
	SEROUT2?C	038h
	SEROUT2?C	030h
	SEROUT2?C	036h
	SEROUT2?C	033h
	SEROUT2?C	038h
	SEROUT2?C	02Ch
	SEROUT2?C	041h
	SEROUT2?C	02Ch
	SEROUT2?C	033h
	SEROUT2?C	035h
	SEROUT2?C	033h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	032h
	SEROUT2?C	031h
	SEROUT2?C	031h
	SEROUT2?C	02Ch
	SEROUT2?C	04Eh
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	033h
	SEROUT2?C	030h
	SEROUT2?C	034h
	SEROUT2?C	032h
	SEROUT2?C	02Eh
	SEROUT2?C	039h
	SEROUT2?C	039h
	SEROUT2?C	037h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	031h
	SEROUT2?C	033h
	SEROUT2?C	02Eh
	SEROUT2?C	034h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	034h
	SEROUT2?C	02Eh
	SEROUT2?C	039h
	SEROUT2?C	02Ch
	SEROUT2?C	032h
	SEROUT2?C	035h
	SEROUT2?C	031h
	SEROUT2?C	031h
	SEROUT2?C	030h
	SEROUT2?C	036h
	SEROUT2?C	02Ch
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	030h
	SEROUT2?C	02Eh
	SEROUT2?C	030h
	SEROUT2?C	02Ch
	SEROUT2?C	045h
	SEROUT2?C	02Ah
	SEROUT2?C	037h
	SEROUT2?C	032h
	SEROUT2?C	00Ah
	SEROUT2?C	00Dh
	PAUSE?C	003E8h
	GOTO?L	_GPS
	END?	

	END