Hi,
I think that there is a mistake un the ports.pas unit on the 
gpc-19990430-i386-pc-djgppv202.zip :
function InPortW (PortNumber : ShortWord) : ShortWord;
var Result : volatile ShortWord; (*@@*)
begin
  asm ('inb %%dx, %%al' : '=a' (Result) : 'd' (PortNumber) : 'ax',
'dx');
  InPortW := Result
end;
Wasn't ax instead of al?
Note: I don't need to use it!
-- 
Opie
--------Publicite--personnelle---------------------------------------
........ ABC de la Programmation (Assembleur, C, Pascal)
................ 
http://www.multimania.com/opecheux
................ Pour être averti des nouvelles étapes, abonnez vous
Abonnez vous aux listes françaises:
 - Assembleur: 
http://www.onelist.com/subscribe/prog_nasm
 - C         : 
http://www.onelist.com/subscribe/prog_c_gnu
 - Pascal    : 
http://www.onelist.com/subscribe/prog_pascal_gnu
--