/***********************************/
/*    繪點函數: W_DOT              */
/*    函數 參數選擇：PARA1         */
/*    內部調用函數 ：PR1()~PR9()   */
/*    函數 調用入口： W_DOT()      */
/*    函數 輸入變量： O_X，O_Y     */
/***********************************/
W_DOT()
        {
         unsigned int j;
           j=para1;
           com=O_Y/8;
           code_1=O_Y%8;
           com=com|0xb8;
           PR1();
           PR4();
           PR7();
           O_Y=1;
                  for(;code_1!=0;)
                      {
                          O_Y=O_Y*2;
                          code_1--;
                      }
                          if(O_X<j)
                            {
                                com=O_X|0x40;
                                PR1();
                                PR3();
                                PR3();
                                PR1();
                                dat1=dat1|O_Y;
                                PR2();
                            }
                          else
                            {
                              if(O_X<=2*j)
                                 {
                                com=O_X-j|0x40;
                                PR4();
                                PR6();
                                PR6();
                                PR4();
                                dat1=dat1|O_Y;
				PR5();
                                 }
                              else
                                 {
                                   com=O_X-2*j|0x40;
                                   PR7();
                                   PR9();
                                   PR9();
                                   PR7();
                                   dat1=dat1|O_Y;
                                   PR8();
                                 }
                            }
        }