Define CONFIG1L = 0x00 Define CONFIG1H = 0x02 Define CONFIG2L = 0x1e Define CONFIG2H = 0x00 Define CONFIG3L = 0x00 Define CONFIG3H = 0x83 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 AllDigital '18F4520 Aug -2016 Define LCD_LINES = 4 Define LCD_CHARS = 20 Define LCD_BITS = 4 Define LCD_DREG = PORTD Define LCD_DBIT = 4 Define LCD_EREG = PORTB Define LCD_EBIT = 3 Define LCD_RSREG = PORTB Define LCD_RSBIT = 2 Define LCD_RWREG = PORTB Define LCD_RWBIT = 1 Define LCD_READ_BUSY_FLAG = 1 Define STRING_MAX_LENGTH = 46 Dim setgroupstr As String '''''' * 46 'String to send completed data through UART to RS232 convertor to the DRA818V Disable High Disable Low T1CON = %00000000 T2CON = 0 T3CON = 0 OSCCON = %01111100 '20MHz INTCON = %01010000 'INT0 PB.0 INTCON2 = %10000000 INTCON3 = %00000000 PIR1 = 0 PIR2 = 0 PIE1 = 0 PIE2 = 0 IPR1 = 0 IPR2 = 0 RCON.IPEN = 1 TRISA = 0x0f TRISB = %00010001 TRISC = %00000000 TRISD = %00001111 LATD = %00001111 TRISE.2 = 0 PORTB = 0 LATB = 0 ADCON0 = 0x01 'porta digital ADCON1 = 0x0e ADCON2 = %10100100 Lcdinit Hseropen 9600 setgroupstr = "AT+DMOSETGROUP=0," 'Initial value of the string Hserout setgroupstr 'Sending string to DRA818V Lcdout setgroupstr 'Show values on a display idle_loop: Goto idle_loop End