tach,

ich hab hier ne Berechnung um von MOD music
dateien die Position zu bekommen.

Die berechnung stimmt, die MASM Code von der berechnung sieht so aus:



und mein delphi code so:



wie bekomm ich nun EDX in Result[0] und EAX in Result[1] ???
Peil asm so gut wie gar nicht...
Wenn mir jemand mal die zeilen erklären könnte wärs cool.

SAR EDX, 16 ist doch das gleiche wie



oda irr ich mich ???


danke schonmal für antworten.

matane,
Finalspace

Ich sag wieder das, was ich oft sagen muss : ein Blick in die Delphi-Hilfe genügt, denn dort steht drin, das Assemblerfunktionen 8-bit Werte im AL-Register als Ergebnis zurückgeben, 16-Bit Werte im AX-Register und (das was du brauchst) 32 Bit-Werte im EAX-Array.
So solltest du also einen gültigen Rückgabewert erhalten :



Ja.Du irrst, SAR steht für Shift Arithmetic Right, während SHR für ein logisches Verschieben nach Rechts steht.In der Praxis müsste oben genanntes aber trotzdem funktionieren (kenne leider nur den ASM-Befehlssatz des 8085 gut, beim 8086 sind meine Kentnisse nicht ganz so gut, deshalb ist die Angabe ohne Gewähr)

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Um die Ausführungen von SOS ein wenig zu vertiefen:

SHR schiebt alle Bits um ein Bit nach rechts, während das niederwertigste Bit ins Carryflag wandert und das höchstwertigste mit 0 aufgefüllt wird.

