Как проверить, не защищён ли флоп от записи?

Я знаю один способ, заключается он вот в чём:
Assign(a,#$FF);
ReWrite(a);
Erase(a);
If IOResult <> 0 then
Begin
WriteLn('Abnormal program termination'#10#13);
Halt;
End;
Но хотелось бы иметь, так сказать, выбор. Может, кто знает способ, который сжирает поменьше кода, желательно на Ассемблере... Отзовитесь, пожалуйста...

Изучи Assembler сам, в дос это просто.
Паскаль без asm дерьмо!

Спасибо за совет, но эт я и так знал... :] Ведь никто же сейчас Пасаль без Ассемблера практически не использует. Просто я спрашивал не теорию, а практику. И хотелось бы, конечно, услышать конкретный ответ. Жаль, что никто не может его дать.