;EASE$$$ READ ONLY COPY of file Ò881ELEMS68KC.aÓ
; 1.1	CCH 11/11/1988 Fixed Header.
; 1.0	CCH 11/ 9/1988 Adding to EASE.
; OLD REVISIONS BELOW
;¥1.1	MSH 4/28/88 Fixing corrupted resource fork.
; 1.0	BBM 2/12/88 Adding file for the first time into EASEÉ
; END EASE MODIFICATION HISTORY 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; File: 881Elems68KC.a
;; Implementation of Elems68K for machines using the Motorola MC68881
;; Copyright Apple Computer, Inc. 1983,1984,1985,1986,1987
;; All Rights Reserved
;; Confidential and Proprietary to Apple Computer,Inc.
;;
;;	24 Jan 87	-S.McD.	Made coefficients for polynomials 96 bits instead of 80.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Coefficients for polynomial P in log approximation.
LOG21P

			BLANKS		ON
			STRING		ASIS

			DC.W	 5					 ; degree 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	 2					 ; degree 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	 3					 ; degree 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	 2					 ; degree 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

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.
 ; { sn7.text. 14 May 83, 18:54 }
SINQ
			DC.W	 3					 ; degree 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	 3					 ; degree 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	 3					 ; degree 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	 3					 ; degree 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	 3					 ; degree 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	 3					 ; degree 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	 4					 ; degree 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	 4					 ; degree 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.