sys7.1-doc-wip/Toolbox/InSANE/ELEMS020_C.a
2019-07-27 22:37:48 +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