Source code of Windows XP (NT5)
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
page ,132 title 87sqrt - square root - SQRT;*** ;87sqrt.asm - common square root support (80x87/emulator version);; Copyright (c) 1984-2001, Microsoft Corporation. All rights reserved.;;Purpose:; Common support for the sqrt function (80x87/emulator version);;Revision History:; 07-04-84 GFW initial version; 10-26-87 BCM minor changes for new cmacros.inc; 08-24-88 WAJ 386 version;;*******************************************************************************
.xlist include cruntime.inc include mrt386.inc include elem87.inc.list
CODESEG
extrn _rtindfnpop:nearextrn _rttosnpopde:nearextrn _rtzeronpop:nearextrn _tosnan1:near
;----------------------------------------------------------;; SQUARE ROOT FUNCTIONS;;----------------------------------------------------------
lab fFSQRT or cl,cl ; test sign JSNZ sqrtindfnpop ; return indefinite if negative fsqrt ; calculate the square root of TOS ret
lab _rtforsqrtinf or cl,cl ; test sign JSNZ sqrtindfnpop ret ; return infinity
lab _rtforsqrtzero ; zero or denormal ftst fstsw ax fwait sahf JSNZ fFSQRT ; denormal operand ret ; return +0 or -0 (IEEE std)
lab sqrtindfnpop jmp _rtindfnpop ; return indefinite
end
|
