function et assembleur de delphiRé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_patatalo · Accepted Answer

salut,

Function Calcul(a,b:TMyType):TMyType;assembler;
asm
  mov esi,a ; esi = adresse du tableau a
  mov edi,b ; edi = adresse du tableau b
 mov al,[esi] ; al = a[0]
 mov cl,[edi+1] ; cl = b[1]
 add al,cl ; al = a[0]+b[1]
 mov [edi],al ; b[0] = a[0] + b[1]
mov Calcul,edi ; on retourne b[]
end;

@++

ToutEnMasm · Answer

Salut,
l'assembleur de delphi est un assembleur ......delphi.Ce qui veut dire , poser la question de sa syntaxe sur un forum delphi pour avoir une r&#233;ponse.
                               ToutEnMasm

cs_barbichette · Answer

Merci bien de cette r&#233;ponse, mais je l'ai d&#233;j&#224; pos&#233; dans delphifr mais on me r&#233;pond que c'est plus de l'assembleur que du delphi...
Alors je demande aux deux en parall&#232;le en esp&#233;rant une r&#233;ponse dans l'un comme dans l'autre...
c
barbichette

BruNews · Answer

si c'est de l'asm normal:
myvar  DB   100 dup(0)

ciao...
BruNews, MVP VC++

cs_ManChesTer · Answer

En + fonctionel, et en delphi dans le texte, ca donne :

unit pcalcasm;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


Type TMyType=array[0..100] of byte;


implementation


{$R *.dfm}


Function Calcul(a,b:TMyType;size:Integer):TMyType;assembler;
asm
 Push esi
 Push ebx
 mov esi,result
@NextByte:
 mov bl,Byte[eax+ecx]
 add bl,Byte[edx+ecx]
 mov byte ptr([esi+ecx]),bl
 loop @NextByte
 pop edx
 pop esi
end;


procedure TForm1.Button1Click(Sender: TObject);
var j   : Integer;
    a,b,c : TmyType;
begin
 for j:=0 to 100 do
 begin
  a[j]:=j;
  b[j]:=j+10;
 end;
 c:=Calcul(a,b,sizeof(TmyType));
 for j:=0 to 100 do
  Memo1.Lines.Add(Inttostr(a[j])+'+'+Inttostr(b[j])+'='+Inttostr(c[j]));
end;


end.

Bon Coding ....

ManChesTer.

cs_ManChesTer · Answer

oupps, faut lire :


Function Calcul(a,b:TMyType;size:Integer):TMyType;assembler;
asm
 Push esi
 Push ebx
 mov esi,result
@NextByte:
 mov bl,Byte[eax+ecx]
 add bl,Byte[edx+ecx]
 mov byte ptr([esi+ecx]),bl
 loop @NextByte
 pop ebx // et non edx
 pop esi
end;

Bon Coding ....

ManChesTer.

Function et assembleur de delphi

6 réponses

Votre réponse

Discussions similaires