1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

{$IFDEF Win32}
FUNCTION PortIn(Addr: WORD): BYTE; Assembler; StdCall;
  ASM
    mov dx, Addr // Adresse ins DX-Register schreiben
    in al, dx    // Port lesen. (AL entspricht Result)
  END;
{$ELSE}
FUNCTION PortIn(Addr: WORD): BYTE;
BEGIN
  Portin := Port[Addr];
END;
{$ENDIF}

{$IFDEF Win32}
PROCEDURE PortOut(Addr: Word; Data: Byte); Assembler; StdCall;
  ASM
    mov dx, Addr    // Adresse nach DX
    mov al, Data    // Datenbyte nach AL
    out dx, al      // Port schreiben
  END;
{$ELSE}
PROCEDURE PortOut(Addr: WORD; Data: BYTE);
BEGIN
  Port[Addr] := Data;
END;
{$ENDIF}                    

1:

PortOut($378,DeinWert);