Wenn ich die entsprechenden Rechte hab, kann ich ja so mit I/O Ports arbeiten:
Delphi-Quellcode:
//-----------------------------------------
function PortInL( PortNum: word): longint;
//-----------------------------------------
Var a : longint;
Begin
asm
mov DX, PortNum;
in EAX, DX;
mov a, EAX;
end;
{asm}
PortInL := a;
end;
//-----------------------------------------
procedure PortOutL( PortNum: word; a: longint);
//-----------------------------------------
Begin
asm
mov DX, PortNum;
mov EAX, a;
out DX, EAX;
end;
{asm}
end;
Wie sieht es aber mit Single und Real aus? Habe zwar in der
OH gelesen das die dann im Register ST[0] des Coprozessors zu finden sind, da ich aber keine ahnung von Assembler habe, weis ich nicht, wie man das umsetzt.