нужно написать комментарии к программе(программа с вставками ассемблера) - Turbo Pascal - Ответ 8453327

uses crt;
 
function ifPressedKey(key:Byte):Byte;
var
  res,ah_:Byte;
label
  yes, no, ex;
begin
  asm
    xor ax,ax
    int 16h
    cmp al, 0
    je no
    cmp ah,key
    je yes
    no:
    mov res, 0
    jmp ex
    yes:
    mov res, 1
    ex:
  end;
  ifPressedKey := res;
end;
 
procedure flagStatus(var shiftStatus:byte; var extShiftStatus:byte);
var 
  shS, extShS:byte;
begin
  asm
    mov ah, 12h
    int 16h
    mov shS, al
    mov extShS, ah
  end;
  shiftStatus:=shS;
  extShiftStatus:=extShS;
end;
 
function decToBin(n:Byte):string;
const 
 c:array[0..1] of char = ('0','1');
var
  res:string;
 
function addZero(st:string; n:integer):string;
 var s:string;
     i:integer;
begin
  s:='';
  for i:=length(st)+1 to n do
    s:=s+'0';
  addZero:=s;
end;
 
begin
  res:='';
    while n<>0 do
    begin
      res:=c[n mod 2] + res;
      n:= n div 2;
    end;
  decToBin:= addZero(res,8)+res;
end;
 
var 
  shS, extShS:byte;
begin
  clrscr;
  while true do
    if ifPressedKey(48) = 1 then
      begin
        flagStatus(shS, extShS);
        writeln('Shift Status: ',decToBin(shS),
           ' Extended Shift Status: ',decToBin(extShS) );
      end
      else
      begin
        writeln('error key');
        break;
      end;
  readln;
end.