Blame thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/kernel/sparc/ztrsm_kernel_LN.S

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
kusano 2b45e8
#define M	%i0
kusano 2b45e8
#define N	%i1
kusano 2b45e8
#define K	%i2
kusano 2b45e8
#define A	%i5
kusano 2b45e8
#define B	%i3
kusano 2b45e8
#define C	%i4
kusano 2b45e8
kusano 2b45e8
#define LDC	%o0
kusano 2b45e8
#define AO	%o1
kusano 2b45e8
#define BO	%o2
kusano 2b45e8
#define I	%o3
kusano 2b45e8
#define J	%o4
kusano 2b45e8
#define L	%o5
kusano 2b45e8
kusano 2b45e8
#define C1	%l0
kusano 2b45e8
#define C2	%l1
kusano 2b45e8
kusano 2b45e8
#define OFFSET	%l2
kusano 2b45e8
#define	KK	%l3
kusano 2b45e8
#define TEMP1	%l4
kusano 2b45e8
#define TEMP2	%l5
kusano 2b45e8
#define AORIG	%l6
kusano 2b45e8
kusano 2b45e8
#ifdef DOUBLE
kusano 2b45e8
#define c01	%f0
kusano 2b45e8
#define c02	%f2
kusano 2b45e8
#define c03	%f4
kusano 2b45e8
#define c04	%f6
kusano 2b45e8
#define c05	%f8
kusano 2b45e8
#define c06	%f10
kusano 2b45e8
#define c07	%f12
kusano 2b45e8
#define c08	%f14
kusano 2b45e8
#define c09	%f16
kusano 2b45e8
#define c10	%f18
kusano 2b45e8
#define c11	%f20
kusano 2b45e8
#define c12	%f22
kusano 2b45e8
#define c13	%f24
kusano 2b45e8
#define c14	%f26
kusano 2b45e8
#define c15	%f28
kusano 2b45e8
#define c16	%f30
kusano 2b45e8
kusano 2b45e8
#define t1	%f32
kusano 2b45e8
#define	t2 	%f34
kusano 2b45e8
#define t3	%f36
kusano 2b45e8
#define	t4 	%f38
kusano 2b45e8
kusano 2b45e8
#define a1	%f40
kusano 2b45e8
#define a2	%f42
kusano 2b45e8
#define a3	%f44
kusano 2b45e8
#define a4	%f46
kusano 2b45e8
#define a5	%f62
kusano 2b45e8
kusano 2b45e8
#define b1	%f48
kusano 2b45e8
#define b2	%f50
kusano 2b45e8
#define b3	%f52
kusano 2b45e8
#define b4	%f54
kusano 2b45e8
#define b5	%f56
kusano 2b45e8
kusano 2b45e8
#define FZERO	%f58
kusano 2b45e8
kusano 2b45e8
#else
kusano 2b45e8
#define c01	%f0
kusano 2b45e8
#define c02	%f1
kusano 2b45e8
#define c03	%f2
kusano 2b45e8
#define c04	%f3
kusano 2b45e8
#define c05	%f4
kusano 2b45e8
#define c06	%f5
kusano 2b45e8
#define c07	%f6
kusano 2b45e8
#define c08	%f7
kusano 2b45e8
#define c09	%f8
kusano 2b45e8
#define c10	%f9
kusano 2b45e8
#define c11	%f10
kusano 2b45e8
#define c12	%f11
kusano 2b45e8
#define c13	%f12
kusano 2b45e8
#define c14	%f13
kusano 2b45e8
#define c15	%f14
kusano 2b45e8
#define c16	%f15
kusano 2b45e8
kusano 2b45e8
#define t1	%f16
kusano 2b45e8
#define	t2 	%f17
kusano 2b45e8
#define t3	%f18
kusano 2b45e8
#define	t4 	%f19
kusano 2b45e8
kusano 2b45e8
#define a1	%f20
kusano 2b45e8
#define a2	%f21
kusano 2b45e8
#define a3	%f22
kusano 2b45e8
#define a4	%f23
kusano 2b45e8
#define a5	%f31
kusano 2b45e8
kusano 2b45e8
#define b1	%f24
kusano 2b45e8
#define b2	%f25
kusano 2b45e8
#define b3	%f26
kusano 2b45e8
#define b4	%f27
kusano 2b45e8
#define b5	%f28
kusano 2b45e8
kusano 2b45e8
#define FZERO	%f29
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#define	t5	c13
kusano 2b45e8
#define	t6	c14
kusano 2b45e8
#define	t7	c15
kusano 2b45e8
#define	t8	c16
kusano 2b45e8
kusano 2b45e8
#ifndef CONJ
kusano 2b45e8
#define FADD1	FADD
kusano 2b45e8
#define FADD2	FADD
kusano 2b45e8
#define FADD3	FADD
kusano 2b45e8
#define FADD4	FSUB
kusano 2b45e8
#else
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
#define FADD1	FADD
kusano 2b45e8
#define FADD2	FSUB
kusano 2b45e8
#define FADD3	FADD
kusano 2b45e8
#define FADD4	FADD
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(RN) || defined(RT)
kusano 2b45e8
#define FADD1	FADD
kusano 2b45e8
#define FADD2	FADD
kusano 2b45e8
#define FADD3	FSUB
kusano 2b45e8
#define FADD4	FADD
kusano 2b45e8
#endif
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#define APREFETCHSIZE 40
kusano 2b45e8
#define BPREFETCHSIZE 40
kusano 2b45e8
kusano 2b45e8
#define APREFETCH_CATEGORY 0
kusano 2b45e8
#define BPREFETCH_CATEGORY 0
kusano 2b45e8
kusano 2b45e8
	PROLOGUE
kusano 2b45e8
	SAVESP
kusano 2b45e8
	
kusano 2b45e8
#ifndef __64BIT__
kusano 2b45e8
#ifdef DOUBLE
kusano 2b45e8
	ld	[%sp + STACK_START + 32], A
kusano 2b45e8
	ld	[%sp + STACK_START + 36], B
kusano 2b45e8
	ld	[%sp + STACK_START + 40], C
kusano 2b45e8
	ld	[%sp + STACK_START + 44], LDC
kusano 2b45e8
	ld	[%sp + STACK_START + 48], OFFSET
kusano 2b45e8
#else
kusano 2b45e8
	ld	[%sp + STACK_START + 28], B
kusano 2b45e8
	ld	[%sp + STACK_START + 32], C
kusano 2b45e8
	ld	[%sp + STACK_START + 36], LDC
kusano 2b45e8
	ld	[%sp + STACK_START + 40], OFFSET
kusano 2b45e8
#endif
kusano 2b45e8
#else
kusano 2b45e8
	ldx	[%sp+  STACK_START + 56], B
kusano 2b45e8
	ldx	[%sp+  STACK_START + 64], C
kusano 2b45e8
	ldx	[%sp+  STACK_START + 72], LDC
kusano 2b45e8
	ldx	[%sp+  STACK_START + 80], OFFSET
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef DOUBLE
kusano 2b45e8
       FCLR(27)
kusano 2b45e8
#else
kusano 2b45e8
       FCLR(29)
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	sll	LDC, ZBASE_SHIFT, LDC
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	smul	M, K, TEMP1
kusano 2b45e8
	sll	TEMP1, ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	A, TEMP1, A
kusano 2b45e8
kusano 2b45e8
	sll	M, ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	C, TEMP1, C
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RN
kusano 2b45e8
	neg	OFFSET, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	smul	N, K, TEMP1
kusano 2b45e8
	sll	TEMP1, ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	B, TEMP1, B
