XPSE

 {$CLEQ}
Déclarer  b!,c!
b!=3.14
c!=ArcSin2(b!)
Fin

nProc ArcSin2

    Paramètres a!
    //Formel quelle unten mise en œuvre wird: 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 pour 0.0
    fadd qword ptr __xeTF_01//__xeTF_00 Konstante pour 1.0
    fsqrt
    fdivr qword ptr [eax]
    fld1
    fpatan
    pop eax
    fstp qword ptr [eax]
    return a!

endproc