trig.s

操作系统SunOS 4.1.3版本的源码

       fldl  -20(%ebp)
       fmull -236(%ebp)
       fldl  -12(%ebp)
       fmull -228(%ebp)
       faddp	%st,%st(1)
   fstpl -148(%ebp)
.L204:
	jmp	.L207
.L202:
       cmpl	$1,-292(%ebp)
	jl	.L208
       cmpl	$1,-292(%ebp)
	jle	.L209
       fldl  -20(%ebp)
       fmull -92(%ebp)
       fldl  -28(%ebp)
       fmull -100(%ebp)
       fldl  -12(%ebp)
       fmull -260(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -180(%ebp)
	jmp	.L210
.L209:
       fldl  -20(%ebp)
       fmull -92(%ebp)
       fldl  -12(%ebp)
       fmull -260(%ebp)
       faddp	%st,%st(1)
   fstpl -180(%ebp)
.L210:
       fldl  -20(%ebp)
       fmull -260(%ebp)
       fldl  -28(%ebp)
       fmull -92(%ebp)
       fldl  -12(%ebp)
       fmull -252(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -172(%ebp)
	jmp	.L211
.L208:
       fldl  -12(%ebp)
       fmull -260(%ebp)
   fstpl -180(%ebp)
       fldl  -20(%ebp)
       fmull -260(%ebp)
       fldl  -12(%ebp)
       fmull -252(%ebp)
       faddp	%st,%st(1)
   fstpl -172(%ebp)
.L211:
       fldl  -20(%ebp)
       fmull -252(%ebp)
       fldl  -28(%ebp)
       fmull -260(%ebp)
       fldl  -12(%ebp)
       fmull -244(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -164(%ebp)
       fldl  -20(%ebp)
       fmull -244(%ebp)
       fldl  -28(%ebp)
       fmull -252(%ebp)
       fldl  -12(%ebp)
       fmull -236(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -156(%ebp)
       fldl  -20(%ebp)
       fmull -236(%ebp)
       fldl  -28(%ebp)
       fmull -244(%ebp)
       fldl  -12(%ebp)
       fmull -228(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -148(%ebp)
.L207:
        .data
	.align	4
.L212:
	.double	8.0000000000000000000000e+00
	.align	4
.L213:
	.double	1.2500000000000000000000e-01
        .text
       fldl  -180(%ebp)
       fmull .L213
       subl    $8,%esp
       fstpl   0(%esp)
	call	aint
	addl	$8,%esp
   fmull .L212
   fsubrl        -180(%ebp)
   fstpl -180(%ebp)
        .data
	.align	4
.L214:
	.double	8.0000000000000000000000e+00
	.align	4
.L215:
	.double	1.2500000000000000000000e-01
        .text
       fldl  -172(%ebp)
       fmull .L215
       subl    $8,%esp
       fstpl   0(%esp)
	call	aint
	addl	$8,%esp
   fmull .L214
   fsubrl        -172(%ebp)
   fstpl -172(%ebp)
        .data
	.align	4
.L216:
	.double	1.2500000000000000000000e-01
        .text
       fldl  -164(%ebp)
       fmull .L216
	fstcw	-312(%ebp)
	movw	-312(%ebp),%ax
	orw	$0x0c00,%ax
	movw	%ax,-310(%ebp)
	fldcw	-310(%ebp)
     fistpl  -320(%ebp)
	fldcw	-312(%ebp)
	movl	-320(%ebp),%eax
	movl	%eax,-296(%ebp)
	cmpl	$0,-296(%ebp)
	je	.L217
	movl	-296(%ebp),%eax
	leal	(,%eax,8),%eax
	movl	%eax,-316(%ebp)
       fildl   -316(%ebp)
   fsubrl        -164(%ebp)
   fstpl -164(%ebp)
.L217:
       movl    -144(%ebp),%eax
       movl    %eax,-32(%ebp)
       movl    -148(%ebp),%eax
       movl    %eax,-36(%ebp)
       fldl  -36(%ebp)
       faddl -156(%ebp)
   fstpl -36(%ebp)
       fldl  -36(%ebp)
       faddl -164(%ebp)
   fstpl -36(%ebp)
       fldl  -36(%ebp)
       faddl -172(%ebp)
   fstpl -36(%ebp)
       fldl  -36(%ebp)
       faddl -180(%ebp)
   fstpl -36(%ebp)
       fldl  -180(%ebp)
       fsubl -36(%ebp)
   fstpl -52(%ebp)
       fldl  -52(%ebp)
       faddl -172(%ebp)
   fstpl -52(%ebp)
       fldl  -52(%ebp)
       faddl -164(%ebp)
   fstpl -52(%ebp)
       fldl  -52(%ebp)
       faddl -156(%ebp)
   fstpl -52(%ebp)
       fldl  -52(%ebp)
       faddl -148(%ebp)
   fstpl -52(%ebp)
	fstcw	-312(%ebp)
	movw	-312(%ebp),%ax
	orw	$0x0c00,%ax
	movw	%ax,-310(%ebp)
	fldcw	-310(%ebp)
     fldl  -36(%ebp)
       fistpl  -320(%ebp)
	fldcw	-312(%ebp)
	movl	-320(%ebp),%eax
	movl	%eax,-300(%ebp)
   fldl  -36(%ebp)
       fisubl        -300(%ebp)
   fstpl -36(%ebp)
       fldl  -36(%ebp)
       faddl -52(%ebp)
   fstpl -44(%ebp)
       fldl  -36(%ebp)
       fsubl -44(%ebp)
   faddl -52(%ebp)
   fstpl -52(%ebp)
        .data
	.align	4
.L219:
	.double	5.0000000000000000000000e-01
	.align	4
.L220:
	.double	5.0000000000000000000000e-01
        .text
	fldl	.L219
	fldl  -44(%ebp)
	fcompp
	fstsw	%ax
	sahf
	jp	.L221
	ja	.L221
       fldl  .L220
       fldl  -44(%ebp)
	fucompp
       fstsw   %ax
       sahf
	jp	.L218
	jne	.L218
	fldl	zero
	fldl  -52(%ebp)
	fcompp
	fstsw	%ax
	sahf
	jp	.L218
	jbe	.L218
.L221:
	incl	-300(%ebp)
        .data
	.align	4
.L222:
	.double	1.0000000000000000000000e+00
        .text
       fldl  -44(%ebp)
       fsubl .L222
   fstpl -36(%ebp)
       fldl  -36(%ebp)
       faddl -52(%ebp)
   fstpl -44(%ebp)
       fldl  -36(%ebp)
       fsubl -44(%ebp)
   faddl -52(%ebp)
   fstpl -52(%ebp)
.L218:
     pushl   -40(%ebp)
       pushl   -44(%ebp)
	call	ilogb
	addl	$8,%esp
	movl	%eax,-312(%ebp)
     pushl   -152(%ebp)
       pushl   -156(%ebp)
	call	ilogb
	addl	$8,%esp
	movl	-312(%ebp),%edx
	subl	%eax,%edx
	cmpl	$20,%edx
	jge	.L223
       movl    -168(%ebp),%eax
       movl    %eax,-48(%ebp)
       movl    -172(%ebp),%eax
       movl    %eax,-52(%ebp)
   fldl  -180(%ebp)
       fisubl        -300(%ebp)
   fstpl -36(%ebp)
       fldl  -52(%ebp)
       faddl -36(%ebp)
   fstpl -44(%ebp)
       fldl  -44(%ebp)
       fsubl -36(%ebp)
   fsubl -52(%ebp)
   fsubrl        -164(%ebp)
   fstpl -52(%ebp)
       movl    -40(%ebp),%eax
       movl    %eax,-32(%ebp)
       movl    -44(%ebp),%eax
       movl    %eax,-36(%ebp)
       fldl  -52(%ebp)
       faddl -36(%ebp)
   fstpl -44(%ebp)
       fldl  -44(%ebp)
       fsubl -36(%ebp)
   fsubl -52(%ebp)
   fsubrl        -156(%ebp)
   fstpl -52(%ebp)
       movl    -40(%ebp),%eax
       movl    %eax,-32(%ebp)
       movl    -44(%ebp),%eax
       movl    %eax,-36(%ebp)
       fldl  -52(%ebp)
       faddl -36(%ebp)
   fstpl -44(%ebp)
       fldl  -44(%ebp)
       fsubl -36(%ebp)
   fsubl -52(%ebp)
   fsubrl        -148(%ebp)
   fstpl -52(%ebp)
       fldl  -84(%ebp)
       fmull twon24
   fstpl -84(%ebp)
	movl	-4(%ebp),%eax
	movl	-292(%ebp),%edx
	leal	5(%edx),%edx
       fildl   (%eax,%edx,4)
   fmull -84(%ebp)
   fstpl -220(%ebp)
       fldl  zero
       fldl  -28(%ebp)
	fucompp
       fstsw   %ax
       sahf
	jp	.L224
	jne	.L224
       fldl  zero
       fldl  -20(%ebp)
	fucompp
       fstsw   %ax
       sahf
	jp	.L225
	jne	.L225
       fldl  -12(%ebp)
       fmull -220(%ebp)
   fstpl -140(%ebp)
	jmp	.L226
.L225:
       fldl  -20(%ebp)
       fmull -228(%ebp)
       fldl  -12(%ebp)
       fmull -220(%ebp)
       faddp	%st,%st(1)
   fstpl -140(%ebp)
.L226:
	jmp	.L227
.L224:
       fldl  -20(%ebp)
       fmull -228(%ebp)
       fldl  -28(%ebp)
       fmull -236(%ebp)
       fldl  -12(%ebp)
       fmull -220(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -140(%ebp)
.L227:
     pushl   -40(%ebp)
       pushl   -44(%ebp)
	call	ilogb
	addl	$8,%esp
	movl	%eax,-312(%ebp)
     pushl   -144(%ebp)
       pushl   -148(%ebp)
	call	ilogb
	addl	$8,%esp
	movl	-312(%ebp),%edx
	subl	%eax,%edx
	cmpl	$20,%edx
	jl	.L228
       fldl  -52(%ebp)
       faddl -140(%ebp)
   fstpl -52(%ebp)
	jmp	.L229
.L228:
       movl    -40(%ebp),%eax
       movl    %eax,-32(%ebp)
       movl    -44(%ebp),%eax
       movl    %eax,-36(%ebp)
       fldl  -52(%ebp)
       faddl -36(%ebp)
   fstpl -44(%ebp)
       fldl  -44(%ebp)
       fsubl -36(%ebp)
   fsubl -52(%ebp)
   fsubrl        -140(%ebp)
   fstpl -52(%ebp)
       fldl  -84(%ebp)
       fmull twon24
   fstpl -84(%ebp)
	movl	-4(%ebp),%eax
	movl	-292(%ebp),%edx
	leal	6(%edx),%edx
       fildl   (%eax,%edx,4)
   fmull -84(%ebp)
   fstpl -212(%ebp)
       fldl  zero
       fldl  -28(%ebp)
	fucompp
       fstsw   %ax
       sahf
	jp	.L230
	jne	.L230
       fldl  zero
       fldl  -20(%ebp)
	fucompp
       fstsw   %ax
       sahf
	jp	.L231
	jne	.L231
       fldl  -12(%ebp)
       fmull -212(%ebp)
   fstpl -132(%ebp)
	jmp	.L232
.L231:
       fldl  -20(%ebp)
       fmull -220(%ebp)
       fldl  -12(%ebp)
       fmull -212(%ebp)
       faddp	%st,%st(1)
   fstpl -132(%ebp)
.L232:
	jmp	.L233
.L230:
       fldl  -20(%ebp)
       fmull -220(%ebp)
       fldl  -28(%ebp)
       fmull -228(%ebp)
       fldl  -12(%ebp)
       fmull -212(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -132(%ebp)
.L233:
     pushl   -40(%ebp)
       pushl   -44(%ebp)
	call	ilogb
	addl	$8,%esp
	movl	%eax,-312(%ebp)
     pushl   -136(%ebp)
       pushl   -140(%ebp)
	call	ilogb
	addl	$8,%esp
	movl	-312(%ebp),%edx
	subl	%eax,%edx
	cmpl	$20,%edx
	jl	.L234
       fldl  -52(%ebp)
       faddl -132(%ebp)
   fstpl -52(%ebp)
	jmp	.L229
.L234:
       movl    -40(%ebp),%eax
       movl    %eax,-32(%ebp)
       movl    -44(%ebp),%eax
       movl    %eax,-36(%ebp)
       fldl  -52(%ebp)
       faddl -36(%ebp)
   fstpl -44(%ebp)
       fldl  -44(%ebp)
       fsubl -36(%ebp)
   fsubl -52(%ebp)
   fsubrl        -132(%ebp)
   fstpl -52(%ebp)
       fldl  -84(%ebp)
       fmull twon24
   fstpl -84(%ebp)
	movl	-4(%ebp),%eax
	movl	-292(%ebp),%edx
	leal	7(%edx),%edx
       fildl   (%eax,%edx,4)
   fmull -84(%ebp)
   fstpl -204(%ebp)
       fldl  zero
       fldl  -28(%ebp)
	fucompp
       fstsw   %ax
       sahf
	jp	.L235
	jne	.L235
       fldl  zero
       fldl  -20(%ebp)
	fucompp
       fstsw   %ax
       sahf
	jp	.L236
	jne	.L236
       fldl  -12(%ebp)
       fmull -204(%ebp)
   fstpl -124(%ebp)
	jmp	.L237
.L236:
       fldl  -20(%ebp)
       fmull -212(%ebp)
       fldl  -12(%ebp)
       fmull -204(%ebp)
       faddp	%st,%st(1)
   fstpl -124(%ebp)
.L237:
	jmp	.L238
.L235:
       fldl  -20(%ebp)
       fmull -212(%ebp)
       fldl  -28(%ebp)
       fmull -220(%ebp)
       fldl  -12(%ebp)
       fmull -204(%ebp)
       faddp	%st,%st(2)
	fxch	%st(1)
       faddp	%st,%st(1)
   fstpl -124(%ebp)
.L238:
       fldl  -52(%ebp)
       faddl -124(%ebp)
   fstpl -52(%ebp)
.L229:
       movl    -40(%ebp),%eax
       movl    %eax,-32(%ebp)
       movl    -44(%ebp),%eax
       movl    %eax,-36(%ebp)
       fldl  -52(%ebp)
       faddl -36(%ebp)
   fstpl -44(%ebp)
       fldl  -44(%ebp)
       fsubl -36(%ebp)
   fsubrl        -52(%ebp)
   fstpl -52(%ebp)
.L223:
   fldl    -44(%ebp)
   fstl  -76(%ebp)
   fstpl -84(%ebp)
       movl    -48(%ebp),%eax
       movl    %eax,-32(%ebp)
       movl    -52(%ebp),%eax
       movl    %eax,-36(%ebp)
	movl	-308(%ebp),%eax
	movl	-304(%ebp),%edx
	andl	$-32,(%eax,%edx,4)
       movl    -72(%ebp),%eax
       movl    %eax,-56(%ebp)
       movl    -76(%ebp),%eax
       movl    %eax,-60(%ebp)
	movl	-308(%ebp),%eax
	movl	-304(%ebp),%edx
	andl	$-536870912,(%eax,%edx,4)
       movl    -72(%ebp),%eax
       movl    %eax,-40(%ebp)
       movl    -76(%ebp),%eax
       movl    %eax,-44(%ebp)
       fldl  -60(%ebp)
       fsubl -76(%ebp)
   fstpl -52(%ebp)
       fldl  -60(%ebp)
       fsubl -84(%ebp)
   fsubrl        -36(%ebp)
   fstpl -60(%ebp)
       fldl  -68(%ebp)
       fmull -44(%ebp)
       fldl  p2
       fmull -52(%ebp)
       faddp	%st,%st(1)
   fstpl -284(%ebp)
       fldl  p1
       fmull -60(%ebp)
   faddl -284(%ebp)
   fstpl -284(%ebp)
       fldl  p2
       fmull -44(%ebp)
       fldl  p1
       fmull -52(%ebp)
       faddp	%st,%st(1)
   fstpl -276(%ebp)
       fldl  p1
       fmull -44(%ebp)
   fstpl -268(%ebp)
       fldl  -268(%ebp)
       faddl -276(%ebp)
   fstpl -44(%ebp)
       fldl  -44(%ebp)
       fsubl -268(%ebp)
   fsubl -276(%ebp)
   fsubrl        -284(%ebp)
   fstpl -52(%ebp)
	movl	16(%ebp),%eax
       fldl  -44(%ebp)
       faddl -52(%ebp)
       fstpl   (%eax)
	movl	20(%ebp),%eax
	movl	16(%ebp),%edx
       fldl  (%edx)
       fsubl -44(%ebp)
   fsubrl        -52(%ebp)
       fstpl   (%eax)
       cmpl	$1,-288(%ebp)
	jne	.L239
	movl	16(%ebp),%eax
	movl	16(%ebp),%edx
       fldl    (%edx)
       fchs
       fstpl   (%eax)
	movl	20(%ebp),%eax
	movl	20(%ebp),%edx
       fldl    (%edx)
       fchs
       fstpl   (%eax)
	movl	-300(%ebp),%eax
	negl	%eax
	movl	%eax,-300(%ebp)
.L239:
	movl	-300(%ebp),%eax
	andl	$7,%eax
	jmp	.L192
.L192:
	leave
	ret
.L194:
	pushl	%ebp
	movl	%esp,%ebp
	subl	$324,%esp
	jmp	.L193
/FUNCEND
        .data