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

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;