Return to sqrt.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libm

Power 6/32 Unix version 1.2b

	.data
	.text
LL0:	.align	1
	.globl	_sqrt
	.data
	.align	2
L18:	.long	0x40000000, 0x00000000 # .double .5
	.text
	.data
	.align	2
L19:	.long	0x40000000, 0x00000000 # .double .5
	.text
	.data
	.align	2
L20:	.long	0x40000000, 0x00000000 # .double .5
	.text
	.set	L12,0x0
	.data
	.text
_sqrt:	.word	L12
	subl3	$64,fp,sp
	tstl	4(fp)
	jgtr	L16
	jgeq	L17
	movl	$33,-64(fp)
L17:	clrl	r1
	clrl	r0
	ret
L16:
	ldf	4(fp)
	sqrtf
	stf	-60(fp)
	clrl	-56(fp)
	ldd	4(fp)
	divd	-60(fp)
	addd	-60(fp)
	muld	L18
	std	-60(fp)
	ldd	4(fp)
	divd	-60(fp)
	addd	-60(fp)
	muld	L19
	std	-60(fp)
	ldd	4(fp)
	divd	-60(fp)
	addd	-60(fp)
	muld	L20
	std	-60(fp)
	movl	-56(fp),r1
	movl	-60(fp),r0
	ret

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.