unit klaves;
interface
uses crt,dos;
var kb:procedure;
    klav:array [0..127] of boolean;
    aaa:byte;

procedure up9;interrupt;

procedure initklaves;

procedure closeklaves;

implementation

procedure up9;
var key:char;
begin
if keypressed then key:=readkey;
asm
in al,60h;
mov aaa,al;
end;
if aaa<128 then klav[aaa]:=true;
if aaa>128 then klav[aaa-128]:=false;
inline ($9c);
kb;
end;
procedure initklaves;
begin
getintvec($9,@kb);
setintvec($9,addr(up9));
end;
procedure closeklaves;
begin
setintvec($9,@kb);
end;
end.