//-------------------------------------------------
// Shenzhen TOPWAY Technology Co.,Ltd.
// LCD Module:		  LM12864L
// Display Size:      128x64
// Driver/Controller: S6B0106/S6B0107
// Interface:         6800 mode
// by:                Kenny
// Date:			  2006-03-30
// System;            AT89S52 (12MHz)
//-------------------------------------------------
#include <stdio.h>
#include <reg51.h>
#include <intrins.h>

#define uchar  unsigned char
#define uint   unsigned int

#define LCDBus 	  P1
sbit RS 	    = P3^1;
sbit R_W 	    = P3^7;
sbit E  	    = P3^6;
sbit CS1	    = P3^4;
sbit CS2	    = P3^3;
sbit _RST       = P3^5;

//====================
// Display Data
//====================
/*--  128x64           --*/
/*--  LM12864M Logo    --*/
uchar code Logo1[]={
0x03,0x01,0x00,0x00,0x00,0x00,0x80,0x00,0x80,0x00,0x80,0x00,0x80,0x40,0x80,0x40,
0x80,0x40,0x80,0x40,0x80,0x40,0xA0,0x40,0xA0,0x40,0xA0,0x50,0xA0,0x50,0xA0,0x50,
0xA8,0x50,0xA8,0x50,0xA8,0x54,0xA8,0x54,0x28,0x14,0xAA,0x94,0xCA,0xC4,0xEA,0xE4,
0xE2,0xF5,0xF2,0xF9,0xFA,0xF9,0xF8,0xFD,0xFC,0xFD,0xFC,0xFD,0xFC,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x03,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x41,0xA8,0x55,0xAA,0x55,0xAA,0x55,0x2A,0x95,
0xCA,0xE5,0xF2,0xF9,0xF8,0xFD,0xFC,0xFE,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x80,0x40,0xA8,0x54,0x2A,0x95,0xCA,0xE5,0xF2,0xF9,0xFC,0xFE,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40,
0x20,0x14,0xCA,0xE1,0xF8,0xFC,0xFF,0xFF,0xFB,0xFB,0xC3,0xFB,0xFB,0xFF,0xE7,0xDB,
0xDB,0xDB,0xE7,0xFF,0xC3,0xEB,0xEB,0xEB,0xF7,0xFF,0xE3,0xDF,0xEF,0xDF,0xE3,0xFF,
0xCF,0xE7,0xEB,0xE7,0xCF,0xFF,0xFB,0xF7,0xCF,0xF7,0xFB,0xFF,0xFF,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0xFE,0x80,0x80,0x80,0x80,0x00,0xFE,0x04,0x18,0x04,0xFE,
0x00,0x00,0x84,0xFE,0x80,0x00,0x00,0x84,0xC2,0xA2,0x92,0x8C,0x00,0x6C,0x92,0x92,
0x92,0x6C,0x00,0x7C,0x92,0x92,0x92,0x60,0x00,0x30,0x28,0x24,0xFE,0x20,0x00,0xFE,
0x80,0x80,0x80,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,
0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x80,0x80,0x80,0x80,0x80,0x00,
0x80,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,
0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x21,0x3F,0x20,0x00,0x00,
0x21,0x30,0x28,0x24,0x23,0x00,0x1B,0x24,0x24,0x24,0x1B,0x00,0x22,0x14,0x08,0x14,
0x22,0x00,0x1F,0x24,0x24,0x24,0x18,0x00,0x0C,0x0A,0x09,0x3F,0x08,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x13,0x24,0x24,0x24,0x19,0x00,0x00,0x00,0x3F,0x00,0x00,0x00,
0x3F,0x02,0x04,0x08,0x3F,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x3F,0x20,0x20,0x20,
0x20,0x00,0x1F,0x20,0x20,0x20,0x11,0x00,0x3F,0x20,0x20,0x11,0x0E,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x80,
0x80,0x80,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x80,0x80,0x80,0x80,0x80,0x00,
0x00,0x80,0x80,0x80,0x00,0x00,0x80,0x80,0x80,0x80,0x80,0x00,0x00,0x80,0x80,0x80,
0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x00,
0x80,0x00,0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,
0x00,0x00,0x00,0x80,0x00,0x00,0x80,0x80,0x80,0x80,0x80,0x00,0x00,0x80,0x80,0x80,
0x00,0x00,0x80,0x80,0x80,0x80,0x80,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x80,
0x80,0x80,0x00,0x00,0x00,0x80,0x80,0x80,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,
0xC0,0x80,0x00,0x21,0x3F,0x20,0x00,0x00,0x21,0x30,0x28,0x24,0x23,0x00,0x11,0x20,
0x24,0x24,0x1B,0x00,0x0C,0x0A,0x09,0x3F,0x08,0x00,0x13,0x22,0x22,0x22,0x1C,0x00,
0x1F,0x24,0x24,0x24,0x18,0x00,0x00,0x00,0x3C,0x02,0x01,0x00,0x1B,0x24,0x24,0x24,
0x1B,0x00,0x13,0x24,0x24,0x24,0x1F,0x00,0x1F,0x28,0x24,0x22,0x1F,0x00,0x00,0x21,
0x3F,0x20,0x00,0x00,0x21,0x30,0x28,0x24,0x23,0x00,0x11,0x20,0x24,0x24,0x1B,0x00,
0x0C,0x0A,0x09,0x3F,0x08,0x00,0x13,0x22,0x22,0x22,0x1C,0x00,0x1F,0x24,0x24,0x24,
0x18,0x00,0x00,0x00,0x3C,0x02,0x01,0x00,0x1B,0x24,0x24,0x24,0x1B,0x00,0x13,0x24,
0x24,0x24,0x1F,0x00,0x1F,0x28,0x24,0x22,0x1F,0x00,0x00,0x21,0x3F,0x20,0x80,0xC0};



