Delphi +assembly
Résolu
vergil3a
Messages postés
28
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
12 mars 2012
-
5 oct. 2008 à 16:55
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 5 oct. 2008 à 17:29
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 5 oct. 2008 à 17:29
1 réponse
Bacterius
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
10
5 oct. 2008 à 17:29
5 oct. 2008 à 17:29
http://nono40.developpez.com/tutoriel/delphi/asm/
Une petite lecture, et tu devrais trouver ton bonheur + des connaissances supplémentaires en asm.
Voici un bout de code récupéré dessus; étudie-le :
Type TTabInteger=Array[0..3]Of Integer;
Function SommeTableau(T1,T2:TTabInteger):TTabInteger;
// EAX adresse de T1
// EDX adresse de T2
// ECX adresse de stockage du résultat
Asm
PUSH EDI
PUSH EBX
MOV EDI,ECX
XOR ECX,ECX
@@L1:
MOV EBX,DWord Ptr T1[ECX*4]
ADD EBX,DWord Ptr T2[ECX*4]
MOV DWord Ptr [EDI+ECX*4],EBX
INC ECX
CMP ECX,4
JB @@L1
POP EBX
POP EDI
End;
Une petite lecture, et tu devrais trouver ton bonheur + des connaissances supplémentaires en asm.
Voici un bout de code récupéré dessus; étudie-le :
Type TTabInteger=Array[0..3]Of Integer;
Function SommeTableau(T1,T2:TTabInteger):TTabInteger;
// EAX adresse de T1
// EDX adresse de T2
// ECX adresse de stockage du résultat
Asm
PUSH EDI
PUSH EBX
MOV EDI,ECX
XOR ECX,ECX
@@L1:
MOV EBX,DWord Ptr T1[ECX*4]
ADD EBX,DWord Ptr T2[ECX*4]
MOV DWord Ptr [EDI+ECX*4],EBX
INC ECX
CMP ECX,4
JB @@L1
POP EBX
POP EDI
End;
