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: ce3f668c99
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'ce3f668c99'
${ noResults }
OpenBLAS/kernel/alpha/swap.S

250 lines
6.2 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. 

  43. 	PROLOGUE

  44. 	PROFCODE

  45. 	.frame	$sp, 0, $26, 0

  46. 

  47. 	mov	$20, $17

  48. 	mov	$21, $18

  49. 	ldq	$19,  0($sp)

  50. 	ldl	$20,  8($sp)

  51. #ifndef PROFILE

  52. 	.prologue 0

  53. #else

  54. 	.prologue 1

  55. #endif

  56. 

  57. 	subl	$18, 1, $1

  58. 	subl	$20, 1, $2

  59. 	ble	$16,  $SubEnd		# if n <= 0 goto $End

  60. 	or	$1, $2, $1

  61. 

  62. 	sra	$16, 3, $21

  63. 

  64. 	and	$16, 7, $22

  65. 	bne	$1,  $Sub

  66. 	ble	$21, $MainRemain

  67. 	.align 4

  68. 

  69. $MainLoop:

  70. 	LD	$f10,   0*SIZE($19)

  71. 	LD	$f11,   1*SIZE($19)

  72. 	LD	$f12,   2*SIZE($19)

  73. 	LD	$f13,   3*SIZE($19)

  74. 	LD	$f14,   4*SIZE($19)

  75. 	LD	$f15,   5*SIZE($19)

  76. 	LD	$f16,   6*SIZE($19)

  77. 	LD	$f17,   7*SIZE($19)

  78. 

  79. 	LD	$f20,   0*SIZE($17)

  80. 	LD	$f21,   1*SIZE($17)

  81. 	LD	$f22,   2*SIZE($17)

  82. 	LD	$f23,   3*SIZE($17)

  83. 	LD	$f24,   4*SIZE($17)

  84. 	LD	$f25,   5*SIZE($17)

  85. 	LD	$f26,   6*SIZE($17)

  86. 	LD	$f27,   7*SIZE($17)

  87. 

  88. 	lds	$f31,  32*SIZE($17)

  89. 	unop

  90. 	lds	$f31,  32*SIZE($19)

  91. 	subl	$21, 1, $21

  92. 

  93. 	ST	$f10,   0*SIZE($17)

  94. 	ST	$f11,   1*SIZE($17)

  95. 	ST	$f12,   2*SIZE($17)

  96. 	ST	$f13,   3*SIZE($17)

  97. 	ST	$f14,   4*SIZE($17)

  98. 	ST	$f15,   5*SIZE($17)

  99. 	ST	$f16,   6*SIZE($17)

  100. 	ST	$f17,   7*SIZE($17)

  101. 

  102. 	ST	$f20,   0*SIZE($19)

  103. 	ST	$f21,   1*SIZE($19)

  104. 	ST	$f22,   2*SIZE($19)

  105. 	ST	$f23,   3*SIZE($19)

  106. 	ST	$f24,   4*SIZE($19)

  107. 	ST	$f25,   5*SIZE($19)

  108. 	ST	$f26,   6*SIZE($19)

  109. 	ST	$f27,   7*SIZE($19)

  110. 

  111. 	lda	$17,   8*SIZE($17)

  112. 	lda	$19,   8*SIZE($19)

  113. 	bgt	$21, $MainLoop

  114. 	.align 4

  115. 

  116. $MainRemain:

  117. 	ble	$22, $MainEnd

  118. 	.align 4

  119. 

  120. $MainRemainLoop:

  121. 	LD	$f10,   0*SIZE($19)

  122. 	LD	$f20,   0*SIZE($17)

  123. 	lda	$17,    1*SIZE($17)

  124. 	lda	$19,    1*SIZE($19)

  125. 	subl	$22, 1, $22

  126. 	ST	$f10,  -1*SIZE($17)

  127. 	ST	$f20,  -1*SIZE($19)

  128. 	bgt	$22, $MainRemainLoop

  129. 	.align 4

  130. 

  131. $MainEnd:

  132. 	clr	$0

  133. 	ret

  134. 	.align 4

  135. 

  136. $Sub:

  137. 	mov	$17, $23

  138. 	mov	$19, $24

  139. 

  140. 	ble	$21, $SubRemain

  141. 	.align 4

  142. 

  143. $SubLoop:

  144. 	LD	$f10,   0*SIZE($19)

  145. 	SXADDQ	$20, $19, $19

  146. 	LD	$f11,   0*SIZE($19)

  147. 	SXADDQ	$20, $19, $19

  148. 

  149. 	LD	$f12,   0*SIZE($19)

  150. 	SXADDQ	$20, $19, $19

  151. 	LD	$f13,   0*SIZE($19)

  152. 	SXADDQ	$20, $19, $19

  153. 

  154. 	LD	$f14,   0*SIZE($19)

  155. 	SXADDQ	$20, $19, $19

  156. 	LD	$f15,   0*SIZE($19)

  157. 	SXADDQ	$20, $19, $19

  158. 

  159. 	LD	$f16,   0*SIZE($19)

  160. 	SXADDQ	$20, $19, $19

  161. 	LD	$f17,   0*SIZE($19)

  162. 	SXADDQ	$20, $19, $19

  163. 

  164. 	LD	$f20,   0*SIZE($17)

  165. 	SXADDQ	$18, $17, $17

  166. 	LD	$f21,   0*SIZE($17)

  167. 	SXADDQ	$18, $17, $17

  168. 

  169. 	LD	$f22,   0*SIZE($17)

  170. 	SXADDQ	$18, $17, $17

  171. 	LD	$f23,   0*SIZE($17)

  172. 	SXADDQ	$18, $17, $17

  173. 

  174. 	LD	$f24,   0*SIZE($17)

  175. 	SXADDQ	$18, $17, $17

  176. 	LD	$f25,   0*SIZE($17)

  177. 	SXADDQ	$18, $17, $17

  178. 

  179. 	LD	$f26,   0*SIZE($17)

  180. 	SXADDQ	$18, $17, $17

  181. 	LD	$f27,   0*SIZE($17)

  182. 	SXADDQ	$18, $17, $17

  183. 

  184. 	ST	$f10,   0*SIZE($23)

  185. 	SXADDQ	$18, $23, $23

  186. 	ST	$f11,   0*SIZE($23)

  187. 	SXADDQ	$18, $23, $23

  188. 

  189. 	ST	$f12,   0*SIZE($23)

  190. 	SXADDQ	$18, $23, $23

  191. 	ST	$f13,   0*SIZE($23)

  192. 	SXADDQ	$18, $23, $23

  193. 

  194. 	ST	$f14,   0*SIZE($23)

  195. 	SXADDQ	$18, $23, $23

  196. 	ST	$f15,   0*SIZE($23)

  197. 	SXADDQ	$18, $23, $23

  198. 

  199. 	ST	$f16,   0*SIZE($23)

  200. 	SXADDQ	$18, $23, $23

  201. 	ST	$f17,   0*SIZE($23)

  202. 	SXADDQ	$18, $23, $23

  203. 

  204. 	ST	$f20,   0*SIZE($24)

  205. 	SXADDQ	$20, $24, $24

  206. 	ST	$f21,   0*SIZE($24)

  207. 	SXADDQ	$20, $24, $24

  208. 

  209. 	ST	$f22,   0*SIZE($24)

  210. 	SXADDQ	$20, $24, $24

  211. 	ST	$f23,   0*SIZE($24)

  212. 	SXADDQ	$20, $24, $24

  213. 

  214. 	ST	$f24,   0*SIZE($24)

  215. 	SXADDQ	$20, $24, $24

  216. 	ST	$f25,   0*SIZE($24)

  217. 	SXADDQ	$20, $24, $24

  218. 

  219. 	ST	$f26,   0*SIZE($24)

  220. 	SXADDQ	$20, $24, $24

  221. 	ST	$f27,   0*SIZE($24)

  222. 	SXADDQ	$20, $24, $24

  223. 

  224. 	subl	$21, 1, $21

  225. 	bgt	$21, $SubLoop

  226. 	.align 4

  227. 

  228. $SubRemain:

  229. 	ble	$22, $SubEnd

  230. 	.align 4

  231. 

  232. $SubRemainLoop:

  233. 	LD	$f10,   0*SIZE($19)

  234. 	LD	$f20,   0*SIZE($17)

  235. 

  236. 	subl	$22, 1, $22

  237. 

  238. 	ST	$f10,   0*SIZE($17)

  239. 	ST	$f20,   0*SIZE($19)

  240. 

  241. 	SXADDQ	$18, $17, $17

  242. 	SXADDQ	$20, $19, $19

  243. 	bgt	$22, $SubRemainLoop

  244. 	.align 4

  245. 

  246. $SubEnd:

  247. 	clr	$0

  248. 	ret

  249. 	EPILOGUE