functions et assembleur intégréRésolu

Question

Bonjour,
j'ai un souci avec l'assembleur.

J'ai un type TMyType=array[0..100] of byte;
et une fonction :

Function Calcul(a,b:TMyType):TMyType;assembler;
asm
end;

Et je n'arrive pas en assembleur &#224; r&#233;cup&#233;rer les deux tableaux et &#224; remplir le r&#233;sultat de la fonction avec mes valeurs.

cs_ManChesTer · Accepted Answer

je pense que ceci devrais te convenir :

Function Calcul(a,b:TMyType):TMyType;assembler;
asm
 push ebx
 push edx
 push esi
 mov eax,a
 mov ebx,b
 mov esi,result
 Mov ecx,100
@loop:
 mov dl,byte ptr([eax+ecx])
 add dl,byte ptr([ebx+ecx])
 mov byte ptr([esi+ecx]),dl
 loop @loop
 pop esi
 pop edx
 pop ebx
end;


procedure TForm1.Button1Click(Sender: TObject);
var a,b,c :TMyType;
    j : Integer;
begin
 For j:=0 to 100 do
 begin
  a[j]:=10;
  b[j]:=10;
 end;
 c:=Calcul(a,b);
 For j:=0 to 100 do
  memo1.Lines.Add(inttostr(c[j]));
end;

Bon Coding ....

ManChesTer.

Functions et assembleur intégré

1 réponse

Votre réponse

Discussions similaires