mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-01 11:29:27 +00:00
0ba83392d4
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.
236 lines
11 KiB
Plaintext
236 lines
11 KiB
Plaintext
;
|
||
; File: HWElemsCoeffs.a
|
||
;
|
||
; Contains: Floating Point constants for SANE algorithms
|
||
;
|
||
; Written by: Apple Numerics Group, DSG
|
||
;
|
||
; Copyright: © 1985-1993 by Apple Computer, Inc., all rights reserved.
|
||
;
|
||
; Change History (most recent first):
|
||
;
|
||
; <SM2> 2/3/93 CSS Update from Horror:
|
||
; <H2> 9/29/92 BG Adding Jon Okada's latest fixes.
|
||
; <1> 10/24/91 SAM/KSM Rolled in Regatta file.
|
||
;
|
||
; Terror Change History:
|
||
;
|
||
; <1> 01/06/91 BG Added to TERROR/BBS for the time.
|
||
;
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; ;;
|
||
;; File 881ELEMScoeffs.a, ;;
|
||
;; Floating-point constants for OmegaSANE algorithms. ;;
|
||
;; For machines with MC68881/68882 FPU. ;;
|
||
;; ;;
|
||
;; Copyright Apple Computer, Inc. 1985-7, 1989,1990. ;;
|
||
;; ;;
|
||
;; 24 Jan 87 -S.McD. Made coefficients for polynomials 96 bits instead of 80. ;;
|
||
;; ;;
|
||
;; 15 May 89 clayton & ali changed the following ;;
|
||
;; - degree became ( degree - 1 ) on each coefficient for new PolyEval loop;;
|
||
;; - stripped constants from the file if available on 68881, ;;
|
||
;; - made all remaining constants 96 bits instead of 80 ;;
|
||
;; 31 Mar 92 JPO Added constant FPKLOGE2 [ln(2.0)]. ;;
|
||
;; ;;
|
||
;; HexWriter: starting generation of hex constants. ;;
|
||
;; HexWriter: reading decimal file: ELEMSDEC.TEXT ;;
|
||
;; HexWriter: writing hex file: elems68kc.text ;;
|
||
;; HexWriter: 68000 byte order. ;;
|
||
;; DecDump: beginning Elems constant output. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial P in log approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
LOG21P
|
||
|
||
BLANKS ON
|
||
STRING ASIS
|
||
|
||
DC.W 4 ; ( degree - 1 ) of LOG21P
|
||
DC.B $3F, $F6, $00, $00, $B9, $46, $46, $AF, $F6, $CE, $3B, $FF
|
||
DC.B $3F, $F9, $00, $00, $94, $F4, $32, $21, $4D, $61, $FB, $EB
|
||
DC.B $3F, $FB, $00, $00, $DC, $97, $89, $03, $D9, $44, $78, $93
|
||
DC.B $3F, $FF, $00, $00, $9F, $9E, $39, $46, $57, $CA, $1D, $05
|
||
DC.B $C0, $01, $00, $00, $CD, $6B, $C5, $3A, $46, $EC, $DC, $9A
|
||
DC.B $40, $01, $00, $00, $B4, $83, $97, $E7, $BA, $E6, $FC, $E0
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial Q in log approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
LOG21Q
|
||
DC.W 1 ; ( degree - 1 ) of LOG21Q
|
||
DC.B $3F, $FF, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
DC.B $C0, $00, $00, $00, $B8, $18, $35, $C3, $CE, $0A, $5E, $1D
|
||
DC.B $3F, $FF, $00, $00, $FA, $3E, $DF, $0E, $DD, $F4, $1A, $96
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial P in exp approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
EXP21P
|
||
DC.W 2 ; ( degree - 1 ) of EXP21P
|
||
DC.B $BF, $EE, $00, $00, $FF, $88, $90, $C8, $1B, $20, $9B, $79
|
||
DC.B $3F, $F9, $00, $00, $DA, $5C, $84, $EF, $B8, $13, $27, $2F
|
||
DC.B $40, $03, $00, $00, $97, $D3, $BA, $EA, $F8, $0F, $FD, $45
|
||
DC.B $40, $09, $00, $00, $AB, $86, $71, $A1, $95, $BE, $FF, $0C
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial P in exp approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
EXP21Q
|
||
DC.W 1 ; ( degree - 1 ) of LOG21Q
|
||
DC.B $3F, $FF, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
DC.B $40, $06, $00, $00, $D5, $48, $70, $02, $98, $4B, $5A, $B4
|
||
DC.B $40, $0A, $00, $00, $F7, $75, $61, $2E, $96, $B7, $07, $80
|
||
|
||
FPKMAXINT
|
||
DC.B $40, $0D, $00, $00, $FF, $FE, $00, $00, $00, $00, $00, $00
|
||
FPKINF
|
||
DC.B $7F, $FF, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
||
FPKMINF
|
||
DC.B $FF, $FF, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
||
|
||
;; one fourth
|
||
FPKFOURTH
|
||
DC.B $3F, $FD, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
FPKHALF
|
||
DC.B $3F, $FE, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
;; three fourths
|
||
FPK34
|
||
DC.B $3F, $FE, $00, $00, $C0, $00, $00, $00, $00, $00, $00, $00
|
||
;; seven eighths
|
||
FPK78
|
||
DC.B $3F, $FE, $00, $00, $E0, $00, $00, $00, $00, $00, $00, $00
|
||
;; ARand is 7^5
|
||
FPKARAND
|
||
DC.B $40, $0D, $00, $00, $83, $4E, $00, $00, $00, $00, $00, $00
|
||
;; PRand is 2^31 - 1
|
||
FPKPRAND
|
||
DC.B $40, $1D, $00, $00, $FF, $FF, $FF, $FE, $00, $00, $00, $00
|
||
|
||
;; Square root of 2
|
||
FPKSQRT2
|
||
DC.B $3F, $FF, $00, $00, $B5, $04, $F3, $33, $F9, $DE, $64, $84
|
||
;; Square root of 1/2
|
||
FPKSQRTHALF
|
||
DC.B $3F, $FE, $00, $00, $B5, $04, $F3, $33, $F9, $DE, $64, $84
|
||
|
||
;; Natural logarithm of 2 - ADDED <3/31/92, JPO>
|
||
FPKLOGE2
|
||
DC.B $3F, $FE, $00, $00, $B1, $72, $17, $F7, $D1, $CF, $79, $AC
|
||
|
||
;; Constants for Atan approximation.
|
||
FPKX2
|
||
DC.B $3F, $FE, $00, $00, $93, $CD, $3A, $2C, $81, $98, $E2, $6A
|
||
FPKX2FX2
|
||
DC.B $3F, $FA, $00, $00, $DC, $2A, $86, $B1, $5F, $DB, $64, $62
|
||
FPKATNCONS
|
||
DC.B $3F, $FD, $00, $00, $89, $30, $A2, $F4, $F6, $6A, $B1, $8A
|
||
FPKPI2
|
||
DC.B $3F, $FF, $00, $00, $C9, $0F, $DA, $A2, $21, $68, $C2, $35
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial Q in sin approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
; { sn7.text. 14 May 83, 18:54 }
|
||
SINQ
|
||
DC.W 2 ; ( degree - 1 ) of SINQ
|
||
DC.B $3F, $FF, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
DC.B $40, $07, $00, $00, $88, $D8, $B8, $44, $A6, $A8, $5A, $30
|
||
DC.B $40, $0E, $00, $00, $8A, $15, $8A, $49, $09, $79, $23, $20
|
||
DC.B $40, $13, $00, $00, $FA, $A9, $FE, $26, $FE, $63, $F2, $2B
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial P in sin approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
SINP
|
||
DC.W 2 ; ( degree - 1 ) of SINP
|
||
DC.B $BF, $FE, $00, $00, $C2, $50, $86, $AE, $43, $F5, $CB, $F5
|
||
DC.B $40, $06, $00, $00, $9E, $76, $EC, $66, $BE, $E7, $6B, $A2
|
||
DC.B $C0, $0C, $00, $00, $AF, $51, $A1, $D6, $C4, $C4, $AA, $01
|
||
DC.B $40, $11, $00, $00, $A7, $1B, $FE, $C4, $A9, $97, $F6, $CE
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial Q in cos approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
; { cs7.text, 14 May 83, 7:14 }
|
||
COSQ
|
||
DC.W 2 ; ( degree - 1 ) of COSQ
|
||
DC.B $3F, $FF, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
DC.B $40, $07, $00, $00, $A6, $D9, $6A, $95, $FB, $DF, $96, $85
|
||
DC.B $40, $0E, $00, $00, $C7, $A7, $EA, $65, $E8, $5D, $15, $6B
|
||
DC.B $40, $14, $00, $00, $D2, $6E, $87, $1C, $7B, $17, $52, $B2
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial P in cos approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
COSP
|
||
DC.W 2 ; ( degree - 1 ) of COSP
|
||
DC.B $BF, $FB, $00, $00, $D5, $7E, $18, $D7, $A6, $F6, $D7, $58
|
||
DC.B $40, $03, $00, $00, $E3, $64, $93, $7E, $32, $B3, $D0, $72
|
||
DC.B $C0, $0A, $00, $00, $A6, $2D, $40, $56, $58, $6B, $C0, $45
|
||
DC.B $40, $10, $00, $00, $8C, $49, $AF, $68, $52, $0F, $8C, $7A
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial Q in tan approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
; { tn7.text, 23 May 83, 10:21 }
|
||
TANQ
|
||
DC.W 2 ; ( degree - 1 ) of TANQ
|
||
DC.B $BF, $FF, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
DC.B $40, $05, $00, $00, $B5, $13, $03, $24, $83, $C0, $09, $55
|
||
DC.B $C0, $09, $00, $00, $D1, $FF, $B2, $42, $57, $62, $E0, $CF
|
||
DC.B $40, $0A, $00, $00, $E1, $90, $93, $09, $93, $76, $66, $AB
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial P in tan approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
TANP
|
||
DC.W 2 ; ( degree - 1 ) of TANP
|
||
DC.B $BF, $E9, $00, $00, $B1, $FC, $33, $63, $D7, $9B, $28, $38
|
||
DC.B $3F, $FD, $00, $00, $AA, $9D, $71, $D8, $3E, $C7, $4C, $D1
|
||
DC.B $C0, $03, $00, $00, $E9, $CD, $8E, $24, $B9, $65, $7D, $BB
|
||
DC.B $40, $07, $00, $00, $F0, $9A, $36, $70, $9D, $4B, $18, $36
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial Q in atan approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
; { atn8.text, 17 May 83, 6:17 }
|
||
ATANQ
|
||
DC.W 3 ; ( degree - 1 ) of ATANQ
|
||
DC.B $3F, $FF, $00, $00, $98, $D3, $1E, $AE, $2A, $FA, $5D, $AD
|
||
DC.B $40, $03, $00, $00, $8F, $79, $4C, $D8, $B3, $CD, $EF, $D9
|
||
DC.B $40, $05, $00, $00, $8E, $37, $ED, $85, $70, $B8, $B3, $68
|
||
DC.B $40, $05, $00, $00, $CD, $A4, $BE, $A1, $AC, $59, $F3, $B8
|
||
DC.B $40, $04, $00, $00, $C4, $05, $9C, $55, $4C, $F0, $C6, $56
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
;; Coefficients for polynomial P in atan approximation. ;;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
ATANP
|
||
DC.W 3 ; ( degree - 1 ) of ATANP
|
||
DC.B $3F, $FF, $00, $00, $80, $00, $00, $00, $00, $00, $00, $00
|
||
DC.B $40, $02, $00, $00, $A2, $3B, $6C, $13, $1F, $92, $0E, $30
|
||
DC.B $40, $03, $00, $00, $C3, $C8, $59, $3D, $FA, $3A, $48, $6F
|
||
DC.B $40, $03, $00, $00, $82, $AE, $68, $38, $DD, $F5, $D9, $45
|
||
DC.B $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
||
|
||
; DecDump: ending Elems constant output.
|
||
; HexWriter: end of decimal input file.
|
||
|
||
|