/************************************/
 /* 建立CGRAM函數                    */
 /* 內部調用函數：PR1(),PR12(),ST3() */
 /* 函數調用入口：CGRAM()            */
 /* 連接字庫：CGTAB                  */
 /************************************/
 CGRAM()
     {
        unsigned int i;
        dat1=0x03;    /* 設置CGRAM偏置地址 */
        dat2=0x00;
        com=0x22;
        PR1();
        dat1=0x00;    /* 設置RAM地址指針 */
        dat2=0x1c;
        com=0x24;
        PR1();
        com=0xb0;     /* 設置自動寫方式 */
        PR12();
        for(i=0;i<64;i++)
           {
             ST3();   /* 判自動寫狀態位S3 */
             d_add=CCTAB[i];  /* 寫入數據 */
           }
        com=0xb2;    /* 寫入結束自動寫指令 */
        PR12();
      }