Discussion :

[M.Dlb]

J'ai un problème en asm pour récupérer les addresses de variables locales à l'intérieur d'une procedure. En effet, je souhaite récupérer l'addresse d'une variable qui est passée en paramètre dans une procedure mais avec du code assembleur. Pour exemple, j'ai fait une procedure length(s) qui doit récupérer la longueur de la chaîne s :

uses crt;
var leng:byte;

procedure length(s:string);assembler;
asm
MOV SI,OFFSET s;
LODSB;
MOV leng,AL;
end;


begin
clrscr;
length('salut');
writeln(leng);
readln;
end.

La longueur est donc stockée dans leng, seulement leng ne me retourne pas du tout la longueur de la chaîne ni même un des caractères de la chaîne. Après vérification, il se trouve que l'addresse que j'obtiens avec ce code n'est pas du tout la même que celle qui aurait du être c'est-à-dire l'addresse de s. Pourquoi est-ce que je n'obtiens pas la même addresse, et comment sont stockée en mémoire les variables locales dans les procedures ?
Merci

[Eric Sigoillot]

Ta chaîne de caractère peut dans ton cas être modifiée. Elle est donc copiée dans la pile pour ta procédure? Puis on te passe une adresse.

Elle n'est donc plus sur DS, mais sur SS. Lodsb va donc te retourner n'importe quoi. Quant à offset, je n'en parle même pas.

Code :

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

1
2
3
4
5
6
 
function Length(const S: string): Byte;
asm
  les di, S
  mov al, es: [di]
end;

A+

[Eric Sigoillot]

Tiens, au passage, il y a une autre manière de récupérer la longueur d'une chaîne sous TP.

Code :

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

1
2
3
4
5
 
function Length(const S: string): Byte;
begin
Length := Byte(S[0]);
end;

Il n'est par ailleurs pas nécessaire de passer par une fonction. Tu peux aussi utiliser une fonction inline, qui sera plus rapide.

A+

[M.Dlb]

En fait, la taille d'une string en memoire est nécessaire pour ecrire cette string a l'écran : j'ai fait une routine asm qui permet donc d'écrire à l'écran une string en mode texte 03h. ( si vous voulez le code source, un petit mail... )
a+