mac-rom/Toolbox/InSANE/FPHWEqus.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

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