mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-26 09:29:30 +00:00
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: <09> 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.
|
|||
|
|
|
|||
|
|
|