;EASE$$$ READ ONLY COPY of file “ELEMS68K.a”
; 1.2	GGD 07/14/1989  Changed the ROMRSRC flag to 1 so that it doesn't waste time locking
;		a ROM resource.
; 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 
;m1 1
;m4 7
;he ''MAC Elementary Functions''
;fo 'ELEMS68KDR.TEXT'Page %'14 JAN 85'
 ; File: ELEMS68K.a

 ; -----------------------------------------------------------------------;
 ;																		  ;
 ;			   Elementary Functions 									  ;
 ;																		  ;
 ;		   Compound Interest and Present Value Functions				  ;
 ;																		  ;
 ;			   by  Jerome T. Coonen 									  ;
 ;																		  ;
 ;		from Pascal code by David Hough and Colin McMaster				  ;
 ;		and (trigs) Kenton Hanson										  ;
 ;																		  ;
 ;		 Copyright Apple Computer Inc.,  1983, 1984, 1985		     	  ;
 ;		 All Rights Reserved											  ;
 ; -----------------------------------------------------------------------;


 ;
 ; Change history:
 ;	 2 Jul 83  JTC	Expanded comments and added trigs.
 ;	26 Aug 83  JTC	Fixed Hough-found bugs and added Lisa assembly stuff.
 ;			Made separate driver file.	Made BSRs within package
 ;			conditionally to ELEMS68K or %ELEMS68K.  Fixed 0^0.
 ;	29 Nov 83  JTC	Renamed Elems68K.TEXT
 ;	 3 Jan 84  JTC	Changed SinGuts and TanGuts slightly to exactly match
 ;			expression evaluation of KLH.  Fixed sign of INF from Tan.
 ;	 5 Jan 84  JTC	Fixed problems arising from XPWRY(X,X,X).
 ;	18 Feb 84  JTC	Bug fixes a la Hough.
 ;	 4 Apr 84  JTC	Lock package during call to FP68K.
 ;	15 Apr 84  JTC	Incorporated Hough and cosmetic cleanups (NaN codes out).
 ; -----------------------------------------------------------------------;
 ;	14 Jan 85  JTC	MDS.
 ;	14 Feb 85  JTC	Named rsrc and made locking conditional.
 ; -----------------------------------------------------------------------;
 ;	26 Mar 85  JTC	Version 2.	Fix lock problem AT LAST!						<26Mar85>
 ;	01 Apr 85  JTC	Modified Invalid exit to deliver a NEW quiet NaN.			<01Apr85>
 ;	03 Apr 85  JTC	Current wisdom is to go with one package -- even at the
 ;					cost of a few extra instructions in ROM.					<03Apr85>
 ;	01 Aug 85  JTC	Back to workshop!
 ; <C206/09oct86> bbm Modified to mpw aincludes.
 ;


			BLANKS		ON
			STRING		ASIS

*ROMRSRC 	EQU 	 0		 ; If 1, then avoid locking stuff.	LEAVE IT ZERO!	 <03Apr85>
ROMRSRC 	EQU 	 1		 ; The resource is in ROM, don't need to lock it	<1.2>

FPFORMAC	EQU 	 1
FPFORLISA 	EQU 	 0
FPFORDEBUG	EQU 	 0
FPFORDEB	EQU 	 FPFORDEBUG

			LOAD		'StandardEqu.d'
			INCLUDE	'SANEMACS.a'

ELEMS68K	PROC	 EXPORT 

			;IF	FPFORMAC
			;RESOURCE	 'PACK'  5	 'Elems68K'  16
			;ENDIF


;ne 100
 ;
 ;
 ;
 ; Log
			INCLUDE  'ELEMS68K1.a'
; Exp,	X^Y, X^I, Compound, Annuity
			INCLUDE  'ELEMS68K2.a'
; Sin,	Cos, Tan, Atan, Rand
			INCLUDE  'ELEMS68K3.a'
; Constants
			INCLUDE  'ELEMS68KC.a'
;
;
			END 						 ; ELEMS68K