Показать asci код нажатой клавиши

[malikon]

Надо написать прогу на встроенном асемблере, которая будет показывать asci код нажатой клавиши и по нажатию esc выводился бы диалог "закрыть программу? (y/n?) и еще, чтобы отоброжалась клавишу, которую я нажал и рядом код нажатой клавиши.

[malikon]

var
  a:byte;
begin
  repeat
    repeat
    write('please press any key');
    asm
      mov ah,08h
      int 21h
      mov a,al
    end;
    writeln('- code:',a);
    until a=27;
    write('close programm[y/n]');
    asm
      mov ah,08h
      int 21h
      mov a,al
    end
  until (chr(a)='Y')or(chr(a)='y');
end.

Или дописать.

[Stilet]

Речь идет о DOS? Решать задачу прерываниями DOS\BIOS?

Или дописать.

Вроде все логично и правильно.

[malikon]

Что, никто помочь не может?

[Stilet]

Помочь чем? Программа выше готовая - запускай и работай.

[malikon]

Сообщение от Stilet

Помочь чем? Программа выше готовая - запускай и работай.

И еще, чтобы отоброжалась клавишу, которую я нажал и рядом код нажатой клавиши.

[Stilet]

writeln(chr(a),' - code:',a);