mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-06 06:29:27 +00:00
74 lines
2.6 KiB
Plaintext
74 lines
2.6 KiB
Plaintext
;
|
|
; 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
|