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 87ftol - truncate TOS to 32-bit integer;*** ;87ftol.asm - truncate TOS to 32-bit integer;; Copyright (c) 1985-88, Microsoft Corporation;;Purpose:;;Revision History:;; 07/16/85 Greg Whitten; save BX and CX for sloppy code generator; 10/15/86 Greg Whitten; in-line instructions rather than call _fpmath; 08/24/87 Barry McCord; expand the functionality of _ftol to handle; unsigned long by using "fistp qword ptr"; 11/24/87 Barry McCord; added _loadds under ifdef DLL;; 08/26/88 Bill Johnston; 386 version;;*******************************************************************************
.xlist; include cruntime.inc; include mrt386.inc; include os2supp.inc.list
; CODESEG .386 .387 .model small,C .code
public _fltused_fltused equ 9876h
_ftol proc
local oldcw:word local newcw:word local intval:qword
fstcw [oldcw] ; get control word fwait ; synchronize
mov ax, [oldcw] ; round mode saved or ah, 0ch ; set chop rounding mode mov [newcw], ax ; back to memory
fldcw [newcw] ; reset rounding fistp qword ptr [intval] ; store chopped integer fldcw [oldcw] ; restore rounding
; mov rax, IWORD ptr [intval]; mov rdx, IWORD ptr [intval+ISIZE]
mov eax, dword ptr [intval] mov edx, dword ptr [intval+4]
ret_ftol endp
sqrt proc x:qword
fld [x] fsqrt
retsqrt endp
end
|
