;
;	File:		FPHWEqus.a
;
;	Contains:	Equates needed by the FPHW (881/882/040) package
;
;	Written by:	Apple Numerics Group, DSG
;
;	Copyright:	© 1985-1991 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <1>	10/24/91	SAM/KSM	Rolled in Regatta file.
;		
;	Terror Change History:
;
;		 <2>	  1/8/91	BG		Removed PROC040 definition.
;		 <1>	01/06/90	BG		Added to TERROR/BBS for the time.
;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File: FP881equs.a
;; EQU file for FP881.
;; Copyright Apple Computer, Inc. 1985,1986,1987,1989,1990
;; 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.
;;	13 Dec 89 -S.McD.	completely reworked
;;	22 May 90 -S.McD.	goes alpha for waimea.  copyright updated.
;;	 7 Sep 90 -S.McD.	goes beta for Tim. Updated version number.
;;	30 Sep 90 -S.McD.	goes final for Terror alpha.
;;  06 Dec 90 -JPO		added equate for PROC040 assembly flag
;;	17 Dec 90 -JPO		moved equate for PROC040 assembly flag to FP881.a
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stack frame information.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LKSIZE	EQU		86			; FRAME SIZE
LK1SIZE	EQU		(LKSIZE+4)	; FRAME SIZE COMPENSATED FOR 1 ARG  POPPED
LK2SIZE	EQU		(LKSIZE+8)	; FRAME SIZE COMPENSATED FOR 2 ARGS POPPED
LK3SIZE	EQU		(LKSIZE+12)	; FRAME SIZE COMPENSATED FOR 3 ARGS POPPED
LKOP	EQU		-4			; POPCOUNT/OPWORD LONG
LKCNT	EQU		-4			; POPCOUNT (HOW MUCH TO POP FOR MANUAL RTD)
LKOPW	EQU		-2			; OPWORD (LSW OF POPCOUNT/OPWORD LONG)
LKA6	EQU		0			; SAVED A6
LKRET	EQU		4			; RETURN ADDRESS
LKDST	EQU		8			; first address
LKSRC	EQU		12			; second address
LKSRC2	EQU		16			; third address
LK1POP	EQU		(12<<16)	; POP COUNT IN HIGH HALF OF LONG
LK2POP	EQU		(16<<16)	; POP COUNT IN HIGH HALF OF LONG
LK3POP	EQU		(20<<16)	; POP COUNT IN HIGH HALF OF LONG

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; BIT POSITIONS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
FPX96BIT	EQU		5		; PACK 4 96-BIT EXTENDED OP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; OTHER EQUs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	IF &TYPE('BACKPATCH') = 'UNDEFINED' THEN
BACKPATCH	EQU		0
	ENDIF