/* Graphic LCD 128X64 dot 용 예제파일입니다.
드라이버가 HD61202 이던데...아마 대부분 이거일듯...
74LS573 2개를 사용해서 1개는 LCD data 라인으로(핀7번-14번)
나머지 1개의 0번부터 다섯개를 LCD control 라인으로(핀 4(D/I),5(R/W),6(E),
15(CS1),16(CS2)) 자세한건 data sheet 참고하세요
그렇게 해서 LCD data 용 573을 0x1000으로
control용 575을 0x1001로...이건 본인 만든 디코더에 맞게 조정하면 됩니다. */

#pragma code
#pragma model(kc)

#include <80c196.h>

#define E_H 0x04					/* LCD 제어용 */
#define R 0x02
#define W 0x00
#define D 0x01
#define I 0x00
#define C1 0x08
#define C2 0x10
#define B_OFF 0x80

#define startL 0xc0
#define startX 0xb8
#define startY 0x40

const char font[95][5] = {
				 {0x00, 0x00, 0x00, 0x00, 0x00},	/* 20 SPACE */
			     {0x00, 0x00, 0x4f, 0x00, 0x00},	/*21 !	*/
			     {0x00, 0x07, 0x00, 0x07, 0x00},	/*22 "	*/
			     {0x14, 0x7f, 0x14, 0x7f, 0x14},	/*23 #	*/
			     {0x24, 0x2a, 0x7f, 0x2a, 0x12},	/*24 $	*/
			     {0x23, 0x13, 0x08, 0x64, 0x62},	/*25 %	*/
			     {0x36, 0x49, 0x55, 0x22, 0x50},	/*26 &	*/
			     {0x00, 0x05, 0x03, 0x00, 0x00},	/*27 '	*/
			     {0x00, 0x1c, 0x22, 0x41, 0x00},	/*28 (	*/
			     {0x00, 0x41, 0x22, 0x1c, 0x00},	/*29 )	*/
			     {0x14, 0x08, 0x3e, 0x08, 0x14},	/*2a *	*/
			     {0x08, 0x08, 0x3e, 0x08, 0x08},	/*2b +	*/
			     {0x00, 0x50, 0x30, 0x00, 0x00},	/*2c ,	*/
			     {0x08, 0x08, 0x08, 0x08, 0x08},	/*2d -	*/
			     {0x00, 0x60, 0x60, 0x00, 0x00},	/*2e .	*/
			     {0x20, 0x10, 0x08, 0x04, 0x02},	/*2f /	*/
			     {0x3e, 0x51, 0x49, 0x45, 0x3e},	/*30 0	*/
			     {0x00, 0x42, 0x7f, 0x40, 0x00},	/*31 1	*/
			     {0x42, 0x61, 0x51, 0x49, 0x46},	/*32 2	*/
			     {0x21, 0x41, 0x45, 0x4b, 0x31},	/*33 3	*/
			     {0x18, 0x14, 0x12, 0x7f, 0x10},	/*34 4	*/
			     {0x27, 0x45, 0x45, 0x45, 0x39},	/*35 5	*/
			     {0x3c, 0x4a, 0x49, 0x49, 0x30},	/*36 6	*/
			     {0x01, 0x71, 0x09, 0x05, 0x03},	/*37 7	*/
			     {0x36, 0x49, 0x49, 0x49, 0x36},	/*38 8	*/
			     {0x06, 0x49, 0x49, 0x29, 0x1e},	/*39 9	*/
			     {0x00, 0x36, 0x36, 0x00, 0x00},	/*3a :	*/
			     {0x00, 0x56, 0x36, 0x00, 0x00},	/*3b ;	*/
			     {0x08, 0x14, 0x22, 0x41, 0x00},    /*3c <	*/
			     {0x14, 0x14, 0x14, 0x14, 0x14},	/*3d =	*/
			     {0x00, 0x41, 0x22, 0x14, 0x08},	/*3e >	*/
			     {0x02, 0x01, 0x51, 0x09, 0x06},	/*3f ?	*/
			     {0x32, 0x49, 0x79, 0x41, 0x3e},	/*40 @	*/
			     {0x7e, 0x11, 0x11, 0x11, 0x7e},	/*41 A	*/
			     {0x7f, 0x49, 0x49, 0x49, 0x36},	/*42 B	*/
			     {0x3e, 0x41, 0x41, 0x41, 0x22},	/*43 C	*/
			     {0x7f, 0x41, 0x41, 0x22, 0x1c},	/*44 D	*/
			     {0x7f, 0x49, 0x49, 0x49, 0x41},	/*45 E	*/
			     {0x7f, 0x09, 0x09, 0x09, 0x01},	/*46 F	*/
			     {0x3e, 0x41, 0x49, 0x49, 0x7a},	/*47 G	*/
			     {0x7f, 0x08, 0x08, 0x08, 0x7f},	/*48 H	*/
			     {0x00, 0x41, 0x7f, 0x41, 0x00},	/*49 I	*/
			     {0x20, 0x40, 0x41, 0x3f, 0x01},	/*4a J	*/
			     {0x7f, 0x08, 0x14, 0x22, 0x41},	/*4b K	*/
			     {0x7f, 0x40, 0x40, 0x40, 0x40},	/*4c L	*/
			     {0x7f, 0x02, 0x0c, 0x02, 0x7f},	/*4d M	*/
			     {0x7f, 0x04, 0x08, 0x10, 0x7f},	/*4e N	*/
			     {0x3e, 0x41, 0x41, 0x41, 0x3e},	/*4f O	*/
			     {0x7f, 0x09, 0x09, 0x09, 0x06},	/*50 P	*/
			     {0x3e, 0x41, 0x51, 0x21, 0x5e},	/*51 Q	*/
			     {0x7f, 0x09, 0x19, 0x29, 0x46},	/*52 R	*/
			     {0x46, 0x49, 0x49, 0x49, 0x31},	/*53 S	*/
			     {0x01, 0x01, 0x7f, 0x01, 0x01},	/*54 T	*/
			     {0x3f, 0x40, 0x40, 0x40, 0x3f},	/*55 U	*/
			     {0x1f, 0x20, 0x40, 0x20, 0x1f},	/*56 V	*/
			     {0x3f, 0x40, 0x3c, 0x40, 0x3f},	/*57 W	*/
			     {0x63, 0x14, 0x08, 0x14, 0x63},	/*58 X	*/
			     {0x07, 0x08, 0x70, 0x08, 0x07},	/*59 Y	*/
			     {0x61, 0x51, 0x49, 0x45, 0x43},	/*5a Z	*/
			     {0x00, 0x7f, 0x41, 0x41, 0x00},	/*5b [	*/
			     {0x02, 0x04, 0x08, 0x10, 0x20},	/*5c \	*/
			     {0x00, 0x41, 0x41, 0x7f, 0x00},	/*5d ]	*/
			     {0x04, 0x02, 0x01, 0x02, 0x04},	/*5e ^	*/
			     {0x40, 0x40, 0x40, 0x40, 0x40},	/*5f _	*/
			     {0x00, 0x01, 0x02, 0x04, 0x00},	/*60 `	*/
			     {0x20, 0x54, 0x54, 0x54, 0x78},	/*61 a	*/
			     {0x7f, 0x48, 0x44, 0x44, 0x38},	/*62 b	*/
			     {0x38, 0x44, 0x44, 0x44, 0x20},	/*63 c	*/
			     {0x38, 0x44, 0x44, 0x48, 0x7f},	/*64 d	*/
			     {0x38, 0x54, 0x54, 0x54, 0x18},	/*65 e	*/
			     {0x08, 0x7e, 0x09, 0x01, 0x02},	/*66 f	*/
			     {0x0c, 0x52, 0x52, 0x52, 0x3e},	/*67 g	*/
			     {0x7f, 0x08, 0x04, 0x04, 0x78},	/*68 h	*/
			     {0x00, 0x08, 0x7a, 0x00, 0x00},	/*69 i	*/
			     {0x20, 0x40, 0x44, 0x3d, 0x00},	/*6a j	*/
			     {0x7f, 0x10, 0x28, 0x44, 0x00},	/*6b k	*/
			     {0x00, 0x40, 0x7f, 0x40, 0x00},	/*6c l	*/
			     {0x7c, 0x04, 0x18, 0x04, 0x7c},	/*6d m	*/
			     {0x7c, 0x08, 0x04, 0x04, 0x78},	/*6e n	*/
			     {0x38, 0x44, 0x44, 0x44, 0x38},	/*6f o	*/
			     {0x7c, 0x14, 0x14, 0x14, 0x08},	/*70 p	*/
			     {0x08, 0x14, 0x14, 0x18, 0x7c},	/*71 q	*/
			     {0x7c, 0x08, 0x04, 0x04, 0x08},	/*72 r	*/
			     {0x48, 0x54, 0x54, 0x54, 0x20},	/*73 s	*/
			     {0x04, 0x3f, 0x44, 0x40, 0x20},	/*74 t	*/
			     {0x3c, 0x40, 0x40, 0x20, 0x7c},	/*75 u	*/
			     {0x1c, 0x20, 0x40, 0x20, 0x1c},	/*76 v	*/
			     {0x3c, 0x40, 0x20, 0x40, 0x3c},	/*77 w	*/
			     {0x44, 0x28, 0x10, 0x28, 0x44},	/*78 x	*/
			     {0x0c, 0x50, 0x50, 0x50, 0x3c},	/*79 y	*/
			     {0x44, 0x64, 0x54, 0x4c, 0x44},	/*7a z	*/
			     {0x00, 0x08, 0x36, 0x41, 0x00},	/*7b {	*/
			     {0x00, 0x00, 0x77, 0x00, 0x00},	/*7c |	*/
			     {0x00, 0x41, 0x36, 0x08, 0x00},	/*7d }	*/
			     {0x08, 0x04, 0x08, 0x10, 0x08}};	/*7e ~	*/

