XPSE

 {$CLEQ}
Declare  b!,c!
b!=3.14
c!=ArcSin2(b!)
End

nProc ArcSin2

    Parameters a!
    //Formel which under umgesetzt becomes: arctan(a!/Sqrt(-a!*a!+1.0))
    mov eax,addr(a!)
    push eax
    fld qword ptr [eax]
    fmul qword ptr [eax]
    fsubr qword ptr __xeTF_00//__xeTF_00 Constant for 0.0
    fadd qword ptr __xeTF_01//__xeTF_00 Constant for 1.0
    fsqrt
    fdivr qword ptr [eax]
    fld1
    fpatan
    pop eax
    fstp qword ptr [eax]
    return a!

endproc