/******************************************************/
/*  16*16點陣中文寫入函數CCW_PR                       */
/*  函數參數選擇：PARA1                               */
/*  內部調用函數：PR1(),PR2(),PR4(),PR5(),PR7(),PR8() */
/*  連接字庫：      CCTAB                             */
/*  函數調用入口：  CCW_PR()                          */
/*  函數輸入變量：  O_X,O_Y,CODE_1                    */
/******************************************************/
CCW_PR()
        {
           unsigned char i,j,k;
                i=0;
                j=para1;
    loop:       com=O_Y|0xb8;  /* 設頁地址 */
                PR1();
                PR4();
                PR7();
                  if(O_X<j)   /* 是否小于一片HD61202控制器控制的寬度 */
                     {
                        com=O_X|0x40;
                        PR1();   /* 小于寫左片 */
                        k='L';
                     }
                  else
                     {
                       if(O_X<2*j)   /* 是否小于兩片HD61202控制器控制的寬度 */
                         {
                           com=O_X-j|0x40;
                           PR4();   /* 小于寫中片 */
                           k='M';
                         }
                        else
                         {
                           com=(O_X-2*j)|0x40;
                           PR7();   /* 不小于寫右片 */
                           k='R';
                         }
                     }
                      com=com&0x3f;
                  for(count1=i;count1<i+16;count1++)

                     {
                        dat1=CCTAB[code_1][count1];
                             if(k=='L')
                                {
                                   PR2();
                                }
                             else
                                {
                                  if(k=='M')
                                    {
                                       PR5();
                                    }
                                   else
                                     {
                                       PR8();
                                     }
                                }
                                   com++;
                             if(com==j)
                                {
                                      if(k=='L')
                                        {
                                           com=0x40;
                                           PR4();
                                           k='M';
                                        }
                                      else
                                        {
                                          if(k=='M')
                                            {
                                              com=0x40;
                                              PR7();
                                              k='R';
                                            }
                                          else
                                           {
                                              goto loop2;
                                           }
                                        }
                                }
                     }
    loop2:         if(i==0)
                     {
                         i=16;
                         O_Y++;
                         if(O_Y==8)
                            {
                                 return;
                            }
                         else
                            {
                                 goto loop;
                            }
                     }
        }