ackfree-cpp2/U_KEYDIS.PAS at main · boolforge/ackfree-cpp2 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
{$O+}
unit U_keydis;

interface

uses dos;


  procedure freezekeyboard;
  procedure thawkeyboard;


implementation


var   NormalKeyboard : procedure;


  {}
  procedure DisableKeyboard;  interrupt;
  var port60, port61 : byte;
  begin
    port60 := Port[$60];  { KeyBoard controller data output buffer }
    port61 := Port[$61];  { Keyboard controller port B }
    Port[$61] := Port61 or $80;  { clear keyboard }
    Port[$61] := Port61;
    Port[$20] := $20;     { Programmable Intr. Contr. initialization }
  end;
  {}

  procedure freezekeyboard;
  begin
    GetIntVec ($09, @NormalKeyboard);
    SetIntVec ($09, @DisableKeyboard);
  end;

  procedure thawkeyboard;
  begin
    SetIntVec ($09, @NormalKeyboard);
  end;

begin

end.