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

[Alexn]

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

[xds]

От завершённости её отделяет отсутствие проверки на наличие нескольких устройств. Полнее будет так:

program Park;

{ Типы дисководов }
const
  dtNone        = 0; { нет устройства с указанным идентификатором }
  dtNonSenseFDD = 1; { FDD, не чувствительный к смене носителя }
  dtSenseFDD    = 2; { FDD, чувствительный к смене носителя }
  dtHDD         = 3; { HDD }

{ Определение типа дисковода }
function GetDriveType(DriveId: Byte): Byte; assembler;
asm
  mov ah,15h
  mov dl,DriveId
  int 13h
  mov al,ah
end;

{ Парковка HDD }
function ParkHDD(DriveId: Byte): Boolean; assembler;
asm
  mov ah,19h
  mov dl,DriveId
  int 13h
  mov al,0
  jc @Exit
  inc ax
@Exit:
end;

var
  Id: Byte;

begin
  for Id := $80 to $83 do
    if GetDriveType(Id) = dtHDD then
      begin
        Write('HDD', Id - $80, ': ');
        if ParkHDD(Id) then
          Writeln('парковка головок выполнена успешно.')
        else
          Writeln('ошибка парковки головок.');
      end;
end.