mac-rom/Toolbox/SANE/FP881Equs.a
Elliot Nunn 4325cdcc78 Bring in CubeE sources
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included.

The Tools directory, containing mostly junk, is also excluded.
2017-12-26 09:52:23 +08:00

92 lines
3.0 KiB
Plaintext

;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