mac-rom/Toolbox/InSANE/ELEMS020_C.a
Elliot Nunn 4325cdcc78 Bring in CubeE sources
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.
2017-12-26 09:52:23 +08:00

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