program ShutUp;

{$M $800,0,0}

uses
  Dos;

var
  DefInt8: Pointer;

procedure Int8; interrupt;
begin
  asm
    pushf
    call DefInt8;
  end;
  Port[$61] := Port[$61] and not 3;
end;

begin
  GetIntVec(8, DefInt8);
  SetIntVec(8, @Int8);
  Keep(0);
end.