1783.c

液晶驱动C程序,SSD1783芯片,液晶型号1760B0

//1783 tmp demo
//8080 8-BIT
/****************************************************
* A) Hardware Interface                             *
****************************************************/
#include "reg51.h"

/****************************************************
PIN DESCRIPTION

P1:	D7	D6	D5	D4	D3	D2	D1	D0
P3:	/CS	/RES	D/C	/WR	PS0	PS1	/RD	-
****************************************************/
#define RESET		0xB7
#define DISCS		0xF7
#define PREDATA         0xE7
#define WDATA	        0x67
#define PRECMD		0xC7
#define WCMD		0x47
#define PREREAD		0xD5
#define READ		0x55

#define wait  1
/****************************************************
* C) Global Variable Definition                     *
****************************************************/

unsigned char code test[]={
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xdf,0xff,0xdf,0xff,0xdf,0xff,0xdf,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xde,0xf7,0xff,0xf7,0xde,0xf7,0xde,0xf7,0xde,0xef,0xbe,
0xef,0x7d,0xde,0xfb,0xb5,0xd7,0xd6,0xba,0xef,0x5d,0xef,0x7d,0xf7,0xbe,0xf7,0xbe,
0xf7,0x9e,0xf7,0xbe,0xf7,0x9e,0xf7,0x9e,0xf7,0xbe,0xdf,0x1c,0xc6,0x3a,0xce,0x9b,
0xe7,0x5d,0xe7,0x3c,0xe7,0x1c,0xef,0x3c,0xde,0xba,0xce,0x38,0xc5,0xf7,0xbd,0xd7,
0xce,0x79,0xde,0xdb,0xde,0xfb,0xde,0xfb,0xdf,0x1b,0xde,0xda,0xd6,0xb9,0xce,0x79,
0xce,0x79,0xc6,0x39,0xce,0x7a,0xce,0x7a,0xce,0x9a,0xce,0xba,0xad,0xd7,0x3a,0xad,
0x21,0xeb,0x19,0xca,0x19,0xcb,0x21,0xeb,0x19,0xcb,0x09,0x49,0x22,0x0b,0x19,0xaa,
0x21,0xca,0x21,0x68,0x49,0xa8,0x51,0x67,0x61,0x46,0x92,0xea,0x8a,0xc8,0x81,0x64,
0x8a,0x47,0xaa,0xea,0x91,0xa5,0x68,0xc1,0x68,0xe2,0x68,0xe2,0x68,0xe2,0x70,0xc2,
0x68,0xa2,0x68,0x81,0x68,0xe1,0x70,0xe2,0x70,0xe2,0x70,0xc2,0x70,0xc2,0x68,0xa1,
0x70,0xc2,0x70,0xc1,0x78,0xc2,0x78,0xc1,0x80,0xe2,0x80,0xe2,0x80,0xe2,0x80,0xe2,
0x80,0xe2,0x78,0xc1,0x78,0xe2,0x78,0xc2,0x70,0xe2,0x68,0x81,0x68,0xa2,0x58,0xc1,
0x58,0xa1,0x50,0xa1,0x50,0xa1,0x50,0x81,0x60,0xc2,0x69,0x03,0x71,0x03,0x79,0x43,
0x79,0x23,0x70,0xe2,0x70,0xc2,0x78,0xe2,0x80,0xe1,0x91,0x01,0x99,0x01,0x99,0x21,
0xa1,0x01,0xa1,0x22,0xa1,0x43,0x99,0x64,0x92,0x06,0xf6,0x79,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xde,0xf7,0xff,0xf7,0xff,0xf7,0xde,0xf7,0xbe,0xe7,0x5d,
0xce,0x7a,0x9c,0xf4,0xbd,0xf7,0xde,0xfb,0xe7,0x3c,0xef,0x7d,0xef,0x7d,0xef,0x7d,
0xf7,0x9e,0xf7,0x9e,0xef,0x7d,0xef,0x7d,0xef,0x9e,0xe7,0x3d,0xad,0x77,0xad,0x76,
0xb5,0xb7,0xad,0x75,0xb5,0x75,0xbd,0xb6,0xb5,0x75,0xb5,0x75,0xb5,0x96,0xc6,0x18,
0xde,0xdb,0xe7,0x1c,0xe7,0x1c,0xde,0xfb,0xde,0xfb,0xde,0xda,0xd6,0xba,0xd6,0x99,
0xce,0x79,0xce,0x59,0xce,0x59,0xce,0x5a,0xc6,0x59,0xc6,0x7a,0xbe,0x59,0x5b,0xb0,
0x19,0xea,0x1a,0x0b,0x19,0xcb,0x21,0xcb,0x19,0xaa,0x22,0x0c,0x11,0x6a,0x19,0xaa,
0x19,0x89,0x19,0x89,0x19,0x8a,0x21,0x69,0x31,0xa9,0x94,0x72,0xe6,0xfb,0xee,0x37,
0xbc,0xf1,0xbb,0xed,0x81,0x02,0x80,0xe1,0x70,0xa0,0x70,0xa0,0x68,0x80,0x68,0x81,
0x68,0x81,0x68,0x81,0x70,0xc1,0x68,0xa1,0x70,0xc2,0x70,0xa2,0x70,0xa2,0x68,0xa1,
0x68,0x81,0x70,0xa1,0x70,0x81,0x78,0xa2,0x70,0x81,0x70,0x81,0x70,0x60,0x70,0x81,
0x78,0xa1,0x70,0x60,0x70,0xa1,0x68,0x60,0x70,0xc2,0x68,0x61,0x68,0x81,0x60,0x81,
0x58,0x81,0x60,0xa2,0x60,0xa2,0x60,0x81,0x68,0x81,0x70,0x81,0x70,0xa1,0x78,0xc1,
0x78,0xc1,0x80,0xe2,0x78,0xc2,0x80,0xc2,0x80,0xa1,0x88,0xc1,0x90,0xc1,0x98,0xe1,
0x98,0xe1,0xa0,0xe2,0xa1,0x02,0xa1,0x43,0x99,0xe5,0xfe,0x58,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xde,0xf7,0xff,0xff,0xff,0xf7,0xff,0xf7,0xdf,0xf7,0xff,
0xf7,0xbe,0xff,0xff,0xf7,0xff,0xf7,0xdf,0xef,0xbe,0xef,0x9e,0xef,0x9e,0xdf,0x1c,
0x94,0xb3,0xad,0x96,0xc6,0x38,0xc6,0x38,0xce,0x99,0xd6,0xba,0xe7,0x1c,0xe7,0x3c,
0xef,0x5d,0xde,0xfb,0xde,0xdb,0xd6,0xba,0xce,0x79,0xc6,0x59,0x9c,0xf4,0xb5,0xf8,
0xbe,0x38,0xc6,0x58,0xce,0x59,0xce,0x38,0xc6,0x18,0xc6,0x18,0xc6,0x18,0xd6,0xb9,
0xe7,0x1b,0xe7,0x3b,0xe7,0x1b,0xde,0xfa,0xde,0xfa,0xde,0xda,0xd6,0xb9,0xd6,0x99,
0xce,0x79,0xce,0x59,0xce,0x59,0xc6,0x39,0xce,0x79,0xc6,0x59,0xc6,0x59,0x8c,0xf5,
0x2a,0x2b,0x22,0x0b,0x19,0xcb,0x19,0xcb,0x19,0xab,0x11,0xaa,0x11,0x6a,0x19,0xaa,
0x19,0xaa,0x11,0x89,0x19,0xaa,0x19,0xaa,0x21,0xca,0x42,0xcc,0xd6,0xfb,0xe6,0xfb,
0xe7,0x1a,0xf6,0x57,0x99,0xc5,0x99,0x01,0x99,0x01,0x90,0xe1,0x88,0xc1,0x80,0xc1,
0x68,0x80,0x68,0x81,0x68,0x60,0x68,0x60,0x78,0xa2,0x70,0xa1,0x70,0x81,0x70,0x61,
0x70,0x61,0x70,0x61,0x70,0x81,0x70,0x81,0x70,0x61,0x70,0x60,0x70,0x60,0x70,0x60,
0x70,0x60,0x70,0x60,0x68,0x80,0x68,0x80,0x68,0x81,0x68,0x81,0x68,0x81,0x60,0x61,
0x60,0x61,0x60,0x61,0x68,0x61,0x68,0x61,0x78,0xa2,0x78,0xa1,0x78,0xa1,0x80,0xa1,
0x80,0x80,0x78,0x60,0x78,0x81,0x78,0xa2,0x88,0xc2,0x80,0xa1,0x88,0xa1,0x90,0xc1,
0x98,0xc2,0x98,0xc2,0xa0,0xe2,0xa1,0x43,0x99,0xa4,0xfe,0x37,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xdf,0xf7,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xdf,0xf7,0xff,
0xf7,0xff,0xf7,0xde,0xef,0x9e,0xef,0x9d,0xef,0x7d,0xef,0x9d,0xe7,0x7d,0xbd,0xf7,
0xe7,0x3d,0xef,0x7e,0xef,0x7d,0xe7,0x3c,0xe7,0x3c,0xce,0x79,0xb5,0xb6,0xad,0x75,
0xbd,0xd7,0xbd,0xd7,0xbd,0xf7,0xad,0x75,0xb5,0xd6,0xbd,0xf7,0xbd,0xf8,0xc6,0x79,
0xef,0x7d,0xe7,0x5c,0xef,0x5c,0xe6,0xfb,0xe7,0x1c,0xce,0x58,0xce,0x59,0xde,0xfb,
0xef,0x5c,0xde,0xfb,0xde,0xfb,0xde,0xfb,0xde,0xfa,0xde,0xda,0xd6,0xb9,0xce,0x79,
0xce,0x59,0xce,0x39,0xbd,0xd7,0xd6,0x9a,0xc6,0x38,0xce,0x59,0xc6,0x59,0x9d,0x77,
0x3a,0x8c,0x19,0xeb,0x19,0xeb,0x19,0xcb,0x09,0x8a,0x11,0xcb,0x11,0x8a,0x11,0x8a,
0x19,0x8a,0x11,0x69,0x19,0x89,0x19,0xa9,0x21,0xa9,0x32,0x29,0xb5,0xf7,0xe7,0x3c,
0xe7,0x3b,0xfe,0x98,0xaa,0x06,0xa9,0x21,0xa8,0xe1,0xa9,0x01,0x99,0x22,0xa1,0x84,
0xb2,0xa8,0x81,0x22,0x88,0xc1,0x80,0x80,0x78,0x60,0x78,0x60,0x78,0x60,0x70,0x60,
0x70,0x60,0x70,0x60,0x70,0x80,0x70,0x80,0x68,0x81,0x68,0x81,0x68,0x81,0x68,0x81,
0x68,0x81,0x68,0x81,0x68,0x80,0x68,0x80,0x68,0x81,0x68,0x81,0x68,0x81,0x60,0x81,
0x60,0x61,0x60,0x61,0x68,0x61,0x70,0x61,0x70,0x61,0x70,0x61,0x70,0x61,0x70,0x81,
0x78,0x81,0x78,0x81,0x70,0xa1,0x70,0x81,0x78,0xa2,0x78,0xa1,0x80,0xa1,0x80,0xa1,
0x88,0xa1,0x90,0xa1,0x99,0x02,0x99,0x23,0x91,0xa4,0xfe,0x58,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xff,0xef,0xde,
0xef,0xde,0xef,0xbe,0xf7,0x9e,0xef,0x7d,0xef,0x7d,0xef,0x9d,0xdf,0x1b,0xd6,0xfa,
0xef,0x9d,0xef,0xbe,0xf7,0xbe,0xef,0x9e,0xef,0x9e,0xe7,0x5c,0xd6,0xba,0xd6,0xba,
0xde,0xdb,0xe7,0x3c,0xef,0x5d,0xef,0x5d,0xef,0x7c,0xef,0x9d,0xef,0x7e,0xdf,0x1c,
0xef,0x9d,0xf7,0xde,0xf7,0x7d,0xf7,0x9d,0xf7,0x7d,0xe7,0x1b,0xde,0xdb,0xef,0x5c,
0xe7,0x3b,0xdf,0x1b,0xde,0xda,0xde,0xda,0xde,0xfa,0xd6,0xba,0xce,0x99,0xd6,0x99,
0xce,0x79,0xce,0x7a,0xd6,0x59,0xbd,0xd6,0xc6,0x18,0xce,0x79,0xc6,0x79,0xa5,0xb8,
0x3a,0x8c,0x19,0xeb,0x11,0xcb,0x19,0xec,0x11,0xcb,0x11,0xcb,0x11,0x8a,0x11,0x8a,
0x11,0x8a,0x19,0x8a,0x19,0x8a,0x19,0xaa,0x19,0xca,0x21,0xc9,0x84,0x53,0xe6,0xfc,
0xe6,0xfb,0xf6,0x98,0xaa,0x47,0xa9,0x22,0xb0,0xe0,0xb0,0xe0,0xa1,0x01,0xb2,0x06,
0xdb,0xac,0xc2,0xe9,0x99,0x01,0x90,0xc0,0x90,0xe1,0x88,0xc1,0x88,0xa0,0x80,0xa0,
0x78,0x80,0x70,0x80,0x70,0x80,0x70,0x80,0x68,0x80,0x68,0x81,0x68,0x81,0x68,0x81,
0x68,0x81,0x68,0x81,0x68,0x80,0x68,0x80,0x68,0x60,0x60,0x61,0x60,0x61,0x60,0xa0,
0x60,0x80,0x60,0x80,0x68,0x61,0x70,0x81,0x68,0x82,0x68,0x82,0x68,0x82,0x70,0x81,
0x70,0x81,0x68,0x60,0x68,0x80,0x68,0x80,0x68,0x81,0x70,0xa1,0x70,0x81,0x70,0x81,
0x80,0x81,0x88,0x81,0x88,0xc1,0x91,0x22,0x89,0xa4,0xf6,0x58,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xde,0xef,0xde,0xf7,0x9e,
0xef,0x9d,0xf7,0x9d,0xef,0x9d,0xef,0x7d,0xef,0x7d,0xef,0x9d,0xd6,0xba,0xef,0x9d,
0xf7,0xbe,0xf7,0xbe,0xf7,0xde,0xf7,0xbd,0xef,0xbd,0xef,0x9d,0xef,0x9d,0xef,0x5d,
0xef,0x7e,0xf7,0x9e,0xf7,0xbe,0xf7,0xbf,0xf7,0xde,0xf7,0xde,0xef,0xbd,0xe7,0x7c,
0xe7,0x7c,0xf7,0xde,0xef,0xbe,0xf7,0xbe,0xf7,0xbe,0xef,0x7d,0xe7,0x3c,0xef,0x5c,
0xe7,0x1b,0xde,0xda,0xde,0xb9,0xde,0xda,0xde,0xda,0xde,0xba,0xd6,0x79,0xd6,0x99,
0xce,0x78,0xce,0x58,0xc6,0x18,0xc6,0x17,0xc6,0x18,0xce,0x79,0xc6,0x79,0xbd,0xd8,
0x4a,0xee,0x1a,0x0b,0x11,0xcb,0x21,0xec,0x11,0x8a,0x19,0xca,0x11,0xaa,0x11,0xaa,
0x11,0x89,0x11,0x69,0x11,0x69,0x21,0xaa,0x21,0xa9,0x21,0xa9,0x53,0x2f,0xd6,0xbb,
0xdf,0x1b,0xf6,0x58,0xba,0x68,0xb1,0x22,0xa9,0x62,0xa9,0x01,0xa9,0x22,0xaa,0x05,
0xdc,0x2f,0xba,0xca,0xa0,0xe0,0xa8,0xe1,0xa8,0xe1,0xa8,0xa0,0xa0,0xa0,0xa0,0xc0,
0xa0,0xc0,0x90,0x80,0x88,0x60,0x80,0x40,0x78,0x61,0x70,0x41,0x70,0x61,0x68,0x61,
0x68,0x81,0x60,0x60,0x68,0x81,0x68,0x61,0x68,0x41,0x68,0x62,0x68,0x61,0x68,0x80,
0x68,0x60,0x60,0x60,0x68,0x61,0x60,0x61,0x60,0x41,0x68,0x81,0x68,0x82,0x70,0x82,
0x70,0x82,0x68,0x62,0x68,0x81,0x68,0x81,0x70,0x82,0x68,0x61,0x70,0x82,0x70,0x81,
0x70,0xa1,0x78,0x81,0x78,0x82,0x80,0xc3,0x79,0x44,0xf6,0x99,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xff,0xf7,0xde,0xef,0xbe,0xf7,0x9e,
0xef,0x9d,0xf7,0x9d,0xef,0x9d,0xf7,0x9d,0xef,0x9d,0xdf,0x3c,0xe7,0x5c,0xf7,0xde,
0xf7,0xde,0xf7,0xde,0xf7,0xbd,0xf7,0xde,0xf7,0xfe,0xf7,0xde,0xef,0xbd,0xef,0xbe,
0xef,0xbe,0xef,0xbe,0xf7,0xdf,0xf7,0xde,0xf7,0xfe,0xf7,0xfe,0xf7,0xde,0xef,0xbd,
0xe7,0x7c,0xef,0x9d,0xef,0x9d,0xf7,0xde,0xf7,0x9e,0xf7,0x9e,0xef,0x5c,0xef,0x3b,
0xde,0xda,0xc6,0x37,0xd6,0x79,0xd6,0x78,0xd6,0x99,0xd6,0x99,0xd6,0x79,0xd6,0x99,
0xce,0x58,0xce,0x38,0xc5,0xf7,0xbd,0xf7,0xc6,0x17,0xce,0x99,0xc6,0x58,0xbd,0xf8,
0x5b,0x6f,0x19,0xeb,0x19,0xec,0x19,0xcb,0x19,0xaa,0x11,0xaa,0x11,0x89,0x11,0x89,
0x11,0x89,0x11,0x8a,0x19,0x8a,0x21,0xaa,0x21,0xa9,0x21,0x89,0x3a,0x6c,0xce,0x9a,
0xdf,0x1b,0xf6,0x79,0xba,0x89,0xb1,0x42,0xb1,0x62,0xb1,0x42,0xb1,0x22,0xaa,0x05,
0xdc,0x4f,0xbb,0x0a,0xa0,0xe1,0xa9,0x01,0xb0,0xe1,0xa8,0xc1,0xa8,0xc0,0xa8,0xc0,
0xa8,0xe0,0xa0,0xc1,0x98,0xc1,0x90,0xa1,0x90,0xa1,0x88,0x81,0x80,0x60,0x78,0x60,
0x78,0x60,0x70,0x40,0x70,0x40,0x70,0x60,0x68,0x61,0x68,0x61,0x68,0x81,0x68,0x81,
0x60,0x80,0x60,0x61,0x60,0x81,0x60,0x61,0x68,0x61,0x68,0x61,0x68,0x61,0x68,0x61,
0x68,0x61,0x68,0x61,0x68,0x61,0x60,0x61,0x68,0x82,0x60,0x61,0x68,0x82,0x68,0xa1,
0x68,0x81,0x70,0xa1,0x70,0x82,0x78,0xa2,0x69,0x24,0xf6,0xb9,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xbe,0xef,0xbe,0xef,0xbe,0xef,0x9e,0xef,0x9d,0xf7,0x9e,
0xef,0x9d,0xf7,0x9d,0xf7,0x9d,0xf7,0xbe,0xef,0x9d,0xd6,0xda,0xf7,0xff,0xf7,0xde,
0xf7,0xde,0xf7,0xde,0xf7,0xfe,0xf7,0xfe,0xf7,0xde,0xf7,0xde,0xf7,0xde,0xef,0xde,
0xef,0xde,0xef,0xde,0xf7,0xff,0xf7,0xff,0xf7,0xfe,0xf7,0xde,0xef,0xbd,0xef,0xbd,
0xe7,0x7c,0xef,0x9d,0xf7,0xde,0xef,0x7d,0xef,0x7d,0xf7,0xbe,0xef,0x7d,0xde,0xda,
0xce,0x38,0xc6,0x37,0xce,0x38,0xce,0x78,0xd6,0x79,0xd6,0x79,0xd6,0x79,0xd6,0x99,
0xce,0x58,0xc6,0x17,0xc5,0xf7,0xbd,0xd7,0xbd,0xf7,0xc6,0x38,0xc6,0x38,0xbd,0xf8,
0x6b,0xf1,0x1a,0x0a,0x1a,0x0b,0x19,0xcb,0x11,0x8a,0x11,0x89,0x11,0xaa,0x11,0x89,
0x11,0x8a,0x11,0x8a,0x19,0x69,0x19,0x89,0x19,0x89,0x21,0x89,0x32,0x0a,0xbe,0x18,
0xdf,0x3c,0xf6,0x78,0xba,0x88,0xb9,0x83,0xb1,0x62,0xb9,0x62,0xb1,0x42,0xaa,0x05,
0xdc,0x6f,0xc3,0x2b,0xa9,0x01,0xa9,0x01,0xb1,0x01,0xa8,0xe1,0xa8,0xe1,0xb1,0x00,
0xb0,0xe0,0xa8,0xe0,0xa0,0xa0,0xa0,0xa0,0xa0,0xa0,0xa0,0x80,0xa0,0xa1,0x98,0xa1,
0x98,0xa0,0x90,0x60,0x88,0x80,0x80,0x60,0x78,0x60,0x68,0x40,0x68,0x60,0x68,0x81,
0x68,0x60,0x60,0x61,0x60,0x81,0x58,0x81,0x58,0x61,0x60,0x81,0x58,0x61,0x60,0x81,
0x58,0x81,0x58,0x81,0x60,0x61,0x60,0x61,0x60,0x82,0x58,0x61,0x60,0x81,0x60,0x61,
0x60,0x81,0x58,0x40,0x60,0x81,0x68,0xc2,0x61,0x03,0xf6,0xda,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0xbe,0xf7,0xbe,0xf7,0xbe,0xef,0x9e,0xef,0x9e,0xef,0x9d,
0xf7,0xbe,0xef,0x7d,0xf7,0xbe,0xef,0x9d,0xef,0x7d,0xdf,0x1b,0xf7,0xbe,0xf7,0xde,
0xf7,0xbe,0xf7,0xde,0xf7,0xde,0xf7,0xfe,0xf7,0xfe,0xf7,0xfe,0xf7,0xbd,0xef,0xdd,
0xef,0xdd,0xf7,0xfe,0xf7,0xfe,0xf7,0xfe,0xf7,0xfe,0xf7,0xfe,0xef,0xbd,0xf7,0xde,
0xef,0xbd,0xe7,0x5c,0xef,0x9d,0xf7,0xbe,0xff,0xff,0xf7,0x9d,0xf7,0x7d,0xde,0xb9,
0xce,0x78,0xd6,0x78,0xce,0x58,0xd6,0x78,0xce,0x58,0xce,0x58,0xd6,0x79,0xce,0x78,
0xce,0x38,0xc6,0x17,0xbd,0xd7,0xbd,0xd7,0xbd,0xd6,0xbd,0xf7,0xc6,0x38,0xbe,0x18,
0x74,0x52,0x19,0xc9,0x11,0xca,0x21,0xeb,0x11,0x8a,0x11,0x89,0x09,0x69,0x11,0x8a,
0x11,0x89,0x11,0x69,0x11,0x69,0x19,0x89,0x21,0xa9,0x21,0xa9,0x29,0xea,0xc6,0x59,
0xdf,0x5c,0xf6,0x78,0xba,0xa9,0xb1,0x42,0xb1,0x62,0xb1,0x01,0xb1,0x42,0xaa,0x26,
0xdc,0x90,0xcb,0xad,0xa9,0x01,0xa8,0xe1,0xb1,0x01,0xb1,0x01,0xa9,0x01,0xb0,0xe0,
0xb1,0x01,0xb0,0xe0,0xa8,0xc0,0xa8,0xe0,0xa8,0xc0,0xa8,0xa0,0xa8,0xa0,0xa8,0xa0,
0xa0,0xa0,0xa8,0xa0,0xa0,0xa0,0x98,0xa0,0x90,0x80,0x88,0x80,0x88,0xa0,0x80,0x80,
0x78,0x60,0x70,0x20,0x68,0x40,0x68,0x60,0x58,0x60,0x50,0x60,0x50,0x60,0x50,0xa1,
0x50,0xa1,0x48,0x80,0x58,0x61,0x58,0x61,0x58,0x61,0x58,0x61,0x58,0x61,0x58,0x61,
0x50,0x62,0x50,0x81,0x50,0x82,0x58,0xc2,0x61,0x66,0xe6,0x79,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xf7,0x9e,0xf7,0x9e,0xf7,0xbe,0xf7,0x9e,0xf7,0x9e,0xf7,0xbe,
0xef,0x7d,0xf7,0xbe,0xef,0x9d,0xef,0x9d,0xce,0x99,0xf7,0xbe,0xef,0x9d,0xef,0xbe,
0xf7,0xbe,0xf7,0xde,0xf7,0xde,0xef,0xbd,0xf7,0xde,0xef,0xbd,0xef,0x7c,0xef,0x7c,
0xef,0x9d,0xef,0x9d,0xf7,0xbd,0xf7,0xde,0xf7,0xfe,0xf7,0xfe,0xf7,0xde,0xef,0xbd,
0xef,0xbd,0xe7,0x5c,0xe7,0x5c,0xf7,0xbe,0xf7,0xbe,0xf7,0x9e,0xf7,0x9d,0xe6,0xfb,
0xd6,0x99,0xde,0xb9,0xd6,0x78,0xd6,0x99,0xce,0x58,0xce,0x38,0xce,0x38,0xce,0x38,
0xc6,0x17,0xc5,0xf7,0xbd,0xb6,0xbd,0xb6,0xb5,0x95,0xb5,0xb6,0xb5,0xf7,0xbe,0x18,
0x6c,0x11,0x22,0x0a,0x1a,0x0b,0x19,0xaa,0x11,0x8a,0x11,0x8a,0x11,0x89,0x11,0x89,
0x11,0x89,0x11,0x69,0x11,0x69,0x19,0x89,0x19,0x69,0x21,0x89,0x21,0xc9,0xa5,0x76,
0xe7,0x7d,0xf6,0xb9,0xc2,0xea,0xb1,0x83,0xb1,0x62,0xc1,0x63,0xb1,0x22,0xaa,0x25,
0xdc,0x90,0xd4,0x0e,0xa9,0x22,0xa9,0x01,0xb1,0x01,0xb1,0x01,0xa9,0x01,0xb1,0x01,
0xb1,0x21,0xa8,0xe0,0xb1,0x01,0xa8,0xe0,0xb1,0x01,0xa8,0xe0,0xa8,0xc0,0xb0,0xe1,
0xb1,0x01,0xa8,0xc0,0xb0,0xc0,0xb0,0xc1,0xa8,0xa0,0xa0,0x80,0xa0,0x80,0xa0,0x81,
0x98,0xa1,0x90,0xa1,0x88,0x80,0x80,0xa1,0x70,0x41,0x68,0x41,0x60,0x20,0x58,0x20,
0x58,0x61,0x58,0x81,0x50,0x61,0x50,0x61,0x50,0x61,0x50,0x61,0x50,0x61,0x50,0x61,
0x50,0x61,0x48,0x81,0x50,0xa2,0x50,0xc2,0x61,0xc7,0xe6,0x9a,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xef,0x9e,0xf7,0x9e,0xf7,0xbe,0xf7,0xbd,0xf7,0x9d,0xf7,0x9d,
0xf7,0xbe,0xef,0x9d,0xef,0x9d,0xf7,0xbe,0xdf,0x1b,0xef,0x9d,0xf7,0x9d,0xef,0x9d,
0xf7,0xbd,0xf7,0x9d,0xef,0x9d,0xf7,0x9d,0xef,0x7d,0xe7,0x5b,0xe7,0x1b,0xe7,0x5b,
0xde,0xfa,0xe7,0x3b,0xf7,0x9d,0xf7,0x9e,0xf7,0xfe,0xf7,0xfe,0xef,0xbd,0xf7,0xbe,
0xf7,0xbe,0xef,0x9e,0xdf,0x5b,0xef,0xbd,0xf7,0xbe,0xf7,0x9e,0xef,0x5d,0xe7,0x5c,
0xd6,0x99,0xd6,0x79,0xd6,0x99,0xce,0x99,0xde,0x99,0xc6,0x17,0xce,0x17,0xce,0x37,
0xbd,0xf6,0xc6,0x17,0xbd,0xb6,0xbd,0xb6,0xb5,0xb6,0xb5,0x95,0xad,0x95,0xad,0x96,
0x6c,0x10,0x19,0xa8,0x19,0xca,0x19,0xaa,0x11,0x8a,0x11,0x8a,0x09,0x69,0x11,0x8a,
0x09,0x69,0x11,0x89,0x19,0x8a,0x11,0x69,0x19,0x89,0x19,0x88,0x21,0xc9,0x8c,0x72,
0xe7,0x5c,0xf6,0xda,0xba,0xea,0xb1,0x63,0xa9,0x21,0xb9,0x22,0xb1,0x42,0xaa,0x46,
0xdc,0xaf,0xd4,0x2e,0xa9,0x21,0xa8,0xe0,0xb9,0x42,0xb0,0xe1,0xa8,0xc0,0xa9,0x01,
0xa9,0x01,0xa8,0xe1,0xb1,0x01,0xa9,0x00,0xb1,0x21,0xb0,0xe0,0xb8,0xe1,0xb0,0xc0,
0xb0,0xc1,0xb0,0xe1,0xa8,0xc0,0xa8,0xc0,0xb0,0xc0,0xa8,0xa0,0xa8,0xa0,0xa8,0xc0,
0xa0,0xa0,0x98,0x80,0x98,0x60,0xa0,0xc2,0x98,0xa2,0x88,0x81,0x90,0xa2,0x80,0x82,
0x80,0x82,0x78,0x61,0x60,0x20,0x60,0x81,0x50,0x80,0x50,0x81,0x50,0x81,0x48,0x62,
0x40,0x62,0x30,0x41,0x38,0x82,0x40,0xe4,0x49,0x46,0xe6,0x9b,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xef,0x7e,0xf7,0x9e,0xf7,0x9d,0xf7,0x9d,0xef,0x9d,0xf7,0x9d,
0xf7,0x9d,0xf7,0x9d,0xf7,0x9d,0xe7,0x1b,0xe7,0x3c,0xf7,0x9d,0xf7,0x9d,0xef,0x9d,
0xef,0x9d,0xef,0x7c,0xef,0x7d,0xef,0x9d,0xe7,0x3b,0xde,0xfa,0xde,0xfa,0xdf,0x19,
0xdf,0x1a,0xdf,0x1a,0xf7,0x9d,0xf7,0x9e,0xf7,0xfe,0xf7,0xfe,0xf7,0xde,0xf7,0xbe,
0xf7,0x9e,0xef,0x7d,0xdf,0x5b,0xe7,0x9d,0xef,0x9d,0xf7,0x9e,0xf7,0x9e,0xef,0x5c,
0xd6,0x99,0xd6,0x79,0xd6,0x99,0xce,0x99,0xce,0x37,0xce,0x17,0xce,0x57,0xc6,0x37,
0xbd,0xf6,0xbd,0xf6,0xbd,0xb5,0xb5,0x95,0xb5,0x95,0xad,0x75,0xa5,0x55,0x95,0x34,
0x4b,0x0d,0x19,0xc9,0x19,0xaa,0x19,0xca,0x11,0x8a,0x11,0x8a,0x09,0x69,0x09,0x69,
0x09,0x89,0x11,0xaa,0x11,0x6a,0x11,0x69,0x19,0xaa,0x21,0xa9,0x29,0xea,0x7b,0xf0,
0xe7,0x5c,0xfe,0xfa,0xba,0xea,0xb9,0xa4,0xb1,0x21,0xb9,0x22,0xb1,0x22,0xb2,0x66,
0xe4,0xd0,0xd3,0xed,0xa9,0x21,0xa9,0x01,0xb0,0xe1,0xb0,0xe1,0xb1,0x01,0xb1,0x01,
0xb0,0xe1,0xa8,0xe0,0xb0,0xe0,0xa8,0xe0,0xa8,0xe0,0xb1,0x21,0xb0,0xe1,0xb0,0xe0,
0xb0,0xe1,0xb0,0xe1,0xb0,0xe1,0xb0,0xe0,0xa8,0xc0,0xa8,0xc0,0xa8,0xc0,0xa8,0xe0,
0xa8,0xc0,0xa8,0xc0,0xa8,0xa1,0xa0,0x81,0xa0,0xc2,0x98,0xa1,0x98,0x81,0x98,0xc2,
0x90,0xa2,0x88,0x81,0x88,0xa2,0x78,0xe2,0x79,0x64,0x68,0xe1,0x58,0x60,0x50,0x62,
0x38,0x20,0x28,0x20,0x28,0x83,0x38,0xa5,0x28,0xc4,0xde,0xbb,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xef,0x7d,0xef,0x9d,0xf7,0x9d,0xef,0x9d,0xef,0x7d,0xef,0x9d,
0xef,0x7d,0xf7,0x9d,0xf7,0xbe,0xd6,0x9a,0xef,0x5c,0xef,0x9d,0xef,0x7c,0xf7,0x9d,
0xef,0x9d,0xef,0x7c,0xe7,0x3c,0xe7,0x3c,0xdf,0x1b,0xde,0xda,0xde,0xda,0xde,0xd9,
0xde,0xd9,0xe7,0x3b,0xef,0x7d,0xf7,0x9d,0xf7,0xde,0xf7,0xfe,0xf7,0xde,0xf7,0xbd,
0xf7,0x9d,0xef,0x7d,0xdf,0x5c,0xdf,0x5c,0xef,0x9d,0xef,0x9e,0xef,0x9e,0xef,0x7c,
0xde,0xb9,0xd6,0x98,0xd6,0x98,0xd6,0x98,0xce,0x37,0xce,0x37,0xce,0x16,0xc6,0x16,
0xc6,0x16,0xbd,0xd5,0xb5,0x94,0xb5,0x94,0xb5,0x95,0xad,0x75,0x9d,0x13,0x84,0x92,
0x32,0x6b,0x19,0xca,0x19,0xaa,0x19,0xaa,0x11,0x8a,0x11,0x8a,0x09,0x69,0x11,0x8a,
0x09,0x69,0x11,0x8a,0x11,0x6a,0x19,0x8a,0x21,0xaa,0x21,0xa9,0x29,0xea,0x63,0x2d,
0xdf,0x3c,0xfe,0xfa,0xba,0xc9,0xb1,0x83,0xb1,0x42,0xb9,0x42,0xb1,0x21,0xaa,0x05,
0xdc,0x8f,0xd4,0x0d,0xa9,0x41,0xa9,0x01,0xb9,0x01,0xb0,0xe1,0xb0,0xe1,0xb0,0xc0,
0xb0,0xc0,0xa8,0xc0,0xb0,0xe0,0xb0,0xe0,0xb0,0xc0,0xb0,0xe0,0xb1,0x01,0xb1,0x01,
0xb0,0xe1,0xb0,0xe1,0xb1,0x01,0xb0,0xe0,0xb1,0x01,0xa8,0xc0,0xa8,0xc0,0xa8,0xe0,
0xa8,0xc0,0xa0,0xa0,0xa0,0x80,0xa8,0xa1,0xa0,0x80,0xa0,0x80,0x98,0x80,0x98,0x80,
0x98,0x81,0x98,0x80,0x98,0xc1,0x89,0x22,0xb2,0xc9,0x91,0x84,0x88,0xe1,0x78,0xe2,
0x50,0x60,0x30,0x61,0x20,0x62,0x20,0x84,0x20,0xc4,0xd6,0xbb,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xef,0x9d,0xf7,0x9d,0xf7,0xbe,0xef,0x9d,0xef,0x9d,0xef,0x7d,
0xf7,0xbe,0xf7,0x9e,0xef,0x7d,0xce,0x99,0xef,0x7d,0xef,0x9d,0xef,0x9d,0xef,0x7c,
0xef,0x7d,0xe7,0x3c,0xe7,0x1c,0xe7,0x1b,0xde,0xfb,0xde,0xfa,0xde,0xfa,0xde,0xfa,
0xe7,0x3b,0xef,0x9c,0xef,0x7c,0xf7,0x9d,0xef,0xbd,0xf7,0xde,0xf7,0xbd,0xf7,0xbd,
0xf7,0x9d,0xef,0x7c,0xe7,0x3c,0xe7,0x3c,0xef,0x9d,0xf7,0xbd,0xef,0x7c,0xef,0x1a,
0xd6,0x98,0xd6,0x98,0xd6,0x98,0xd6,0x77,0xce,0x16,0xce,0x16,0xc5,0xf6,0xc5,0xf5,
0xc5,0xf6,0xbd,0xb5,0xb5,0x94,0xb5,0x74,0xad,0x74,0xad,0x54,0x9d,0x13,0x74,0x11,
0x21,0xea,0x11,0x89,0x11,0xca,0x19,0xca,0x11,0xaa,0x11,0x8a,0x11,0x8a,0x11,0x8a,
0x11,0x8a,0x11,0x8a,0x11,0x6a,0x19,0x8a,0x19,0x68,0x32,0x0a,0x42,0x6b,0xa5,0x15,
0xdf,0x5c,0xf6,0xb9,0xba,0xc9,0xb9,0xa4,0xb1,0x42,0xc1,0x42,0xb9,0x22,0xa9,0xe4,
0xdc,0x4e,0xcb,0x6c,0xa9,0x21,0xa9,0x01,0xb0,0xe1,0xb0,0xe1,0xb1,0x01,0xb0,0xe1,
0xb0,0xe1,0xb1,0x00,0xb0,0xe0,0xb9,0x00,0xc0,0xe1,0xb8,0xe1,0xa9,0x01,0xa9,0x00,
0xb9,0x02,0xc1,0x02,0xb1,0x01,0xa8,0xe0,0xa8,0xe0,0xa8,0xe0,0xa8,0xc0,0xa8,0xc0,};
/****************************************************
* D) Function Prototypes                            *
****************************************************/
void data_out(unsigned char i)
{
	P1=i;
	P3=PREDATA;
	P3=WDATA;
	P3=DISCS;
}

void comm_out(unsigned char i)
{
	P1=i;
	P3=PRECMD;
	P3=WCMD;
	P3=DISCS;
}

void delay(unsigned int n)              /* wait n seconds*/
{