mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-22 19:31:02 +00:00
71 lines
2.7 KiB
Plaintext
71 lines
2.7 KiB
Plaintext
;-----------------------------------------------------------------------
|
|
; File: ELEMS020.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, 1990
|
|
;
|
|
; This file is used in these builds: Mac32
|
|
;
|
|
;-----------------------------------------------------------------------
|
|
;-----------------------------------------------------------------------
|
|
|
|
|
|
;-----------------------------------------------------------------------
|
|
; Change History (most recent first):
|
|
;
|
|
; <5> 6/12/91 LN Changed #include 'HardwareEqu.a' to 'HardwarePrivateEqu.a'
|
|
; <4> 9/15/90 BG Removed <3>. 040s are behaving more reliably now.
|
|
; <3> 7/4/90 BG Added EclipseNOP macro so INCLUDEd files can make use of it.
|
|
; <2> 4/14/90 JJ Made changes to support new binary-to-decimal, 96-bit precision,
|
|
; and improved Pack 5.
|
|
; <1> 3/2/90 JJ First checked in. Performance enhanced for 68020 and above.
|
|
; 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).
|
|
; 26 Mar 85 JTC Fixed lock bug AT LAST; version 2.
|
|
; 01 Apr 85 JTC Modified Invalid exit to deliver NEW quiet NaN. <01Apr85>
|
|
; 23 Feb 90 JOK Modified for MC68020 software SANE with PACK4 entry
|
|
; point available from system in low memory location $DE4
|
|
; 2 Mar 90 JJ Added INCLUDES of HardwareEqu.a and HardwarePrivateEqu.a to
|
|
; provide access to equate for ToolTable.
|
|
;-----------------------------------------------------------------------
|
|
|
|
|
|
MACHINE MC68020
|
|
|
|
|
|
BLANKS ON
|
|
STRING ASIS
|
|
|
|
INCLUDE 'HardwarePrivateEqu.a'
|
|
|
|
INCLUDE 'SANEMacs.a'
|
|
INCLUDE 'ELEMS020_1.a' ; main entry point here
|
|
INCLUDE 'ELEMS020_2.a'
|
|
INCLUDE 'ELEMS020_3.a'
|
|
INCLUDE 'ELEMS020_C.a'
|
|
|
|
ENDPROC
|
|
|
|
END
|