bdj_rm10.c

PIC CRC校验程序

            if(x==1){cs_diany=x;bj=0;}
            if(x==2){cs_diany=x;bj=0;}
            if(x==3){cs_diany=x;bj=0;}
            if(x==4){cs_diany=x;bj=0;}
            if(x==5){cs_diany=x;bj=0;}
            if(x==6){cs_diany=x;bj=0;}
            if(x==7){cs_diany=x;bj=0;}
            if(x==8){cs_diany=x;bj=0;}
            if(x==9){cs_diany=x;bj=0;}
            if(x==10){ bj=1;break;}
            if(x==13){ glbj=1;csbj=0;return;}
            if(x==11){ wcbj=1;csbj=0;return;} 
            if(x==12){ dnbj=1;csbj=0;return;}
            x=jp();
            }          
        if(x==0){cs_diany=(cs_diany*10)+x;}
        if(x==1){cs_diany=(cs_diany*10)+x;}
        if(x==2){cs_diany=(cs_diany*10)+x;}
        if(x==3){cs_diany=(cs_diany*10)+x;}
        if(x==4){cs_diany=(cs_diany*10)+x;}
        if(x==5){cs_diany=(cs_diany*10)+x;}
        if(x==6){cs_diany=(cs_diany*10)+x;}
        if(x==7){cs_diany=(cs_diany*10)+x;}
        if(x==8){cs_diany=(cs_diany*10)+x;}
        if(x==9){cs_diany=(cs_diany*10)+x;}
        if(cs_diany>1000){cs_diany=0;}           
        if(x==10){ bj=1;break;}
        if(x==13){ glbj=1;csbj=0;return;}
        if(x==11){ wcbj=1;csbj=0;return;} 
        if(x==12){ dnbj=1;csbj=0;return;}
      }
///////// 
     bj=1;dl=0;   
     while(1)
     {  ls2=cs_dianl;//I                 
        csbcd();csdisp();
        XBYTE[0xdffc]=0x21;//A=0x21
        XBYTE[0xdff8]=(xszf[sw]&0xfe);        
        x=jp();
        while(bj) 
           {if(x==0){cs_dianl=x;bj=0;}
            if(x==1){cs_dianl=x;bj=0;}
            if(x==2){cs_dianl=x;bj=0;}
            if(x==3){cs_dianl=x;bj=0;}
            if(x==4){cs_dianl=x;bj=0;}
            if(x==5){cs_dianl=x;bj=0;}
            if(x==6){cs_dianl=x;bj=0;}
            if(x==7){cs_dianl=x;bj=0;}
            if(x==8){cs_dianl=x;bj=0;}
            if(x==9){cs_dianl=x;bj=0;}
            if(x==10){ bj=1;break;}
            if(x==13){ glbj=1;csbj=0;return;}
            if(x==11){ wcbj=1;csbj=0;return;} 
            if(x==12){ dnbj=1;csbj=0;return;}
            x=jp();
            }          
        if(x==0){cs_dianl=(cs_dianl*10)+x;}
        if(x==1){cs_dianl=(cs_dianl*10)+x;}
        if(x==2){cs_dianl=(cs_dianl*10)+x;}
        if(x==3){cs_dianl=(cs_dianl*10)+x;}
        if(x==4){cs_dianl=(cs_dianl*10)+x;}
        if(x==5){cs_dianl=(cs_dianl*10)+x;}
        if(x==6){cs_dianl=(cs_dianl*10)+x;}
        if(x==7){cs_dianl=(cs_dianl*10)+x;}
        if(x==8){cs_dianl=(cs_dianl*10)+x;}
        if(x==9){cs_dianl=(cs_dianl*10)+x;}
        if(cs_dianl>6000){cs_dianl=0;}           
        if(x==10){ bj=1;break;}        
        if(x==13){ glbj=1;csbj=0;return;}
        if(x==11){ wcbj=1;csbj=0;return;} 
        if(x==12){ dnbj=1;csbj=0;return;}
      }
