6-2.txt

单片机应用开发实例.rar

                  dissl4g=55h;
               end;
               if dissl2g=55h then
               do;
                  vv=tiao1 and 0f0h;
                  vv=vv or key;
                  dissl2=dissl1*10+key;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  dissl2g=0h;
                  dissl3g=55h;
               end;
               if dissl1g=55h then 
               do;
                  vv=4*4*key;
                  dissl1=key;
                  tiao1=vv;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  dissl1g=0h;
                  dissl2g=55h;
               end;
            end; 
            if lokadrg=55h then            /*      n6     */
            do;
               if lokadr4g=55h then
               do;
                  vv=lokadr3 or key;
                  lokadr4=vv;
                  key=0h;
                  w79=83h;
                  w79d=vv;
                  lokadr4g=0h;
               end;
               if lokadr3g=55h then 
               do;
                  vv=4*4*key;
                  lokadr3=vv;
                  key=0h;
                  w79=83h;
                  w79d=vv;
                  lokadr3g=0h;
                  lokadr4g=55h;
               end;
               if lokadr2g=55h then
               do;
                  vv=lokadr1 or key;
                  lokadr2=vv;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  lokadr2g=0h;
                  lokadr3g=55h;
               end;
               if lokadr1g=55h then 
               do;
                  vv=4*4*key;
                  lokadr1=vv;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  lokadr1g=0h;
                  lokadr2g=55h;
               end;
            end; 
            if lokmerg=55h then             /*    n2    */
            do;
               if lokmer4g=55h then
               do;
                  vv=lokmer3 or key;
                  lokmer4=vv;
                  key=0h;
                  w79=83h;
                  w79d=vv;
                  lokmer4g=0h;
               end;
               if lokmer3g=55h then 
               do;
                  vv=4*4*key;
                  lokmer3=vv;
                  key=0h;
                  w79=83h;
                  w79d=vv;
                  lokmer3g=0h;
                  lokmer4g=55h;
               end;
               if lokmer2g=55h then
               do;
                  vv=lokmer1 or key;
                  lokmer2=vv;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  lokmer2g=0h;
                  lokmer3g=55h;
               end;
               if lokmer1g=55h then 
               do;
                  vv=4*4*key;
                  lokmer1=vv;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  lokmer1g=0h;
                  lokmer2g=55h;
               end;
            end; 
            
            if datag=55h then                 /*     n9  */
            do;
               if day2g=55h then 
               do;
                  vv=tiao3 and 0f0h;
                  vv=vv or key;
                  day2=day1*10+key;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  day2g=0h;
               end;
               if day1g=55h then 
               do;
                  vv=4*4*key;
                  day1=key;
                  tiao3=vv;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  day1g=0h;
                  day2g=55h;
               end;
               if moun2g=55h then 
               do;
                  vv=tiao2 and 0f0h;
                  vv=vv or key;
                  key=0h;
                  w79=83h;
                  w79d=vv;
                  moun2g=0h;
                  day1g=55h;
               end;
               if moun1g=55h then 
               do;
                  vv=4*4*key;
                  moun1=key;
                  tiao2=vv;
                  key=0h;
                  w79=83h;
                  w79d=vv;
                  moun1g=0h;
                  moun2g=55h;
               end;
               if year2g=55h then 
               do;
                  vv=tiao1 and 0f0h;
                  vv=vv or key;
                  year2=year1*10+key;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  year2g=0h;
                  moun1g=55h;
               end;
               if year1g=55h then 
               do;
                  vv=4*4*key;
                  year1=key;
                  tiao1=vv;
                  key=0h;
                  w79=84h;
                  w79d=vv;
                  year1g=0h;
                  year2g=55h;
               end;
            end;
         end;
end num;
                                                 /*  消音  */
sil:  procedure;
     if (error>0h or fire>0h) then     
     do;
         call time(10000);
         zsd87=zsd87 and 7fh;
         w79=87h;
         w79d=zsd87;
         ;
         pt8255=pt8255 and 0eeh;
         ptd=80h;
         ;
         ptc=pt8255;
         ;
      end;
end sil;
                                                 /*    退出     */
exc: procedure;
     ;
        num1=0h;
        num2=0h;
        num3=0h;
        fcung=0h;
        f11g=0h;
        f12g=0h;
        f13g=0h;
        thirdg=0h;
        timg=0h;
        shiledg=0h;
        lokslg=0h;
        disslg=0h;
        lokerrg=0h;
        lokadrg=0h;
        datag=0h;
        f1=0h;
        f2=0h;
        f3=0h;
        f4=0h;
        ping=0;
        lockn4=0;
        upp=0;

     if (error=0h and fire=0h) then
     do;
        w79=82h;
        w79d=0ffh;
        w79=83h;
        w79d=0ffh;
        w79=84h;
        w79d=0ffh;
        w79=81h;
        w79d=0ffh;
        ;
        zsd87=zsd87 or 80h;
        w79=87h;
        w79d=zsd87;
        numg=0;
        num1=0;
        num2=0;
        num3=0;
        num1g=0;
        num2g=0;
        num3g=0;
        fcung=0;
        f11g=0;
        f12g=0;
        f13g=0;
        f11=0;
        f12=0;
        f13=0;
        thirdg=0;
        timg=0;
        tim1g=0;
        tim2g=0;
        tim3g=0;
        tim4g=0;
        tim1=0;
        tim2=0;
        tim3=0;
        tim4=0;
        shiledg=0;
        sl1g=0;
        sl2g=0;
        sl3g=0;
        sl4g=0;
        sl1=0;
        sl2=0;
        sl3=0;
        sl4=0;
        lokslg=0;
        loksl1g=0;
        loksl2g=0;
        loksl3g=0;
        loksl4g=0;
        loksl1=0;
        loksl2=0;
        loksl3=0;
        loksl4=0;
        disslg=0;
        dissl1g=0;
        dissl2g=0;
        dissl3g=0;
        dissl4g=0;
        dissl1=0;
        dissl2=0;
        dissl3=0;
        dissl4=0;
        lokadrg=0;
        lokadr1g=0;
        lokadr2g=0;
        lokadr3g=0;
        lokadr4g=0;
        lokadr1=0;
        lokadr2=0;
        lokadr3=0;
        lokadr4=0;
        lokmerg=0;
        lokmer1g=0;
        lokmer2g=0;
        lokmer3g=0;
        lokmer4g=0;
        lokmer1=0;
        lokmer2=0;
        lokmer3=0;
        lokmer4=0;
        lokerrg=0;
        lokerr1g=0;
        lokerr2g=0;
        lokerr3g=0;
        lokerr4g=0;
        lokerr1=0;
        lokerr2=0;
        lokerr3=0;
        lokerr4=0;
        lokfirg=0;
        lokfir1g=0;
        lokfir2g=0;
        lokfir3g=0;
        lokfir4g=0;
        lokfir1=0;
        lokfir2=0;
        lokfir3=0;
        lokfir4=0;
     end;
