xp alatt borland pascal 7.0
-------
Program teszt ;
uses crt;
var currdir : array[1..128] of byte;
hiba : byte ;
procedure getdir(drivenum: byte);
begin
hiba := 0;
asm
mov dl,drivenum
mov si, offset currdir
mov ah,47h
int 21h
jnc @kilep
mov [hiba],al
@kilep:
end ;
end ;
begin
clrscr;
getdir(1);
if hiba <> 0 then writeln('1. drive error kod :', hiba);
getdir(2);
if hiba <> 0 then writeln('2, drive error kod :', hiba);
getdir(3);
if hiba <> 0 then writeln('3. drive error kod :', hiba);
getdir(4);
if hiba <> 0 then writeln('4. drive error kod :', hiba);
end .
----------------
ez igy az 1 es 2 ertekre ( A: B: ) hozza a 0Fh 'nemletezo drive' hibakodot, critical ablak nem jelenik meg, a 3/4 ertekre nem problemazik.
a fejmozgatasrol floppy hianyaban nem tudok nyilatkozni.