[ASM] Lange Strings als Function - Wert zurückgeben

[Chemiker]

Hallo,

danke für die Antworten.

Trotzdem verstehe ich immer noch nicht wie es funktioniert.

Mal ein Beispiel für die Rückgabe eines integer – Wertes.

Delphi-Quellcode:

function ASM_strLaenge(s: PChar): integer;
ASM
      PUSH EBX                   // EBX sichern
      MOV EDX, EAX               // Adresse in EDX
      XOR EAX, EAX               // EAX auf 0 setzen
      MOV EBX, EAX               // EBX aof 0 setzen
      JMP @@Vergleich
@@Weiter:
      INC EDX                    // Adresse um 1 Erhöhen
      INC EAX                    // Anzahl um 1 erhöhen
@@Vergleich:
      MOV BL, [EDX]              // Zeichen laden nach BL
      CMP byte ptr [EDX], $00    // Zeichen auf #0 testen
      JNZ @@Weiter               // Wenn nicht String Ende dann weiter
      POP EBX                    // EBX vom Stack holen
END;

So das ist kein Problem.

Aber, wenn ich diese zugegebener Weise nutzlose Funktion, in ASM schreiben möchte, wie sieht denn dann der Code aus.

Delphi-Quellcode:

function ASM_StringTest(s: String):String;
begin
   Result:= s;
end;

Bis bald Chemiker