kusano 2b45e8
kusano 2b45e8
	smul	N, LDC, TEMP1
kusano 2b45e8
	add	C, TEMP1, C
kusano 2b45e8
kusano 2b45e8
	sub	N, OFFSET, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	sra	N, 1, J
kusano 2b45e8
	cmp	J, 0
kusano 2b45e8
	ble,pn	%icc, .LL100
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL11:
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sll	K, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sub	B, TEMP1, B
kusano 2b45e8
kusano 2b45e8
	add	LDC, LDC, TEMP1
kusano 2b45e8
	sub	C, TEMP1, C
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	mov	C, C1
kusano 2b45e8
	add	C, LDC, C2
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	add	M, OFFSET, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	mov	OFFSET, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(RT)
kusano 2b45e8
	mov	A, AORIG
kusano 2b45e8
#else
kusano 2b45e8
	mov	A, AO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifndef RT
kusano 2b45e8
	add	C2, LDC, C
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	and	M, 1, I
kusano 2b45e8
	cmp	I, 0
kusano 2b45e8
	ble,pn	%icc, .LL50
kusano 2b45e8
	nop
kusano 2b45e8
	
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sra	KK, 2, L
kusano 2b45e8
kusano 2b45e8
	mov	B, BO
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#else
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sll	K,  0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sub	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	sll	KK, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sll	KK, 1 + ZBASE_SHIFT, TEMP2
kusano 2b45e8
kusano 2b45e8
	add	AORIG, TEMP1, AO
kusano 2b45e8
	add	B,     TEMP2, BO
kusano 2b45e8
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
kusano 2b45e8
	sra	TEMP1, 2, L
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, c02
kusano 2b45e8
	FMOV	FZERO, t1
kusano 2b45e8
	FMOV	FZERO, c04
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
	FMOV	FZERO, t2
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
	FMOV	FZERO, c06
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
	FMOV	FZERO, t3
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
	FMOV	FZERO, c08
kusano 2b45e8
	LDF	[AO + 2 * SIZE], a3
kusano 2b45e8
	FMOV	FZERO, t4
kusano 2b45e8
	LDF	[BO + 2 * SIZE], b3
kusano 2b45e8
	FMOV	FZERO, c01
kusano 2b45e8
	LDF	[AO + 3 * SIZE], a4
kusano 2b45e8
	FMOV	FZERO, c03
kusano 2b45e8
	LDF	[BO + 3 * SIZE], b4
kusano 2b45e8
	FMOV	FZERO, c05
kusano 2b45e8
kusano 2b45e8
	ble,pn	%icc, .LL55
kusano 2b45e8
	FMOV	FZERO, c07
kusano 2b45e8
kusano 2b45e8
.LL52:
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	add	AO,  8 * SIZE, AO
kusano 2b45e8
	prefetch [AO + APREFETCHSIZE * SIZE], 0
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	add	BO, 16 * SIZE, BO
kusano 2b45e8
kusano 2b45e8
	FADD4	c04, t2, c04
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
kusano 2b45e8
	FADD2	c06, t3, c06
kusano 2b45e8
	cmp	L, 0
