Discussion :

[declencher]

Bonjour,


Je précise tout de suite que mon application tourne sur Win98 et que j'ai fait appel à une petite routine en assembleur bien connue permettant d'accéder directement au port parallèle. Cependant en voulant bien faire les choses j'ai voulu passer un paramètre à ma fonction pour indiquer sur quel registre du port // je veux écrire. Ce paramètre contient l'adresse du registre ($378 pour l'adresse de base).

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
const ADRESSE_BASE = $378;
 
{-----------------------------------------------------------------}
{ Méthode d'émission des bits en assembleur }
procedure aout(adresse : word ; dat : byte);assembler;
asm
  mov al,dat
  mov dx, adresse
  out dx,al
end;

Mon problème est que ça ne marche pas lorsque j'appelle la méthode en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

aout(ADRESSE_BASE, 2); //exemple

Je ne comprends pas alors que si dans le code assembleur je met la valeur $378 directement à la place de la varibale asdresse ça fonctionne.

Je suppose que c'est un problème de code non ? Mais je n'arrive pas à identifier le problème.

Quelqu'un aurait une idée ? Le type de la variable de convient pas au registre dx ?? Je ne comprends pas.

Merci

[Nono40]

Ca ne fonctionne pas à cause du passage des paramètre par registre ( qui est faite par défaut quand les optimisations sont en marche )

Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure aout(adresse : word ; dat : byte);assembler;

Va mettre Adresse dans AX et dat dans DX.
Or ensuite tu fais MOV AL,DAT qui va écraser la valeur de Adresse contenue dans AX...

Deux solution :
Tu forces la passage par la pile au lieu des registres à l'aide de la directive Pascal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure aout(adresse : word ; dat : byte);Pascal;
asm 
  mov al,dat 
  mov dx, adresse 
  out dx,al 
end;

Tu reste en passage par registre, et dans ce cas il est préférable de le forcer afin de ne pas dépendre des optimisations, à l'aide de la directive Register. Par contre simplement en inversant l'ordre des paramètres tu vas avoir les données déjà en place !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure aout(dat:Byte; adresse : word);Register;
asm 
  // ici dat est dans AL et Adresse dans DX automatiquement
  out dx,al 
end;

PS : le mot clef Assembler ne sert plus à rien. Dans la mesure ou le Begin de début de procédure est remplacé par Asm, c'est implicite.

[declencher]

Merci pour la réponse et merci pour la rapidité

Je ne trouvé pas d'explication Juste une question ? Comment tu sais, en fonction de l'optimisation, dans quel registre sont placés les paramètres ?
Comment forcé le passage par la pile ? (Je ferai une recherche si tu n'as pas la réponse sous la main, pas de pb )

Je teste ça dès que mon betatesteur sera disponible

En tout cas merci pour le coup de main, fallait le savoir tout ça

[Nono40]

Si tu utilises l'assembleur en ligne regarde ici : http://nono40.developpez.com/delphi/asm/

Quand les optimisations sont actives, c'est la directive Register qui est utilisée par défaut. Sinon, c'est la directive Pascal. Pour connaitre la différence et le passage exact des paramètres suivant la convention d'appel, je te conseille le chapitre suivant du même article :
http://nono40.developpez.com/delphi/asm/#LIII-D

[Nono40]

Comment forcé le passage par la pile ?

Relis ma première réponse, c'est dedans

[declencher]

zut milles excuses J'avais pas vu :o