unsigned char *LCD_CON;		/* LCD 제어신호용 */
unsigned char *LCD;			/* LCD 데이터 출력용 */


void busy(void)
{
	*LCD_CON = I + R + E_H + C1 + C2 + B_OFF;
	while((*LCD & 0x80));
}


void control(int DI, int RW, int chip)
{
	busy();
	*LCD_CON = DI + RW + E_H + chip + B_OFF;
}


void goline(int x)			/* 줄 바꾸기 */
{
	control(I, W, C1+C2);
	*LCD = startX+x;
	control(I, W, C1);
	*LCD = startY+4;
	control(I, W, C2);
	*LCD = startY;
}


void position(int x, int y, int chip)		/* 좌표 설정 */
{
	int tap=4;

	if(chip == C2) tap=0;
	control(I, W, chip);
	*LCD = startX+x;
	control(I, W, chip);
	*LCD = startY+tap+(y*6);
}


void clear(int chip)						/* 화면 클리어 */
{
	int x, y;

	for(x=0; x<8; x++)
	{
		control(I, W, chip);
		*LCD = startX+x;
		control(I, W, chip);
		*LCD = startY;
		for(y=0; y<64; y++)
		{
			control(D, W, chip);
			*LCD = 0x00;
			busy();
		}
	}
}


