| products/Sources/formale Sprachen/C/Cephes/ldouble/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: testvect.c Sprache: Unknown
|
Untersuchungsergebnis.87 Download desScala {Scala[74] Fortran[93] Abap[152]}zum Wurzelverzeichnis wechseln ; ; Microsoft MASM subroutines for setting coprocessor precision ; .286 .287 _TEXT SEGMENT BYTE PUBLIC 'CODE' _TEXT ENDS CONST SEGMENT WORD PUBLIC 'CONST' CONST ENDS _BSS SEGMENT WORD PUBLIC 'BSS' _BSS ENDS _DATA SEGMENT WORD PUBLIC 'DATA' _DATA ENDS DGROUP GROUP CONST, _BSS, _DATA ASSUME CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP EXTRN __fac:QWORD _BSS SEGMENT EXTRN __fltused:NEAR _BSS ENDS ; exception masks (1 = masked) ; 1 invalid operation ; 2 denormalized operand ; 4 zero divide ; 8 overflow ; 10 underflow ; 20 precision _DATA SEGMENT ; double precision setting ;;ctlwrd dw 01230h ; note this traps on denormal operands! ;;ctld dw 0133fh ; this doesn't trap ctld dw 01230h ; single precision ctls dw 01030h ; long double precision ctlld dw 01320h _DATA ENDS ASSUME CS: _TEXT _TEXT SEGMENT ; Set coprocessor to single precision float PUBLIC _sprec _sprec PROC NEAR fclex fwait finit fwait fldcw word ptr ctls fwait ret _sprec ENDP ; set coprocessor to long double precision PUBLIC _ldprec _ldprec PROC NEAR fclex fwait finit fwait fldcw word ptr ctlld fwait ret _ldprec ENDP ; set coprocessor to double precision PUBLIC _dprec _dprec PROC NEAR fclex fwait finit fwait fldcw word ptr ctld fwait ret _dprec ENDP ; get a double promoted to long double size ; getld( &doub, &ldoub ); PUBLIC _getld _getld PROC NEAR push bp mov bp,sp push bx mov bx, word ptr [bp+4] ; fld st(0) fld qword ptr [bx] mov bx, word ptr [bp+6] fstp tbyte ptr [bx] mov bx, word ptr [bp+4] fld qword ptr [bx] mov bx, word ptr [bp+8] fstp qword ptr [bx] pop bx pop bp ret _getld ENDP PUBLIC _getprec _getprec PROC NEAR push bp mov bp,sp sub sp,4 fstcw [bp-4] fwait mov ax,[bp-4] add sp,4 pop bp ret _getprec ENDP PUBLIC _fpclear _fpclear PROC NEAR push bp mov bp,sp fnclex fwait pop bp ret _fpclear ENDP PUBLIC _noexcept _noexcept PROC NEAR push bp mov bp,sp push ax sub sp,4 fnclex fwait fstcw [bp-4] fwait mov ax,[bp-4] and ax,0FFC0h or ax,003fh mov [bp-4],ax fldcw [bp-4] add sp,4 pop ax pop bp ret _noexcept ENDP ; single precision square root ; assumes coprocessor precision already set up ; return value in static __fac PUBLIC _sqrtf _sqrtf PROC NEAR push bp mov bp,sp fld DWORD PTR [bp+4] fsqrt fwait fstp DWORD PTR __fac mov ax,OFFSET __fac mov sp,bp pop bp ret _sqrtf ENDP ; double precision square root ; assumes coprocessor precision already set up ; return value in static __fac PUBLIC _sqrt _sqrt PROC NEAR push bp mov bp,sp fld QWORD PTR [bp+4] fsqrt fwait fstp QWORD PTR __fac mov ax,OFFSET __fac mov sp,bp pop bp ret _sqrt ENDP ; long double precision square root ; assumes coprocessor precision already set up ; return value in fp register PUBLIC _sqrtl _sqrtl PROC NEAR push bp mov bp,sp fld tbyte ptr [bp+4] fsqrt fwait mov sp,bp pop bp ret _sqrtl ENDP _TEXT ENDS END [ zur Elbe Produktseite wechseln0.102Quellennavigators ] |