1/*---------------------------------------------------------------------------+
2 |  control_w.h                                                              |
3 |                                                                           |
4 | Copyright (C) 1992,1993                                                   |
5 |                       W. Metzenthen, 22 Parker St, Ormond, Vic 3163,      |
6 |                       Australia.  E-mail   billm@vaxc.cc.monash.edu.au    |
7 |                                                                           |
8 +---------------------------------------------------------------------------*/
9
10#ifndef _CONTROLW_H_
11#define _CONTROLW_H_
12
13#ifdef __ASSEMBLY__
14#define	_Const_(x)	$##x
15#else
16#define	_Const_(x)	x
17#endif
18
19#define CW_RC		_Const_(0x0C00)	/* rounding control */
20#define CW_PC		_Const_(0x0300)	/* precision control */
21
22#define CW_Precision	Const_(0x0020)	/* loss of precision mask */
23#define CW_Underflow	Const_(0x0010)	/* underflow mask */
24#define CW_Overflow	Const_(0x0008)	/* overflow mask */
25#define CW_ZeroDiv	Const_(0x0004)	/* divide by zero mask */
26#define CW_Denormal	Const_(0x0002)	/* denormalized operand mask */
27#define CW_Invalid	Const_(0x0001)	/* invalid operation mask */
28
29#define CW_Exceptions  	_Const_(0x003f)	/* all masks */
30
31#define RC_RND		_Const_(0x0000)
32#define RC_DOWN		_Const_(0x0400)
33#define RC_UP		_Const_(0x0800)
34#define RC_CHOP		_Const_(0x0C00)
35
36/* p 15-5: Precision control bits affect only the following:
37   ADD, SUB(R), MUL, DIV(R), and SQRT */
38#define PR_24_BITS        _Const_(0x000)
39#define PR_53_BITS        _Const_(0x200)
40#define PR_64_BITS        _Const_(0x300)
41#define PR_RESERVED_BITS  _Const_(0x100)
42/* FULL_PRECISION simulates all exceptions masked */
43#define FULL_PRECISION  (PR_64_BITS | RC_RND | 0x3f)
44
45#endif /* _CONTROLW_H_ */
46