Парковка, перед выключением Опции

[Alexn]

Можно ли на Паскале написать программу парковки головки диска перед выключением. И если можно то как (подскажите идею).

[xds]

Прерывание int 13h - дисковые службы BIOS. Служба 19h предназначена для парковки головок жесткого диска. В DL она принимает идентификатор устройства (80h - первый жесткий диск, 81h - второй (если есть) и т. д.). В случае возникновения ошибки она, как и прочие дисковые службы, устанавливает флаг переноса (CF), возвращая в AH код состояния (номер ошибки).

Пример:

program SomeApp;

{...}

function ParkHDD(DriveId: Byte): Boolean; assembler;
asm
  mov ah,19h
  mov dl,DriveId
  int 13h
  mov al,0
  jc @Exit
  inc ax
@Exit:
end;

{...}

begin
  {...}
  if not ParkHDD($80) then
    begin
      Writeln('Ошибка парковки');
      {...}
    end;
  {...}
end.