Real/Single bei I/O Ports verwenden

[scp]

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.