Salut Janniek Hummelink !
Dans un message de Janniek Hummelink dat‚ du 18 Aug 96  12:49:00 il ‚tait 
t:
  FP>> function PortInput(Port : word) : byte;
  FP>> It does what you wants...
  JH> Thank you for your effort to write and
  JH> sent this function! I never used assembler before, so the function is
  JH> completely new for me.Unfortunately, I could not yet try it. The card
  JH> needs to be initialised. Thiscan be done to write (in the old
  JH> situation of Delphi 1.0) data to the card:Port[ADRESS] := $09 for
  JH> example.Do you know the 'function PortOutput' what does what I
  JH> want?
So here is my complementary procedure:
procedure PortOutput(Port : word; Value : byte);
begin
    asm
        mov dx,port
        mov al,Value
        out dx, al
    end;
end;
Amiti‚s,
{-Francois Piette-}
--- SvFido 1.32
---------------