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.