OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
You can not select more than 25 topics Topics must start with a chinese character,a letter or number, can include dashes ('-') and can be up to 35 characters long.
Tree: 722e4ae07a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '722e4ae07a'
${ noResults }
OpenBLAS/kernel/mips64/scal.S

417 lines
7.7 kB
Raw Blame History 

  1. /*********************************************************************/

  2. /* Copyright 2009, 2010 The University of Texas at Austin.           */

  3. /* All rights reserved.                                              */

  4. /*                                                                   */

  5. /* Redistribution and use in source and binary forms, with or        */

  6. /* without modification, are permitted provided that the following   */

  7. /* conditions are met:                                               */

  8. /*                                                                   */

  9. /*   1. Redistributions of source code must retain the above         */

  10. /*      copyright notice, this list of conditions and the following  */

  11. /*      disclaimer.                                                  */

  12. /*                                                                   */

  13. /*   2. Redistributions in binary form must reproduce the above      */

  14. /*      copyright notice, this list of conditions and the following  */

  15. /*      disclaimer in the documentation and/or other materials       */

  16. /*      provided with the distribution.                              */

  17. /*                                                                   */

  18. /*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */

  19. /*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */

  20. /*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */

  21. /*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */

  22. /*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */

  23. /*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */

  24. /*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */

  25. /*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */

  26. /*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */

  27. /*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */

  28. /*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */

  29. /*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */

  30. /*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */

  31. /*    POSSIBILITY OF SUCH DAMAGE.                                    */

  32. /*                                                                   */

  33. /* The views and conclusions contained in the software and           */

  34. /* documentation are those of the authors and should not be          */

  35. /* interpreted as representing official policies, either expressed   */

  36. /* or implied, of The University of Texas at Austin.                 */

  37. /*********************************************************************/

  38. 

  39. #define ASSEMBLER

  40. #include "common.h"

  41. 

  42. #define N	$4

  43. 

  44. #define X	$8

  45. #define INCX	$9

  46. 

  47. #define I	$2

  48. #define TEMP	$3

  49. 

  50. #define XX	$5

  51. #define DUMMY2 	$6

  52. 

  53. #define ALPHA	$f15

  54. 

  55. #define a1	$f0

  56. #define a2	$f1

  57. #define a3	$f2

  58. #define a4	$f3

  59. #define a5	$f4

  60. #define a6	$f5

  61. #define a7	$f6

  62. #define a8	$f7

  63. 

  64. #define t1	$f8

  65. #define t2	$f9

  66. #define t3	$f10

  67. #define t4	$f11

  68. 

  69. 	PROLOGUE

  70. 

  71. 	li	TEMP, SIZE

  72. 	MTC	$0,  a1

  73. 

  74. 	blez	N, .L999

  75. 	dsll	INCX, INCX, BASE_SHIFT

  76. 

  77. 	CMPEQ	$fcc0,  ALPHA, a1

  78. 	LDARG   DUMMY2, 8($sp)

  79. 

  80. 	bc1f	$fcc0, .L50

  81. 	dsll    DUMMY2, DUMMY2, BASE_SHIFT

  82. 

  83. 	beq     DUMMY2, TEMP, .L50 // If dummy2 == 1, do not directly copy 0

  84. 	NOP

  85. 

  86. 	bne	INCX, TEMP, .L20

  87. 	dsra	I, N, 3

  88. 

  89. 	blez	I, .L15

  90. 	NOP

  91. 	.align 3

  92. 

  93. .L12:

  94. 	ST	a1,  0 * SIZE(X)

  95. 	ST	a1,  1 * SIZE(X)

  96. 	ST	a1,  2 * SIZE(X)

  97. 	ST	a1,  3 * SIZE(X)

  98. 	ST	a1,  4 * SIZE(X)

  99. 	ST	a1,  5 * SIZE(X)

  100. 	ST	a1,  6 * SIZE(X)

  101. 	ST	a1,  7 * SIZE(X)

  102. 	addiu	I, I, -1

  103. 

  104. 	bgtz	I, .L12

  105. 	daddiu	X, X, 8 * SIZE

  106. 	.align 3

  107. 

  108. .L15:

  109. 	andi	I,  N, 7

  110. 

  111. 	blez	I, .L999

  112. 	NOP

  113. 	.align	3

  114. 

  115. .L16:

  116. 	ST	a1,  0 * SIZE(X)

  117. 	daddiu	I, I, -1

  118. 

  119. 	bgtz	I, .L16

  120. 	daddiu	X, X, SIZE

  121. 

  122. 	j	$31

  123. 	NOP

  124. 	.align 3

  125. 

  126. .L20:

  127. 	dsra	I, N, 3

  128. 	blez	I, .L25

  129. 	NOP

  130. 	.align 3

  131. 

  132. .L22:

  133. 	ST	a1,  0 * SIZE(X)

  134. 	daddu	X, X, INCX

  135. 	ST	a1,  0 * SIZE(X)

  136. 	daddu	X, X, INCX

  137. 	ST	a1,  0 * SIZE(X)

  138. 	daddu	X, X, INCX

  139. 	ST	a1,  0 * SIZE(X)

  140. 	daddu	X, X, INCX

  141. 

  142. 	ST	a1,  0 * SIZE(X)

  143. 	daddu	X, X, INCX

  144. 	ST	a1,  0 * SIZE(X)

  145. 	daddu	X, X, INCX

  146. 	ST	a1,  0 * SIZE(X)

  147. 	daddu	X, X, INCX

  148. 	ST	a1,  0 * SIZE(X)

  149. 	daddiu	I, I, -1

  150. 

  151. 	bgtz	I, .L22

  152. 	daddu	X, X, INCX

  153. 	.align 3

  154. 

  155. .L25:

  156. 	andi	I,  N, 7

  157. 

  158. 	blez	I, .L999

  159. 	NOP

  160. 	.align	3

  161. 

  162. .L26:

  163. 	daddiu	I, I, -1

  164. 	ST	a1,  0 * SIZE(X)

  165. 

  166. 	bgtz	I, .L26

  167. 	daddu	X, X, INCX

  168. 

  169. 	j	$31

  170. 	NOP

  171. 	.align 3

  172. 

  173. .L50:

  174. 	bne	INCX, TEMP, .L60

  175. 	dsra	I, N, 3

  176. 

  177. 	blez	I, .L55

  178. 	daddiu	I, I, -1

  179. 

  180. 	LD	a1,  0 * SIZE(X)

  181. 	LD	a2,  1 * SIZE(X)

  182. 	LD	a3,  2 * SIZE(X)

  183. 	LD	a4,  3 * SIZE(X)

  184. 	LD	a5,  4 * SIZE(X)

  185. 	LD	a6,  5 * SIZE(X)

  186. 	LD	a7,  6 * SIZE(X)

  187. 	LD	a8,  7 * SIZE(X)

  188. 

  189. 	blez	I, .L53

  190. 	NOP

  191. 	.align 3

  192. 

  193. .L52:

  194. 	MUL	t1, ALPHA, a1

  195. 	LD	a1,  8 * SIZE(X)

  196. 	MUL	t2, ALPHA, a2

  197. 	LD	a2,  9 * SIZE(X)

  198. 

  199. 	MUL	t3, ALPHA, a3

  200. 	LD	a3, 10 * SIZE(X)

  201. 	MUL	t4, ALPHA, a4

  202. 	LD	a4, 11 * SIZE(X)

  203. 

  204. 	ST	t1,  0 * SIZE(X)

  205. 	MUL	t1, ALPHA, a5

  206. 

  207. 	LD	a5, 12 * SIZE(X)

  208. 

  209. 	ST	t2,  1 * SIZE(X)

  210. 	MUL	t2, ALPHA, a6

  211. 

  212. 	LD	a6, 13 * SIZE(X)

  213. 

  214. 	ST	t3,  2 * SIZE(X)

  215. 	MUL	t3, ALPHA, a7

  216. 

  217. 	LD	a7, 14 * SIZE(X)

  218. 

  219. 	ST	t4,  3 * SIZE(X)

  220. 	MUL	t4, ALPHA, a8

  221. 

  222. 	LD	a8, 15 * SIZE(X)

  223. 	daddiu	I, I, -1

  224. 

  225. 	ST	t1,  4 * SIZE(X)

  226. 	ST	t2,  5 * SIZE(X)

  227. 	ST	t3,  6 * SIZE(X)

  228. 	ST	t4,  7 * SIZE(X)

  229. 

  230. 	bgtz	I, .L52

  231. 	daddiu	X, X, 8 * SIZE

  232. 	.align 3

  233. 

  234. .L53:

  235. 	MUL	t1, ALPHA, a1

  236. 	MUL	t2, ALPHA, a2

  237. 	MUL	t3, ALPHA, a3

  238. 	MUL	t4, ALPHA, a4

  239. 

  240. 	ST	t1,  0 * SIZE(X)

  241. 	MUL	t1, ALPHA, a5

  242. 	ST	t2,  1 * SIZE(X)

  243. 	MUL	t2, ALPHA, a6

  244. 

  245. 	ST	t3,  2 * SIZE(X)

  246. 	MUL	t3, ALPHA, a7

  247. 	ST	t4,  3 * SIZE(X)

  248. 	MUL	t4, ALPHA, a8

  249. 

  250. 	ST	t1,  4 * SIZE(X)

  251. 	ST	t2,  5 * SIZE(X)

  252. 	ST	t3,  6 * SIZE(X)

  253. 	ST	t4,  7 * SIZE(X)

  254. 

  255. 	daddiu	X, X, 8 * SIZE

  256. 	.align 3

  257. 

  258. .L55:

  259. 	andi	I,  N, 7

  260. 

  261. 	blez	I, .L999

  262. 	NOP

  263. 	.align	3

  264. 

  265. .L56:

  266. 	LD	a1,  0 * SIZE(X)

  267. 

  268. 	MUL	t1, ALPHA, a1

  269. 

  270. 	daddiu	X, X, SIZE

  271. 	daddiu	I, I, -1

  272. 

  273. 	bgtz	I, .L56

  274. 	ST	t1, -1 * SIZE(X)

  275. 

  276. 	j	$31

  277. 	NOP

  278. 	.align 3

  279. 

  280. .L60:

  281. 	dsra	I, N, 3

  282. 	move	XX, X

  283. 

  284. 	blez	I, .L65

  285. 	daddiu	I, I, -1

  286. 

  287. 	LD	a1,  0 * SIZE(X)

  288. 	daddu	X, X, INCX

  289. 	LD	a2,  0 * SIZE(X)

  290. 	daddu	X, X, INCX

  291. 	LD	a3,  0 * SIZE(X)

  292. 	daddu	X, X, INCX

  293. 	LD	a4,  0 * SIZE(X)

  294. 	daddu	X, X, INCX

  295. 	LD	a5,  0 * SIZE(X)

  296. 	daddu	X, X, INCX

  297. 	LD	a6,  0 * SIZE(X)

  298. 	daddu	X, X, INCX

  299. 	LD	a7,  0 * SIZE(X)

  300. 	daddu	X, X, INCX

  301. 	LD	a8,  0 * SIZE(X)

  302. 	daddu	X, X, INCX

  303. 

  304. 	blez	I, .L63

  305. 	NOP

  306. 	.align 3

  307. 

  308. .L62:

  309. 	MUL	t1, ALPHA, a1

  310. 	LD	a1,  0 * SIZE(X)

  311. 	daddu	X, X, INCX

  312. 

  313. 	MUL	t2, ALPHA, a2

  314. 	LD	a2,  0 * SIZE(X)

  315. 	daddu	X, X, INCX

  316. 

  317. 	MUL	t3, ALPHA, a3

  318. 	LD	a3,  0 * SIZE(X)

  319. 	daddu	X, X, INCX

  320. 

  321. 	MUL	t4, ALPHA, a4

  322. 	LD	a4,  0 * SIZE(X)

  323. 	daddu	X, X, INCX

  324. 

  325. 	ST	t1,  0 * SIZE(XX)

  326. 	daddu	XX, XX, INCX

  327. 	ST	t2,  0 * SIZE(XX)

  328. 	daddu	XX, XX, INCX

  329. 	ST	t3,  0 * SIZE(XX)

  330. 	daddu	XX, XX, INCX

  331. 	ST	t4,  0 * SIZE(XX)

  332. 	daddu	XX, XX, INCX

  333. 

  334. 	MUL	t1, ALPHA, a5

  335. 	LD	a5,  0 * SIZE(X)

  336. 	daddu	X, X, INCX

  337. 

  338. 	MUL	t2, ALPHA, a6

  339. 	LD	a6,  0 * SIZE(X)

  340. 	daddu	X, X, INCX

  341. 

  342. 	MUL	t3, ALPHA, a7

  343. 	LD	a7,  0 * SIZE(X)

  344. 	daddu	X, X, INCX

  345. 

  346. 	MUL	t4, ALPHA, a8

  347. 	LD	a8,  0 * SIZE(X)

  348. 	daddu	X, X, INCX

  349. 

  350. 	ST	t1,  0 * SIZE(XX)

  351. 	daddu	XX, XX, INCX

  352. 	ST	t2,  0 * SIZE(XX)

  353. 	daddu	XX, XX, INCX

  354. 	ST	t3,  0 * SIZE(XX)

  355. 	daddu	XX, XX, INCX

  356. 	ST	t4,  0 * SIZE(XX)

  357. 	daddiu	I, I, -1

  358. 

  359. 	bgtz	I, .L62

  360. 	daddu	XX, XX, INCX

  361. 	.align 3

  362. 

  363. .L63:

  364. 	MUL	t1, ALPHA, a1

  365. 	MUL	t2, ALPHA, a2

  366. 	MUL	t3, ALPHA, a3

  367. 	MUL	t4, ALPHA, a4

  368. 

  369. 	ST	t1,  0 * SIZE(XX)

  370. 	daddu	XX, XX, INCX

  371. 	ST	t2,  0 * SIZE(XX)

  372. 	daddu	XX, XX, INCX

  373. 	ST	t3,  0 * SIZE(XX)

  374. 	daddu	XX, XX, INCX

  375. 	ST	t4,  0 * SIZE(XX)

  376. 	daddu	XX, XX, INCX

  377. 

  378. 	MUL	t1, ALPHA, a5

  379. 	MUL	t2, ALPHA, a6

  380. 	MUL	t3, ALPHA, a7

  381. 	MUL	t4, ALPHA, a8

  382. 

  383. 	ST	t1,  0 * SIZE(XX)

  384. 	daddu	XX, XX, INCX

  385. 	ST	t2,  0 * SIZE(XX)

  386. 	daddu	XX, XX, INCX

  387. 	ST	t3,  0 * SIZE(XX)

  388. 	daddu	XX, XX, INCX

  389. 	ST	t4,  0 * SIZE(XX)

  390. 	daddu	XX, XX, INCX

  391. 	.align 3

  392. 

  393. .L65:

  394. 	andi	I,  N, 7

  395. 

  396. 	blez	I, .L999

  397. 	NOP

  398. 	.align	3

  399. 

  400. .L66:

  401. 	LD	a1,  0 * SIZE(X)

  402. 

  403. 	MUL	t1, ALPHA, a1

  404. 

  405. 	daddiu	I, I, -1

  406. 	ST	t1,  0 * SIZE(X)

  407. 

  408. 	bgtz	I, .L66

  409. 	daddu	X, X, INCX

  410. 	.align 3

  411. 

  412. .L999:

  413. 	j	$31

  414. 	NOP

  415. 

  416. 	EPILOGUE