Паскаль. Работа прерываний.

[xWoWx]

Индивидуальные задания:
Написать программу, выполняющую указанные действия с заданным устройством (системой), используя указанные прерывания: Прерывания, возможные для обработки -- номер главы по Джордейну.
1. Клавиатура – 09Н, 16Н
а) управление клавиатурой
б) доступ к отдельным клавишам
в) сводка скэн-кодов клавиш

2. Диски 13Н
а)управление распределением диска
б)работа с каталогами
в)продготовка к работе с файлами
г) чтение и запись файла
е) подсчитать количество обращений к дисковым накопителям, используя прерывание

3. Таймеры 1Аh,15h
а)установка и чтение таймера
в)провести эксперимент с прерыванием таймера:
1) переопределить обработчик без выполнения внутри себя старого обработчика;
2) то же, но с выполнением старого обработчика.
Зафиксировать отставание встроенных часов в случае 1), и его отсутствие в случае 2).

4. СОМ-порт 14Н
а)доступ к последовательному порту
в)использование устройств ввода/вывода.

[xWoWx]

Скрэм коды клавишь клавиатуры написал
uses crt;
var x:char;
begin
ClrScr;
writeln ('Nagimaite klavishi');
repeat
x:=readkey;
writeln ('Kod klavishi:',ord(x));
delay(2000);
ClrScr;
until x=#27;
end.

[DiemonStar]

Обалденный сборник неправильно сформулированных задач:

в) сводка скэн-кодов клавиш

таблица скан-кодов или кейлоггер?

а)управление распределением диска

На ум приходит только форматирование... Вы точно уверены что нужно именно этого?

[xWoWx]

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

Обалденный сборник неправильно сформулированных задач:

таблица скан-кодов или кейлоггер?

На ум приходит только форматирование... Вы точно уверены что нужно именно этого?

верно таблица скан кодов клавишь. Скорее всего не форматирование а показать сколько логических дисков есть на компьютере

[xWoWx]

program p4; 
uses 
    crt, dos; 
var 
   savekbint:pointer; 
   f:string; 
   c:integer; 
   regs: registers; 
   i:integer; 
procedure new_in;interrupt; 
begin 
 c:=c+1; 
end; 
procedure dummy; 
begin 
     intr($13, regs); 
end; 
begin 
c:=0; 
clrscr; 
WriteLn('working'); 
GetIntVec($13, savekbint); 
SetIntVec($13, @new_in); 
for i:=0 to 10 do 
begin 
intr($13, regs); 
end; 
readln(f); 
Writeln(c); 
readln(f); 
SetIntVec($13, savekbint); 
end.

Подсчет колличество обращений к жескому диску нашел написаной на люниксе, в виндовсе пойдет?