// LCD 4-bit interface code

#pragma SMALL DB OE

/*-------------------------------------------------------------------------*/

#include <reg51.h>
#include "io4.h"
          
/*-------------------------------------------------------------------------*/

sfr DATA_BUS = 0x80;
sbit RS = 0xb4;
sbit E  = 0xb5;

/*-------------------------------------------------------------------------*/

static void EnableLCD(int t) {

    unsigned char i;

    E = 1; for(i=0; i<t; i++) i = i;
    E = 0; for(i=0; i<t; i++) i = i;
}

/*-------------------------------------------------------------------------*/

void InitIO(void) {

    RS=0;                                        

    DATA_BUS= (DATA_BUS & 0x0F) | 0x30; EnableLCD(255);           
    DATA_BUS= (DATA_BUS & 0x0F) | 0x30; EnableLCD(255);               
    DATA_BUS= (DATA_BUS & 0x0F) | 0x30; EnableLCD(255);

    DATA_BUS= (DATA_BUS & 0x0F) | 0x20; EnableLCD(255);    // set to 4-bit interface

    DATA_BUS= (DATA_BUS & 0x0F) | 0x20; EnableLCD(255);    // FUNCTION SET
    DATA_BUS= (DATA_BUS & 0x0F) | 0x80; EnableLCD(255);    // FUNCTION SET

    DATA_BUS= (DATA_BUS & 0x0F) | 0x00; EnableLCD(255);    // DISPLAY OFF
    DATA_BUS= (DATA_BUS & 0x0F) | 0x80; EnableLCD(255);    // DISPLAY OFF

    DATA_BUS= (DATA_BUS & 0x0F) | 0x00; EnableLCD(255);    // CLEAR SCREEN
    DATA_BUS= (DATA_BUS & 0x0F) | 0x10; EnableLCD(255);    // CLEAR SCREEN
    
    DATA_BUS= (DATA_BUS & 0x0F) | 0x00; EnableLCD(255);    // ENTRY MODE SET
    DATA_BUS= (DATA_BUS & 0x0F) | 0x60; EnableLCD(255);    // ENTRY MODE SET

    DATA_BUS= (DATA_BUS & 0x0F) | 0x00; EnableLCD(255);    // DISPLAY ON
    DATA_BUS= (DATA_BUS & 0x0F) | 0xD0; EnableLCD(255);    // DISPLAY ON

    RS = 1;					 
}

/*-------------------------------------------------------------------------*/

void ClearScreen(void) {

    RS=0;                                        
    DATA_BUS= (DATA_BUS & 0x0F) | 0x00; EnableLCD(255);    // CLEAR SCREEN
    DATA_BUS= (DATA_BUS & 0x0F) | 0x10; EnableLCD(255);    // CLEAR SCREEN               
    RS = 1;					 
}

/*-------------------------------------------------------------------------*/

void GotoXY(unsigned char r, unsigned char c) {

    RS=0;                                        
    DATA_BUS= (DATA_BUS & 0x0F) | 0x00; EnableLCD(255);
    DATA_BUS= (DATA_BUS & 0x0F) | 0x20; EnableLCD(255);            
    for(r=r*40+c, c=0; c<r; c++){
           DATA_BUS= (DATA_BUS & 0x0F) | 0x10; EnableLCD(45);
           DATA_BUS= (DATA_BUS & 0x0F) | 0x40; EnableLCD(45);       
    }
    RS=1;
}

/*-------------------------------------------------------------------------*/

void PutChar(char c) {

   DATA_BUS= (DATA_BUS & 0x0F) | (c & 0xF0); EnableLCD(45);
   DATA_BUS= (DATA_BUS & 0x0F) | ((c & 0X0F) << 4); EnableLCD(45);

}

/*-------------------------------------------------------------------------*/

void PrintString(const char* s) {

    while( *s ) PutChar(*(s++));
}