kusano 2b45e8
/*********************************************************************/
kusano 2b45e8
/* Copyright 2009, 2010 The University of Texas at Austin.           */
kusano 2b45e8
/* All rights reserved.                                              */
kusano 2b45e8
/*                                                                   */
kusano 2b45e8
/* Redistribution and use in source and binary forms, with or        */
kusano 2b45e8
/* without modification, are permitted provided that the following   */
kusano 2b45e8
/* conditions are met:                                               */
kusano 2b45e8
/*                                                                   */
kusano 2b45e8
/*   1. Redistributions of source code must retain the above         */
kusano 2b45e8
/*      copyright notice, this list of conditions and the following  */
kusano 2b45e8
/*      disclaimer.                                                  */
kusano 2b45e8
/*                                                                   */
kusano 2b45e8
/*   2. Redistributions in binary form must reproduce the above      */
kusano 2b45e8
/*      copyright notice, this list of conditions and the following  */
kusano 2b45e8
/*      disclaimer in the documentation and/or other materials       */
kusano 2b45e8
/*      provided with the distribution.                              */
kusano 2b45e8
/*                                                                   */
kusano 2b45e8
/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
kusano 2b45e8
/*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
kusano 2b45e8
/*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
kusano 2b45e8
/*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
kusano 2b45e8
/*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
kusano 2b45e8
/*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
kusano 2b45e8
/*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
kusano 2b45e8
/*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
kusano 2b45e8
/*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
kusano 2b45e8
/*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
kusano 2b45e8
/*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
kusano 2b45e8
/*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
kusano 2b45e8
/*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
kusano 2b45e8
/*    POSSIBILITY OF SUCH DAMAGE.                                    */
kusano 2b45e8
/*                                                                   */
kusano 2b45e8
/* The views and conclusions contained in the software and           */
kusano 2b45e8
/* documentation are those of the authors and should not be          */
kusano 2b45e8
/* interpreted as representing official policies, either expressed   */
kusano 2b45e8
/* or implied, of The University of Texas at Austin.                 */
kusano 2b45e8
/*********************************************************************/
kusano 2b45e8
kusano 2b45e8
#define ASSEMBLER
kusano 2b45e8
#include "common.h"
kusano 2b45e8
#include "version.h"
kusano 2b45e8
kusano 2b45e8
#define PREFETCHSIZE	88
kusano 2b45e8
kusano 2b45e8
#define N	$16
kusano 2b45e8
#define X	$17
kusano 2b45e8
#define INCX	$18
kusano 2b45e8
#define I	$19
kusano 2b45e8
kusano 2b45e8
#define s0	$f0
kusano 2b45e8
#define s1	$f1
kusano 2b45e8
#define s2	$f10
kusano 2b45e8
#define s3	$f11
kusano 2b45e8
kusano 2b45e8
#define a0	$f12
kusano 2b45e8
#define a1	$f13
kusano 2b45e8
#define a2	$f14
kusano 2b45e8
#define a3	$f15
kusano 2b45e8
#define a4	$f16
kusano 2b45e8
#define a5	$f17
kusano 2b45e8
#define a6	$f18
kusano 2b45e8
#define a7	$f19
kusano 2b45e8
kusano 2b45e8
#define t0	$f20
kusano 2b45e8
#define t1	$f21
kusano 2b45e8
#define t2	$f22
kusano 2b45e8
#define t3	$f23
kusano 2b45e8
kusano 2b45e8
	PROLOGUE
kusano 2b45e8
	PROFCODE
kusano 2b45e8
kusano 2b45e8
	fclr	s0
kusano 2b45e8
	unop
kusano 2b45e8
	fclr	t0
kusano 2b45e8
	ble	N,  $L999
kusano 2b45e8
kusano 2b45e8
	sra	N, 3, I
kusano 2b45e8
	fclr	s1
kusano 2b45e8
	fclr	s2
kusano 2b45e8
	ble	I, $L15
kusano 2b45e8
kusano 2b45e8
	LD	a0,  0 * SIZE(X)
kusano 2b45e8
	fclr	t1
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
	fclr	t2
kusano 2b45e8
kusano 2b45e8
	LD	a1,  0 * SIZE(X)
kusano 2b45e8
	fclr	t3
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
	fclr	s3
