////////////////////////////////////////////////////////////////////////////
////                             LCDD.C                                 ////
////                 Driver for common LCD modules                      ////
////                                                                    ////
////  lcd_init()   Must be called before any other function.            ////
////                                                                    ////
////  lcd_putc(c)  Will display c on the next position of the LCD.      ////
////                     The following have special meaning:            ////
////                      \f  Clear display                             ////
////                      \n  Go to start of second line                ////
////                      \b  Move back one position                    ////
////                                                                    ////
////  lcd_gotoxy(x,y) Set write position on LCD (upper left is 1,1)     ////
////                                                                    ////
////  lcd_getc(x,y)   Returns character at position x,y on LCD          ////
////                                                                    ////
////////////////////////////////////////////////////////////////////////////
////        (C) Copyright 1996,1997 Custom Computer Services            ////
//// This source code may only be used by licensed users of the CCS C   ////
//// compiler.  This source code may only be distributed to other       ////
//// licensed users of the CCS C compiler.  No other use, reproduction  ////
//// or distribution is permitted without written permission.           ////
//// Derivative programs created using this software in object code     ////
//// form are not restricted in any way.                                ////
////////////////////////////////////////////////////////////////////////////

// This structure is overlayed onto the data ports so that you may use
// whatever ports you desire
struct lcd_pin_map {
 
  int unusedA;
  int unusedB;
  int unusedC;
  int unusedD : 4;     //lower nibble of portD is not used
  int data : 4;        //high nibble of portD data       
  BOOLEAN rs;          //portE.0 -> rs
  BOOLEAN enable;      //portE.1 -> enable
  BOOLEAN rw;          //portE.2 -> rw
  int unusedE : 5;     //rest of portE unused

} lcd;

#if defined(__PCH__)
   #locate lcd = 0xF80
#else
   #locate lcd = 5
#endif

struct lcd_tris_map {

   int unusedA;
   int unusedB;
   int unusedC;
   int unusedD : 4;   //lower nibble of portD
   int data : 4;      //high nibble of portD
   int control : 3;   
   int unusedE : 5;

} lcdtris;

#if defined(__PCH__)
   #locate lcdtris = 0xF92
#else
   #locate lcdtris = 0x85
#endif

#define set_tris_lcd(x) lcdtris.data = (x); lcdtris.control = 0;

#define lcd_type 2
#define lcd_line_two 0x40

Byte const LCD_INIT_STRING[4] = {8, 0xc, 1, 6};

#define LCD_WRITE    0
#define LCD_READ     0xFF

BYTE lcd_read_byte() {

   BYTE data;
   set_tris_lcd(LCD_READ);
   lcd.rw = 1;
   delay_cycles(1);
   lcd.enable = 1;
   delay_cycles(1);
   data = lcd.data;
   lcd.enable = 0;
   set_tris_lcd(LCD_WRITE);
   return(data);

}

void  lcd_send_nibble(BYTE n) {

   lcd.data = n;
   delay_cycles(1);
   lcd.enable = 1;
   delay_us(2);
   lcd.enable = 0;

}

void lcd_send_byte(BYTE adress, BYTE n) {

   lcd.rs = 0
   while(bit_test(lcd_read_byte(),7));
   lcd.rs = adress;
   delay_cycles(1);
   lcd.rw = 0;
   delay_cycles(1);
   lcd.enable = 0;
   lcd.data = n;
   delay_cycles(1);
   lcd.enable = 1;
   delay_us(2);
   lcd_enable = 0;

}

void lcd_init() {

   BYTE i;
   set_tris_lcd(LCD_WRITE);
   lcd.rs = 0;
   lcd.rw = 0;
   lcd.enable = 0;
   delay_ms(15);
   for(i=1; i<=3; ++i) {
      lcd_send_byte(0, 0x38);
      delay_ms(5);
   }
   for(i=0; i<=3; ++i)
      lcd_send_byte(0,LCD_INIT_STRING[i]);
}

void lcd_gotoxy(BYTE x, BYTE y) {

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

}

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;
   }
}

char lcd_getc(BYTE x, BYTE y) {
   char value;

   lcd_gotoxy(x,y);
   lcd.rs = 1;
   value = lcd_read_byte();
   lcd.rs = 0;
   return(value);

}

#include <18F452.h>
#use delay(clock=20000000)
#fuses HS,NOWDT,NOPROTECT,NOLVP
#include "lcdd.c"


//======================= MAIN ============================//
void main(void) {
  lcd_init();
  printf(lcd_putc,"hello world");
  printf(lcd_putc,"\n\rSecond line");
  while(1) {
  }
}