#define lcd_type 2           // 0=5x7, 1=5x10, 2=2 lines
#define lcd_line_two 0x40    // LCD RAM address for the second line

#byte LCD_DATA =  0xF80
#byte LCD_DATA_TRIS = 0xF92
#byte LCD_CTRL_TRIS = 0xF93

#define  RS    3
#define  EN    2

#bit  LCD_RS   =  0xF81.3
#bit  LCD_EN   =  0xF81.2


BYTE const LCD_INIT_STRING[4] = {0x20 | (lcd_type << 2), 0xc, 1, 6};

void lcd_send_nibble( BYTE n ) {
#use FAST_IO(a)
      LCD_DATA = n;
      delay_cycles(1);
      LCD_EN = 1;
      delay_us(2);
      LCD_EN = 0;
}


void lcd_send_byte( BYTE address, BYTE n ) {

      LCD_RS = 0;
      delay_us(500);
      LCD_RS = address;
      delay_cycles(1);
      LCD_EN = 0;
      lcd_send_nibble(n >> 4);
      lcd_send_nibble(n & 0xf);
}


void lcd_init() {
    BYTE i;
    LCD_DATA_TRIS = 0xF0;
    bit_clear(LCD_CTRL_TRIS,RS);
    bit_clear(LCD_CTRL_TRIS,EN);
    LCD_RS = 0;
    LCD_EN = 0;
    delay_ms(15);
    for(i=1;i<=3;++i) {
       lcd_send_nibble(3);
       delay_ms(5);
    }
    lcd_send_nibble(2);
    for(i=0;i<=3;++i)
       lcd_send_byte(0,LCD_INIT_STRING[i]);
    delay_ms(20);
}


void lcd_gotoxy( BYTE x, BYTE y) {
   BYTE address;

   if(y!=1)
     address=lcd_line_two;
   else
     address=0;
   address+=x-1;
   lcd_send_byte(0,0x80|address);
}

void lcd_putc( char c) {
   switch (c) {
     case '\f'   : lcd_send_byte(0,1);
                   delay_ms(2);
                                           break;
     case '\n'   : lcd_gotoxy(1,2);        break;
     case '\b'   : lcd_send_byte(0,0x10);  break;
     default     : lcd_send_byte(1,c);     break;
   }
}

void bargraph(BYTE percent,int8 min, int8 max, int8 style)