Форум РадиоКот

Код: Выделить всё

{=======================}
procedure reset_otvet;
begin
     excl(PortA,1);
     excl(PortA,2);
     udelay(480);
     incl(PortA,1);
     incl(PortA,2);
     udelay(480);
end;
{========================}
procedure out_com(com:word);
var i,q : byte;
begin
     case com of
         $CC: H_com:=H_SkipRom; |
         $44: H_com:=H_Convert; |
         $BE: H_com:=H_Read_Scr; |
     endcase;
     i:=1;
       while i<=8 do
             q:=H_com[i];
             if q=0 then excl(PortA,1);
                         excl(PortA,2);
                         udelay(65);
                         incl(PortA,1);
                         incl(PortA,2);
                         udelay(2);
                elsif q=6 then excl(PortA,1);
                               excl(PortA,2);
                               udelay(2);
                               incl(PortA,1);
                               incl(PortA,2);
                               udelay(65);
             endif;
       inc(i);
       endwhile;
end;
{========================}
procedure read_byte;
var i:byte;
    w:byte;
begin
  i:=1;
  while (i<=16) and (i>=1) do
     excl(PortA,1);
     excl(PortA,2);
     udelay(1);
     incl(PortA,1);
     incl(PortA,2);
     udelay(1);
     w:=pinA and %00000100;
     if  w=0 then  SetBit(Ttek_voda,i,False);
              else SetBit(Ttek_voda,i,True);
     endif;
     w:=pinA and %00000010;
     if  w=0 then  SetBit(Ttek_maslo,i,False);
               else SetBit(Ttek_maslo,i,True);
     endif;
  inc(i);
  endwhile;
  Ttek_maslo:=Ttek_maslo shra 5;
  Ttek_voda:=Ttek_voda shra 5;
end;

{========================}
 procedure opros;
 begin
    PushAllRegs;
    DisableInts;
     reset_otvet;
     out_com($CC);
     out_com($44);
     udelay(900);
     reset_otvet;
     out_com($CC);
     out_com($BE);
     read_byte;
    EnableInts;
    PopAllRegs;
 end;
{========================}