/* 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();
}