📄 daxpy.s
字号:
/*********************************************************************//* *//* Optimized BLAS libraries *//* By Kazushige Goto <kgoto@tacc.utexas.edu> *//* *//* Copyright (c) The University of Texas, 2005. All rights reserved. *//* UNIVERSITY EXPRESSLY DISCLAIMS ANY AND ALL WARRANTIES CONCERNING *//* THIS SOFTWARE AND DOCUMENTATION, INCLUDING ANY WARRANTIES OF *//* MERCHANTABILITY, FITNESS FOR ANY PARTICULAR PURPOSE, *//* NON-INFRINGEMENT AND WARRANTIES OF PERFORMANCE, AND ANY WARRANTY *//* THAT MIGHT OTHERWISE ARISE FROM COURSE OF DEALING OR USAGE OF *//* TRADE. NO WARRANTY IS EITHER EXPRESS OR IMPLIED WITH RESPECT TO *//* THE USE OF THE SOFTWARE OR DOCUMENTATION. *//* Under no circumstances shall University be liable for incidental, *//* special, indirect, direct or consequential damages or loss of *//* profits, interruption of business, or related expenses which may *//* arise from use of Software or Documentation, including but not *//* limited to those resulting from defects in Software and/or *//* Documentation, or loss or inaccuracy of data of any kind. *//*********************************************************************/#define ASSEMBLER#include "common.h"#define PREFETCHSIZE (16 * 16)#define N r32#define X1 r36#define INCX r37#define Y1 r38#define INCY r39#define PREX r2#define PREY r3#define I r14#define J r15#define X2 r16#define Y2 r17#define YY1 r18#define YY2 r19#define INCX16 r20#define INCY16 r21#define X3 r26#define YY r27#define PR r30#define ARLC r31 #define ALPHA f8 PROLOGUE PROFCODE .prologue { .mmi shladd INCX = INCX, BASE_SHIFT, r0 shladd INCY = INCY, BASE_SHIFT, r0 .save ar.lc, ARLC mov ARLC = ar.lc } { .mib cmp.lt p0, p6 = r0, N tbit.nz p10, p0 = Y1, BASE_SHIFT (p6) br.ret.dpnt.many b0 } ;; .body { .mmi (p10) LDFD f32 = [X1], INCX (p10) LDFD f33 = [Y1] mov PR = pr } { .mmi (p10) adds N = -1, N mov YY = Y1 (p10) add Y1 = Y1, INCY } ;; { .mmi mov YY1 = Y1 shladd YY2 = INCY, 1, Y1 mov pr.rot= 0 } { .mmi sub r8 = X1, Y1 mov r9 = 0xf0 nop __LINE__ } ;; { .mmi cmp.ne p6, p0 = SIZE, INCX cmp.ne p7, p0 = SIZE, INCY tbit.nz p8, p0 = X1, BASE_SHIFT } { .mbb and J = 15, N (p6) br.cond.dpnt .L100 (p7) br.cond.dpnt .L100 } ;; { .mfi cmp.eq p16, p0 = r0, r0 (p10) FMA f9 = ALPHA, f32, f33 shr I = N, 4 } { .mmb add X3 = X1, INCX and r8 = r9, r8 (p8) br.cond.dpnt.many .L30 } ;; { .mmi cmp.eq p11, p0 = r0, J adds I = -1, I mov ar.ec = 3 } { .mib cmp.lt p9, p0 = 127, r8 tbit.nz p12, p0 = N, 3 (p9) br.cond.dpnt.many .L20 } ;; { .mmi (p10) STFD [YY] = f9 cmp.eq p7 ,p0 = -1, I mov ar.lc = I } { .mib adds PREX = (PREFETCHSIZE + 2) * SIZE, X1 adds PREY = (PREFETCHSIZE + 2) * SIZE, Y1 (p7) br.cond.dpnt .L15 } ;; .align 32.L12: { .mmf (p18) STFD [YY1] = f6, 1 * SIZE (p18) STFD [YY2] = f7, 1 * SIZE (p18) FMA f6 = ALPHA, f58, f106 } { .mmf (p16) lfetch.fault.nt1 [PREX], 16 * SIZE (p16) LDFPD f32, f35 = [X1], 2 * SIZE (p18) FMA f7 = ALPHA, f64, f112 } ;; { .mmf (p18) STFD [YY1] = f10, 3 * SIZE (p18) STFD [YY2] = f11, 3 * SIZE (p18) FMA f10 = ALPHA, f61, f109 } { .mmf (p16) LDFPD f38, f41 = [X1], 2 * SIZE (p16) LDFPD f80, f83 = [Y1], 2 * SIZE (p18) FMA f11 = ALPHA, f67, f115 } ;; { .mmf (p18) STFD [YY1] = f12, 1 * SIZE (p18) STFD [YY2] = f13, 1 * SIZE (p18) FMA f12 = ALPHA, f70, f118 } { .mmf (p16) LDFPD f44, f47 = [X1], 2 * SIZE (p16) LDFPD f86, f89 = [Y1], 2 * SIZE (p18) FMA f13 = ALPHA, f76, f124 } ;; { .mmf (p18) STFD [YY1] = f14, 3 * SIZE (p18) STFD [YY2] = f15, 3 * SIZE (p18) FMA f14 = ALPHA, f73, f121 } { .mmf (p16) LDFPD f50, f53 = [X1], 2 * SIZE (p16) LDFPD f92, f95 = [Y1], 2 * SIZE (p18) FMA f15 = ALPHA, f79, f127 } ;; { .mmf (p18) STFD [YY1] = f6, 1 * SIZE (p18) STFD [YY2] = f7, 1 * SIZE (p17) FMA f6 = ALPHA, f33, f81 } { .mmf (p16) LDFPD f56, f59 = [X1], 2 * SIZE (p16) LDFPD f98, f101 = [Y1], 2 * SIZE (p17) FMA f7 = ALPHA, f39, f87 } ;; { .mmf (p18) STFD [YY1] = f10, 3 * SIZE (p18) STFD [YY2] = f11, 3 * SIZE (p17) FMA f10 = ALPHA, f36, f84 } { .mmf (p16) LDFPD f62, f65 = [X1], 2 * SIZE (p16) LDFPD f104, f107 = [Y1], 2 * SIZE (p17) FMA f11 = ALPHA, f42, f90 } ;; { .mmf (p18) STFD [YY1] = f12, 1 * SIZE (p18) STFD [YY2] = f13, 1 * SIZE (p17) FMA f12 = ALPHA, f45, f93 } { .mmf (p16) LDFPD f68, f71 = [X1], 2 * SIZE (p16) LDFPD f110, f113 = [Y1], 2 * SIZE (p17) FMA f13 = ALPHA, f51, f99 } ;; { .mmf (p18) STFD [YY1] = f14, 3 * SIZE (p18) STFD [YY2] = f15, 3 * SIZE (p17) FMA f14 = ALPHA, f48, f96 } { .mmf (p16) LDFPD f74, f77 = [X1], 2 * SIZE (p16) LDFPD f116, f119 = [Y1], 2 * SIZE (p17) FMA f15 = ALPHA, f54, f102 } ;; { .mmi (p16) lfetch.fault.excl.nt1 [PREY], 16 * SIZE (p16) LDFPD f122, f125 = [Y1], 2 * SIZE nop __LINE__ } { .mmb nop __LINE__ nop __LINE__ br.ctop.sptk.few .L12 } ;; .align 32.L15: { .mmi (p12) LDFPD f32, f33 = [X1], 2 * SIZE (p12) LDFPD f34, f35 = [Y1], 2 * SIZE mov pr = PR, -65474 } ;; { .mmi (p12) LDFPD f36, f37 = [X1], 2 * SIZE (p12) LDFPD f38, f39 = [Y1], 2 * SIZE mov ar.lc = ARLC } ;; { .mmb (p12) LDFPD f40, f41 = [X1], 2 * SIZE (p12) LDFPD f42, f43 = [Y1], 2 * SIZE (p11) br.ret.dpnt.many b0 } ;; { .mmi (p12) LDFPD f44, f45 = [X1], 2 * SIZE (p12) LDFPD f46, f47 = [Y1], 2 * SIZE tbit.nz p13, p0 = N, 2 } ;; { .mmi (p13) LDFPD f48, f49 = [X1], 2 * SIZE (p13) LDFPD f50, f51 = [Y1], 2 * SIZE tbit.nz p14, p0 = N, 1 } ;; { .mmi (p13) LDFPD f52, f53 = [X1], 2 * SIZE (p13) LDFPD f54, f55 = [Y1], 2 * SIZE tbit.nz p15, p0 = N, 0 } ;; { .mmi (p14) LDFPD f56, f57 = [X1], 2 * SIZE (p14) LDFPD f58, f59 = [Y1], 2 * SIZE nop __LINE__ } ;; { .mmi (p15) LDFD f60 = [X1] (p15) LDFD f61 = [Y1] nop __LINE__ } ;; (p12) FMA f6 = ALPHA, f32, f34 (p12) FMA f7 = ALPHA, f36, f38 (p12) FMA f10 = ALPHA, f33, f35 (p12) FMA f11 = ALPHA, f37, f39 (p12) FMA f12 = ALPHA, f40, f42 (p12) FMA f13 = ALPHA, f44, f46 (p12) FMA f14 = ALPHA, f41, f43 (p12) FMA f15 = ALPHA, f45, f47 ;; { .mmf (p12) STFD [YY1] = f6, 1 * SIZE (p12) STFD [YY2] = f7, 1 * SIZE (p13) FMA f6 = ALPHA, f48, f50 } { .mmf nop __LINE__ nop __LINE__ (p13) FMA f7 = ALPHA, f52, f54 } ;; { .mmf (p12) STFD [YY1] = f10, 3 * SIZE (p12) STFD [YY2] = f11, 3 * SIZE (p13) FMA f10 = ALPHA, f49, f51 } { .mmf nop __LINE__ nop __LINE__ (p13) FMA f11 = ALPHA, f53, f55 } ;; { .mmf (p12) STFD [YY1] = f12, 1 * SIZE (p12) STFD [YY2] = f13, 1 * SIZE (p14) FMA f12 = ALPHA, f56, f58 } ;; { .mmf (p12) STFD [YY1] = f14, 3 * SIZE (p12) STFD [YY2] = f15, 3 * SIZE (p14) FMA f13 = ALPHA, f57, f59 } ;; { .mmf (p13) STFD [YY1] = f6, 1 * SIZE (p13) STFD [YY2] = f7, 1 * SIZE (p15) FMA f14 = ALPHA, f60, f61 } ;; { .mmi (p13) STFD [YY1] = f10, 3 * SIZE (p13) STFD [YY2] = f11, 3 * SIZE } ;; { .mmi (p14) STFD [YY1] = f12, 1 * SIZE ;; (p14) STFD [YY1] = f13, 1 * SIZE nop __LINE__ } ;; { .mmb (p15) STFD [YY1] = f14 nop __LINE__ br.ret.sptk.many b0 } ;; .align 32.L20: { .mmi (p10) STFD [YY] = f9 cmp.eq p7 ,p0 = -1, I mov ar.lc = I } { .mib adds PREX = (PREFETCHSIZE - 4) * SIZE, X1 adds PREY = (PREFETCHSIZE + 2) * SIZE, Y1 (p7) br.cond.dpnt .L25 } ;; .align 32.L22: { .mmf (p18) STFD [YY1] = f6, 1 * SIZE (p18) STFD [YY2] = f7, 1 * SIZE (p18) FMA f6 = ALPHA, f58, f106 } { .mmf (p16) lfetch.fault.nt1 [PREX], 16 * SIZE (p17) LDFPD f57, f60 = [X1], 2 * SIZE (p18) FMA f7 = ALPHA, f64, f112 } ;; { .mmf (p18) STFD [YY1] = f10, 3 * SIZE (p18) STFD [YY2] = f11, 3 * SIZE (p18) FMA f10 = ALPHA, f61, f109 } { .mmf (p16) lfetch.fault.excl.nt1 [PREY], 16 * SIZE (p16) LDFPD f80, f83 = [Y1], 2 * SIZE (p18) FMA f11 = ALPHA, f67, f115 } ;; { .mmf (p18) STFD [YY1] = f12, 1 * SIZE (p18) STFD [YY2] = f13, 1 * SIZE (p18) FMA f12 = ALPHA, f70, f118 } { .mmf (p17) LDFPD f63, f66 = [X1], 2 * SIZE (p16) LDFPD f86, f89 = [Y1], 2 * SIZE (p18) FMA f13 = ALPHA, f76, f124 } ;; { .mmf (p18) STFD [YY1] = f14, 3 * SIZE (p18) STFD [YY2] = f15, 3 * SIZE (p18) FMA f14 = ALPHA, f73, f121 } { .mmf (p17) LDFPD f69, f72 = [X1], 2 * SIZE (p16) LDFPD f92, f95 = [Y1], 2 * SIZE (p18) FMA f15 = ALPHA, f79, f127 } ;; { .mmf (p18) STFD [YY1] = f6, 1 * SIZE (p18) STFD [YY2] = f7, 1 * SIZE (p17) FMA f6 = ALPHA, f33, f81 } { .mmf (p17) LDFPD f75, f78 = [X1], 2 * SIZE (p16) LDFPD f98, f101 = [Y1], 2 * SIZE (p17) FMA f7 = ALPHA, f39, f87 } ;; { .mmf (p18) STFD [YY1] = f10, 3 * SIZE (p18) STFD [YY2] = f11, 3 * SIZE (p17) FMA f10 = ALPHA, f36, f84 } { .mmf (p16) LDFPD f32, f35 = [X1], 2 * SIZE (p16) LDFPD f104, f107 = [Y1], 2 * SIZE (p17) FMA f11 = ALPHA, f42, f90 } ;; { .mmf (p18) STFD [YY1] = f12, 1 * SIZE (p18) STFD [YY2] = f13, 1 * SIZE (p17) FMA f12 = ALPHA, f45, f93 } { .mmf (p16) LDFPD f38, f41 = [X1], 2 * SIZE (p16) LDFPD f110, f113 = [Y1], 2 * SIZE (p17) FMA f13 = ALPHA, f51, f99 } ;; { .mmf (p18) STFD [YY1] = f14, 3 * SIZE (p18) STFD [YY2] = f15, 3 * SIZE (p17) FMA f14 = ALPHA, f48, f96 } { .mmf (p16) LDFPD f44, f47 = [X1], 2 * SIZE (p16) LDFPD f116, f119 = [Y1], 2 * SIZE (p17) FMA f15 = ALPHA, f54, f102 } ;; { .mmi (p16) LDFPD f50, f53 = [X1], 2 * SIZE (p16) LDFPD f122, f125 = [Y1], 2 * SIZE nop __LINE__ } { .mmb nop __LINE__ nop __LINE__ br.ctop.sptk.few .L22 } ;; .align 32.L25: { .mmi (p12) LDFPD f32, f33 = [X1], 2 * SIZE (p12) LDFPD f34, f35 = [Y1], 2 * SIZE mov pr = PR, -65474 } ;; { .mmi (p12) LDFPD f36, f37 = [X1], 2 * SIZE (p12) LDFPD f38, f39 = [Y1], 2 * SIZE mov ar.lc = ARLC } ;; { .mmb (p12) LDFPD f40, f41 = [X1], 2 * SIZE (p12) LDFPD f42, f43 = [Y1], 2 * SIZE (p11) br.ret.dpnt.many b0 } ;; { .mmi (p12) LDFPD f44, f45 = [X1], 2 * SIZE (p12) LDFPD f46, f47 = [Y1], 2 * SIZE tbit.nz p13, p0 = N, 2 } ;; { .mmi (p13) LDFPD f48, f49 = [X1], 2 * SIZE (p13) LDFPD f50, f51 = [Y1], 2 * SIZE tbit.nz p14, p0 = N, 1 } ;; { .mmi (p13) LDFPD f52, f53 = [X1], 2 * SIZE (p13) LDFPD f54, f55 = [Y1], 2 * SIZE tbit.nz p15, p0 = N, 0 } ;; { .mmi (p14) LDFPD f56, f57 = [X1], 2 * SIZE (p14) LDFPD f58, f59 = [Y1], 2 * SIZE nop __LINE__ } ;; { .mmi (p15) LDFD f60 = [X1] (p15) LDFD f61 = [Y1] nop __LINE__ } ;; (p12) FMA f6 = ALPHA, f32, f34 (p12) FMA f7 = ALPHA, f36, f38 (p12) FMA f10 = ALPHA, f33, f35 (p12) FMA f11 = ALPHA, f37, f39 (p12) FMA f12 = ALPHA, f40, f42 (p12) FMA f13 = ALPHA, f44, f46 (p12) FMA f14 = ALPHA, f41, f43 (p12) FMA f15 = ALPHA, f45, f47 ;; { .mmf (p12) STFD [YY1] = f6, 1 * SIZE (p12) STFD [YY2] = f7, 1 * SIZE (p13) FMA f6 = ALPHA, f48, f50 } { .mmf nop __LINE__ nop __LINE__ (p13) FMA f7 = ALPHA, f52, f54 } ;; { .mmf (p12) STFD [YY1] = f10, 3 * SIZE (p12) STFD [YY2] = f11, 3 * SIZE (p13) FMA f10 = ALPHA, f49, f51 } { .mmf nop __LINE__ nop __LINE__ (p13) FMA f11 = ALPHA, f53, f55 } ;; { .mmf (p12) STFD [YY1] = f12, 1 * SIZE (p12) STFD [YY2] = f13, 1 * SIZE (p14) FMA f12 = ALPHA, f56, f58 } ;; { .mmf (p12) STFD [YY1] = f14, 3 * SIZE (p12) STFD [YY2] = f15, 3 * SIZE (p14) FMA f13 = ALPHA, f57, f59 } ;; { .mmf (p13) STFD [YY1] = f6, 1 * SIZE (p13) STFD [YY2] = f7, 1 * SIZE (p15) FMA f14 = ALPHA, f60, f61 } ;; { .mmi (p13) STFD [YY1] = f10, 3 * SIZE (p13) STFD [YY2] = f11, 3 * SIZE } ;; { .mmi (p14) STFD [YY1] = f12, 1 * SIZE ;; (p14) STFD [YY1] = f13, 1 * SIZE nop __LINE__ } ;; { .mmb (p15) STFD [YY1] = f14 nop __LINE__ br.ret.sptk.many b0 } ;; .align 32.L30: { .mmi cmp.eq p11, p0 = r0, J adds I = -1, I mov ar.ec = 3 } { .mib cmp.lt p9, p0 = 127, r8 tbit.nz p12, p0 = N, 3 (p9) br.cond.dptk.many .L40 } ;; { .mmi (p10) STFD [YY] = f9 cmp.eq p7 ,p0 = -1, I mov ar.lc = I } { .mib adds PREX = (PREFETCHSIZE + 2) * SIZE, X1 adds PREY = (PREFETCHSIZE + 2) * SIZE, Y1 (p7) br.cond.dpnt .L35 } ;; .align 32.L32: { .mmf (p18) STFD [YY1] = f6, 1 * SIZE (p18) STFD [YY2] = f7, 1 * SIZE (p18) FMA f6 = ALPHA, f58, f106 } { .mmf (p16) lfetch.fault.nt1 [PREX], 16 * SIZE (p16) LDFD f32 = [X1], 1 * SIZE (p18) FMA f7 = ALPHA, f64, f112 } ;; { .mmf (p18) STFD [YY1] = f10, 3 * SIZE (p18) STFD [YY2] = f11, 3 * SIZE (p18) FMA f10 = ALPHA, f61, f109 } { .mmf (p16) LDFPD f35, f38 = [X1], 2 * SIZE (p16) LDFPD f80, f83 = [Y1], 2 * SIZE (p18) FMA f11 = ALPHA, f67, f115 } ;; { .mmf (p18) STFD [YY1] = f12, 1 * SIZE (p18) STFD [YY2] = f13, 1 * SIZE (p18) FMA f12 = ALPHA, f70, f118 } { .mmf (p16) LDFPD f41, f44 = [X1], 2 * SIZE (p16) LDFPD f86, f89 = [Y1], 2 * SIZE (p18) FMA f13 = ALPHA, f76, f124 } ;; { .mmf (p18) STFD [YY1] = f14, 3 * SIZE (p18) STFD [YY2] = f15, 3 * SIZE (p18) FMA f14 = ALPHA, f73, f121 } { .mmf (p16) LDFPD f47, f50 = [X1], 2 * SIZE (p16) LDFPD f92, f95 = [Y1], 2 * SIZE (p18) FMA f15 = ALPHA, f79, f127 } ;; { .mmf (p18) STFD [YY1] = f6, 1 * SIZE (p18) STFD [YY2] = f7, 1 * SIZE (p17) FMA f6 = ALPHA, f33, f81 } { .mmf (p16) LDFPD f53, f56 = [X1], 2 * SIZE (p16) LDFPD f98, f101 = [Y1], 2 * SIZE (p17) FMA f7 = ALPHA, f39, f87 } ;; { .mmf (p18) STFD [YY1] = f10, 3 * SIZE (p18) STFD [YY2] = f11, 3 * SIZE (p17) FMA f10 = ALPHA, f36, f84 } { .mmf (p16) LDFPD f59, f62 = [X1], 2 * SIZE (p16) LDFPD f104, f107 = [Y1], 2 * SIZE (p17) FMA f11 = ALPHA, f42, f90 } ;; { .mmf (p18) STFD [YY1] = f12, 1 * SIZE (p18) STFD [YY2] = f13, 1 * SIZE (p17) FMA f12 = ALPHA, f45, f93 } { .mmf (p16) LDFPD f65, f68 = [X1], 2 * SIZE (p16) LDFPD f110, f113 = [Y1], 2 * SIZE (p17) FMA f13 = ALPHA, f51, f99 } ;; { .mmf (p18) STFD [YY1] = f14, 3 * SIZE (p18) STFD [YY2] = f15, 3 * SIZE (p17) FMA f14 = ALPHA, f48, f96 } { .mmf (p16) LDFPD f71, f74 = [X1], 2 * SIZE (p16) LDFPD f116, f119 = [Y1], 2 * SIZE (p17) FMA f15 = ALPHA, f54, f102 } ;; { .mmi (p16) lfetch.fault.excl.nt1 [PREY], 16 * SIZE (p16) LDFPD f122, f125 = [Y1], 2 * SIZE adds X3 = 1 * SIZE, X1 } { .mmb (p16) LDFD f77 = [X1], 1 * SIZE nop __LINE__ br.ctop.sptk.few .L32 } ;; .align 32.L35: { .mmi (p12) LDFPD f33, f36 = [X3] (p12) LDFPD f34, f35 = [Y1], 2 * SIZE mov pr = PR, -65474 } { .mmi (p12) LDFD f32 = [X1], 3 * SIZE (p12) adds X3 = 8 * SIZE, X3 nop __LINE__ } ;; { .mmi (p12) LDFPD f37, f40 = [X1], 2 * SIZE (p12) LDFPD f38, f39 = [Y1], 2 * SIZE mov ar.lc = ARLC } ;; { .mmb (p12) LDFPD f41, f44 = [X1], 2 * SIZE (p12) LDFPD f42, f43 = [Y1], 2 * SIZE (p11) br.ret.dpnt.many b0 } ;; { .mmi (p12) LDFD f45 = [X1], 1 * SIZE (p12) LDFPD f46, f47 = [Y1], 2 * SIZE tbit.nz p13, p0 = N, 2 }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -