XProfan

//FPU/Fliesskomma selberschreiben:

nProc ArcSin2

    Parameters a!
    //Formel welche unten umgesetzt 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 für 0.0
    fadd qword ptr __xeTF_01//__xeTF_00 Konstante für 1.0
    fsqrt
    fdivr qword ptr [eax]
    fld1
    fpatan
    pop eax
    fstp qword ptr [eax]
    return a!

ENDPROC