...still not working.
Just to make sure I'm not wrong with the ports: I use PIC18F2420's PORTC.7 as RX. This means, the TX pin from the GPS module is connected to PORTC.7.
Here's the code again:
Code:'Config Directive settings for MPASM (fuses) for 18F2420 @ __CONFIG _CONFIG1H, _OSC_HS_1H & _FCMEN_OFF_1H & _IESO_OFF_1H ;_OSC_INTIO7_1H @ __CONFIG _CONFIG2L, _PWRT_ON_2L & _BOREN_OFF_2L & _BORV_0_2L @ __CONFIG _CONFIG2H, _WDT_OFF_2H & _WDTPS_1_2H @ __CONFIG _CONFIG3H, _MCLRE_OFF_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTBE_3H @ __CONFIG _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L @ __CONFIG _CONFIG5L, _CP0_OFF_5L & _CP1_OFF_5L @ __CONFIG _CONFIG5H, _CPB_OFF_5H & _CPD_OFF_5H @ __CONFIG _CONFIG6L, _WRT0_OFF_6L & _WRT1_OFF_6L @ __CONFIG _CONFIG6H, _WRTB_OFF_6H & _WRTC_OFF_6H & _WRTD_OFF_6H @ __CONFIG _CONFIG7L, _EBTR0_OFF_7L & _EBTR1_OFF_7L @ __CONFIG _CONFIG7H, _EBTRB_OFF_7H & _DEVID1 & _IDLOC0 'Registers ADCON1 = %00001111 'Turn off all AD's (= "_PBADEN_OFF_3H") TRISC = %11000000 'stated by DS(!) RCSTA = %10010010 'enable serial port, enable continuous receive, automatic clear overrun error TXSTA = %00100000 'enable transmit, BRGH=0 SPBRG = 51 '9600 Baud @ 8MHz, 0.16% SPBRGH = 0 BAUDCON = %00111000 '------------------------------------------------------------------------------- ' DEFINEs DEFINE OSC 8 DEFINE LCD_DREG PORTB 'LCD data port DEFINE LCD_DBIT 0 'LCD data starting PORT.bit (0 or 4) DEFINE LCD_RSREG PORTC 'LCD register select port DEFINE LCD_RSBIT 4 'LCD register select bit DEFINE LCD_EREG PORTC 'LCD enable port DEFINE LCD_EBIT 5 'LCD enable bit DEFINE LCD_BITS 4 'LCD bus size 4 or 8 DEFINE LCD_LINES 2 'Number lines on LCD '------------------------------------------------------------------------------- INIT: GPS_D VAR BYTE(80) 'Incomming data bit array LED0 VAR PORTA.5 'alive LED '------------------------------------------------------------------------------- ' DOGM LCD display specific settings PAUSE 1000 'Time to settle Vdd LCDOUT $FE, $29 'Function Set: 4 bits bus mode LCDOUT $FE, $1C 'Bias set LCDOUT $FE, $52 'Power control + Contrast (HiByte)(for 5V=$52/3,3V=55) LCDOUT $FE, $69 'Follower control (5V=$69/3,3V=6D) LCDOUT $FE, $78 'Contrast (LowByte) '------------------------------------------------------------------------------- ' Main loop LCDOUT $FE,2,"HSERIN" MAIN: HSERIN [WAIT("$GPGGA,"),STR GPS_D\6] LCDOUT $FE,2,GPS_D(0),GPS_D(1),":",GPS_D(2),GPS_D(3),":",GPS_D(4),GPS_D(5) TOGGLE LED0 GOTO MAIN:





Bookmarks