/*************************************/
/*     直接訪問方式的驅動函數       */
/*************************************/
/* 直接驅動子程序由9個函數 組成(適應VP19624)：
     1. 寫指令代碼函數 (左屏)PR1
     2. 寫顯示數據函數 (左屏)PR2
     3. 讀顯示數據函數 (左屏)PR3
     4. 寫指令代碼函數 (中屏)PR4
     5. 寫顯示數據函數 (中屏)PR5
     6. 讀顯示數據函數 (中屏)PR6
     7. 寫指令代碼函數 (右屏)PR7
     8. 寫顯示數據函數 (右屏)PR8
     9. 讀顯示數據函數 (右屏)PR9

 占用系統(tǒng)接口資源:
  CWADD1,CRADD1,DWADD1,DRADD1
  CWADD2,CRADD2,DWADD2,DRADD2
  CWADD3,CRADD2,DWADD3,DRADD3
 程序輸入變量：COM 或 DAT1             */
/*============ 判“忙”函數  (左)============*/
BUSY1()
        {
           do
              {
                 ACC=cradd1;                /*  讀狀態(tài)字  */
              }
           while (ACC_7==1);                /*  判“忙”標志  */
        }
/*----------  寫指令函數 (左)----------------*/
PR1()
        {
           busy1();                         /*  判忙  */
           cwadd1=com;                      /*  寫指令  */
        }
/*----------  寫數據函數 (左)----------------------*/
PR2()
        {
           busy1();
           dwadd1=dat1;                     /*  寫顯示數據  */
        }
/*------ 讀數據函數 （左） ----------*/
PR3()
        {
          busy1();
          dat1=dradd1;
        }
/*=============  判“忙”函數  (中)===============*/
BUSY2()
        {
           do
              {
                 ACC=cradd2;                /*  讀狀態(tài)字  */
              }
           while (ACC_7==1);                /*  判“忙”標志  */
        }
/*-------------- 寫指令函數 (中)-------------------*/
PR4()
        {
           busy2();                         /*  判忙  */
           cwadd2=com;                      /*  寫指令  */
        }
/*--------------  寫數據函數 (中)-------------------*/
PR5()
        {
           busy2();
           dwadd2=dat1;                     /*  寫顯示數據  */
        }

/*-----  讀數據函數 （中）------------*/
PR6()
        {
          busy2();
          dat1=dradd2();
        }

/*=============  判“忙”函數  (右)===============*/
BUSY3()
        {
           do
              {
                 ACC=cradd3;                /*  讀狀態(tài)字  */
              }
           while (ACC_7==1);                /*  判“忙”標志  */
        }
/*-------------- 寫指令函數 (右)-------------------*/
PR7()
        {
           busy3();                         /*  判忙  */
           cwadd3=com;                      /*  寫指令  */
        }
/*--------------  寫數據函數 (右)-------------------*/
PR8()
        {
           busy3();
           dwadd3=dat1;                     /*  寫顯示數據  */
        }

/*-----  讀數據函數 （右）------------*/
PR9()
        {
          busy3();
          dat1=dradd3();
        }