60 Глава 3

Рис.3.2. Связанный список описателей жесткого диска

^+—————————————————————————————+

¦ Эта программа считывает ссылочную структуру \ ¦ описателей разделов первого жесткого диска \ ¦ и выводит на экран таблицу логических дисков \ +----------------------------------------------+

;

Uses DOS;

Function ReadSec(Disk,Head: Byte;

CylSec: Word; var Buf): Boolean;

{Обеспечивает считывание абсолютного сектора с помещыо прерывания $13 и возвращает TRUE, если нет ошибки} var

R: Registers;

begin

with R do begin

ah =2; {Код операции чтения}

al =1; {Колич. читаемых секторов}

dl = Disk; {Номер диска: 0,1 - ГД,80,$81 - ЖД}

dh = Head; {Номер головки}

сх = CylSec; {Сектор и цилиндр}

es = seg(Buf); {Адрес буфера в ES:BX}