mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-27 10:29:32 +00:00
4325cdcc78
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.
97 lines
3.1 KiB
Plaintext
97 lines
3.1 KiB
Plaintext
;EASE$$$ READ ONLY COPY of file Òelems881.aÓ
|
|
; 1.2 GGD 07/14/1989 Changed the ROMRSRC flag to 1 so that it doesn't waste time locking
|
|
; 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, 1986, 1987 ;
|
|
; 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.
|
|
; 24 Jan 87 S.McD. Resurrected software Elems Pack5 for use with inaccurate MC68881.
|
|
;
|
|
|
|
|
|
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 '881ELEMS68K1.a'
|
|
; Exp, X^Y, X^I, Compound, Annuity
|
|
INCLUDE 'ELEMS68K2.a'
|
|
; Sin, Cos, Tan, Atan, Rand
|
|
INCLUDE 'ELEMS68K3.a'
|
|
; Constants
|
|
INCLUDE '881ELEMS68KC.a'
|
|
;
|
|
;
|
|
END ; ELEMS68K
|
|
|
|
|
|
|