////////////*/
      bj=1; dl=1;
      while(1)
          {  ls2=cs_changs;//C        
             csbcd();csdisp();
             XBYTE[0xdffc]=0x1d;//C=0x1d
             x=jp();
          while(bj) 
           {if(x==0){cs_changs=x;bj=0;}
            if(x==1){cs_changs=x;bj=0;}
            if(x==2){cs_changs=x;bj=0;}
            if(x==3){cs_changs=x;bj=0;}
            if(x==4){cs_changs=x;bj=0;}
            if(x==5){cs_changs=x;bj=0;}
            if(x==6){cs_changs=x;bj=0;}
            if(x==7){cs_changs=x;bj=0;}
            if(x==8){cs_changs=x;bj=0;}
            if(x==9){cs_changs=x;bj=0;}
            if(x==10){ bj=1;break;}
            if(x==13){ glbj=1;csbj=0;return;}
            if(x==11){ wcbj=1;csbj=0;return;} 
            if(x==12){ dnbj=1;csbj=0;return;}
            x=jp();
            }          
        if(x==0){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==1){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==2){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==3){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==4){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==5){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==6){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==7){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==8){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(x==9){if(cs_changs>6000){cs_changs=0;}cs_changs=(cs_changs*10)+x;}
        if(cs_changs>60000){cs_changs=x;}           
        if(x==10){ bj=1;break;}
        if(x==13){ glbj=1;csbj=0;return;}
        if(x==11){ wcbj=1;csbj=0;return;} 
        if(x==12){ dnbj=1;csbj=0;return;}
      }
///////////
      bj=1;
      while(1)
     {  ls2=cs_zhuans; //N       
        csbcd();csdisp();
        XBYTE[0xdffc]=0x29;//n=0x29
        x=jp();
         while(bj) 
           {
            if(x==0){cs_zhuans=x;bj=0;}
            if(x==1){cs_zhuans=x;bj=0;}
            if(x==2){cs_zhuans=x;bj=0;}
            if(x==3){cs_zhuans=x;bj=0;}
            if(x==4){cs_zhuans=x;bj=0;}
            if(x==5){cs_zhuans=x;bj=0;}
            if(x==6){cs_zhuans=x;bj=0;}
            if(x==7){cs_zhuans=x;bj=0;}
            if(x==8){cs_zhuans=x;bj=0;}
            if(x==9){cs_zhuans=x;bj=0;}
            if(x==10){ bj=1;break;}
            if(x==13){ glbj=1;csbj=0;return;}
            if(x==11){ wcbj=1;csbj=0;return;} 
            if(x==12){ dnbj=1;csbj=0;return;}                       
            x=jp();
            }        
        if(x==0){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==1){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==2){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==3){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==4){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==5){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==6){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==7){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==8){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        if(x==9){if(cs_zhuans>9){cs_zhuans=0;}cs_zhuans=(cs_zhuans*10)+x;}
        //if(cs_zhuans>99){cs_zhuans=0;}
        if(x==10){ bj=1;break;}
        if(x==13){ glbj=1;csbj=0;return;}
        if(x==11){ wcbj=1;csbj=0;return;} 
        if(x==12){ dnbj=1;csbj=0;return;}
 }}}
//CSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCSCS
//ENDEMDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDEND

//WCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWC
//WCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWC
void jssdz(void)
{ /*unsigned long data ls7;
  ls7=cs_zhuans;
  sdz=3600000;
  sdz=sdz*ls7;
  ls7=cs_diany;  
  sdz=sdz/ls7; 
  ls7=10000;  
  sdz=sdz*ls7;
  ls7=cs_changs;
  sdz=sdz/ls7;
  ls7=10;  
  sdz=sdz*ls7;  
  ls7=cs_dianl;
  sdz=sdz/ls7; //sdz=cs_zhuans*3600000000/cs_diany/cs_changs/cs_dianl;//sdz=n*3.6*10000000000/u/i/c
  */
  sdz=100000000;
  sdz=sdz*cs_zhuans;
  sdz=sdz/cs_changs; 
}
/////////////////////////////
void wcbcd(void)
{qw=((err%10000))/1000;
 bw=((err%1000))/100;
 sw=((err%100))/10;
 gw=err%10;
}
////////////////
void wcdisp(void)
{ XBYTE[0xdfff]=xszf[gw];
  XBYTE[0xdff8]=xszf[sw];
  XBYTE[0xdff9]=xszf[bw];
  XBYTE[0xdffa]=(xszf[qw]&0xfe);
}

