XPSE

Habe ich wohl etwas übersehen, durchschaue ich jetzt nicht auf Anhieb.

Worum genau gehts Dir eigentlich? Magst Fließkommaoperationen in Assembler schreiben?

30.11.2014 ▲

funkheld

Ja..., das möchte ich.

Gruss

XProfan 11

01.12.2014 ▲

Habs nicht aus den Augen verlogen, schaue hin und wieder drüber worans liegen potuto.

02.12.2014 ▲

So ists besser:
Kompilieren Markieren Separieren

nProc ArcSin2

    Parameters a!
    //Formel welche unten umgesetzt wird: arctan(a!/Sqrt(-a!*a!+1.0))
    mov eax,addr(a!)
    finit
    fld qword ptr [eax]
    fmul qword ptr [eax]
    fsubr qword ptr __xeTF_00//__xeTF_00 Konstante für 0.0
    fadd qword ptr __xeTF_01//__xeTF_00 Konstante für 1.0
    fsqrt
    fdivr qword ptr [eax]
    fld1
    fpatan
    fstp qword ptr [eax]
    wait
    return a!

endproc

Funktionierts?

02.12.2014 ▲

Michael
W.

Die umgesetzte Formel ist:
arctan(a / Sqrt(0.0 - (a * a) + 1.0))

Minus a bekommt man durch "fchs" zustande.
Pi gibts mittels "fldpi"

Quelle nenn' ich auch noch: [...]

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

Kompilieren Markieren Separieren

Michael
W.

nProc ArcSin2

    Parameters a!
    //Formel welche unten umgesetzt wird: arctan(a!/Sqrt(-a!*a!+1.0))
    mov eax,addr(a!)
    finit
    fld qword ptr [eax]
    // ergibt: a
    fchs
    // ergibt: -a
    fmul qword ptr [eax]
    // ergibt: -a * a
    fld1
    // ergibt: 1.0  ---  -a * a
    faddp st(1)
    // ergibt: -a * a + 1.0
    fsqrt
    // ergibt: Sqrt(-a * a + 1.0)
    fdivr qword ptr [eax]
    // ergibt: a / Sqrt(-a * a + 1.0)
    fld1
    // ergibt: 1.0  ---  a / Sqrt(-a * a + 1.0)
    fpatan
    // ergibt: ArcTan(a / Sqrt(-a * a + 1.0))
    fwait
    // fwait  statt wait
    fstp qword ptr [eax]
    return a!

endproc

System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

Selbst wenn man:

{$pushkeyword fchs,faddp,st1}

schreibt um diese Schlüsselworte als "bekannt" zu deklarieren,
dann meckert jwasm:

Objektcode: TEST.asm(166) : Error A2054: Invalid instruction o
perands

Warnung: Fehler im Assembler.

Kann jetzt aber viele Ursachen haben.

Michael
W.

Hauptursache ist wohl, das es im Original St(1) heißen muss. Da hatte ich mich von der Farbgebung wohl in die Irre führen lassen.

XProfan X3
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.

funkheld

Jup danke.

[15:11:11] Warnung: undeklariert : FADDP
[15:14:13] Naehe: ~14, 'FADDP ST1'

Irgendwie werden die als Variable missbraucht von XPSE.

Gruss

XProfan 11