Программирование / Курсовые / Arcanoid / Arcanoid / ARCUNITK

unit ArcUnitK;
interface
const
kbEsc = 1;
kbUp = 17;
kbRight = 32;
kbLeft = 30;
kbDown = 31;
kbEnter = 80;
kbEnter1 = 72;
kbIns = 82;
kbDel = 83;
kbHome = 71;
procedure KBD; interrupt;
function GetKey(n: Byte): Boolean;
procedure InitKBD;
procedure DoneKBD;

implementation
uses DOS,CRT;
var
Keys: array[1..128] of Boolean;
Old: procedure;
procedure KBD;
var tt: Boolean;
b: Byte;
begin
b:=Port[$60];
if b>=128 then begin tt:=False; b:=b-128 end else tt:=True;
Keys[b]:=tt;
Port[$20]:=$20;
if KeyPressed then ReadKey;
Old;
end;
function GetKey(n: Byte): Boolean;
begin
GetKey:=Keys[n];
end;
procedure InitKBD;
begin
GetIntVec($9,@Old);
SetIntVec($9,@KBD);
end;
procedure DoneKBD;
begin
SetIntVec($9,@Old);
end;
end.