void?INTR(void)
{
unsigned?char?code?SYSTAB[]={0x30,0x87,0x07,0x27,0x42,0xf0,0x28,0x00};?//?control?parameter
unsigned?char?code?SCRTAB[]={0x00,0x00,0xf0,0x00,0x40,0xf0,0x00,0x80,0x00,0x00};
unsigned?char?i=0x0;

WC_ADD?=?0x40;
for(i?=?0?;i?{
WD_ADD?=?SYSTAB[i];
}
WC_ADD?=?0x44;
for(i?=?0;i?{
WD_ADD?=?SCRTAB[i];
}
WC_ADD?=?0x5a;
WD_ADD?=?0x0;
WC_ADD?=?0x5b;
WD_ADD?=?0x0;
WC_ADD?=?0x59;
WD_ADD?=?0x54;

}

void?CLEAR(void)
{
unsigned?char?i=0,j=0;

WC_ADD?=?0x4c;
WC_ADD?=?0x46;
WD_ADD?=?0x0;
WD_ADD?=?0x0;
WC_ADD?=?0x42;
for(i?=?0;i?{
for(j?=?0;j?{?WD_ADD?=?0x0;
}
}
}

void?CCTW(unsigned?int?x,unsigned?char?y,unsigned?char?m,unsigned?char?n,unsigned?char?*p)
{
unsigned?char?ap=0x28,i,j,k,tt=0,uu=0,rr=0,ee=0,ff=0,gg=0;?/*ap?修改?P7,?行字符個數?*/
unsigned?int?l;

tt?=?x%8;
x=x/8;
l?=?y*ap?+?x+0x4000;
x?=?(unsigned?char)(l&0x00ff);
y?=?(unsigned?char)((l&0xff00)>>8);

WC_ADD=0x4c;?/*設置光標“右”移動方式?*/

for(i=0;i{
WC_ADD?=?0x46;?/*?光標指針設置?*/
WD_ADD?=?x;?/*?光標地址16位?*/
WD_ADD?=?y;

if(tt==0)
{
WC_ADD?=?0x42;?/*?連續寫入數據*/

for?(j=0;j{
WD_ADD?=?*p;
p++?;
}
}?/*?0?1?2?3?*/
else?{?/*?0---7?8---16?17---24?25---32*/

for(j=0;j{

RD_ADD=0x43;?/*?讀數據?*/
uu=RD_ADD;
rr=RD_ADD;

/*-----------------------------------------------------*/
gg=*p;?/*?處理數據*/
p++;
k=uu>>(8-tt);
k=k<<(8-tt);?//?高位
ee=k;
k=gg>>tt;?//?移高位作為低位
ee=ee|k;
/*-----------*/
k=rr<k=k>>tt;?//?低位
ff=k;
k=gg<<(8-tt);
ff=ff|k;
/*--------------------------------------------------------------*/

WC_ADD=0x4d;?/*改變光標“左”移動方式?*/
RD_ADD=0x43;
k=RD_ADD;
k=RD_ADD;

WC_ADD=0x4c;?/*非復光標“右”移動方式?*/

WC_ADD?=?0x42;?/*?送數據兩個?*/

WD_ADD?=ee;
WD_ADD?=ff;

/*本送一個數據，前面送了兩個，需要返回一個*/

WC_ADD=0x4d;?/*改變光標“左”移動方式?*/
RD_ADD=0x43;
k=RD_ADD;
k=RD_ADD;

WC_ADD=0x4c;?/*非復光標“右”移動方式?*/
RD_ADD=0x43;
k=RD_ADD;
}

}

l=(ap+x+(y<<8));
x=(unsigned?char)(l&0x00ff);
y=(unsigned?char)((l&0xff00)>>8);
}

}

void?dot?(unsigned?int?x,unsigned?char?y,bit?c)
{

unsigned?char?ap=0x28,tt=0,uu=0,gg=0,k=0;?/*ap?修改?P7,?行字符個數?*/
unsigned?int?l=0;

tt?=?x%8;
x?=?x/8;
l?=?y*ap?+?x+0x4000;
x?=?(unsigned?char)(l&0x00ff);
y?=?(unsigned?char)((l&0xff00)>>8);

WC_ADD?=?0x4c;
WC_ADD?=?0x46;?/*?光標指針設置?*/
WD_ADD?=?x;?/*?光標地址16位?*/
WD_ADD?=?y;
RD_ADD=0x43;?/*?讀數據?*/
uu=RD_ADD;

if(c)
{
gg?=?1;
gg?=gg<<(7-tt);
uu=uu|gg;
}
else?{
gg?=?1;
gg?=gg<<(7-tt);
gg?=?~gg;
uu=uu≫
}

WC_ADD=0x4d;
RD_ADD=0x43;
k=RD_ADD;

WC_ADD?=?0x4c;?/*非復光標“右”移動方式?*/
WC_ADD?=?0x42;?/*?送數據兩個?*/
WD_ADD?=?uu;

}