Device = 16F873A

Xtal=12
Declare  Hserial_Baud  57600   ' Sets the BAUD rate that will be used to receive a value serially
Declare  Hserial_TXSTA = %00100100   ' Sets the respective PICmicro hardware register TXSTA. Transmitter enable
Declare  Hserial_RCSTA = %10000000   ' Sets the respective PICmicro hardware register, RCSTA. Receiver disable
Declare  Hserial_SPBRG  12   ' Sets the respective PICmicro hardware register, SPBRG
Declare  Hserial_Clear = On   ' Clear the overflow error flag before commencing a read
                      
'-------------------------- Настройки портов ---------------------------------
                      
PortB_Pullups = OFF   ' Выключить подтягивающие резисторы на PORTB
Declare  All_Digital = On' Каждый порт выполняет свою функцию по умолчанию
PORTC=0
TRISC = 0   
main:
      HRSOut "A","S","S",13
      DelayMS 1000
GoTo main

Define osc 20

' Defines for Hardware Serial Port
DEFINE HSER_BAUD  57600               ' 57600 Baud for NMEA Compatibility
DEFINE HSER_RCSTA 90h                  ' Receive enabled
DEFINE HSER_TXSTA 24h                  ' Transmit enabled
DEFINE HSER_SPBRG 21
DEFINE HSER_CLROERR 1                  'Auto Reset Buffer Overrun Errors    
                    

                 ' Set the port directions
TRISC=%10000000                         ' Set PortC USART RX as an input

MAXDATA         con 70                  'The buffer Size for GPS Data

gpsdata         var byte[MAXDATA]       ' Max length of a GPS  

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 4  
DEFINE LCD_BITS 4  
DEFINE LCD_LINES 2  
DEFINE LCD_COMMANDUS 2000  
DEFINE LCD_DATAUS 50
Define ADC_BITS 10
Define ADC_CLOCK 3
Define ADC_SAMPLEUS 50
LCDOUT $FE, 1
PAUSE 500
main:
HSERIN 100, Main, [WAIT(",A,"), STR gpsdata\MAXDATA\40]
LCDOUT $FE,2,  gpsdata[0],gpsdata[1],".",gpsdata[2],gpsdata[3],gpsdata[5],gpsdata[6],gpsdata[7],gpsdata[8],gpsdata[9],"/",gpsdata[27],gpsdata[28],gpsdata[29],gpsdata[30],gpsdata[31]
LCDOUT $FE,$C0,gpsdata[14],gpsdata[15],".",gpsdata[16],gpsdata[17],gpsdata[19],gpsdata[20],gpsdata[21],gpsdata[22],gpsdata[23],"/",gpsdata[33],gpsdata[34],gpsdata[35],gpsdata[36],gpsdata[37]
goto main