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

                            }
        }