Turbo Pascal PORT Befehl in Delphi

[Daniel B]

Hallo,

das könnte so aussehen:

Delphi-Quellcode:

function PortIn(IOAddr : WORD) : BYTE; 
begin 
  asm 
    mov DX,      IOAddr 
    in  AL,      DX 
    mov result,  AL 
  end; 
end; 

procedure PortOut(IOAddr : WORD; Data : BYTE); 
begin 
  asm 
    mov  DX,     IOAddr 
    mov  AL,     Data 
    out  DX,     AL 
  end; 
end;

Grüsse, Daniel