'18F4620 8MHz XTL simple on off LAT test Define CONFIG1L = 0x00 Define CONFIG1H = 0x02 'EXT 8MHz XTL Define CONFIG2L = 0x1e Define CONFIG2H = 0x00 Define CONFIG3L = 0x00 Define CONFIG3H = 0x81 Define CONFIG4L = 0x80 Define CONFIG4H = 0x00 Define CONFIG5L = 0x0f Define CONFIG5H = 0xc0 Define CONFIG6L = 0x0f Define CONFIG6H = 0xe0 Define CONFIG7L = 0x0f Define CONFIG7H = 0x40 'Define SIMULATION_WAITMS_VALUE = 1 'Comment in for SIM out for PIC Define CLOCK_FREQUENCY = 8 Define SINGLE_DECIMAL_PLACES = 2 Define STRING_MAX_LENGTH = 40 'Needs raising to fit the whole NMEA sentence for transmit AllDigital 'SET PIN IN/OUT TRISA = %00000001 TRISB = %00000000 TRISC = %10010000 '7=RX=1 4=SDI=1 1=RST=0 TRISD = %00000000 '7 DATA Switch c/s/=0 6=compss c/s=0 5=altmtr c/s=0 4=5110cs c/s=0 TRISE = %00000100 '2=Button 1=RLED 0=YLED 'SET BITS ON/OFF PORTA = %00000000 'ON/OFF PORTB = %00000000 PORTC = %00000000 PORTD = %11110000 'ALL C/S HIGH PORTE = %00000000 'POSS MCLR RE3 1=RLED 0=YLED 'ADCON0 = 0x03 'AN0-1-2-3 Can be used as Analogue inputs. 'ADCON1 = 0x0e 'ADCON2 = %10100100 'T1CON = %00111101 '1:8 -> Timer1 clock = 1MHz'<<<<<<<<<<<<<<<<<<<<<<<<< 'T2CON = 0 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'T3CON = 0 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'PIR1 = 0 'PIR2 = 0 'PIE1 = 0 'PIE2 = 0 'PIE1.RCIE = 1 'rxd Intr , used for GPS serial input work 'IPR1 = 0 'IPR2 = 0 'IPR1.TMR1IP = 1 'RCON.IPEN = 1 'This MUST be included when using Interrupts 'OSCCON = %01110010 'internal 8Mhz clock 'OSCTUNE.PLLEN = 1 '*4 PLL enabled so Fosc = 32MHZ'CHECK<<<<<<<<<<<<<<<<<<<< 'SSPCON1 = %00010000 'CHECK<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'WaitMs 10 'SPI 'Define SPI_CS_REG = PORTD 'Only used when in slave mode. 'Define SPI_CS_BIT = 4 'Define SPI_SCK_REG = PORTC 'Define SPI_SCK_BIT = 3 'Define SPI_SDI_REG = PORTC 'not used, but left in so OSH does not burp 'Define SPI_SDI_BIT = 4 'Define SPI_SDO_REG = PORTC 'Define SPI_SDO_BIT = 5 'Symbol yled = LATE.0 'Symbol rled = LATE.1 ''Symbol screen_cs = LATD.4 '5110 LCD C/S 'Symbol screen_mode = LATC.0 '1=DATA ,0=COMMAND 'Symbol screen_reset = LATC.1 '5110_reset 'Symbol radset = LATD.3 'HC-12 RADSET 0=COMMAND ON 1=DATA ON 'Symbol altmtr = LATD.5 'BMP280 BAROMETER/TEMP 'Symbol compss = LATD.6 'AK8963C 'Symbol dataswitch = LATD.7 'RX 2to1 switch 0=HC-12 1=GPS 'Symbol tick = LATB.0 'Program test point 'START UP LEDS 'yled = 1 'WaitMs 1000 'yled = 0 'rled = 1 'WaitMs 1000 'rled = 0 main: '\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ LATA = 255 LATB = 255 LATC = 255 LATD = 255 LATE = 255 WaitMs 1000 LATA = 0 LATB = 0 LATC = 0 LATD = 0 LATE = 0 WaitMs 1000 Goto main 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXTESTESTESTEST##############