wdott.c

压强测试仪的源码

/***********************************/
/*    绘点函数: 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();
                                 }
                            }
        }