Port[$60] Не работают управляющие клавиши Ctrl, Alt и т.д

var 
kbFlags: Word absolute $40:$17;
 
....
 
procedure KHandler; Interrupt;
var
  s: String;
 
  {kbFlags: Word absolute $40:$17;}
begin
{c:= Port[$60];}
  case Port[$60] of
    1:  Kill := True;                         { нажата Esc }
    2:  if Time[1]   > 0  then Dec(Time[1]);  { нажата 1 }
    3:  if Time[1]   < 70 then Inc(Time[1]);  {        2 }
    4:  if Time[2]   > 0  then Dec(Time[2]);  {        3 }
    5:  if Time[2]   < 70 then Inc(Time[2]);  {        4 }
    6:  if Time[3]   > 0  then Dec(Time[3]);  {        5 }
    7:  if Time[3]   < 70 then Inc(Time[3]);  {        6 }
    8:  if Time[4]   > 0  then Dec(Time[4]);  {        7 }
    9:  if Time[4]   < 70 then Inc(Time[4]);  {        8 }
    10: if speed     > 1  then Dec(speed);    {        9 }
    11: if speed     < 25 then Inc(speed);    {        0 }
    18: if mus_Speed > 1  then Dec(mus_Speed);{        E }
    19: if mus_Speed < 25 then Inc(mus_Speed);{        R }
 
 
 
    23: Change_Status(1); { нажата I }
    24: Change_Status(2); {        O }
    25: Change_Status(3); {        P }
    36: Change_Status(4); {        J }
    37: Change_Status(5); {        K }
    38: Change_Status(6); {        L }
    96: if kbFlags and 6<>0 then begin  {здесь должна быть комбинация Ctrl+5, но она не работает}
    if y=25 then begin
    y:=1;
Print(Pustr, 40 - Length(Pustr) div 2, 25, 1);
if Thread[1] = Active then begin
    Inc(impuls_Counter);
    if impuls_Counter mod speed = 0 then begin
    Print(Title, 40 - Length(Title) div 2, y, 1 + Random(15));
    impuls_Counter := 0;
    end;
    end;
    end
    else begin
    y:=25;
Print(Pustr, 40 - Length(Pustr) div 2, 1, 1);
if Thread[1] = Active then begin
    Inc(impuls_Counter);
    if impuls_Counter mod speed = 0 then begin
      Print(Title, 40 - Length(Title) div 2, y, 1 + Random(15));
      impuls_Counter := 0;
    end;
    end;
Inc(T);
Inline($9C);
end;
end;
end;
  Str(Time[1], s); Print(s + ' ', 25, 14, White);
  Str(Time[2], s); Print(s + ' ', 25, 15, White);
  Str(Time[3], s); Print(s + ' ', 67, 14, White);
  Str(Time[4], s); Print(s + ' ', 67, 15, White);
 
  Str(speed, s);
  Print(s + ' ', 17, 22, White);
  Str(mus_Speed, s);
  Print(s + ' ', 59, 22, White);
 
  while KeyPressed do
    ReadKey;
 
  Inline($9C);
  OldKHandler;
end;

uses WinDos;
var
  keyCtrl,keyEsc,key5:boolean;
  old09:procedure;
procedure new09;interrupt;
  var
    a:byte;
  begin
    a:=port[$60];
    a:=a and $7F;
    case a of
      1 :keyEsc:=not keyEsc;
      6 :key5:=not key5;
      29:keyCtrl:=not keyCtrl;
      end;
    old09;
  end;
begin
  keyCtrl:=false;
  key5:=false;
  keyEsc:=false;
  GetIntVec(09,@old09);
  SetintVec(09,@new09);
  repeat
    if keyCtrl and key5 then writeln('press Ctrl+5');
  until KeyEsc or(keyCtrl and key5);
  SetIntVec(09,@old09);
  readln;
end.

  Inline($9C); Old09;

uses WinDos,crt;
const
  keyEsc=1;
  key5=6;
  keyCtrl=29;
var
  i:byte;
  key:array[1..127]of boolean;
  old09:procedure;
procedure new09;interrupt;
  var
    a:byte;
  begin
    a:=port[$60];
    key[a and $7F]:=(a and $80)=0;
    inline($9C);
    old09;
  end;
begin
  for i:=1 to 127 do key[i]:=false;
  GetIntVec(09,@old09);
  SetintVec(09,@new09);
  repeat
    while KeyPressed do ReadKey;
    if key[keyCtrl] and key[key5] then writeln('press Ctrl+5');
  until key[KeyEsc]or(key[keyCtrl] and key[key5]);
  SetIntVec(09,@old09);
  readln;
end.