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: 0e0d0bce1a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '0e0d0bce1a'
${ noResults }
OpenBLAS/kernel/mips64/rot.S

368 lines
7.3 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. #define	X	$5

  44. #define INCX	$6

  45. #define Y	$7

  46. #define INCY	$8

  47. 

  48. #define XX	$9

  49. #define YY	$10

  50. 

  51. #define C	$f17

  52. #define S	$f18

  53. 

  54. #define I	$2

  55. #define TEMP	$3

  56. 

  57. #define a1	$f4

  58. #define a2	$f5

  59. #define a3	$f6

  60. #define a4	$f7

  61. 

  62. #define b1	$f8

  63. #define b2	$f9

  64. #define b3	$f10

  65. #define b4	$f11

  66. 

  67. #define t1	$f0

  68. #define t2	$f1

  69. #define t3	$f2

  70. #define t4	$f3

  71. 

  72. 	PROLOGUE

  73. 

  74. 	dsll	INCX, INCX, BASE_SHIFT

  75. 	li	TEMP, SIZE

  76. 

  77. 	blez	N, .L999

  78. 	dsll	INCY, INCY, BASE_SHIFT

  79. 

  80. 	bne	INCX, TEMP, .L20

  81. 	dsra	I, N, 2

  82. 

  83. 	bne	INCY, TEMP, .L20

  84. 	NOP

  85. 

  86. 	blez	I, .L15

  87. 	daddiu	I, I, -1

  88. 

  89. 	LD	a1,  0 * SIZE(X)

  90. 	LD	b1,  0 * SIZE(Y)

  91. 	LD	a2,  1 * SIZE(X)

  92. 	LD	b2,  1 * SIZE(Y)

  93. 

  94. 	LD	a3,  2 * SIZE(X)

  95. 	LD	b3,  2 * SIZE(Y)

  96. 	MUL	t1, S, b1

  97. 

  98. 	LD	a4,  3 * SIZE(X)

  99. 	MUL	t2, C, b1

  100. 	LD	b4,  3 * SIZE(Y)

  101. 	MUL	t3, S, b2

  102. 

  103. 	blez	I, .L13

  104. 	MUL	t4, C, b2

  105. 	.align 3

  106. 

  107. .L12:

  108. 	MADD	t1, t1, C, a1

  109. 	LD	b1,  4 * SIZE(Y)

  110. 	NMSUB	t2, t2, S, a1

  111. 	LD	a1,  4 * SIZE(X)

  112. 	MADD	t3, t3, C, a2

  113. 	LD	b2,  5 * SIZE(Y)

  114. 	NMSUB	t4, t4, S, a2

  115. 	LD	a2,  5 * SIZE(X)

  116. 

  117. 	ST	t1,  0 * SIZE(X)

  118. 	MUL	t1, S, b3

  119. 	ST	t2,  0 * SIZE(Y)

  120. 	MUL	t2, C, b3

  121. 	ST	t3,  1 * SIZE(X)

  122. 	MUL	t3, S, b4

  123. 	ST	t4,  1 * SIZE(Y)

  124. 	MUL	t4, C, b4

  125. 

  126. 

  127. 	MADD	t1, t1, C, a3

  128. 	LD	b3,  6 * SIZE(Y)

  129. 	NMSUB	t2, t2, S, a3

  130. 	LD	a3,  6 * SIZE(X)

  131. 	MADD	t3, t3, C, a4

  132. 	LD	b4,  7 * SIZE(Y)

  133. 	NMSUB	t4, t4, S, a4

  134. 	LD	a4,  7 * SIZE(X)

  135. 

  136. 	ST	t1,  2 * SIZE(X)

  137. 	MUL	t1, S, b1

  138. 	ST	t2,  2 * SIZE(Y)

  139. 	MUL	t2, C, b1

  140. 	ST	t3,  3 * SIZE(X)

  141. 	MUL	t3, S, b2

  142. 	ST	t4,  3 * SIZE(Y)

  143. 	MUL	t4, C, b2

  144. 

  145. 	daddiu	I, I, -1

  146. 	daddiu	X, X, 4 * SIZE

  147. 

  148. 	bgtz	I, .L12

  149. 	daddiu	Y, Y, 4 * SIZE

  150. 	.align 3

  151. 

  152. .L13:

  153. 	MADD	t1, t1, C, a1

  154. 	NMSUB	t2, t2, S, a1

  155. 	MADD	t3, t3, C, a2

  156. 	NMSUB	t4, t4, S, a2

  157. 

  158. 	ST	t1,  0 * SIZE(X)

  159. 	MUL	t1, S, b3

  160. 	ST	t2,  0 * SIZE(Y)

  161. 	MUL	t2, C, b3

  162. 	ST	t3,  1 * SIZE(X)

  163. 	MUL	t3, S, b4

  164. 	ST	t4,  1 * SIZE(Y)

  165. 	MUL	t4, C, b4

  166. 

  167. 	MADD	t1, t1, C, a3

  168. 	NMSUB	t2, t2, S, a3

  169. 	MADD	t3, t3, C, a4

  170. 	daddiu	X, X, 4 * SIZE

  171. 	NMSUB	t4, t4, S, a4

  172. 	daddiu	Y, Y, 4 * SIZE

  173. 

  174. 	ST	t1, -2 * SIZE(X)

  175. 	ST	t2, -2 * SIZE(Y)

  176. 	ST	t3, -1 * SIZE(X)

  177. 	ST	t4, -1 * SIZE(Y)

  178. 	.align 3

  179. 

  180. .L15:

  181. 	andi	I,  N, 3

  182. 

  183. 	blez	I, .L999

  184. 	NOP

  185. 	.align	3

  186. 

  187. .L16:

  188. 	LD	a1,  0 * SIZE(X)

  189. 	LD	b1,  0 * SIZE(Y)

  190. 

  191. 	MUL	t1, S, b1

  192. 	MUL	t2, C, b1

  193. 

  194. 	MADD	t1, t1, C, a1

  195. 	NMSUB	t2, t2, S, a1

  196. 

  197. 	ST	t1,  0 * SIZE(X)

  198. 	ST	t2,  0 * SIZE(Y)

  199. 

  200. 	daddiu I, I, -1

  201. 

  202. 	daddiu	X, X, SIZE

  203. 	daddiu	Y, Y, SIZE

  204. 

  205. 	bgtz	I, .L16

  206. 	NOP

  207. 	j	.L999

  208. 	NOP

  209. 	.align 3

  210. 

  211. .L20:

  212. 	move	XX, X

  213. 	move	YY, Y

  214. 

  215. 	blez	I, .L25

  216. 	daddiu	I, I, -1

  217. 

  218. 	LD	a1,  0 * SIZE(X)

  219. 	dadd	X, X, INCX

  220. 	LD	b1,  0 * SIZE(Y)

  221. 	dadd	Y, Y, INCY

  222. 

  223. 	LD	a2,  0 * SIZE(X)

  224. 	dadd	X, X, INCX

  225. 	LD	b2,  0 * SIZE(Y)

  226. 	dadd	Y, Y, INCY

  227. 

  228. 	LD	a3,  0 * SIZE(X)

  229. 	dadd	X, X, INCX

  230. 	LD	b3,  0 * SIZE(Y)

  231. 	dadd	Y, Y, INCY

  232. 

  233. 	MUL	t1, S, b1

  234. 

  235. 	LD	a4,  0 * SIZE(X)

  236. 	dadd	X, X, INCX

  237. 	MUL	t2, C, b1

  238. 	LD	b4,  0 * SIZE(Y)

  239. 	dadd	Y, Y, INCY

  240. 

  241. 	MUL	t3, S, b2

  242. 	blez	I, .L23

  243. 	MUL	t4, C, b2

  244. 	.align 3

  245. 

  246. .L22:

  247. 	MADD	t1, t1, C, a1

  248. 	LD	b1,  0 * SIZE(Y)

  249. 	dadd	Y, Y, INCY

  250. 	NMSUB	t2, t2, S, a1

  251. 	LD	a1,  0 * SIZE(X)

  252. 	dadd	X, X, INCX

  253. 	MADD	t3, t3, C, a2

  254. 	LD	b2,  0 * SIZE(Y)

  255. 	dadd	Y, Y, INCY

  256. 	NMSUB	t4, t4, S, a2

  257. 	LD	a2,  0 * SIZE(X)

  258. 	dadd	X, X, INCX

  259. 

  260. 	ST	t1,  0 * SIZE(XX)

  261. 	dadd	XX, XX, INCX

  262. 	MUL	t1, S, b3

  263. 	ST	t2,  0 * SIZE(YY)

  264. 	dadd	YY, YY, INCY

  265. 	MUL	t2, C, b3

  266. 	ST	t3,  0 * SIZE(XX)

  267. 	dadd	XX, XX, INCX

  268. 	MUL	t3, S, b4

  269. 	ST	t4,  0 * SIZE(YY)

  270. 	dadd	YY, YY, INCY

  271. 	MUL	t4, C, b4

  272. 

  273. 	MADD	t1, t1, C, a3

  274. 	LD	b3,  0 * SIZE(Y)

  275. 	dadd	Y, Y, INCY

  276. 	NMSUB	t2, t2, S, a3

  277. 	LD	a3,  0 * SIZE(X)

  278. 	dadd	X, X, INCX

  279. 	MADD	t3, t3, C, a4

  280. 	LD	b4,  0 * SIZE(Y)

  281. 	dadd	Y, Y, INCY

  282. 	NMSUB	t4, t4, S, a4

  283. 	LD	a4,  0 * SIZE(X)

  284. 	dadd	X, X, INCX

  285. 

  286. 	ST	t1,  0 * SIZE(XX)

  287. 	dadd	XX, XX, INCX

  288. 	MUL	t1, S, b1

  289. 	ST	t2,  0 * SIZE(YY)

  290. 	dadd	YY, YY, INCY

  291. 	MUL	t2, C, b1

  292. 	ST	t3,  0 * SIZE(XX)

  293. 	dadd	XX, XX, INCX

  294. 	MUL	t3, S, b2

  295. 	ST	t4,  0 * SIZE(YY)

  296. 	MUL	t4, C, b2

  297. 	daddiu	I, I, -1

  298. 

  299. 	bgtz	I, .L22

  300. 	dadd	YY, YY, INCY

  301. 	.align 3

  302. 

  303. .L23:

  304. 	MADD	t1, t1, C, a1

  305. 	NMSUB	t2, t2, S, a1

  306. 	MADD	t3, t3, C, a2

  307. 	NMSUB	t4, t4, S, a2

  308. 

  309. 	ST	t1,  0 * SIZE(XX)

  310. 	dadd	XX, XX, INCX

  311. 	MUL	t1, S, b3

  312. 	ST	t2,  0 * SIZE(YY)

  313. 	dadd	YY, YY, INCY

  314. 	MUL	t2, C, b3

  315. 	ST	t3,  0 * SIZE(XX)

  316. 	dadd	XX, XX, INCX

  317. 	MUL	t3, S, b4

  318. 	ST	t4,  0 * SIZE(YY)

  319. 	dadd	YY, YY, INCY

  320. 	MUL	t4, C, b4

  321. 

  322. 	MADD	t1, t1, C, a3

  323. 	NMSUB	t2, t2, S, a3

  324. 	MADD	t3, t3, C, a4

  325. 	NMSUB	t4, t4, S, a4

  326. 

  327. 	ST	t1,  0 * SIZE(XX)

  328. 	dadd	XX, XX, INCX

  329. 	ST	t2,  0 * SIZE(YY)

  330. 	dadd	YY, YY, INCY

  331. 	ST	t3,  0 * SIZE(XX)

  332. 	dadd	XX, XX, INCX

  333. 	ST	t4,  0 * SIZE(YY)

  334. 	dadd	YY, YY, INCY

  335. 	.align 3

  336. 

  337. .L25:

  338. 	andi	I,  N, 3

  339. 

  340. 	blez	I, .L999

  341. 	NOP

  342. 	.align	3

  343. 

  344. .L26:

  345. 	LD	a1,  0 * SIZE(X)

  346. 	LD	b1,  0 * SIZE(Y)

  347. 

  348. 	MUL	t1, S, b1

  349. 	MUL	t2, C, b1

  350. 

  351. 	MADD	t1, t1, C, a1

  352. 	daddiu	I, I, -1

  353. 	NMSUB	t2, t2, S, a1

  354. 

  355. 	ST	t1,  0 * SIZE(X)

  356. 	ST	t2,  0 * SIZE(Y)

  357. 

  358. 	dadd	X, X, INCX

  359. 	bgtz	I, .L26

  360. 	dadd	Y, Y, INCY

  361. 	.align 3

  362. 

  363. .L999:

  364. 	j	$31

  365. 	NOP

  366. 

  367. 	EPILOGUE