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

procedure OutPort(PortAddr: Word; DataByte: Byte);
{ Prozedur, mit der ein Byte direkt auf eine Port-Adresse unter Win32
  ausgegeben werden kann }
{$IFDEF WIN32}
assembler; stdcall;
asm
  mov al,DataByte
  mov dx,PortAddr
  out dx,al
end;
{$ELSE}
begin
  Port(PortAddr):=DataByte;
end;
{$ENDIF}

procedure DTR_an_COM1;
{  Es wird die Schnittstelle COM1 verwendet, für COM2 wäre anstelle
  von $3Fx der Wert $2Fx zu verwenden. }
begin
    OutPort($3FC,$FE and InPort($3FC));     {DTR auf 0 }
    OutPort($3FC,$01 or InPort($3FC));      {DTR auf 1 }
end;