Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Клавиатура    >>    l_kbd
   
 
 Модуль для работы с клавиатурой   Victor Ostashev 04.02.1996

Модуль для работы с клавиатурой (c) Viktor Ostashev



1k 
 

{ Модуль для работы с клавиатурой (c) Viktor Ostashev 04.02.96 15:32 } unit l_kbd; interface function scan : byte; { Возвращает scan-код нажатой клавиши, ожидает нажатия } function bioskey : word; inline($B4/$10/$CD/$16); { Читает нажатие через int 16h, hi - scan, lo - ascii } function keystatus : word; inline($B4/$12/$CD/$16); { Читает расширенный статус клавиатуры } function kbhit : word; inline($B4/$11/$CD/$16/$75/$02/$31/$C0); { Проверяет наличие символа в буфере без ожидания, возвращает расширенный код, не очищая буфер } procedure chartobuf(symb : word); inline($59/$B4/$05/$CD/$16); { Возвращает символ в буфер клавиатуры } procedure clearkbd; { Очистка буфера клавиатуры } procedure togglekbd;inline($E4/$21/$34/$02/$E6/$21); { Включает/выключает клавиатуру через запрет IRQ1 } implementation function scan; assembler; asm @1: in al,60h and al,al jns @1 @2: in al,60h and al,al js @2 xor ah,ah push ax mov ah,11h int 16h jz @3 mov ah,10h int 16h @3: pop ax end; procedure clearkbd; assembler; asm mov ax,seg0040 push ds mov ds,ax mov ax,ds:[001Ah] mov ds:[001Ch],ax pop ds end; end.