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
--