mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +00:00
92 lines
3.0 KiB
Plaintext
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
|
|
|