//====================
// delay routine
//====================
void delayms(uint m)        // 12MHz Xtal, close to ms value
{
	uint j;
	uint i;
	
	for(i=0; i<m; i++)
	    for(j=0; j<109; j++)
	        _nop_();
}



//====================
// write command
//====================
void wr_command(uchar ChipNo,command)
{
    LCDBus  = command;
    RS      = 0;
    R_W     = 0;
    switch(ChipNo)
	{
    	case 0:	CS1=1; CS2=1;	break;  // write into all driver
    	case 1:	CS1=1; CS2=0;   break;  // write into 1st driver
    	case 2:	CS1=0; CS2=1;	break;  // write into 2nd driver
	}
    _nop_();
    E=1;
    _nop_();
    E=0;
    _nop_(); _nop_(); _nop_(); _nop_();
}



//====================
// write data
//====================
void wr_data(uchar ChipNo,ddata)
{
    LCDBus  = ddata;
    RS      = 1;
    R_W     = 0;
    switch(ChipNo)
    {
	    case 0:	CS1=1; CS2=1;	break;  // write into all driver
    	case 1:	CS1=1; CS2=0;   break;  // write into 1st driver
	    case 2:	CS1=0; CS2=1;	break;  // write into 2nd driver
	}
    _nop_();
    E=1;
    _nop_();
    E=0;
    _nop_(); _nop_();
}



//====================
// clear screen
//====================
void ClrScreen()	            // fill 00h into DD RAM
{
    uchar i,j;
    for(i=0;i<8;i++)
    	{
    	wr_command(0,0xb8 | i);	// select page
    	wr_command(0,0x40);	    // start form column 0
    	for(j=0;j<64;j++)
	    	{
	    	wr_data(0,0x00);    // fill 00h into two chips
    		}
    	}
}



//====================
// Write a Screen
//====================
void WriteScreen(uchar *DisplayData)	// DisplayData should be 128x64/8 = 1024 bytes
{
	uchar TempData;
	uchar i, j;
	for(i=0;i<8;i++)
	{
    	wr_command(0,0xb8 | i);	// select page
    	wr_command(1,0x40);	    // chip1 start form column 00h
    	wr_command(2,0x40);	    // chip2 start form column 00h	
     	for(j=0;j<128;j++)
     		{
     		TempData=(*(DisplayData+(i*128)+j));
     		if (j<64)
			{
	     		wr_data(1,TempData);	// 0-63 column goto chip1
			}
    		else
			{
	     		wr_data(2,TempData);	// 64-127 column goto chip2
			}
 		}
    	}
    	
}



//====================
// Init LCD module
//====================
void initLCDM(void)
{
	RS 	 = 0;		// init all port
	R_W  = 0;
	E  	 = 0;
	CS1	 = 0;
	CS2	 = 0;

	_RST = 1;		// hardware reset
    delayms(1);
    _RST = 0;
    delayms(1);
	_RST = 1;
    delayms(1);

	wr_command(0,0xc0);	// display start line =0;
	wr_command(0,0x3f);	// display ON;
}



//************************
// Main Program
//************************
void main(void)
{
    SP = 0x60;			// stack pointer
    EA = 0; 			// disable interrupts

    initLCDM();			// init LCD module
    ClrScreen();		// clear DD RAM
    WriteScreen(Logo1);	// send a screen of display

    while(1)			// end of program
    	{
    	_nop_();
    	}
}