/*************************/
/* 建立CGRAM函數         */
/* 函數調用入口：CGRAM() */
/* 連接字庫：CGTAB       */
/*************************/
CGRAM()
  {
   unsigned char i,j;
   wcadd1=0x5c;   /* CGRAMADR 代碼 */
   wdadd1=0x00;   /* 設置SAG=0C000H */
   wdadd1=0x30;
   wcadd1=0x46;   /* CSRW 代碼 */
   wdadd1=0x00;   /* 設置CSR=0C400H(字符代碼=80H) */
   wdadd1=0x34;
   wcadd1=0x4c;   /* CSRDIR 代碼 */
   wcadd1=0x42;   /* MWRITE 代碼 */
   for(j=0;j<4;j++)
     {
     for(i=0;i<32;i++)
       {
         wdadd1=CGTAB[j][i];  /* 寫入字模數據 */
       }
     }
  }