////////////////////////////
void wc(void)  //M0=N*3600*10000000/U/I/C
{ uchar x;      //WC=(M0-M)/M
  uint p8253_1,p8253_2,ls5=0,ls6=0;
  unsigned long data p8253_22;  
  XBYTE[0xdfff]=0xff; //xszf[gw];
  XBYTE[0xdff8]=0xff; //(xszf[sw]&0xfe);
  XBYTE[0xdff9]=0xff; //xszf[bw];
  XBYTE[0xdffa]=0xff; //xszf[qw];
  XBYTE[0xdffb]=0xff; //xszf[ww];
  XBYTE[0xdffc]=0xc1; //xszf[sww];
  n=cs_zhuans+1; miao_1=0;jswc=0; ks=1;  
  EX0=1;// 允许INT0
    while(1)
    { if(miao_1)
           { ls2=ls2<<8;
             p8253_1=ls2|ls1;
             p8253_1=5000-p8253_1;         
             ls4=ls4<<8;
             p8253_2=ls4|ls3;
             p8253_2=0xffff-p8253_2;                         
             p8253_22=p8253_2-ls6;             
             p8253_22=(p8253_22*5000);
             p8253_22=ls5;
             ls5=p8253_1;
             ls6=p8253_2;            
             miao_1=!miao_1;             
           }
       if(jswc)
         {   ls2=ls2<<8;
             p8253_1=ls2|ls1;
             p8253_1=5000-p8253_1;         
             ls4=ls4<<8;
             p8253_2=ls4|ls3;
             p8253_2=0xffff-p8253_2;                         
             p8253_22=p8253_2-ls6;             
             p8253_22=(p8253_22*5000);
             fh=p8253_1;
             fh=(fh+p8253_22);
             p8253_22=ls5;
             fh=fh-p8253_22;             
             ls5=p8253_1;
             ls6=p8253_2;            
             ////////////////////////////////////// 
             if(sdz<fh)
               {fusbj=1;
                 err=((fh-sdz)*100000)/fh;//注、电流应多除10 
               }         
             if(sdz>fh)
               {fusbj=0;               
                 err=((sdz-fh)*100000)/fh;//注、电流应多除
               }
             if(sdz==fh)
               {fusbj=0;
                err=((sdz-fh)*100000)/fh;//注、电流应多除10 
               }    
             if(err<9999)
                {wcbcd();
                 wcdisp();
                } 
              else 
                  { XBYTE[0xdfff]=0x15;                                      
                    XBYTE[0xdff8]=0xff; //(xszf[sw]&0xfe);
                    XBYTE[0xdff9]=0xff; //xszf[bw];
                    XBYTE[0xdffa]=0xff; //xszf[qw];
                  }            
              if(fusbj){XBYTE[0xdffb]=0xf7;}
              else {XBYTE[0xdffb]=0xff;}             
             jswc=0;ys();ys();LABA=1; 
         }       
       x=jp();
        if(x==0){glz=x;glbcd();}
        if(x==1){glz=x;glbcd();}
        if(x==2){glz=x;glbcd();}
        if(x==3){glz=x;glbcd();}
        if(x==4){glz=x;glbcd();}
        if(x==5){glz=x;glbcd();}
        if(x==6){glz=x;glbcd();}
        if(x==7){glz=x;glbcd();}
        if(x==8){glz=x;glbcd();}
        if(x==9){glz=x;glbcd();}
       if(x==10){ csbj=1;wcbj=0;return;}
       if(x==13){ glbj=1;wcbj=0;return;} 
       if(x==12){ dnbj=1;wcbj=0;return;}         
 }}
//WCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWCWC
//ENDEMDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDEND

//DNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDND
//DNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDND
void dnbcd(void)
{sww=((fh%1000000))/100000;
 ww=((fh%100000))/10000;
 qw=((fh%10000))/1000;
 bw=((fh%1000))/100;
 sw=((fh%100))/10;
 gw=fh%10;
}
//////////////////
void dndisp(void)
{ if(y==0)
    {XBYTE[0xdfff]=xszf[gw];
     XBYTE[0xdff8]=xszf[sw];
     XBYTE[0xdff9]=xszf[bw];
     XBYTE[0xdffa]=xszf[qw];
     XBYTE[0xdffb]=xszf[ww];
     XBYTE[0xdffc]=(xszf[sww]&0xfe);
  } 
  if(y==1)
   { XBYTE[0xdfff]=xszf[gw];
     XBYTE[0xdff8]=xszf[sw];
     XBYTE[0xdff9]=xszf[bw];
     XBYTE[0xdffa]=xszf[qw];
     XBYTE[0xdffb]=(xszf[ww]&0xfe);
     XBYTE[0xdffc]=xszf[sww];
   }
  if(y==2)
   {XBYTE[0xdfff]=xszf[gw];
    XBYTE[0xdff8]=xszf[sw];
    XBYTE[0xdff9]=xszf[bw];
    XBYTE[0xdffa]=(xszf[qw]&0xfe);
    XBYTE[0xdffb]=xszf[ww];
    XBYTE[0xdffc]=xszf[sww];
    }
   if(y==3)
    {XBYTE[0xdfff]=xszf[gw];
     XBYTE[0xdff8]=xszf[sw];
     XBYTE[0xdff9]=(xszf[bw]&0xfe);
     XBYTE[0xdffa]=xszf[qw];
     XBYTE[0xdffb]=xszf[ww];
     XBYTE[0xdffc]=xszf[sww];
    }
   if(y==4)
    {  XBYTE[0xdfff]=xszf[gw];
       XBYTE[0xdff8]=(xszf[sw]&0xfe);
       XBYTE[0xdff9]=xszf[bw];
       XBYTE[0xdffa]=xszf[qw];
       XBYTE[0xdffb]=xszf[ww];
       XBYTE[0xdffc]=xszf[sww];
    } 
   if(y==5)
    { XBYTE[0xdfff]=xszf[gw];
      XBYTE[0xdff8]=xszf[sw];
      XBYTE[0xdff9]=xszf[bw];
      XBYTE[0xdffa]=xszf[qw];
      XBYTE[0xdffb]=xszf[ww];
      XBYTE[0xdffc]=xszf[sww];
    }
  y=0;
}
////////////////
void dn(void)
{ uchar x;
  uint p8253_1,p8253_2,ls5,ls6;
  unsigned long data p8253_22;  
  fh=0; EX0=0;//关闭INT0禁止校验
  ET0=0;//允许T0中断
  dnbcd(); dndisp();
      XBYTE[0xbfff]=0x40;
      XBYTE[0xbfff]=0x80;
      ls1=XBYTE[0xbffd];
      ls2=XBYTE[0xbffd];
      ls3=XBYTE[0xbffe];
      ls4=XBYTE[0xbffe];
      ls2=ls2<<8;
      p8253_1=ls2|ls1;
      p8253_1=5000-p8253_1;         
      ls4=ls4<<8;
      p8253_2=ls4|ls3;
      p8253_2=0xffff-p8253_2;
      ls5=p8253_1;
      ls6=p8253_2;           
      y=0;
   while(1)
     {       XBYTE[0xbfff]=0x40;
             XBYTE[0xbfff]=0x80;
             ls1=XBYTE[0xbffd];
             ls2=XBYTE[0xbffd];
             ls3=XBYTE[0xbffe];
             ls4=XBYTE[0xbffe];
             ls2=ls2<<8;
             p8253_1=ls2|ls1;
             p8253_1=5000-p8253_1;         
             ls4=ls4<<8;
             p8253_2=ls4|ls3;
             p8253_2=0xffff-p8253_2;                         
             p8253_22=p8253_2-ls6;             
             p8253_22=(p8253_22*5000);
             fh=p8253_1;
             fh=(fh+p8253_22);
             p8253_22=ls5;
             fh=fh-p8253_22;             
             if(fh>99999999999){fh=0;}  
             if(fh>9999999999){fh=fh/100000;y=5;} 
             if(fh>999999999){fh=fh/10000;y=4;}  
             if(fh>99999999){fh=fh/1000;y=3;}
             if(fh>9999999){fh=fh/100;y=2;}
             if(fh>999999){fh=fh/10;y=1;}                     
             dnbcd();dndisp();x=jp();
       if(x==10){ csbj=1;dnbj=0;return;}       
       if(x==11){ wcbj=1;dnbj=0;return;}
       if(x==12){return;} 
       if(x==13){ glbj=1;dnbj=0;return;}
}}
//DNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDNDND
//ENDEMDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDEND

//MAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAIN
//MAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAINMAIN
void main(void)
{
/////////////////////////////
   LABA=0;cshdisp();csh8031();csh8253();
   cshbl();//初始化全局