kusano 2b45e8
	FMUL	a1, b3, t3
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	FMUL	a1, b4, t4
kusano 2b45e8
	LDF	[AO -  4 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FMUL	a2, b1, t1
kusano 2b45e8
	LDF	[BO - 12 * SIZE], b1
kusano 2b45e8
	FADD3	c03, t2, c03
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
	LDF	[BO - 11 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c05, t3, c05
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	LDF	[BO - 10 * SIZE], b3
kusano 2b45e8
	FADD3	c07, t4, c07
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[BO -  9 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	LDF	[AO -  3 * SIZE], a2
kusano 2b45e8
	FADD4	c04, t2, c04
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
kusano 2b45e8
	FADD2	c06, t3, c06
kusano 2b45e8
	FMUL	a3, b3, t3
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	FMUL	a3, b4, t4
kusano 2b45e8
	LDF	[AO -  2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FMUL	a4, b1, t1
kusano 2b45e8
	LDF	[BO -  8 * SIZE], b1
kusano 2b45e8
	FADD3	c03, t2, c03
kusano 2b45e8
	FMUL	a4, b2, t2
kusano 2b45e8
	LDF	[BO -  7 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c05, t3, c05
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO -  6 * SIZE], b3
kusano 2b45e8
	FADD3	c07, t4, c07
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[BO -  5 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	LDF	[AO -  1 * SIZE], a4
kusano 2b45e8
	FADD4	c04, t2, c04
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
kusano 2b45e8
	FADD2	c06, t3, c06
kusano 2b45e8
	FMUL	a1, b3, t3
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	FMUL	a1, b4, t4
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FMUL	a2, b1, t1
kusano 2b45e8
	LDF	[BO -  4 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD3	c03, t2, c03
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
	LDF	[BO -  3 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c05, t3, c05
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	LDF	[BO -  2 * SIZE], b3
kusano 2b45e8
	FADD3	c07, t4, c07
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[BO -  1 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
	FADD4	c04, t2, c04
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
kusano 2b45e8
	FADD2	c06, t3, c06
kusano 2b45e8
	FMUL	a3, b3, t3
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	FMUL	a3, b4, t4
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FMUL	a4, b1, t1
kusano 2b45e8
	LDF	[BO +  0 * SIZE], b1
kusano 2b45e8
	FADD3	c03, t2, c03
kusano 2b45e8
	FMUL	a4, b2, t2
kusano 2b45e8
	LDF	[BO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c05, t3, c05
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO +  2 * SIZE], b3
kusano 2b45e8
	FADD3	c07, t4, c07
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[BO +  3 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	bg,pt	%icc, .LL52
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
.LL55:
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	and	KK,  3, L
kusano 2b45e8
#else
kusano 2b45e8
	and	TEMP1, 3, L
kusano 2b45e8
#endif
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
	ble,a,pn %icc, .LL59
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL56:
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	add	AO, 2 * SIZE, AO
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
kusano 2b45e8
	add	BO, 4 * SIZE, BO
kusano 2b45e8
	FADD4	c04, t2, c04
kusano 2b45e8
	cmp	L, 0
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
kusano 2b45e8
	FADD2	c06, t3, c06
kusano 2b45e8
	FMUL	a1, b3, t3
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	FMUL	a1, b4, t4
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FMUL	a2, b1, t1
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
	FADD3	c03, t2, c03
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c05, t3, c05
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	LDF	[BO + 2 * SIZE], b3
kusano 2b45e8
	FADD3	c07, t4, c07
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[BO + 3 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	bg,pt	%icc, .LL56
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
.LL59:
kusano 2b45e8
#if defined(LN) || defined(RT)
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sub	KK, 1, TEMP1
kusano 2b45e8
#else
kusano 2b45e8
	sub	KK, 2, TEMP1
kusano 2b45e8
#endif
kusano 2b45e8
	sll	TEMP1, 0 + ZBASE_SHIFT, TEMP2
kusano 2b45e8
	sll	TEMP1, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP2, AO
kusano 2b45e8
	add	B,     TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	FADD4	c04, t2, c04
kusano 2b45e8
	FADD2	c06, t3, c06
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
kusano 2b45e8
	FADD	c01, c04, c01
kusano 2b45e8
	FADD	c02, c03, c02
kusano 2b45e8
	FADD	c05, c08, c05
kusano 2b45e8
	FADD	c06, c07, c06
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[BO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[BO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
	FSUB	a3, c05, c05
kusano 2b45e8
	FSUB	a4, c06, c06
kusano 2b45e8
kusano 2b45e8
#else
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
	FSUB	a3, c05, c05
kusano 2b45e8
	FSUB	a4, c06, c06
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c05, t5
kusano 2b45e8
	FMUL	a2, c06, t6
kusano 2b45e8
	FMUL	a1, c06, t7
kusano 2b45e8
	FMUL	a2, c05, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c05
kusano 2b45e8
	FADD2	t7, t8, c06
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c05, t5
kusano 2b45e8
	FMUL	a2, c06, t6
kusano 2b45e8
	FMUL	a1, c06, t7
kusano 2b45e8
	FMUL	a2, c05, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c05
kusano 2b45e8
	FADD2	t7, t8, c06
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RN
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[BO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[BO +  3 * SIZE], a4
kusano 2b45e8
	LDF	[BO +  6 * SIZE], b1
kusano 2b45e8
	LDF	[BO +  7 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c01, t1
kusano 2b45e8
	FMUL	a3, c02, t2
kusano 2b45e8
	FMUL	a4, c02, t3
kusano 2b45e8
	FMUL	a4, c01, t4
kusano 2b45e8
kusano 2b45e8
	FSUB	c05, t1, c05
kusano 2b45e8
	FSUB	c06, t2, c06
kusano 2b45e8
	FADD3	c05, t3, c05
kusano 2b45e8
	FADD4	c06, t4, c06
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c05, t1
kusano 2b45e8
	FMUL	b2, c06, t2
kusano 2b45e8
	FMUL	b1, c06, t3
kusano 2b45e8
	FMUL	b2, c05, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c05
kusano 2b45e8
	FADD3	t3, t4, c06
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	LDF	[BO +  6 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  7 * SIZE], a2
kusano 2b45e8
	LDF	[BO +  4 * SIZE], a3
kusano 2b45e8
	LDF	[BO +  5 * SIZE], a4
kusano 2b45e8
	LDF	[BO +  0 * SIZE], b1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c05, t1
kusano 2b45e8
	FMUL	a2, c06, t2
kusano 2b45e8
	FMUL	a1, c06, t3
kusano 2b45e8
	FMUL	a2, c05, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c05
kusano 2b45e8
	FADD3	t3, t4, c06
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c05, t1
kusano 2b45e8
	FMUL	a3, c06, t2
kusano 2b45e8
	FMUL	a4, c06, t3
kusano 2b45e8
	FMUL	a4, c05, t4
kusano 2b45e8
kusano 2b45e8
	FSUB	c01, t1, c01
kusano 2b45e8
	FSUB	c02, t2, c02
kusano 2b45e8
	FADD3	c01, t3, c01
kusano 2b45e8
	FADD4	c02, t4, c02
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c01, t1
kusano 2b45e8
	FMUL	b2, c02, t2
kusano 2b45e8
	FMUL	b1, c02, t3
kusano 2b45e8
	FMUL	b2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	add	C1, -2 * SIZE, C1
kusano 2b45e8
	add	C2, -2 * SIZE, C2
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	STF	c01, [BO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [BO +  1 * SIZE]
kusano 2b45e8
	STF	c05, [BO +  2 * SIZE]
kusano 2b45e8
	STF	c06, [BO +  3 * SIZE]
kusano 2b45e8
#else
kusano 2b45e8
	STF	c01, [AO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [AO +  1 * SIZE]
kusano 2b45e8
	STF	c05, [AO +  2 * SIZE]
kusano 2b45e8
	STF	c06, [AO +  3 * SIZE]
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	STF	c01, [C1 + 0 * SIZE]
kusano 2b45e8
	STF	c02, [C1 + 1 * SIZE]
kusano 2b45e8
	STF	c05, [C2 + 0 * SIZE]
kusano 2b45e8
	STF	c06, [C2 + 1 * SIZE]
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, t1
kusano 2b45e8
	FMOV	FZERO, t2
kusano 2b45e8
	FMOV	FZERO, t3
kusano 2b45e8
	FMOV	FZERO, t4
kusano 2b45e8
kusano 2b45e8
#ifndef LN
kusano 2b45e8
	add	C1, 2 * SIZE, C1
kusano 2b45e8
	add	C2, 2 * SIZE, C2
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sll	K, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
	sll	TEMP1, 0 + ZBASE_SHIFT, TEMP2
kusano 2b45e8
	sll	TEMP1, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AO, TEMP2, AO
kusano 2b45e8
	add	BO, TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	add	KK, 1, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sub	KK, 1, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
.LL50:
kusano 2b45e8
	sra	M, 1, I
kusano 2b45e8
	cmp	I, 0
kusano 2b45e8
	ble,pn	%icc, .LL99
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL21:
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sra	KK, 2, L
kusano 2b45e8
kusano 2b45e8
	mov	B, BO
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#else
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sll	K,  1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sub	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	sll	KK, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
kusano 2b45e8
	add	AORIG, TEMP1, AO
kusano 2b45e8
	add	B,     TEMP1, BO
kusano 2b45e8
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
kusano 2b45e8
	sra	TEMP1, 2, L
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, t1
kusano 2b45e8
	FMOV	FZERO, t2
kusano 2b45e8
	FMOV	FZERO, t3
kusano 2b45e8
	FMOV	FZERO, t4
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, c01
kusano 2b45e8
	FMOV	FZERO, c02
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
	FMOV	FZERO, c03
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
	FMOV	FZERO, c04
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
	FMOV	FZERO, c05
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
	FMOV	FZERO, c06
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 2 * SIZE], a3
kusano 2b45e8
	FMOV	FZERO, c07
kusano 2b45e8
	LDF	[BO + 2 * SIZE], b3
kusano 2b45e8
	FMOV	FZERO, c08
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 3 * SIZE], a4
kusano 2b45e8
	FMOV	FZERO, c09
kusano 2b45e8
	LDF	[BO + 3 * SIZE], b4
kusano 2b45e8
	FMOV	FZERO, c10
kusano 2b45e8
kusano 2b45e8
	LDF	[BO +  4 * SIZE], b5
kusano 2b45e8
	FMOV	FZERO, c11
kusano 2b45e8
	LDF	[AO +  4 * SIZE], a5
kusano 2b45e8
	FMOV	FZERO, c12
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	prefetch [C1 - 3 * SIZE], 3
kusano 2b45e8
	FMOV	FZERO, c13
kusano 2b45e8
	prefetch [C2 - 3 * SIZE], 3
kusano 2b45e8
	FMOV	FZERO, c14
kusano 2b45e8
#else
kusano 2b45e8
	prefetch [C1 + 3 * SIZE], 3
kusano 2b45e8
	FMOV	FZERO, c13
kusano 2b45e8
	prefetch [C2 + 3 * SIZE], 3
kusano 2b45e8
	FMOV	FZERO, c14
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, c15
kusano 2b45e8
	ble,pn	%icc, .LL25
kusano 2b45e8
	FMOV	FZERO, c16
kusano 2b45e8
kusano 2b45e8
.LL22:
kusano 2b45e8
	FADD2	c04, t1, c04
kusano 2b45e8
	prefetch [AO + APREFETCHSIZE * SIZE], APREFETCH_CATEGORY
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t2, c08
kusano 2b45e8
	prefetch [BO + BPREFETCHSIZE * SIZE], BPREFETCH_CATEGORY
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	add	AO, 16 * SIZE, AO
kusano 2b45e8
kusano 2b45e8
	FADD2	c12, t3, c12
kusano 2b45e8
	LDF	[AO - 13 * SIZE], a4
kusano 2b45e8
	FMUL	a1, b3, t3
kusano 2b45e8
	add	BO, 16 * SIZE, BO
kusano 2b45e8
kusano 2b45e8
	FADD4	c16, t4, c16
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b4, t4
kusano 2b45e8
	LDF	[AO -  8 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD1	c09, t3, c09
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c13, t4, c13
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[AO - 11 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t2, c06
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c10, t3, c10
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c14, t4, c14
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t4
kusano 2b45e8
	LDF	[AO - 10 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b1, t1
kusano 2b45e8
	LDF	[BO -  8 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b2, t2
kusano 2b45e8
	LDF	[BO - 11 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c11, t3, c11
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO - 10 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD3	c15, t4, c15
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[BO -  9 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t1, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a5, b5, t1
kusano 2b45e8
	LDF	[AO -  9 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t2, c08
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a5, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c12, t3, c12
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a5, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c16, t4, c16
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a5, b4, t4
kusano 2b45e8
	LDF	[AO - 4 * SIZE], a5
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b5, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD1	c09, t3, c09
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c13, t4, c13
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[AO -  7 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b5, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t2, c06
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c10, t3, c10
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c14, t4, c14
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t4
kusano 2b45e8
	LDF	[AO -  6 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b5, t1
kusano 2b45e8
	LDF	[BO - 4 * SIZE], b5
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b2, t2
kusano 2b45e8
	LDF	[BO -  7 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c11, t3, c11
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO -  6 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD3	c15, t4, c15
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[BO -  5 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t1, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	LDF	[AO -  5 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t2, c08
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c12, t3, c12
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c16, t4, c16
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b4, t4
kusano 2b45e8
	LDF	[AO -  0 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
#ifdef DOUBLE
kusano 2b45e8
	prefetch [AO + (APREFETCHSIZE + 8) * SIZE], APREFETCH_CATEGORY
kusano 2b45e8
#else
kusano 2b45e8
	nop
kusano 2b45e8
#endif
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
kusano 2b45e8
	FADD1	c09, t3, c09
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c13, t4, c13
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	LDF	[AO - 3 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t2, c06
kusano 2b45e8
#ifdef DOUBLE
kusano 2b45e8
	prefetch [BO + (BPREFETCHSIZE + 8) * SIZE], BPREFETCH_CATEGORY
kusano 2b45e8
#else
kusano 2b45e8
	nop
kusano 2b45e8
#endif
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c10, t3, c10
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c14, t4, c14
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t4
kusano 2b45e8
	LDF	[AO - 2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b1, t1
kusano 2b45e8
	LDF	[BO -  0 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b2, t2
kusano 2b45e8
	LDF	[BO - 3 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c11, t3, c11
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO - 2 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD3	c15, t4, c15
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[BO - 1 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t1, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a5, b5, t1
kusano 2b45e8
	LDF	[AO - 1 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t2, c08
kusano 2b45e8
	FMUL	a5, b2, t2
kusano 2b45e8
	FADD2	c12, t3, c12
kusano 2b45e8
	FMUL	a5, b3, t3
kusano 2b45e8
kusano 2b45e8
	FADD4	c16, t4, c16
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a5, b4, t4
kusano 2b45e8
	LDF	[AO +  4 * SIZE], a5
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b5, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD1	c09, t3, c09
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c13, t4, c13
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b5, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t2, c06
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c10, t3, c10
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c14, t4, c14
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t4
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	cmp	L, 0
kusano 2b45e8
	FMUL	a4, b5, t1
kusano 2b45e8
	LDF	[BO +  4 * SIZE], b5
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b2, t2
kusano 2b45e8
	LDF	[BO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c11, t3, c11
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO +  2 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD3	c15, t4, c15
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	bg,pt	%icc, .LL22
kusano 2b45e8
	LDF	[BO +  3 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
.LL25:
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	and	KK,  3, L
kusano 2b45e8
#else
kusano 2b45e8
	and	TEMP1, 3, L
kusano 2b45e8
#endif
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
	ble,pn %icc, .LL29
kusano 2b45e8
	nop
kusano 2b45e8
	
kusano 2b45e8
.LL26:
kusano 2b45e8
	FADD2	c04, t1, c04
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	add	AO, 4 * SIZE, AO
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t2, c08
kusano 2b45e8
	add	BO, 4 * SIZE, BO
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
kusano 2b45e8
	FADD2	c12, t3, c12
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b3, t3
kusano 2b45e8
	cmp	L, 0
kusano 2b45e8
kusano 2b45e8
	FADD4	c16, t4, c16
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b4, t4
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD1	c09, t3, c09
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c13, t4, c13
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t1, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t2, c06
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD2	c10, t3, c10
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c14, t4, c14
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t4
kusano 2b45e8
	LDF	[AO + 2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b1, t1
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b2, t2
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c11, t3, c11
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO + 2 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD3	c15, t4, c15
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	bg,pt	%icc, .LL26
kusano 2b45e8
	LDF	[BO + 3 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
.LL29:
kusano 2b45e8
#if defined(LN) || defined(RT)
kusano 2b45e8
	sub	KK, 2, TEMP1
kusano 2b45e8
	sll	TEMP1, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP1, AO
kusano 2b45e8
	add	B,     TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t1, c04
kusano 2b45e8
	FADD4	c08, t2, c08
kusano 2b45e8
	FADD2	c12, t3, c12
kusano 2b45e8
	FADD4	c16, t4, c16
kusano 2b45e8
kusano 2b45e8
	FADD	c01, c06, c01
kusano 2b45e8
	FADD	c02, c05, c02
kusano 2b45e8
	FADD	c03, c08, c03
kusano 2b45e8
	FADD	c04, c07, c04
kusano 2b45e8
kusano 2b45e8
	FADD	c09, c14, c09
kusano 2b45e8
	FADD	c10, c13, c10
kusano 2b45e8
	FADD	c11, c16, c11
kusano 2b45e8
	FADD	c12, c15, c12
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[BO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[BO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	LDF	[BO +  4 * SIZE], b1
kusano 2b45e8
	LDF	[BO +  5 * SIZE], b2
kusano 2b45e8
	LDF	[BO +  6 * SIZE], b3
kusano 2b45e8
	LDF	[BO +  7 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
	FSUB	a3, c09, c09
kusano 2b45e8
	FSUB	a4, c10, c10
kusano 2b45e8
kusano 2b45e8
	FSUB	b1, c03, c03
kusano 2b45e8
	FSUB	b2, c04, c04
kusano 2b45e8
	FSUB	b3, c11, c11
kusano 2b45e8
	FSUB	b4, c12, c12
kusano 2b45e8
#else
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	LDF	[AO +  4 * SIZE], b1
kusano 2b45e8
	LDF	[AO +  5 * SIZE], b2
kusano 2b45e8
	LDF	[AO +  6 * SIZE], b3
kusano 2b45e8
	LDF	[AO +  7 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
	FSUB	a3, c03, c03
kusano 2b45e8
	FSUB	a4, c04, c04
kusano 2b45e8
kusano 2b45e8
	FSUB	b1, c09, c09
kusano 2b45e8
	FSUB	b2, c10, c10
kusano 2b45e8
	FSUB	b3, c11, c11
kusano 2b45e8
	FSUB	b4, c12, c12
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	LDF	[AO +  6 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  7 * SIZE], a2
kusano 2b45e8
	LDF	[AO +  4 * SIZE], a3
kusano 2b45e8
	LDF	[AO +  5 * SIZE], a4
kusano 2b45e8
	LDF	[AO +  0 * SIZE], b1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c03, t1
kusano 2b45e8
	FMUL	a2, c04, t2
kusano 2b45e8
	FMUL	a1, c04, t3
kusano 2b45e8
	FMUL	a2, c03, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c11, t5
kusano 2b45e8
	FMUL	a2, c12, t6
kusano 2b45e8
	FMUL	a1, c12, t7
kusano 2b45e8
	FMUL	a2, c11, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c03
kusano 2b45e8
	FADD2	t3, t4, c04
kusano 2b45e8
	FADD4	t5, t6, c11
kusano 2b45e8
	FADD2	t7, t8, c12
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c03, t1
kusano 2b45e8
	FMUL	a3, c04, t2
kusano 2b45e8
	FMUL	a3, c11, t3
kusano 2b45e8
	FMUL	a3, c12, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a4, c04, t5
kusano 2b45e8
	FMUL	a4, c03, t6
kusano 2b45e8
	FMUL	a4, c12, t7
kusano 2b45e8
	FMUL	a4, c11, t8
kusano 2b45e8
kusano 2b45e8
	FSUB	c01, t1, c01
kusano 2b45e8
	FSUB	c02, t2, c02
kusano 2b45e8
	FSUB	c09, t3, c09
kusano 2b45e8
	FSUB	c10, t4, c10
kusano 2b45e8
kusano 2b45e8
	FADD2	c01, t5, c01
kusano 2b45e8
	FADD4	c02, t6, c02
kusano 2b45e8
	FADD2	c09, t7, c09
kusano 2b45e8
	FADD4	c10, t8, c10
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c01, t1
kusano 2b45e8
	FMUL	b2, c02, t2
kusano 2b45e8
	FMUL	b1, c02, t3
kusano 2b45e8
	FMUL	b2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c09, t5
kusano 2b45e8
	FMUL	b2, c10, t6
kusano 2b45e8
	FMUL	b1, c10, t7
kusano 2b45e8
	FMUL	b2, c09, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c09
kusano 2b45e8
	FADD2	t7, t8, c10
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
	LDF	[AO +  6 * SIZE], b1
kusano 2b45e8
	LDF	[AO +  7 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c09, t5
kusano 2b45e8
	FMUL	a2, c10, t6
kusano 2b45e8
	FMUL	a1, c10, t7
kusano 2b45e8
	FMUL	a2, c09, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c09
kusano 2b45e8
	FADD2	t7, t8, c10
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c01, t1
kusano 2b45e8
	FMUL	a3, c02, t2
kusano 2b45e8
	FMUL	a3, c09, t3
kusano 2b45e8
	FMUL	a3, c10, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a4, c02, t5
kusano 2b45e8
	FMUL	a4, c01, t6
kusano 2b45e8
	FMUL	a4, c10, t7
kusano 2b45e8
	FMUL	a4, c09, t8
kusano 2b45e8
kusano 2b45e8
	FSUB	c03, t1, c03
kusano 2b45e8
	FSUB	c04, t2, c04
kusano 2b45e8
	FSUB	c11, t3, c11
kusano 2b45e8
	FSUB	c12, t4, c12
kusano 2b45e8
kusano 2b45e8
	FADD2	c03, t5, c03
kusano 2b45e8
	FADD4	c04, t6, c04
kusano 2b45e8
	FADD2	c11, t7, c11
kusano 2b45e8
	FADD4	c12, t8, c12
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c03, t1
kusano 2b45e8
	FMUL	b2, c04, t2
kusano 2b45e8
	FMUL	b1, c04, t3
kusano 2b45e8
	FMUL	b2, c03, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c11, t5
kusano 2b45e8
	FMUL	b2, c12, t6
kusano 2b45e8
	FMUL	b1, c12, t7
kusano 2b45e8
	FMUL	b2, c11, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c03
kusano 2b45e8
	FADD2	t3, t4, c04
kusano 2b45e8
	FADD4	t5, t6, c11
kusano 2b45e8
	FADD2	t7, t8, c12
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RN
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[BO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[BO +  3 * SIZE], a4
kusano 2b45e8
	LDF	[BO +  6 * SIZE], b1
kusano 2b45e8
	LDF	[BO +  7 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c03, t5
kusano 2b45e8
	FMUL	a2, c04, t6
kusano 2b45e8
	FMUL	a1, c04, t7
kusano 2b45e8
	FMUL	a2, c03, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c03
kusano 2b45e8
	FADD3	t7, t8, c04
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c01, t1
kusano 2b45e8
	FMUL	a3, c02, t2
kusano 2b45e8
	FMUL	a3, c03, t3
kusano 2b45e8
	FMUL	a3, c04, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a4, c02, t5
kusano 2b45e8
	FMUL	a4, c01, t6
kusano 2b45e8
	FMUL	a4, c04, t7
kusano 2b45e8
	FMUL	a4, c03, t8
kusano 2b45e8
kusano 2b45e8
	FSUB	c09, t1, c09
kusano 2b45e8
	FSUB	c10, t2, c10
kusano 2b45e8
	FSUB	c11, t3, c11
kusano 2b45e8
	FSUB	c12, t4, c12
kusano 2b45e8
kusano 2b45e8
	FADD3	c09, t5, c09
kusano 2b45e8
	FADD4	c10, t6, c10
kusano 2b45e8
	FADD3	c11, t7, c11
kusano 2b45e8
	FADD4	c12, t8, c12
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c09, t1
kusano 2b45e8
	FMUL	b2, c10, t2
kusano 2b45e8
	FMUL	b1, c10, t3
kusano 2b45e8
	FMUL	b2, c09, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c11, t5
kusano 2b45e8
	FMUL	b2, c12, t6
kusano 2b45e8
	FMUL	b1, c12, t7
kusano 2b45e8
	FMUL	b2, c11, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c09
kusano 2b45e8
	FADD3	t3, t4, c10
kusano 2b45e8
	FADD4	t5, t6, c11
kusano 2b45e8
	FADD3	t7, t8, c12
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	LDF	[BO +  6 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  7 * SIZE], a2
kusano 2b45e8
	LDF	[BO +  4 * SIZE], a3
kusano 2b45e8
	LDF	[BO +  5 * SIZE], a4
kusano 2b45e8
	LDF	[BO +  0 * SIZE], b1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c09, t1
kusano 2b45e8
	FMUL	a2, c10, t2
kusano 2b45e8
	FMUL	a1, c10, t3
kusano 2b45e8
	FMUL	a2, c09, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c11, t5
kusano 2b45e8
	FMUL	a2, c12, t6
kusano 2b45e8
	FMUL	a1, c12, t7
kusano 2b45e8
	FMUL	a2, c11, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c09
kusano 2b45e8
	FADD3	t3, t4, c10
kusano 2b45e8
	FADD4	t5, t6, c11
kusano 2b45e8
	FADD3	t7, t8, c12
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c09, t1
kusano 2b45e8
	FMUL	a3, c10, t2
kusano 2b45e8
	FMUL	a3, c11, t3
kusano 2b45e8
	FMUL	a3, c12, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a4, c10, t5
kusano 2b45e8
	FMUL	a4, c09, t6
kusano 2b45e8
	FMUL	a4, c12, t7
kusano 2b45e8
	FMUL	a4, c11, t8
kusano 2b45e8
kusano 2b45e8
	FSUB	c01, t1, c01
kusano 2b45e8
	FSUB	c02, t2, c02
kusano 2b45e8
	FSUB	c03, t3, c03
kusano 2b45e8
	FSUB	c04, t4, c04
kusano 2b45e8
kusano 2b45e8
	FADD3	c01, t5, c01
kusano 2b45e8
	FADD4	c02, t6, c02
kusano 2b45e8
	FADD3	c03, t7, c03
kusano 2b45e8
	FADD4	c04, t8, c04
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c01, t1
kusano 2b45e8
	FMUL	b2, c02, t2
kusano 2b45e8
	FMUL	b1, c02, t3
kusano 2b45e8
	FMUL	b2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c03, t5
kusano 2b45e8
	FMUL	b2, c04, t6
kusano 2b45e8
	FMUL	b1, c04, t7
kusano 2b45e8
	FMUL	b2, c03, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c03
kusano 2b45e8
	FADD3	t7, t8, c04
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	add	C1, -4 * SIZE, C1
kusano 2b45e8
	add	C2, -4 * SIZE, C2
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	STF	c01, [BO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [BO +  1 * SIZE]
kusano 2b45e8
	STF	c09, [BO +  2 * SIZE]
kusano 2b45e8
	STF	c10, [BO +  3 * SIZE]
kusano 2b45e8
kusano 2b45e8
	STF	c03, [BO +  4 * SIZE]
kusano 2b45e8
	STF	c04, [BO +  5 * SIZE]
kusano 2b45e8
	STF	c11, [BO +  6 * SIZE]
kusano 2b45e8
	STF	c12, [BO +  7 * SIZE]
kusano 2b45e8
#else
kusano 2b45e8
	STF	c01, [AO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [AO +  1 * SIZE]
kusano 2b45e8
	STF	c03, [AO +  2 * SIZE]
kusano 2b45e8
	STF	c04, [AO +  3 * SIZE]
kusano 2b45e8
kusano 2b45e8
	STF	c09, [AO +  4 * SIZE]
kusano 2b45e8
	STF	c10, [AO +  5 * SIZE]
kusano 2b45e8
	STF	c11, [AO +  6 * SIZE]
kusano 2b45e8
	STF	c12, [AO +  7 * SIZE]
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	STF	c01, [C1 + 0 * SIZE]
kusano 2b45e8
	STF	c02, [C1 + 1 * SIZE]
kusano 2b45e8
	STF	c03, [C1 + 2 * SIZE]
kusano 2b45e8
	STF	c04, [C1 + 3 * SIZE]
kusano 2b45e8
kusano 2b45e8
	STF	c09, [C2 + 0 * SIZE]
kusano 2b45e8
	STF	c10, [C2 + 1 * SIZE]
kusano 2b45e8
	STF	c11, [C2 + 2 * SIZE]
kusano 2b45e8
	STF	c12, [C2 + 3 * SIZE]
kusano 2b45e8
kusano 2b45e8
#ifndef LN
kusano 2b45e8
	add	C1, 4 * SIZE, C1
kusano 2b45e8
	add	C2, 4 * SIZE, C2
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sll	K, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
	sll	TEMP1, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AO, TEMP1, AO
kusano 2b45e8
	add	BO, TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	add	KK, 2, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sub	KK, 2, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	add	I, -1, I
kusano 2b45e8
	cmp	I, 0
kusano 2b45e8
	bg,pt	%icc, .LL21
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL99:
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sll	K, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	B, TEMP1, B
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	mov	BO, B
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RN
kusano 2b45e8
	add	KK, 2, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sub	KK, 2, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	add	J, -1, J
kusano 2b45e8
	cmp	J, 0
kusano 2b45e8
	bg,pt	%icc, .LL11
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL100:
kusano 2b45e8
	and	N, 1, J
kusano 2b45e8
kusano 2b45e8
	cmp	J, 0
kusano 2b45e8
	ble,pn	%icc, .LL999
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sll	K, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sub	B, TEMP1, B
kusano 2b45e8
kusano 2b45e8
	sub	C, LDC, C
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	mov	C, C1
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	add	M, OFFSET, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	mov	OFFSET, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(RT)
kusano 2b45e8
	mov	A, AORIG
kusano 2b45e8
#else
kusano 2b45e8
	mov	A, AO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifndef RT
kusano 2b45e8
	add	C, LDC, C
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	and	M, 1, I
kusano 2b45e8
	cmp	I, 0
kusano 2b45e8
	ble,pn	%icc, .LL150
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sra	KK, 2, L
kusano 2b45e8
kusano 2b45e8
	mov	B, BO
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#else
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sll	K,  0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sub	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	sll	KK, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP1, AO
kusano 2b45e8
	add	B,     TEMP1, BO
kusano 2b45e8
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
kusano 2b45e8
	sra	TEMP1, 2, L
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
	FMOV	FZERO, c01
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
	FMOV	FZERO, t1
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
	FMOV	FZERO, c02
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
	FMOV	FZERO, t2
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 2 * SIZE], a3
kusano 2b45e8
	FMOV	FZERO, c03
kusano 2b45e8
	LDF	[BO + 2 * SIZE], b3
kusano 2b45e8
	FMOV	FZERO, t3
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 3 * SIZE], a4
kusano 2b45e8
	FMOV	FZERO, c04
kusano 2b45e8
	LDF	[BO + 3 * SIZE], b4
kusano 2b45e8
	FMOV	FZERO, t4
kusano 2b45e8
kusano 2b45e8
	ble,pn	%icc, .LL155
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL152:
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	prefetch [AO + APREFETCHSIZE * SIZE], 0
kusano 2b45e8
kusano 2b45e8
	FADD3	c02, t2, c02
kusano 2b45e8
	add	BO,  8 * SIZE, BO
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	LDF	[AO + 4 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD2	c03, t3, c03
kusano 2b45e8
	cmp	L, 0
kusano 2b45e8
	FMUL	a2, b1, t3
kusano 2b45e8
	LDF	[BO - 4 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD4	c04, t4, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t4
kusano 2b45e8
	LDF	[AO + 5 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t1
kusano 2b45e8
	LDF	[BO - 3 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD3	c02, t2, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t2
kusano 2b45e8
	LDF	[AO + 6 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD2	c03, t3, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO - 2 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD4	c04, t4, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[AO + 7 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	LDF	[BO - 1 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD3	c02, t2, c02
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	LDF	[AO +  8 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD2	c03, t3, c03
kusano 2b45e8
	FMUL	a2, b1, t3
kusano 2b45e8
	LDF	[BO +  0 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD4	c04, t4, c04
kusano 2b45e8
	FMUL	a2, b2, t4
kusano 2b45e8
	LDF	[AO +  9 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FMUL	a3, b3, t1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD3	c02, t2, c02
kusano 2b45e8
	FMUL	a3, b4, t2
kusano 2b45e8
	LDF	[AO + 10 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD2	c03, t3, c03
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO +  2 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD4	c04, t4, c04
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[AO + 11 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	add	AO,  8 * SIZE, AO
kusano 2b45e8
	bg,pt	%icc, .LL152
kusano 2b45e8
	LDF	[BO +  3 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
.LL155:
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	and	KK,  3, L
kusano 2b45e8
#else
kusano 2b45e8
	and	TEMP1, 3, L
kusano 2b45e8
#endif
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
	ble,a,pn %icc, .LL159
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL156:
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	add	AO, 2 * SIZE, AO
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	add	BO, 2 * SIZE, BO
kusano 2b45e8
	FADD3	c02, t2, c02
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
	FADD2	c03, t3, c03
kusano 2b45e8
	FMUL	a2, b1, t3
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
	cmp	L, 0
kusano 2b45e8
	FADD4	c04, t4, c04
kusano 2b45e8
	FMUL	a2, b2, t4
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	bg,pt	%icc, .LL156
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
.LL159:
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FADD3	c02, t2, c02
kusano 2b45e8
	FADD2	c03, t3, c03
kusano 2b45e8
	FADD4	c04, t4, c04
kusano 2b45e8
kusano 2b45e8
	FADD	c01, c04, c01
kusano 2b45e8
	FADD	c02, c03, c02
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(RT)
kusano 2b45e8
	sub	KK, 1, TEMP1
kusano 2b45e8
kusano 2b45e8
	sll	TEMP1, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP1, AO
kusano 2b45e8
	add	B,     TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
#else
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RN
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	add	C1, -2 * SIZE, C1
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	STF	c01, [BO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [BO +  1 * SIZE]
kusano 2b45e8
#else
kusano 2b45e8
	STF	c01, [AO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [AO +  1 * SIZE]
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	STF	c01, [C1 + 0 * SIZE]
kusano 2b45e8
	STF	c02, [C1 + 1 * SIZE]
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, t1
kusano 2b45e8
	FMOV	FZERO, t2
kusano 2b45e8
	FMOV	FZERO, t3
kusano 2b45e8
	FMOV	FZERO, t4
kusano 2b45e8
kusano 2b45e8
#ifndef LN
kusano 2b45e8
	add	C1, 2 * SIZE, C1
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sll	K, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
	sll	TEMP1, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AO, TEMP1, AO
kusano 2b45e8
	add	BO, TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	add	KK, 1, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sub	KK, 1, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
.LL150:
kusano 2b45e8
	sra	M, 1, I
kusano 2b45e8
	cmp	I, 0
kusano 2b45e8
	ble,pn	%icc, .LL199
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
kusano 2b45e8
.LL121:
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sra	KK, 2, L
kusano 2b45e8
kusano 2b45e8
	mov	B, BO
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#else
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sll	K,  1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sub	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	sll	KK, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	sll	KK, 0 + ZBASE_SHIFT, TEMP2
kusano 2b45e8
kusano 2b45e8
	add	AORIG, TEMP1, AO
kusano 2b45e8
	add	B,     TEMP2, BO
kusano 2b45e8
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
	sra	TEMP1, 2, L
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, c03
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
	FMOV	FZERO, t1
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
	FMOV	FZERO, c07
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
	FMOV	FZERO, t2
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
	FMOV	FZERO, c04
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 2 * SIZE], a3
kusano 2b45e8
	FMOV	FZERO, t3
kusano 2b45e8
	LDF	[BO + 2 * SIZE], b3
kusano 2b45e8
	FMOV	FZERO, c08
kusano 2b45e8
kusano 2b45e8
	LDF	[AO + 3 * SIZE], a4
kusano 2b45e8
	FMOV	FZERO, t4
kusano 2b45e8
	LDF	[BO + 3 * SIZE], b4
kusano 2b45e8
	FMOV	FZERO, c01
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	prefetch [C1 - 3 * SIZE], 3
kusano 2b45e8
#else
kusano 2b45e8
	prefetch [C1 + 3 * SIZE], 3
kusano 2b45e8
#endif
kusano 2b45e8
	FMOV	FZERO, c05
kusano 2b45e8
	FMOV	FZERO, c02
kusano 2b45e8
kusano 2b45e8
	ble,pn	%icc, .LL125
kusano 2b45e8
	FMOV	FZERO, c06
kusano 2b45e8
kusano 2b45e8
.LL122:
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	prefetch [AO + APREFETCHSIZE * SIZE], 0
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	add	BO,  8 * SIZE, BO
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	LDF	[AO + 4 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t3, c04
kusano 2b45e8
	add	AO, 16 * SIZE, AO
kusano 2b45e8
	FMUL	a2, b1, t3
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t4
kusano 2b45e8
	LDF	[AO - 11 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	LDF	[AO - 10 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t3, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b1, t3
kusano 2b45e8
	LDF	[BO -  4 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t4, c06
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b2, t4
kusano 2b45e8
	LDF	[BO -  3 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b3, t1
kusano 2b45e8
	LDF	[AO -  9 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b4, t2
kusano 2b45e8
	LDF	[AO -  8 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t3, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[AO -  7 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t2
kusano 2b45e8
	LDF	[AO -  6 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t3, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO -  2 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t4, c06
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[BO -  1 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	LDF	[AO -  5 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	LDF	[AO -  4 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t3, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b1, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b2, t4
kusano 2b45e8
	LDF	[AO -  3 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	LDF	[AO -  2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t3, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b1, t3
kusano 2b45e8
	LDF	[BO +  0 * SIZE], b1
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t4, c06
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b2, t4
kusano 2b45e8
	LDF	[BO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b3, t1
kusano 2b45e8
	LDF	[AO -  1 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a1, b4, t2
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t3, c04
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b3, t3
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a2, b4, t4
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b3, t1
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a3, b4, t2
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t3, c02
kusano 2b45e8
	nop
kusano 2b45e8
	FMUL	a4, b3, t3
kusano 2b45e8
	LDF	[BO +  2 * SIZE], b3
kusano 2b45e8
kusano 2b45e8
	FADD4	c06, t4, c06
kusano 2b45e8
	FMUL	a4, b4, t4
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	bg,pt	%icc, .LL122
kusano 2b45e8
	LDF	[BO +  3 * SIZE], b4
kusano 2b45e8
kusano 2b45e8
.LL125:
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	and	KK,  3, L
kusano 2b45e8
#else
kusano 2b45e8
	and	TEMP1, 3, L
kusano 2b45e8
#endif
kusano 2b45e8
	cmp	L,  0
kusano 2b45e8
	ble,a,pn %icc, .LL129
kusano 2b45e8
	nop
kusano 2b45e8
kusano 2b45e8
.LL126:
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	add	AO, 4 * SIZE, AO
kusano 2b45e8
	FMUL	a1, b1, t1
kusano 2b45e8
	add	BO, 2 * SIZE, BO
kusano 2b45e8
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	add	L, -1, L
kusano 2b45e8
	FMUL	a1, b2, t2
kusano 2b45e8
	LDF	[AO + 0 * SIZE], a1
kusano 2b45e8
kusano 2b45e8
	FADD2	c04, t3, c04
kusano 2b45e8
	cmp	L, 0
kusano 2b45e8
	FMUL	a2, b1, t3
kusano 2b45e8
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
	FMUL	a2, b2, t4
kusano 2b45e8
	LDF	[AO + 1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FADD1	c01, t1, c01
kusano 2b45e8
	FMUL	a3, b1, t1
kusano 2b45e8
	FADD3	c05, t2, c05
kusano 2b45e8
	FMUL	a3, b2, t2
kusano 2b45e8
	LDF	[AO + 2 * SIZE], a3
kusano 2b45e8
kusano 2b45e8
	FADD2	c02, t3, c02
kusano 2b45e8
	FMUL	a4, b1, t3
kusano 2b45e8
	LDF	[BO + 0 * SIZE], b1
kusano 2b45e8
	FADD4	c06, t4, c06
kusano 2b45e8
	FMUL	a4, b2, t4
kusano 2b45e8
	LDF	[BO + 1 * SIZE], b2
kusano 2b45e8
	bg,pt	%icc, .LL126
kusano 2b45e8
	LDF	[AO + 3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
.LL129:
kusano 2b45e8
	FADD1	c03, t1, c03
kusano 2b45e8
	FADD3	c07, t2, c07
kusano 2b45e8
	FADD2	c04, t3, c04
kusano 2b45e8
	FADD4	c08, t4, c08
kusano 2b45e8
kusano 2b45e8
	FADD	c01, c06, c01
kusano 2b45e8
	FADD	c02, c05, c02
kusano 2b45e8
	FADD	c03, c08, c03
kusano 2b45e8
	FADD	c04, c07, c04
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(RT)
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sub	KK, 2, TEMP1
kusano 2b45e8
#else
kusano 2b45e8
	sub	KK, 1, TEMP1
kusano 2b45e8
#endif
kusano 2b45e8
	sll	TEMP1, 1 + ZBASE_SHIFT, TEMP2
kusano 2b45e8
	sll	TEMP1, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP2, AO
kusano 2b45e8
	add	B,     TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[BO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[BO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
	FSUB	a3, c03, c03
kusano 2b45e8
	FSUB	a4, c04, c04
kusano 2b45e8
#else
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
kusano 2b45e8
	FSUB	a1, c01, c01
kusano 2b45e8
	FSUB	a2, c02, c02
kusano 2b45e8
	FSUB	a3, c03, c03
kusano 2b45e8
	FSUB	a4, c04, c04
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	LDF	[AO +  6 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  7 * SIZE], a2
kusano 2b45e8
	LDF	[AO +  4 * SIZE], a3
kusano 2b45e8
	LDF	[AO +  5 * SIZE], a4
kusano 2b45e8
	LDF	[AO +  0 * SIZE], b1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c03, t1
kusano 2b45e8
	FMUL	a2, c04, t2
kusano 2b45e8
	FMUL	a1, c04, t3
kusano 2b45e8
	FMUL	a2, c03, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c03
kusano 2b45e8
	FADD2	t3, t4, c04
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c03, t1
kusano 2b45e8
	FMUL	a3, c04, t2
kusano 2b45e8
kusano 2b45e8
	FMUL	a4, c04, t5
kusano 2b45e8
	FMUL	a4, c03, t6
kusano 2b45e8
kusano 2b45e8
	FSUB	c01, t1, c01
kusano 2b45e8
	FSUB	c02, t2, c02
kusano 2b45e8
kusano 2b45e8
	FADD2	c01, t5, c01
kusano 2b45e8
	FADD4	c02, t6, c02
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c01, t1
kusano 2b45e8
	FMUL	b2, c02, t2
kusano 2b45e8
	FMUL	b1, c02, t3
kusano 2b45e8
	FMUL	b2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	LDF	[AO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[AO +  1 * SIZE], a2
kusano 2b45e8
	LDF	[AO +  2 * SIZE], a3
kusano 2b45e8
	LDF	[AO +  3 * SIZE], a4
kusano 2b45e8
	LDF	[AO +  6 * SIZE], b1
kusano 2b45e8
	LDF	[AO +  7 * SIZE], b2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD2	t3, t4, c02
kusano 2b45e8
kusano 2b45e8
	FMUL	a3, c01, t1
kusano 2b45e8
	FMUL	a3, c02, t2
kusano 2b45e8
	FMUL	a4, c02, t5
kusano 2b45e8
	FMUL	a4, c01, t6
kusano 2b45e8
kusano 2b45e8
	FSUB	c03, t1, c03
kusano 2b45e8
	FSUB	c04, t2, c04
kusano 2b45e8
	FADD2	c03, t5, c03
kusano 2b45e8
	FADD4	c04, t6, c04
kusano 2b45e8
kusano 2b45e8
	FMUL	b1, c03, t1
kusano 2b45e8
	FMUL	b2, c04, t2
kusano 2b45e8
	FMUL	b1, c04, t3
kusano 2b45e8
	FMUL	b2, c03, t4
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c03
kusano 2b45e8
	FADD2	t3, t4, c04
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RN
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c03, t5
kusano 2b45e8
	FMUL	a2, c04, t6
kusano 2b45e8
	FMUL	a1, c04, t7
kusano 2b45e8
	FMUL	a2, c03, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c03
kusano 2b45e8
	FADD3	t7, t8, c04
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	LDF	[BO +  0 * SIZE], a1
kusano 2b45e8
	LDF	[BO +  1 * SIZE], a2
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c01, t1
kusano 2b45e8
	FMUL	a2, c02, t2
kusano 2b45e8
	FMUL	a1, c02, t3
kusano 2b45e8
	FMUL	a2, c01, t4
kusano 2b45e8
kusano 2b45e8
	FMUL	a1, c03, t5
kusano 2b45e8
	FMUL	a2, c04, t6
kusano 2b45e8
	FMUL	a1, c04, t7
kusano 2b45e8
	FMUL	a2, c03, t8
kusano 2b45e8
kusano 2b45e8
	FADD4	t1, t2, c01
kusano 2b45e8
	FADD3	t3, t4, c02
kusano 2b45e8
	FADD4	t5, t6, c03
kusano 2b45e8
	FADD3	t7, t8, c04
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	add	C1, -4 * SIZE, C1
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LN) || defined(LT)
kusano 2b45e8
	STF	c01, [BO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [BO +  1 * SIZE]
kusano 2b45e8
	STF	c03, [BO +  2 * SIZE]
kusano 2b45e8
	STF	c04, [BO +  3 * SIZE]
kusano 2b45e8
#else
kusano 2b45e8
	STF	c01, [AO +  0 * SIZE]
kusano 2b45e8
	STF	c02, [AO +  1 * SIZE]
kusano 2b45e8
	STF	c03, [AO +  2 * SIZE]
kusano 2b45e8
	STF	c04, [AO +  3 * SIZE]
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	STF	c01, [C1 + 0 * SIZE]
kusano 2b45e8
	STF	c02, [C1 + 1 * SIZE]
kusano 2b45e8
	STF	c03, [C1 + 2 * SIZE]
kusano 2b45e8
	STF	c04, [C1 + 3 * SIZE]
kusano 2b45e8
kusano 2b45e8
	FMOV	FZERO, t1
kusano 2b45e8
	FMOV	FZERO, t2
kusano 2b45e8
	FMOV	FZERO, t3
kusano 2b45e8
	FMOV	FZERO, t4
kusano 2b45e8
kusano 2b45e8
#ifndef LN
kusano 2b45e8
	add	C1, 4 * SIZE, C1
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sll	K, 1 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AORIG, TEMP1, AORIG
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	sub	K, KK, TEMP1
kusano 2b45e8
	sll	TEMP1, 1 + ZBASE_SHIFT, TEMP2
kusano 2b45e8
	sll	TEMP1, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	AO, TEMP2, AO
kusano 2b45e8
	add	BO, TEMP1, BO
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LT
kusano 2b45e8
	add	KK, 2, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sub	KK, 2, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
	add	I, -1, I
kusano 2b45e8
	cmp	I, 0
kusano 2b45e8
	bg,pt	%icc, .LL121
kusano 2b45e8
	FMOV	FZERO, c03
kusano 2b45e8
kusano 2b45e8
.LL199:
kusano 2b45e8
#ifdef LN
kusano 2b45e8
	sll	K, 0 + ZBASE_SHIFT, TEMP1
kusano 2b45e8
	add	B, TEMP1, B
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#if defined(LT) || defined(RN)
kusano 2b45e8
	mov	BO, B
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RN
kusano 2b45e8
	add	KK, 1, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
#ifdef RT
kusano 2b45e8
	sub	KK, 1, KK
kusano 2b45e8
#endif
kusano 2b45e8
kusano 2b45e8
.LL999:
kusano 2b45e8
	return	%i7 + 8
kusano 2b45e8
	clr	%o0
kusano 2b45e8
kusano 2b45e8
	EPILOGUE