Get87ControlWord Function |
Unit
QESBPCSMath
Declaration
Function Get87ControlWord: TESBBitList;
Description
15-12 Reserved
On 8087/80287 12 was Infinity Control
0 Projective
1 Affine
11-10 Rounding Control
00 Round to nearest even
01 Round Down
10 Round Up
11 Chop - Truncate towards Zero
9-8 Precision Control
00 24 bits Single Precision
01 Reserved
10 53 bits Double Precision
11 64 bits Extended Precision (Default)
7-6 Reserved
On 8087 7 was Interrupt Enable Mask
5 Precesion Exception Mask
4 Underflow Exception Mask
3 Overflow Exception Mask
2 Zero Divide Exception Mask
1 Denormalised Operand Exception Mask
0 Invalid Operation Exception Mask
Implementation
function Get87ControlWord: TESBBitList; var Temp: Word; asm fstcw [Temp] // Get '87 Control Word mov ax, [Temp] // Leave in AX for function End; |
|