mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-11-16 13:04:54 +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.
228 lines
8.7 KiB
Plaintext
228 lines
8.7 KiB
Plaintext
;
|
|
; File: ELEMS020_C.a
|
|
;
|
|
; Contains: xxx put contents here xxx
|
|
;
|
|
; Written by: xxx put writers here xxx
|
|
;
|
|
; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <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.
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
;-----------------------------------------------------------
|
|
; File: ELEMS020_C.a
|
|
;-----------------------------------------------------------
|
|
|
|
|
|
;-----------------------------------------------------------
|
|
; 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:
|
|
DC.B $40, $0D, $FF, $FE, $00, $00, $00, $00, $00, $00
|
|
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
|