(Дополнительная информация из загрузочного сектора:} Add_BPB_Type = record

TrkSecs : Word; {Количество секторов на дорожке

для разделов меньше 32 Мбайт или 0}

HeadCnt : Word; (Количество головок}

HidnSecLo: Word; (Количестве спрятанных секторов для разделов меньше 32 Мбайт}

HidnSecHi: Word; (Вместе в HidnSecLo дает количество

спрятанных секторов для разделов больше 32 Мбайт}

LargSectors: Longint; (Общее количество секторов для

разделов больше 32 Мбайт} end; {Add_BPB_Type} {Элемент дискового каталога:} Dir_Type ° record caae Byte of 1: (

Name : arxay [1..8] of Char; (Имя файла или каталога)

Ext : array [1..3] of Char; {Расширение}

FAttr : Byte; (Атрибуты файла}

Reserv: arxay [1..10] of Byte; {Резервное поле}

Time : Word; {Время создания}

Date : Word; {Дата создания}

FirstC: Word; (Номер первого кластера}

Size : Longint {Размер файла в байтах});

2:(NameExt: array [1..11] of Char) end; (Dir_Type}

(Описатель логического раздела} PartType = record

Act: Boolean; (Флаг активности раздела}

BegHead: Byte; (Головка начала раздела}

BegSC : Word; (Сектор/цилиндр начала}

SysCode: Byte; {Системный код}

EndHead: Byte; (Головка конца раздела}

EndSC : Word; (Сектор/цилиндр конца}

RelSect: Longint; (Относительный сектор начала}

FoolSiz: Longint (Объем в секторах} end; {PartType} (Загрузочный сектор диска} PBoot = "TBoot;

TBoot = record case Byte of 0: (

a : array [1..11] of Byte;

BPB: BPB Type;

Add: Add_BPB_Type;

с : array [1..+$1BE-(SizeOf(BPB_Type)+SizeOf(Add_BPB_Type)+11)] of Byte;

Par: array [1..4] of PartType);

1: (b: array [1..512] of Byte) and;

(Описатель диска по структуре lOCTtf !OCTL_Type = xecord

BuildBPB Boolean; (Строить BPB}

TypeDrv Byte; (Тип диска}

Attrib Word; (Атрибуты диска}

Cylindrs Word; (Число цилиндров}

Media Byte; (Тип носителя}

BPB BPB_Type;

Add Add_BPB_Type;

Reserv array [1..10] of Byte;

end;