SAR schiebt ebenfalls alle Bits um ein Bit nach rechts. Dabei wird das niederwertigste Bit in das Carryflag geschoben, während das höchstwertigste Bit seinen Wert beibehält. „SARst“ du also einen ursprünglich negativen Wert (höchstwertiges Bit#32 = 1), dann behält er – im Gegensatz zu SHR – seinen negativen Wert bei. Deshalb auch Shift Arithmetical Right.

Bei deinem Rückgabewert sehe ich ein paar Stolperfallen. Erstens denke ich nicht, dass der Wert einfach so im EAX-Register zurückgegeben wird. Du musst bedenken, dass du einen selbst definierten Typ zurückgibst, der ja eigentlich nur 16Bit breit ist. Ich weiß, jetzt kommt der Einwand, dass es ja ein Array ist, Arrays sind aber unter Pascal lediglich Zeiger. Ich glaube also eher, dass hier im EAX ein Zeiger auf eine Stelle im Speicher übergeben wird, der dann auf deinen gewünschten Wert zeigt. Genau sagen kann ich dir das aber im Moment auch nicht, aber das beste Mittel, das auszuprobieren, ist: CPU-Fenster im Debugger aufmachen, ein bisschen try&error-Coding, und einfach mal schauen, was passiert.

Dann übergibst du einen Int64 an die Funktion. Bedenke, dass EAX nur 32Bit breit ist, wo bleiben also die restlichen 32Bit? Oder sind die irrelevant? Dann würde ich besser nur einen Integer/Cardinal übergeben, Int64 hat so seine ganz speziellen Rechenregeln (z.B. müssen 32Bit-Werte vorher gecastet werden, bevor du ein richtiges Ergebnis bekommst, sonst erfolgt keine richtige Berechnung – mehr dazu in der Delphi-Hilfe) und ist auch sonst kein – wie soll ich sagen – „konformer“ Datentyp.

Gruß

Habe mir gerade den Code noch mal angesehen.

Wenn ich das richtig verstanden habe, dann passiert in der ASM-Routine folgendes:
[LIST]Die Funktion BASS_ChannelGetPosition wird aufgerufen. Diese liefert einen 32Bit-Wert zurück.
[*] Die nächste Funktion wsprintf erwartet ein paar Parameter, darunter auch eax und edx, die anscheinend den zuvor zurückgegeben „aufgedröselten“ eax erwarten, weil die Funktion das so will.[LIST]
Bleibt also nur noch die Frage: Wie implementiere ich das in Delphi?
Wie wäre es denn mit folgendem Code?


Natürlich weiß ich jetzt nicht genau, wie die anderen Parameter alle definiert sind, aber ein bisschen was muss ich ja noch dir überlassen…

Gruß

Also ich muss immer wieder staunen, wieviel wissn delphi mitglieder gegenüber mir haben, obwohl ich soviele jahre schon programmiere weiss ich nicht annähernd was andere wissn.
Ich hab grossen respekt vor euch, das solltet ihr wissn.

Danke mal für die viele antworten

Ich versteh so gut wie gar nix von ASM, hab die Hilfe mir angeschaut, konnte aber nicht viel mit anfangen.

ich weiss ja nicht einmal wofür die ganzen befehle sind... warum hat SOS am ende der ASM routine MOV EAX, EDX geschrieben ???

eigentlich versteh ich nicht eine zeile ASM code
ist echt traurig, aber naja... ich werd mich anstrengen und es lernen.

Ich glaube das hat so keinen sinn, kennt hier einer nen Wirklich gutes Deutsches Tutorial über Assembler z.b Inline Delphi Assembler ??


matane,
Finalspace

Sorry, vergiss meinen Code oben, der ist nämlich absoluter Schwachsinn...da sind eine Reihe von Denkfehlern drin. Das kommt halt davon, wenn man den Code nicht testet...

Ich versuche über die Mittagspause eine berichtigte Version zu erstellen.

Wenn du ein gutes Assember-Tut suchst, dann schau mal beim <a href='http://www.programmierer-board.de' target='_blank'>Programmiererboard</a> vorbei. Dort gibt es eine Koryphäe namens Marilin oder so ähnlich in der Assembler-Ecke, der hat ein Tut ins Deutsche übersetzt, das ich sehr gut fand. Außerdem müsste der eigentlich ein Buch veröffentlicht haben...

Gruß
Armin

Alles klar funzt:



aber irgendwie vergisst die ASM funktion den TByte2Array[1] wert, der wird einfach auf 0 gesetzt. wäre cool wenn das mal einer vervollständigen könnte.

Thx,
Finalspace

Okay, ich versuchs nochmal, gestern war ja nun absolut nicht mein Tag...

Die nachgebildete Funktion könnte z.B. so aussehen:


Der Befehl MOV EAX, Op ist zwar nicht unbedingt nötig, da der übergebene Parameter sowieso in EAX steht, allerdings kannst du jetzt sicher sein, dass der richtige Wert in EAX steht! Ich weiß nicht genau, wie Delphi die Parameterübergabe handelt, aber das scheint von Fall zu Fall verschieden zu sein. Manchmal stehen die Parameter in ECX und EDX, manchmal auch in EAX. Ich denke mal, das ist von Anzahl und Typ der Parameter abhängig.

Ich habe den Int64 durch einen Integer ersetzt, weil dir die oberen 32Bit des Int64 sowieso flöten gehen. Ich gehe mal davon aus, dass du wie ich auf einem 32Bit-Betriebssystem arbeitest. Willst du unbedingt mit 64Bit arbeiten, dann musst du die ganze Sache ganz anders aufziehen.

Den TByte2Array habe ich auf TInteger2Array erweitert, weil dir sonst vielleicht wichtige Informationen verloren gehen. Wie ich in der MASM-Proc gesehen habe, wird dort ja auch mit Integern respektive Cardinals gearbeitet.

Sodele, hoffe gehilft zu haben.

Gruß

@Finalspace: der Befehl MOV EAX, EDX bedeuted: Kopiere den Inhalt von Register EDX nach EAX. Da die Funktion von Delphi als Rückgabe den Wert in EAX erwartet, er aber in EDX liegt, muss er eben von EDX nach EAX kopiert werden. Wichtig ist dabei übrigens, dass man beachtet, welche Register unverändert wieder die Funktion verlassen müssen. Die müsste man dann eben vorher mit PUSH & POP sichern bzw. wiederherstellen. Wer mit InLine oder anderen Assembler-Funktionen arbeiten will, sollte sich vorher GUT UND INTENSIV die Hilfe zu dem Thema in Delphi anschauen, um unnötigen Ärger zu ersparen!

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?