;EASE$$$ READ ONLY COPY of file ÒFP68K.aÓ
; 1.1	CCH 11/11/1988 Fixed Header.
; 1.0	CCH 11/ 9/1988 Adding to EASE.
; OLD REVISIONS BELOW
;¥1.1	CCH 9/23/1988 Got rid of inc.sum.d and empty nFiles
; 1.0	BBM 2/12/88 Adding file for the first time into EASEÉ
; END EASE MODIFICATION HISTORY 
; File: FP68K.a

;-----------------------------------------------------------
;  Copyright Apple Computer, Inc. 1982, 1983, 1984, 1985, 1986
;    All Rights Reserved
; 07JUL82: WRITTEN BY JEROME COONEN
; PUT TOGETHER THE FLOATING-POINT PACKAGE
; 28DEC82: ADD FILE FPSLOG.TEXT (JTC).
; 13APR83: CHANGE SEMI-TRAP SYSTEM TO TRUE HALTS.  UNTIL NOW
;	TRAPS HAVE BEEN ILL-SPECIFIED FOR THIS SOFTWARE,
;	SINCE THERE HAS BEEN NO INTENTION TO SUPPORT IEEE
;	TRAPS IN HIGH-LEVEL LANGUAGES.	NOW, A "TRAPPED"
;	EXCEPTION WILL HAVE THE DEFAULT RESULT DELIVERED TO
;	THE DESTINATION, WITH AN ALTERNATIVE EXIT TO THE
;	SAVED PROCEDURE POINTER IN THE FLOATING-POINT STATE.
;	THE PRINCIPAL CHANGES WERE TO FPCOERCE, IN WHICH
;	TRAPPED EXCEPTIONS BYPASSED THE DEFAULT PROCESSING.
;						(JTC)
; 27APR83: INCLUDE NEG AS AN ODDS OPERATION. (JTC)
; 09MAY83: MAJOR CHANGES:
;		CEASE USING A5, USE A6 AS A STACK LINK
;		ADD REENTRANCY POINT REFP68K
;		CHANGE TO PASCAL INTERFACE FOR HALT CALL JTC
; 09JUL83: ADD ENTRY/EXIT PROTOCOLS AND TESTXCP (JTC)
; 04AUG83: FIX BUG IN REM, BAD INTEGER QUO (JTC)
; 26AUG83: MOVE COND ASSEM FLAGS TO FPEQUS (JTC)
; 29NOV83: RENAMED FP68K.TEXT (JTC)
; 18FEB84: BUG FIXES A LA HOUGH (JTC)
; 15APR84: BUG FIXES AND CLEANUP A LA HOUGH (JTC)
; 14JAN85: MDS (JTC)
; 14FEB85: NAMED RSRC (JTC)
; 26MAR85: COLLECTED FILES: (JTC)
;			FP68K, FPEQUS,
;			FPCTRL = CONTROL + UNPACK + NANS + COERCE + PACK
;			FPOPS  = ADD + MUL + DIV + REM + CMP + CVT + SQRT + SLOG + ODDS
;			FPBD   = D2B + PTEN + B2D
; 03APR85: CURRENT THINKING IS TO HAVE BUT ONE VERSION OF THE PACKAGE, SO THE ROM	<03APR85>
;			VERSION IS ALLOWED TO LOCK/UNLOCK ITSELF SPURIOUSLY.						<03APR85>
; 31JUL85: BACK TO PORKSHOP (JTC)														<31JUL85>
;-----------------------------------------------------------
; 18may86:	moved to MPW (BBM)
; <C206/09oct86> bbm Modified to mpw aincludes.
;-----------------------------------------------------------

;-----------------------------------------------------------
; CONDITIONAL ASSEMBLY FLAGS
;-----------------------------------------------------------


			BLANKS		ON
			STRING		ASIS

ROMRSRC 	EQU 	0					; IF 1, THEN AVOID LOCKING PACKS -- BUT LEAVE IT ZERO!		<03APR85>

FPFORMAC	EQU 	1					; FLAG FOR MAC PACKAGE VERSION
FPFORDEB	EQU 	0					; FLAG FOR DEBUG	(ON LISA)
FPFORDEBUG	EQU 	FPFORDEB
FPFORLISA 	EQU 	0					; LISA LIBRARY ASSEMBLY

										; EQUATE								<31JUL85>
			PRINT	OFF
			LOAD		'StandardEqu.d'
			INCLUDE 	'SANEMACS.a'
			INCLUDE  'FPEQUS.a'
			EJECT

FP68K		PROC	 EXPORT 			;										<31JUL85>

			; RESOURCE	  'PACK'  4   ''  16									<31JUL85>

			EJECT
			INCLUDE  'FPCTRL.a'
			EJECT
			INCLUDE  'FPOPS.a'
			EJECT
			INCLUDE  'FPBD.a'
			END