XPSE

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

nProc ArcSin2

    Parámetros a!
    //Formel welche unten umgesetzt se: 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 Konstante para 0.0
    fadd qword ptr __xeTF_01//__xeTF_00 Konstante para 1.0
    fsqrt
    fdivr qword ptr [eax]
    fld1
    fpatan
    pop eax
    fstp qword ptr [eax]
    volver a!

ENDPROC