void Cput(unsigned char c, int chip)		/* 한문자 출력 */
{
	int y;

	for(y=0; y<6; y++)
	{
		control(D, W, chip);
		if(y>4) *LCD = 0x00;
		else *LCD = font[c-0x20][y];
		busy();
	}
}


void Sput(char *text)						/* 문장 출력 */
{
	int length=0, i, chip;

	length = strlen(text);
	chip=C1;
	for(i=0; i<length; i++)
	{
		if(i==10) chip=C2;
		Cput(*(text+i), chip);
	}
}


void Nput(unsigned char n, int chip)		/* 세자리 숫자 출력 */
{
	unsigned char n1, n2, n3;

	n1 = n/100 + 0x30;
	n2 = (n-(n/100)*100)/10 + 0x30;
	n3 = (n-(n/100)*100)%10 + 0x30;
	Cput(n1, chip);
	Cput(n2, chip);
	Cput(n3, chip);
}


void LCD_en(void)							/* LCD ON */
{
	int y, i;

	busy();
	control(I, W, C1+C2);
	*LCD = 0x3f;

	clear(C1+C2);

	control(I, W, C1+C2);
	*LCD = startL;
}


void main(void)
{
	LCD = (unsigned char *)0x1000;
	LCD_CON = (unsigned char *)0x1001;

	LCD_en();



	/* 실제 프로그램 */



	control(I, W, C1+C2);
	*LCD = 0x3e;
	busy();

	idle();
}