void WCOM_L(uchar d)    /*寫指令程序*/
{
 CSA=0;
 CSB=0;/*左半屏片選*/
 R_W=1;
 D_I=0;/*讀狀態指令*/
Loop:
 P1=0xFF;
 E=1;/*使能有效*/
 q=P1;/*將p1口狀態讀入*/
 E=0;/*關閉使能信號*/
 if(q&0x80)/*判斷左半屏是否忙*/
 {
 goto Loop;/*若忙，循環等待*/
 }
 R_W=0;/*寫數據指令*/
 P1=d;/*將數據送入p1口*/
 E=1;
 E=0;
 CSA=1;
 CSB=1;/*屏處于未選狀態*/
}