LPT - Mehrere Pins ansprechen!?

[mika]

Hallo,

du liegst schon ganz richtig

Delphi-Quellcode:

Const 
  PortNum = $378;

function  PortIn( PortNum: word): byte;
Var a : byte;
Begin
  asm
    mov DX, PortNum;
    in  AL, DX;
    mov a, AL;
  end; {asm}
  PortIn := a;
end;

procedure PortOut( PortNum: word; a: byte);
Begin
  asm
    mov DX, PortNum;
    mov AL, a;
    out DX, AL;
  end; {asm}
end;

damit kannst du auf dem port lesen und schreiben.

Mehrere pins setzt du indem du das byte erhöhst

Wert Pins
1 1
2 2
3 1 & 2
...

wenn ich nicht ganz falsch liege, ist schon länger her das ich sowas gemacht habe.