kusano 2b45e8
kusano 2b45e8
	LD	a2,  0 * SIZE(X)
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
	LD	a3,  0 * SIZE(X)
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	LD	a4,  0 * SIZE(X)
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
	LD	a5,  0 * SIZE(X)
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	lda	I,  -1(I)
kusano 2b45e8
	ble	I, $L13
kusano 2b45e8
	.align 4
kusano 2b45e8
kusano 2b45e8
$L12:
kusano 2b45e8
	ADD	s0, t0, s0
kusano 2b45e8
	ldl	$31, PREFETCHSIZE * 2 * SIZE(X)
kusano 2b45e8
	fabs	a0, t0
kusano 2b45e8
	lda	I,  -1(I)
kusano 2b45e8
kusano 2b45e8
	ADD	s1, t1, s1
kusano 2b45e8
	LD	a6,  0 * SIZE(X)
kusano 2b45e8
	fabs	a1, t1
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s2, t2, s2
kusano 2b45e8
	LD	a7,  0 * SIZE(X)
kusano 2b45e8
	fabs	a2, t2
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s3, t3, s3
kusano 2b45e8
	LD	a0,  0 * SIZE(X)
kusano 2b45e8
	fabs	a3, t3
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s0, t0, s0
kusano 2b45e8
	LD	a1,  0 * SIZE(X)
kusano 2b45e8
	fabs	a4, t0
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s1, t1, s1
kusano 2b45e8
	LD	a2,  0 * SIZE(X)
kusano 2b45e8
	fabs	a5, t1
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s2, t2, s2
kusano 2b45e8
	LD	a3,  0 * SIZE(X)
kusano 2b45e8
	fabs	a6, t2
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s3, t3, s3
kusano 2b45e8
	LD	a4,  0 * SIZE(X)
kusano 2b45e8
	fabs	a7, t3
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	LD	a5,  0 * SIZE(X)
kusano 2b45e8
	unop
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
	bne	I, $L12
kusano 2b45e8
	.align 4
kusano 2b45e8
kusano 2b45e8
$L13:
kusano 2b45e8
	ADD	s0, t0, s0
kusano 2b45e8
	LD	a6,  0 * SIZE(X)
kusano 2b45e8
	fabs	a0, t0
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s1, t1, s1
kusano 2b45e8
	LD	a7,  0 * SIZE(X)
kusano 2b45e8
	fabs	a1, t1
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
kusano 2b45e8
	ADD	s2, t2, s2
kusano 2b45e8
	fabs	a2, t2
kusano 2b45e8
	ADD	s3, t3, s3
kusano 2b45e8
	fabs	a3, t3
kusano 2b45e8
kusano 2b45e8
	ADD	s0, t0, s0
kusano 2b45e8
	fabs	a4, t0
kusano 2b45e8
	ADD	s1, t1, s1
kusano 2b45e8
	fabs	a5, t1
kusano 2b45e8
	ADD	s2, t2, s2
kusano 2b45e8
	fabs	a6, t2
kusano 2b45e8
	ADD	s3, t3, s3
kusano 2b45e8
	fabs	a7, t3
kusano 2b45e8
kusano 2b45e8
	ADD	s1, t1, s1
kusano 2b45e8
	ADD	s2, t2, s2
kusano 2b45e8
	ADD	s3, t3, s3
kusano 2b45e8
kusano 2b45e8
	ADD	s0, s1, s0
kusano 2b45e8
	ADD	s2, s3, s2
kusano 2b45e8
	.align 4
kusano 2b45e8
kusano 2b45e8
$L15:
kusano 2b45e8
	and	N, 7, I
kusano 2b45e8
	ADD	s0, s2, s0
kusano 2b45e8
	unop
kusano 2b45e8
	ble	I, $L999
kusano 2b45e8
	.align 4
kusano 2b45e8
kusano 2b45e8
$L17:
kusano 2b45e8
	ADD	s0, t0, s0
kusano 2b45e8
	LD	a0,  0 * SIZE(X)
kusano 2b45e8
	SXADDQ	INCX, X, X
kusano 2b45e8
	fabs	a0, t0
kusano 2b45e8
kusano 2b45e8
	lda	I,  -1(I)
kusano 2b45e8
	bne	I, $L17
kusano 2b45e8
	.align 4
kusano 2b45e8
kusano 2b45e8
$L999:
kusano 2b45e8
	ADD	s0, t0, s0
kusano 2b45e8
	ret
kusano 2b45e8
	EPILOGUE