unit uInit;

      {=================================================================}
      {                                                                 }
      {  Obsluha TERM10                     V1.0   03.05.1996           }
      {                                                                 }
      {  Pocatecni nastaveni datovych struktur a hardware               }
      {                                                                 }
      {  (C) SofCon s.r.o.,                                             }
      {                                                                 }
      {=================================================================}

{$I Sets.inc}

interface


procedure Init; { inicializace bez o.s. ReTOS }

{#######################################################################}
implementation
{$ifdef VerMc}
uses
  LocGlb,
  uNmInt;
{$endif}


procedure Init;
begin
{$ifdef VerMc}
  PfiCt:=@Glb^.gRStruct.gPfiCt;
{$endif}
{$ifndef  Kit386}
 {$ifndef Kbd}
  asm   { neni povolen vstup z klavesnice PC }
    cli
  end;
  Port[$21]:=Port[$21] or $04; { preruseni Irq 2 u V40 }
  asm
    sti
  end;
 {$endif}
{$endif}
end;

end.
