unit uIO;


{--------}
interface
{--------}


procedure Delay20us; {cekaci smycka  20 mikrosekund na Kit386EXR 33MHz/16bit Flash 92ns}
procedure Delay100us;{cekaci smycka 100 mikrosekund na Kit386EXR 33MHz/16bit Flash 92ns}
procedure Delay500us;{cekaci smycka 500 mikrosekund na Kit386EXR 33MHz/16bit Flash 92ns}
  {tyto cekaci smycky trvaji vzdy minimalne po danou dobu, mohou vsak trvat
   i dele, jelikoz je muze prerusit IRQ}


{-------------}
implementation
{-------------}

{$S-}
procedure Delay20us; assembler;
asm {kalibrovano pro Kit386EX 33MHz/16bit Flash 92ns}
  mov CX,22
@@L_1:
  loop @@L_1
end;
{$S+}

{$S-}
procedure Delay100us; assembler;
asm {kalibrovano pro Kit386EX 33MHz/16bit Flash 92ns}
  mov CX,155
@@L_1:
  loop @@L_1
end;
{$S+}

{$S-}
procedure Delay500us; assembler;
asm {kalibrovano pro Kit386EX 33MHz/16bit Flash 92ns}
  mov CX,630
@@L_1:
  loop @@L_1
end;
{$S+}

End.
