#  cpuburn-1.4:	 burnP6	  CPU Loading Utility
#  Copyright 1999  Robert J. Redelmeier.  All Right Reserved
#  Licensed under GNU General Public Licence 2.0.  No warrantee.
#  *** USE AT YOUR OWN RISK ***

.text 
#ifdef WINDOWS
.globl _main
_main:
#else
.globl _start
_start:
#endif
	finit
	pushl	%ebp
	movl	%esp, %ebp
	andl	$-32, %ebp
	subl	$96, %esp
	fldpi
	fldl	rt
	fstpl	-24(%ebp)
	fldl	e
	fstpl	-32(%ebp)
	movl	half, %edx
	movl	%edx, -8(%ebp)
after_check:
	xorl	%eax, %eax
	movl	%eax, %ebx
	lea	-1(%eax), %esi
	movl	$539000000, %ecx    # check after this count  
	movl	%ecx, -4(%ebp)	   
.align	32,  0x90
crunch:				   # MAIN LOOP	21uops / 8.0 clocks
	fldl	8-24(%ebp,%esi,8)  
	fmull	8-32(%ebp,%esi,8)
	addl	half, %edx
	jnz	. + 2
	faddp	
	fldl	-24(%ebp)
	decl	%ebx
	subl	half+9(%esi,%esi,8), %edx
	jmp	. + 2
	fmull	8-32(%ebp,%esi,8)
	incl	%ebx
	decl	8-4(%ebp,%esi,8)
	fsubp	
	jnz	crunch		

	test	%ebx, %ebx	# Testing block
	mov	$0, %ebx
	jnz	int_exit
	cmpl	half, %edx
	jnz	int_exit
	fldpi
	fcomp	%st(1)
	fstsw	%ax
	sahf
	jz	after_check	# fp result = pi ?
	decl	%ebx
int_exit:			# error abort
	decl	%ebx
	addl	$96,  %esp
	popl	%ebp
	movl	$1, %eax	# Linux syscall
#ifdef WINDOWS
	ret
#else
	push	%ebx
	push	%eax		# *BSD syscall
	int	$0x80
#endif
.align 32,0
half:	.long 0x7fffffff,0
e:	.long 0xffffffff,0x3fdfffff
rt:	.long 0xffffffff,0x3fefffff
#