mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-11-02 13:08:10 +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.
222 lines
8.7 KiB
Plaintext
222 lines
8.7 KiB
Plaintext
;
|
|
; File: ELEMS020_C.a
|
|
;
|
|
; Contains: xxx put contents here xxx
|
|
;
|
|
; Written by: The Apple Numerics Group
|
|
;
|
|
; Copyright: © 1990-1993 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; This file is used in these builds: Mac32
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <SM2> 2/3/92 CSS Update from Horror:
|
|
; <H2> 9/29/92 BG Rolling in Jon Okada's latest fixes.
|
|
; <1> 11/14/90 BG Added to BBS for the first time.
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial P in log approximation.
|
|
;-----------------------------------------------------------
|
|
LOG21P:
|
|
DC.W 5 ; degree of LOG21P
|
|
DC.B $3F, $F6, $B9, $46, $46, $AF, $F6, $CE, $3B, $FF
|
|
DC.B $3F, $F9, $94, $F4, $32, $21, $4D, $61, $FB, $EB
|
|
DC.B $3F, $FB, $DC, $97, $89, $03, $D9, $44, $78, $93
|
|
DC.B $3F, $FF, $9F, $9E, $39, $46, $57, $CA, $1D, $05
|
|
DC.B $C0, $01, $CD, $6B, $C5, $3A, $46, $EC, $DC, $9A
|
|
DC.B $40, $01, $B4, $83, $97, $E7, $BA, $E6, $FC, $E0
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial Q in log approximation.
|
|
;-----------------------------------------------------------
|
|
LOG21Q:
|
|
DC.W 2 ; degree of LOG21Q
|
|
DC.B $3F, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
DC.B $C0, $00, $B8, $18, $35, $C3, $CE, $0A, $5E, $1D
|
|
DC.B $3F, $FF, $FA, $3E, $DF, $0E, $DD, $F4, $1A, $96
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial P in exp approximation.
|
|
;-----------------------------------------------------------
|
|
EXP21P:
|
|
DC.W 3 ; degree of EXP21P
|
|
DC.B $BF, $EE, $FF, $88, $90, $C8, $1B, $20, $9B, $79
|
|
DC.B $3F, $F9, $DA, $5C, $84, $EF, $B8, $13, $27, $2F
|
|
DC.B $40, $03, $97, $D3, $BA, $EA, $F8, $0F, $FD, $45
|
|
DC.B $40, $09, $AB, $86, $71, $A1, $95, $BE, $FF, $0C
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial P in exp approximation.
|
|
;-----------------------------------------------------------
|
|
EXP21Q:
|
|
DC.W 2 ; degree of LOG21Q
|
|
DC.B $3F, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
DC.B $40, $06, $D5, $48, $70, $02, $98, $4B, $5A, $B4
|
|
DC.B $40, $0A, $F7, $75, $61, $2E, $96, $B7, $07, $80
|
|
|
|
|
|
;-----------------------------------------------------------
|
|
; Miscellaneous floating-point constants
|
|
;-----------------------------------------------------------
|
|
FPK1:
|
|
DC.B $3F, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
FPKM1:
|
|
DC.B $BF, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
FPK0:
|
|
DC.B $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
FPKM0:
|
|
DC.B $80, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
FPK2:
|
|
DC.B $40, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
|
;FPKMAXINT: DELETED <4/28/92, JPO>
|
|
; DC.B $40, $0D, $FF, $FE, $00, $00, $00, $00, $00, $00 DELETED <4/28/92, JPO>
|
|
FPKINF:
|
|
DC.B $7F, $FF, $00, $00, $00, $00, $00, $00, $00, $00
|
|
FPKMINF:
|
|
DC.B $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00
|
|
|
|
FPK3:
|
|
DC.B $40, $00, $C0, $00, $00, $00, $00, $00, $00, $00
|
|
;-----------------------------------------------------------
|
|
; one fourth
|
|
;-----------------------------------------------------------
|
|
FPKFOURTH:
|
|
DC.B $3F, $FD, $80, $00, $00, $00, $00, $00, $00, $00
|
|
FPKHALF:
|
|
DC.B $3F, $FE, $80, $00, $00, $00, $00, $00, $00, $00
|
|
;-----------------------------------------------------------
|
|
; three fourths
|
|
;-----------------------------------------------------------
|
|
FPK34:
|
|
DC.B $3F, $FE, $C0, $00, $00, $00, $00, $00, $00, $00
|
|
;-----------------------------------------------------------
|
|
; seven eighths
|
|
;-----------------------------------------------------------
|
|
FPK78:
|
|
DC.B $3F, $FE, $E0, $00, $00, $00, $00, $00, $00, $00
|
|
;-----------------------------------------------------------
|
|
; approximate pi/2
|
|
;-----------------------------------------------------------
|
|
FPKPI2:
|
|
DC.B $3F, $FF, $C9, $0F, $DA, $A2, $21, $68, $C2, $35
|
|
FPKPI4:
|
|
DC.B $3F, $FE, $C9, $0F, $DA, $A2, $21, $68, $C2, $35
|
|
;-----------------------------------------------------------
|
|
; ARand is 7^5
|
|
;-----------------------------------------------------------
|
|
FPKARAND:
|
|
DC.B $40, $0D, $83, $4E, $00, $00, $00, $00, $00, $00
|
|
;-----------------------------------------------------------
|
|
; PRand is 2^31 - 1
|
|
;-----------------------------------------------------------
|
|
FPKPRAND:
|
|
DC.B $40, $1D, $FF, $FF, $FF, $FE, $00, $00, $00, $00
|
|
|
|
;-----------------------------------------------------------
|
|
; Square root of 2
|
|
;-----------------------------------------------------------
|
|
FPKSQRT2:
|
|
DC.B $3F, $FF, $B5, $04, $F3, $33, $F9, $DE, $64, $84
|
|
;-----------------------------------------------------------
|
|
; Square root of 1/2
|
|
;-----------------------------------------------------------
|
|
FPKSQRTHALF:
|
|
DC.B $3F, $FE, $B5, $04, $F3, $33, $F9, $DE, $64, $84
|
|
FPKE:
|
|
DC.B $40, $00, $AD, $F8, $54, $58, $A2, $BB, $4A, $9B
|
|
FPKLOGE2:
|
|
DC.B $3F, $FE, $B1, $72, $17, $F7, $D1, $CF, $79, $AC
|
|
|
|
;-----------------------------------------------------------
|
|
; Constants for Atan approximation.
|
|
;-----------------------------------------------------------
|
|
FPKX2:
|
|
DC.B $3F, $FE, $93, $CD, $3A, $2C, $81, $98, $E2, $6A
|
|
FPKX2FX2:
|
|
DC.B $3F, $FA, $DC, $2A, $86, $B1, $5F, $DB, $64, $62
|
|
FPKATNCONS:
|
|
DC.B $3F, $FD, $89, $30, $A2, $F4, $F6, $6A, $B1, $8A
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial Q in SIN approximation.
|
|
;-----------------------------------------------------------
|
|
SINQ:
|
|
DC.W 3 ; degree of SINQ
|
|
DC.B $3F, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
DC.B $40, $07, $88, $D8, $B8, $44, $A6, $A8, $5A, $30
|
|
DC.B $40, $0E, $8A, $15, $8A, $49, $09, $79, $23, $20
|
|
DC.B $40, $13, $FA, $A9, $FE, $26, $FE, $63, $F2, $2B
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial P in SIN approximation.
|
|
;-----------------------------------------------------------
|
|
SINP:
|
|
DC.W 3 ; degree of SINP
|
|
DC.B $BF, $FE, $C2, $50, $86, $AE, $43, $F5, $CB, $F5
|
|
DC.B $40, $06, $9E, $76, $EC, $66, $BE, $E7, $6B, $A2
|
|
DC.B $C0, $0C, $AF, $51, $A1, $D6, $C4, $C4, $AA, $01
|
|
DC.B $40, $11, $A7, $1B, $FE, $C4, $A9, $97, $F6, $CE
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial Q in COS approximation.
|
|
;-----------------------------------------------------------
|
|
COSQ:
|
|
DC.W 3 ; degree of COSQ
|
|
DC.B $3F, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
DC.B $40, $07, $A6, $D9, $6A, $95, $FB, $DF, $96, $85
|
|
DC.B $40, $0E, $C7, $A7, $EA, $65, $E8, $5D, $15, $6B
|
|
DC.B $40, $14, $D2, $6E, $87, $1C, $7B, $17, $52, $B2
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial P in COS approximation.
|
|
;-----------------------------------------------------------
|
|
COSP:
|
|
DC.W 3 ; degree of COSP
|
|
DC.B $BF, $FB, $D5, $7E, $18, $D7, $A6, $F6, $D7, $58
|
|
DC.B $40, $03, $E3, $64, $93, $7E, $32, $B3, $D0, $72
|
|
DC.B $C0, $0A, $A6, $2D, $40, $56, $58, $6B, $C0, $45
|
|
DC.B $40, $10, $8C, $49, $AF, $68, $52, $0F, $8C, $7A
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial Q in TAN approximation.
|
|
;-----------------------------------------------------------
|
|
TANQ:
|
|
DC.W 3 ; degree of TANQ
|
|
DC.B $BF, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
DC.B $40, $05, $B5, $13, $03, $24, $83, $C0, $09, $55
|
|
DC.B $C0, $09, $D1, $FF, $B2, $42, $57, $62, $E0, $CF
|
|
DC.B $40, $0A, $E1, $90, $93, $09, $93, $76, $66, $AB
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial P in TAN approximation.
|
|
;-----------------------------------------------------------
|
|
TANP:
|
|
DC.W 3 ; degree of TANP
|
|
DC.B $BF, $E9, $B1, $FC, $33, $63, $D7, $9B, $28, $38
|
|
DC.B $3F, $FD, $AA, $9D, $71, $D8, $3E, $C7, $4C, $D1
|
|
DC.B $C0, $03, $E9, $CD, $8E, $24, $B9, $65, $7D, $BB
|
|
DC.B $40, $07, $F0, $9A, $36, $70, $9D, $4B, $18, $36
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial Q in ATAN approximation.
|
|
;-----------------------------------------------------------
|
|
ATANQ:
|
|
DC.W 4 ; degree of ATANQ
|
|
DC.B $3F, $FF, $98, $D3, $1E, $AE, $2A, $FA, $5D, $AD
|
|
DC.B $40, $03, $8F, $79, $4C, $D8, $B3, $CD, $EF, $D9
|
|
DC.B $40, $05, $8E, $37, $ED, $85, $70, $B8, $B3, $68
|
|
DC.B $40, $05, $CD, $A4, $BE, $A1, $AC, $59, $F3, $B8
|
|
DC.B $40, $04, $C4, $05, $9C, $55, $4C, $F0, $C6, $56
|
|
|
|
;-----------------------------------------------------------
|
|
; Coefficients for polynomial P in ATAN approximation.
|
|
;-----------------------------------------------------------
|
|
ATANP:
|
|
DC.W 4 ; degree of ATANP
|
|
DC.B $3F, $FF, $80, $00, $00, $00, $00, $00, $00, $00
|
|
DC.B $40, $02, $A2, $3B, $6C, $13, $1F, $92, $0E, $30
|
|
DC.B $40, $03, $C3, $C8, $59, $3D, $FA, $3A, $48, $6F
|
|
DC.B $40, $03, $82, $AE, $68, $38, $DD, $F5, $D9, $45
|
|
DC.B $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|