Turbo Pascal – jak zmienić obsługę portu COM3 ($3E8) na COM5 ($2F0) w kodzie?

program modem;

const
     COM3 = $3E8;

procedure init;
begin
  Port[COM3 + 3] := $83;
  Port[COM3 + 0] := 48;
  Port[COM3 + 1] := 0;
  Port[COM3 + 3] := $03;
end;

procedure send(const s : string);
var
    i : integer;
begin
  for i := 1 to length(s) do
  begin
    port[COM3] := byte(s[i]);
    while (Port[COM3 + 5] and $40) = 0 do
    begin
    end;
  end;
end;

procedure recv;
var
  c : char;
begin
  repeat
    while (port[COM3 + 5] and $01) = 0 do
    begin
    end;
    c := char(port[COM3]);
    write(c);
  until False;
end;

var
  s : string;

begin
  init;
  readln(s);
  s := s + #13#10;
  send(s);
  recv;
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Zlportio;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 if ZLIOStarted then
   Label1.Caption := 'Sterownik załadowany poprawnie.'
 else
   Label1.Caption := 'Nie można załadować sterownika.';
 portwriteb($378,$55); // wpisanie wartości 01010101 (bin)
end;

end.