asm inline...

Question

Bonjour,
est-il possible d'intégré ce code asm en delphi ? j'ai essayé mais je bloque quant je vaux ajouter un composant (TEdit) pour intégré une valeur et pour afficher le résultat. votre aide est la bienvenue.
ex : valeur := Edit1.text ;  // valeur à traitée dans le code asm
    Edit1.text := valeur;    // valeur récuperée apèrs traitement
MOV ESI, valeur          
 MOV BL,BYTE PTR DS:[ESI]

@R001:
  CMP BL,30h
  JL SHORT 0040122Ch // s'assurer que c'est un entier (integer) (0...9) val hex (30...39)
  CMP BL,39h
  JG SHORT 0040122Ch // s'assurer que c'est un entier (integer)  (0...9) val hex (30...39)
  MOV CL,0Ah
  MUL ECX
  MOV CL,BYTE PTR DS:[ESI]
  ADD EAX,ECX
  ADD EDX,ECX
  INC ESI
  MOV BL,BYTE PTR DS:[ESI]
  CMP BL,0h
  JE @R002            // fin du traitement

merci !

f0xi · Answer

salut,

il manque le label @R002, 
JL Short et JG Short semble incorrect.

que fait ce bouts de code exactement ?
car la plupart du temps, l'utilisation de l'assembleur en delphi est inutile.

<hr size="2" width="100%" />Croc (click me)

cs_viva · Answer

Salut,
Cette procédure est sensée transformer un serial (integer).
mon problème est de charger une valeur de la routine de calcul via un Edit.
merci pour votre réponse !

jinh68 · Answer

Tu es sûr de la bonne utilisation des registres(ESI me semble peu commun, je verrais davantage EAX).
Le tutorial d'asm inline rédigé par Nono explique très bien les conventions d'appel.

j!nH

cs_viva · Answer

merci pour vos réponses, effectivement j'ai téléchargé le tuto de Nono.


@+

Asm inline...

4 réponses

Votre réponse

Discussions similaires