void Dat_R(uchar d)
{
 CSA=1;
 CSB=0;/*右半屏片選*/
 R_W=1;
 D_I=0;
Loop2:
 P1=0xFF;
 E=1;/*使能*/
 q=P1;
 E=0;
 if(q&0x80)
 {
 goto Loop2;
 }/*判忙*/
 D_I=1;
 R_W=0;/*寫數據指令*/
 P1=d;
 E=1;
 E=0;
 CSA=1;
 CSB=1;
}