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

[Alexn]

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

[Alexn]

Т.е., это законченная пргограмма парковки с проверкой, да?

program Park;

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 Writeln('Ошибка парковки');
end.

(программа xds)