com port

 Procedure InOut(var A,AD,D1,D2,D3,D4,EPR,EPM:byte);
         var  P,v,U:byte;
                        t:word;
            Procedure STATUS_L1;
        var l:byte; t1,t2:word; exites:boolean;
         begin
        exites:=false;
        Clocks(t1);
        t2:=t1+150;
        Repeat
            Clocks(t1);
            l:=port[$3FD];      {COM1 [$3FD], COM2 [$2FD]}
            if l and 64=64 then exites:=True;
            if t1>=t2 then exites:=True;
        until exites;
        end;
 
        Procedure STATUS_L2;
        var l:byte; t1,t2:word; exites:boolean;
        begin
        exites:=false;
        Clocks(t1);
        t2:=t1+91;
        Repeat
            Clocks(t1);
            l:=port[$3FD];       {COM1 [$3FD], COM2 [$2FD]}
            if l and 1=1 then exites:=True;
            if t1>=t2 then exites:=True;
        until exites;
       end;
 
        begin
    p:=0;                {COM1 p:=0, COM2 p:=1}
    U:=59;               {для скорости 300БД U:= 91 для скорости 150БД U:= 59}
    InstalPort(P,U);
 
    {port[$3FD]:=0;       {COM1 [$3FD],  COM2 [$2FD]}
        str(A:2,s);
    OutPort(p,A,EPR);
    STATUS_L1;
    AD:=0; D1:=0; D2:=0; D3:=0; D4:=0;
    PZ:=port[$3F8];
    STATUS_L2;
    inPort(p,MB,EPM);
    STATUS_L2;
    inPort(p,AD,EPM);
    STATUS_L2;
    inPort(p,D1,EPM);
    STATUS_L2;
    inPort(p,D2,EPM);
    STATUS_L2;
    inPort(p,D3,EPM);
    STATUS_L2;
    inPort(p,D4,EPM);
      end;
begin
    ext:=false;
    ckls:=0;
    ECKL:=0;
    repeat
        ts:=70;
        tm:=50880;
        Time_Aud(ts,tm);
        inc (ckls);
        InOut(A,AD,D1,D2,D3,D4,EPR,EPM);
        if EPM=224 then AD:=A;
        if A=AD then if D1=D2 then if D3=D4 then ext:=true;
        if ckls >= 10 then
        begin
            EPR:=0;
            EPM:=0;
            ECKL:=128;
            ext:=true;
        end;
    until ext;
end; {KONTROLER}