今天看TP的help的成果:

program lx;
  begin
    port[$3C8]:=1;
    port[$3C9]:=0;
    port[$3C9]:=42;
    port[$3C9]:=0;
  end.

运行, 大家自己看看效果