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