end exc;
                                               /*   进入  */
inn: procedure;
     numg=55h;
     num1g=55h;
     w79=82h;
     w79d=0fh;
     w79=83h;
     w79d=0h;
end inn;
                                              /*    下翻   */
down: procedure;
   if lockn4=1 then
   do;
     upp=0;
     call n4;
   end;
   if error>1 and fire=0h then
   do;
     ll=0;
     do while ll<>55h;
       fy=fy+1;
       ll=tor(fy).err;
       if ll=55h then
       do;
          w79=84h;
          w79d=dec(tor(fy).flor);
          w79=83h;
          w79d=dec(tor(fy).numb);
          w79=86h;
          w79d=dec(tor(fy).shi);
          w79=85h;
          w79d=dec(tor(fy).fen);
       end; 
       if fy=100h then fy=0h;
     end;
   end;

   if fire>1 then
   do;
     ll=0;
     do while ll<>55h;
       fy=fy+1;
       ll=tor(fy).fir;
       if ll=55h then
       do;
          w79=84h;
          w79d=dec(tor(fy).flor);
          w79=83h;
          w79d=dec(tor(fy).numb);
          w79=81h;
          w79d=dec(tor(fy).acunt);
          if tor(fy).soji=55h then zsd88=zsd88 and 0fbh;
          else zsd88=zsd88 or 4h;
          w79=88h;
          w79d=zsd88;
          w79=86h;
          w79d=dec(tor(fy).shi);
          w79=85h;
          w79d=dec(tor(fy).fen);
       end; 
       if fy=100h then fy=0h;
     end;
   end;
end down;
                                                     /*   上翻   */
up:procedure;
   if lockn4=1 then
   do;
      upp=1;
      call n4;
   end;

   if error>1 and fire=0h then
   do;
      ll=0;
      do while ll<>55h;
         fy=fy-1;
         ll=tor(fy).err;
         if ll=55h then
         do;
            w79=84h;
            w79d=dec(tor(fy).flor);
            w79=83h;
            w79d=dec(tor(fy).numb);
            w79=86h;
            w79d=dec(tor(fy).shi);
            w79=85h;
            w79d=dec(tor(fy).fen);
         end; 
         if fy=1h then fy=101h;
      end;
   end;

   if fire>1 then
   do;
      ll=0;
      do while ll<>55h;
         fy=fy-1;
         ll=tor(fy).fir;
         if ll=55h then
         do;
            w79=84h;
            w79d=dec(tor(fy).flor);
            w79=83h;
            w79d=dec(tor(fy).numb);
            w79=81h;
            w79d=dec(tor(fy).acunt);
            if tor(fy).soji=55h then zsd88=zsd88 and 0fbh;
            else zsd88=zsd88 or 4h;
            w79=88h;
            w79d=zsd88;
            w79=86h;
            w79d=dec(tor(fy).shi);
            w79=85h;
            w79d=dec(tor(fy).fen);
         end; 
         if fy=1h then fy=101h;
      end;
   end;
end up;   
                                                 /*   自检   */
n1:  procedure;
     ;
     f11=0h;
     f12=0h;
     fcung=0h;    
     pwm=0h;
     if fire=0h and error=0h then
     do;
        disable;
        ;
        w79=89h;
        w79d=2h;
        w79=87h;
        w79d=0ffh;
        w79=88h;
        w79d=0fbh;
        do ii=1 to 10;
           call time(100);
        end;
        pt8255=pt8255 or 11h;
        ptd=80h;
        ;
        ptc=pt8255;
        call time(50000);
        ;
        w79=89h;
        w79d=0a1h;
        w79=88h;
        w79d=4h;
        w79=87h;
        w79d=0h;
        ;
        ;
        do ii=1 to 10;
           call time(100);
        end;
        pt8255=pt8255 and 0feh;
        ptd=80h;
        ;
        ptc=pt8255;
        call time(40000);
        pt8255=pt8255 and 0eeh;
        ptd=80h;
        ;
        ptc=pt8255;
        w79=89h;
        w79d=zsd89;
        w79=88h;
        w79d=zsd88;
        w79=87h;
        w79d=zsd87;
        w79=83h;
        w79d=0ffh;
        ;
        ;
        do ii=1 to 10;
           call time(100);
        end;
        
        do i=0 to 162;
           test(i)=test3(i);
        end;
        
        test(105)=h11/10+30h;
        test(106)=(h11-h11/10*10)+30h;