LPT Port Ansteuerung

[thomasdrewermann]

Code:

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;

Das geht aber nur unter Win95, Win98 und WinMe.