supermario/base/SuperMarioProj.1994-02-09/Toolbox/SANE/FP881Equs.a

92 lines
3.0 KiB
Plaintext
Raw Normal View History

2019-06-29 15:17:50 +00:00
;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