;EASE$$$ READ ONLY COPY of file ÒFP881equs.aÓ
; 1.1	CCH 11/11/1988 Fixed Header.
; 1.0	CCH 11/ 9/1988 Adding to EASE.
; OLD REVISIONS BELOW
; 1.0	BBM 2/12/88 Adding file for the first time into EASEÉ
; END EASE MODIFICATION HISTORY 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File: FP881equs.a
;; EQU file for FP881.
;; Copyright Apple Computer, Inc. 1985,1986,1987
;; All Rights Reserved
;; Confidential and Proprietary to Apple Computer,Inc.
;;
;; Written (from J.Coonen's FPEQUS) by C. Lewis, begun 7 Feb 85.
;; Debugged by Stuart McDonald.
;;
;; Modification history:
;;	16 Jun 86 CRL	moved to MPW
;;	15 Jan 87 -S.McD.	status and copyright notice changed.
;;	23 Jan 87 -S.McD.	added OPERR and most of the SANE NaN codes.
;;	29 Jan 87 -S.McD.	deleted the SANE NaN codes.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stack frame information.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LKCNT	EQU	 -2	; byte count for trapping
LKA6	EQU	  0	; saved A6
LKRET	EQU	  4	; return address
LKOP	EQU	  8	; opword
LKADR1	EQU	 10	; first address
LKADR2	EQU	 14	; second address
LKADR3	EQU	 18	; third address
LKDIGS	EQU	 20	; f.digits for decform

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Status bits for 68020 used in CMP and CPX.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
XNCBITS	EQU	 25	; 16 + 8 + 1
ZBIT	EQU	 4
VBIT	EQU	 2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Classify return values.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SNAN	EQU	 1
NAN	EQU	 2
INFINITY	EQU	 3
ZERO	EQU	 4
NORMAL	EQU	 5
DENORM	EQU	 6

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Used by SetExc.  AEXC bits.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INX	EQU	8
DZ	EQU	16
UNFL	EQU	32
OVFL	EQU	64
IOP	EQU	128

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stack adjust constants used at end of package
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
STKREM1	EQU	12	; bytes to remove if 1 operand
STKREM2	EQU	16	; bytes to remove if 2 operands
STKREM3	EQU	20	; bytes to remove if 3 operands

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Masks to strip all but operation and possibly format from opcode.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
OPMASK	EQU	$381E
OPMASK2	EQU	$001E
XCPMASK	EQU	$001F
IMASK	EQU	$0300
XMASK	EQU	$E000

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Decimal record constants.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
N	EQU	$4E
I	EQU	$49

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Miscellaneous.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MINEXP	EQU	-16383	; smallest unbiased exponent in extended format
NANZERO	EQU	21
QNaNBit	EQU	30	; 1=Quiet, 0=Signaling
OPERR	EQU	13	; OPERR is bit 13 of FPSR