/********************************/
/* 屏讀函數SREAD                */
/* 內部調用函數：PR1,PR3,PR12   */
/* 函數調用入口： SREAD()       */
/* 函數輸入變量： O_X,O_Y       */
/********************************/
SREAD()
  {
    unsigned char i;
     for(i=0;i<16;i++)   /* 屏讀16次 */
        {
          dat1=O_X;
          dat2=O_Y;
          com=0x24;
          PR1();
          com=0xe0;    /* 屏讀指令寫入 */
          PR12();
          st6();       /* 判屏讀狀態位正確與否 */
          PR3();       /* 讀數據 */
          com=0xc4;    /* 將該數據寫入該圖形區單元內 */
          PR11();
          O_X=O_X+0x28;  /*修正圖形區地址至下一行第一列*/
          O_Y=O_Y;
        }
    }