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

669 lines
11 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	%i0

  43. #define X	%i1

  44. #define INCX	%i2

  45. #define Y	%i3

  46. #define INCY	%i4

  47. #define I	%i5

  48. 

  49. #define XX	%l0

  50. #define YY	%l1

  51. 

  52. #ifdef DOUBLE

  53. #define a1	%f4

  54. #define a2	%f6

  55. #define a3	%f8

  56. #define a4	%f10

  57. #define a5	%f12

  58. #define a6	%f14

  59. #define a7	%f16

  60. #define a8	%f18

  61. #define b1	%f20

  62. #define b2	%f22

  63. #define b3	%f24

  64. #define b4	%f26

  65. #define b5	%f28

  66. #define b6	%f30

  67. #define b7	%f32

  68. #define b8	%f34

  69. 

  70. #define c1	%f36

  71. #define c2	%f38

  72. #define c3	%f40

  73. #define c4	%f42

  74. #define c5	%f44

  75. #define c6	%f46

  76. #define c7	%f48

  77. #define c8	%f50

  78. 

  79. #define t1	%f52

  80. #define t2	%f54

  81. #define t3	%f56

  82. #define t4	%f58

  83. #else

  84. #define a1	%f2

  85. #define a2	%f3

  86. #define a3	%f4

  87. #define a4	%f5

  88. #define a5	%f6

  89. #define a6	%f7

  90. #define a7	%f8

  91. #define a8	%f9

  92. #define b1	%f10

  93. #define b2	%f11

  94. #define b3	%f12

  95. #define b4	%f13

  96. #define b5	%f14

  97. #define b6	%f15

  98. #define b7	%f16

  99. #define b8	%f17

  100. 

  101. #define c1	%f18

  102. #define c2	%f19

  103. #define c3	%f20

  104. #define c4	%f21

  105. #define c5	%f22

  106. #define c6	%f23

  107. #define c7	%f24

  108. #define c8	%f25

  109. 

  110. #define t1	%f26

  111. #define t2	%f27

  112. #define t3	%f28

  113. #define t4	%f29

  114. #endif

  115. 

  116. #ifdef DOUBLE

  117. #define C	%f0

  118. #define S	%f2

  119. #else

  120. #define C	%f0

  121. #define S	%f1

  122. #endif

  123. 

  124. 	PROLOGUE

  125. 	SAVESP

  126. 

  127. #ifndef __64BIT__

  128. 

  129. #ifdef DOUBLE

  130. 	st	%i5, [%sp + STACK_START + 24]

  131. 

  132. 	LDF	[%sp + STACK_START + 24], C

  133. 	LDF	[%sp + STACK_START + 32], S

  134. #else

  135. 	st	%i5, [%sp + STACK_START + 24]

  136. 

  137. 	LDF	[%sp + STACK_START + 24], C

  138. 	LDF	[%sp + STACK_START + 28], S

  139. #endif

  140. #else

  141. #ifdef DOUBLE

  142. 	FMOV	%f10, C

  143. 	FMOV	%f12, S

  144. #else

  145. 	FMOV	%f11, C

  146. 	FMOV	%f13, S

  147. #endif

  148. #endif

  149. 

  150. 	cmp	N, 0

  151. 	ble	.LL19

  152. 	nop

  153. 

  154. 	sll	INCX, BASE_SHIFT, INCX

  155. 	sll	INCY, BASE_SHIFT, INCY

  156. 

  157. 	cmp	INCX, SIZE

  158. 	bne	.LL50

  159. 	nop

  160. 

  161. 	cmp	INCY, SIZE

  162. 	bne	.LL50

  163. 	nop

  164. 

  165. 	sra	N, 3, I

  166. 	cmp	I, 0

  167. 	ble,pn	%icc, .LL15

  168. 	nop

  169. 

  170. 

  171. 	LDF	[X +  0 * SIZE], a1

  172. 	LDF	[Y +  0 * SIZE], b1

  173. 	LDF	[X +  1 * SIZE], a2

  174. 	LDF	[Y +  1 * SIZE], b2

  175. 	LDF	[X +  2 * SIZE], a3

  176. 	LDF	[Y +  2 * SIZE], b3

  177. 	LDF	[X +  3 * SIZE], a4

  178. 	LDF	[Y +  3 * SIZE], b4

  179. 

  180. 	LDF	[X +  4 * SIZE], a5

  181. 	LDF	[Y +  4 * SIZE], b5

  182. 	LDF	[X +  5 * SIZE], a6

  183. 	LDF	[Y +  5 * SIZE], b6

  184. 	LDF	[X +  6 * SIZE], a7

  185. 	LDF	[Y +  6 * SIZE], b7

  186. 	LDF	[X +  7 * SIZE], a8

  187. 	LDF	[Y +  7 * SIZE], b8

  188. 

  189. 	FMUL	C, a1, c1

  190. 	FMUL	S, b1, c2

  191. 	FMUL	C, b1, c3

  192. 	LDF	[Y +  8 * SIZE], b1

  193. 	FMUL	S, a1, c4

  194. 	LDF	[X +  8 * SIZE], a1

  195. 

  196. 	FMUL	C, a2, c5

  197. 	FMUL	S, b2, c6

  198. 	FADD	c1, c2, t1

  199. 

  200. 	FMUL	C, b2, c7

  201. 	LDF	[Y +  9 * SIZE], b2

  202. 	FMUL	S, a2, c8

  203. 	LDF	[X +  9 * SIZE], a2

  204. 	FSUB	c3, c4, t2

  205. 

  206. 	addcc	I, -1, I

  207. 	ble,pt	%icc, .LL12

  208. 	nop

  209. 

  210. #define PREFETCHSIZE 64

  211. 

  212. .LL11:

  213. 	FMUL	C, a3, c1

  214. 	nop

  215. 	prefetch [Y  + PREFETCHSIZE * SIZE], 1

  216. 	nop

  217. 

  218. 	FMUL	S, b3, c2

  219. 	STF	t1, [X +  0 * SIZE]

  220. 	FADD	c5, c6, t3

  221. 	nop

  222. 

  223. 	FMUL	C, b3, c3

  224. 	LDF	[Y + 10 * SIZE], b3

  225. 	nop

  226. 	nop

  227. 

  228. 	FMUL	S, a3, c4

  229. 	STF	t2, [Y +  0 * SIZE]

  230. 	FSUB	c7, c8, t4

  231. 	nop

  232. 

  233. 	FMUL	C, a4, c5

  234. 	LDF	[X + 10 * SIZE], a3

  235. 	nop

  236. 	nop

  237. 

  238. 	FMUL	S, b4, c6

  239. 	STF	t3, [X +  1 * SIZE]

  240. 	FADD	c1, c2, t1

  241. 	nop

  242. 

  243. 	FMUL	C, b4, c7

  244. 	LDF	[Y + 11 * SIZE], b4

  245. 	nop

  246. 	nop

  247. 

  248. 	FMUL	S, a4, c8

  249. 	STF	t4, [Y +  1 * SIZE]

  250. 	FSUB	c3, c4, t2

  251. 	nop

  252. 

  253. 	FMUL	C, a5, c1

  254. 	LDF	[X + 11 * SIZE], a4

  255. 	nop

  256. 	nop

  257. 

  258. 	FMUL	S, b5, c2

  259. 	STF	t1, [X +  2 * SIZE]

  260. 	FADD	c5, c6, t3

  261. 	nop

  262. 

  263. 	FMUL	C, b5, c3

  264. 	LDF	[Y + 12 * SIZE], b5

  265. 	nop

  266. 	nop

  267. 

  268. 	FMUL	S, a5, c4

  269. 	STF	t2, [Y +  2 * SIZE]

  270. 	FSUB	c7, c8, t4

  271. 	nop

  272. 

  273. 	FMUL	C, a6, c5

  274. 	LDF	[X + 12 * SIZE], a5

  275. 	nop

  276. 	nop

  277. 

  278. 	FMUL	S, b6, c6

  279. 	STF	t3, [X +  3 * SIZE]

  280. 	FADD	c1, c2, t1

  281. 	nop

  282. 

  283. 	FMUL	C, b6, c7

  284. 	LDF	[Y + 13 * SIZE], b6

  285. 	nop

  286. 	nop

  287. 

  288. 	FMUL	S, a6, c8

  289. 	STF	t4, [Y +  3 * SIZE]

  290. 	FSUB	c3, c4, t2

  291. 	nop

  292. 

  293. 	FMUL	C, a7, c1

  294. 	LDF	[X + 13 * SIZE], a6

  295. 	nop

  296. 	nop

  297. 

  298. 	FMUL	S, b7, c2

  299. 	STF	t1, [X +  4 * SIZE]

  300. 	FADD	c5, c6, t3

  301. 	nop

  302. 

  303. 	FMUL	C, b7, c3

  304. 	LDF	[Y + 14 * SIZE], b7

  305. 	nop

  306. 	nop

  307. 

  308. 	FMUL	S, a7, c4

  309. 	STF	t2, [Y +  4 * SIZE]

  310. 	FSUB	c7, c8, t4

  311. 	nop

  312. 

  313. 	FMUL	C, a8, c5

  314. 	LDF	[X + 14 * SIZE], a7

  315. 	nop

  316. 	nop

  317. 

  318. 	FMUL	S, b8, c6

  319. 	STF	t3, [X +  5 * SIZE]

  320. 	FADD	c1, c2, t1

  321. 	nop

  322. 

  323. 	FMUL	C, b8, c7

  324. 	LDF	[Y + 15 * SIZE], b8

  325. 	nop

  326. 	nop

  327. 

  328. 	FMUL	S, a8, c8

  329. 	STF	t4, [Y +  5 * SIZE]

  330. 	FSUB	c3, c4, t2

  331. 	nop

  332. 

  333. 	FMUL	C, a1, c1

  334. 	LDF	[X + 15 * SIZE], a8

  335. 	addcc	I, -1, I

  336. 	nop

  337. 

  338. 	FMUL	S, b1, c2

  339. 	STF	t1, [X +  6 * SIZE]

  340. 	FADD	c5, c6, t3

  341. 	nop

  342. 

  343. 	FMUL	C, b1, c3

  344. 	LDF	[Y + 16 * SIZE], b1

  345. 	nop

  346. 	nop

  347. 

  348. 	FMUL	S, a1, c4

  349. 	STF	t2, [Y +  6 * SIZE]

  350. 	FSUB	c7, c8, t4

  351. 	nop

  352. 

  353. 	FMUL	C, a2, c5

  354. 	LDF	[X + 16 * SIZE], a1

  355. 	add	Y, 8 * SIZE, Y

  356. 	nop

  357. 

  358. 	FMUL	S, b2, c6

  359. 	STF	t3, [X +  7 * SIZE]

  360. 	FADD	c1, c2, t1

  361. 	nop

  362. 

  363. 	FMUL	C, b2, c7

  364. 	LDF	[Y +  9 * SIZE], b2

  365. 	add	X, 8 * SIZE, X

  366. 	nop

  367. 

  368. 	FMUL	S, a2, c8

  369. 	STF	t4, [Y -  1 * SIZE]

  370. 	FSUB	c3, c4, t2

  371. 	nop

  372. 

  373. 	bg,pt	%icc, .LL11

  374. 	LDF	[X +  9 * SIZE], a2

  375. 

  376. 

  377. .LL12:

  378. 	FMUL	C, a3, c1

  379. 	FMUL	S, b3, c2

  380. 	STF	t1, [X +  0 * SIZE]

  381. 	FADD	c5, c6, t3

  382. 

  383. 	FMUL	C, b3, c3

  384. 	FMUL	S, a3, c4

  385. 	STF	t2, [Y +  0 * SIZE]

  386. 	FSUB	c7, c8, t4

  387. 

  388. 

  389. 	FMUL	C, a4, c5

  390. 	FMUL	S, b4, c6

  391. 	STF	t3, [X +  1 * SIZE]

  392. 	FADD	c1, c2, t1

  393. 

  394. 	FMUL	C, b4, c7

  395. 	FMUL	S, a4, c8

  396. 	STF	t4, [Y +  1 * SIZE]

  397. 	FSUB	c3, c4, t2

  398. 

  399. 

  400. 	FMUL	C, a5, c1

  401. 	FMUL	S, b5, c2

  402. 	STF	t1, [X +  2 * SIZE]

  403. 	FADD	c5, c6, t3

  404. 

  405. 	FMUL	C, b5, c3

  406. 	FMUL	S, a5, c4

  407. 	STF	t2, [Y +  2 * SIZE]

  408. 	FSUB	c7, c8, t4

  409. 

  410. 	FMUL	C, a6, c5

  411. 	FMUL	S, b6, c6

  412. 	STF	t3, [X +  3 * SIZE]

  413. 	FADD	c1, c2, t1

  414. 

  415. 	FMUL	C, b6, c7

  416. 	FMUL	S, a6, c8

  417. 	STF	t4, [Y +  3 * SIZE]

  418. 	FSUB	c3, c4, t2

  419. 

  420. 	FMUL	C, a7, c1

  421. 	FMUL	S, b7, c2

  422. 	STF	t1, [X +  4 * SIZE]

  423. 	FADD	c5, c6, t3

  424. 

  425. 	FMUL	C, b7, c3

  426. 	FMUL	S, a7, c4

  427. 	STF	t2, [Y +  4 * SIZE]

  428. 	FSUB	c7, c8, t4

  429. 

  430. 	FMUL	C, a8, c5

  431. 	FMUL	S, b8, c6

  432. 	STF	t3, [X +  5 * SIZE]

  433. 	FADD	c1, c2, t1

  434. 

  435. 	FMUL	C, b8, c7

  436. 	FMUL	S, a8, c8

  437. 	STF	t4, [Y +  5 * SIZE]

  438. 	FSUB	c3, c4, t2

  439. 

  440. 	FADD	c5, c6, t3

  441. 	STF	t1, [X +  6 * SIZE]

  442. 

  443. 	FSUB	c7, c8, t4

  444. 	STF	t2, [Y +  6 * SIZE]

  445. 

  446. 	STF	t3, [X +  7 * SIZE]

  447. 	STF	t4, [Y +  7 * SIZE]

  448. 

  449. 	add	X, 8 * SIZE, X

  450. 	add	Y, 8 * SIZE, Y

  451. 

  452. 

  453. .LL15:

  454. 	andcc	N, 7, I

  455. 	nop

  456. 	ble,a,pn %icc, .LL19

  457. 	nop

  458. 

  459. .LL16:

  460. 	LDF	[X + 0 * SIZE], a1

  461. 	add	X, 1 * SIZE, X

  462. 	LDF	[Y + 0 * SIZE], b1

  463. 	add	Y, 1 * SIZE, Y

  464. 

  465. 	FMUL	C, a1, c1

  466. 	FMUL	S, b1, c2

  467. 	FMUL	C, b1, c3

  468. 	FMUL	S, a1, c4

  469. 

  470. 	FADD	c1, c2, c2

  471. 	addcc	I, -1, I

  472. 	FSUB	c3, c4, c4

  473. 	nop

  474. 

  475. 	STF	c2, [X - 1 * SIZE]

  476. 	STF	c4, [Y - 1 * SIZE]

  477. 	bg,pt	%icc, .LL16

  478. 	nop

  479. 

  480. .LL19:

  481. 	return	%i7 + 8

  482. 	nop

  483. 

  484. .LL50:

  485. 	mov	X, XX

  486. 	mov	Y, YY

  487. 

  488. 	sra	N, 3, I

  489. 	cmp	I, 0

  490. 	ble,pn	%icc, .LL55

  491. 	nop

  492. 

  493. .LL51:

  494. 	LDF	[X +  0 * SIZE], a1

  495. 	add	X, INCX, X

  496. 	LDF	[Y +  0 * SIZE], b1

  497. 	add	Y, INCY, Y

  498. 	LDF	[X +  0 * SIZE], a2

  499. 	add	X, INCX, X

  500. 	LDF	[Y +  0 * SIZE], b2

  501. 	add	Y, INCY, Y

  502. 	LDF	[X +  0 * SIZE], a3

  503. 	add	X, INCX, X

  504. 	LDF	[Y +  0 * SIZE], b3

  505. 	add	Y, INCY, Y

  506. 	LDF	[X +  0 * SIZE], a4

  507. 	add	X, INCX, X

  508. 	LDF	[Y +  0 * SIZE], b4

  509. 	add	Y, INCY, Y

  510. 

  511. 	LDF	[X +  0 * SIZE], a5

  512. 	add	X, INCX, X

  513. 	LDF	[Y +  0 * SIZE], b5

  514. 	add	Y, INCY, Y

  515. 	LDF	[X +  0 * SIZE], a6

  516. 	add	X, INCX, X

  517. 	LDF	[Y +  0 * SIZE], b6

  518. 	add	Y, INCY, Y

  519. 	LDF	[X +  0 * SIZE], a7

  520. 	add	X, INCX, X

  521. 	LDF	[Y +  0 * SIZE], b7

  522. 	add	Y, INCY, Y

  523. 	LDF	[X +  0 * SIZE], a8

  524. 	add	X, INCX, X

  525. 	LDF	[Y +  0 * SIZE], b8

  526. 	add	Y, INCY, Y

  527. 

  528. 	FMUL	C, a1, c1

  529. 	FMUL	S, b1, c2

  530. 	FMUL	C, b1, c3

  531. 	FMUL	S, a1, c4

  532. 

  533. 	FADD	c1, c2, t1

  534. 	FSUB	c3, c4, t2

  535. 

  536. 	STF	t1, [XX +  0 * SIZE]

  537. 	add	XX, INCX, XX

  538. 	STF	t2, [YY +  0 * SIZE]

  539. 	add	YY, INCY, YY

  540. 

  541. 	FMUL	C, a2, c5

  542. 	FMUL	S, b2, c6

  543. 	FMUL	C, b2, c7

  544. 	FMUL	S, a2, c8

  545. 

  546. 	FADD	c5, c6, t3

  547. 	FSUB	c7, c8, t4

  548. 

  549. 	STF	t3, [XX +  0 * SIZE]

  550. 	add	XX, INCX, XX

  551. 	STF	t4, [YY +  0 * SIZE]

  552. 	add	YY, INCY, YY

  553. 

  554. 	FMUL	C, a3, c1

  555. 	FMUL	S, b3, c2

  556. 	FMUL	C, b3, c3

  557. 	FMUL	S, a3, c4

  558. 

  559. 	FADD	c1, c2, t1

  560. 	FSUB	c3, c4, t2

  561. 

  562. 	STF	t1, [XX +  0 * SIZE]

  563. 	add	XX, INCX, XX

  564. 	STF	t2, [YY +  0 * SIZE]

  565. 	add	YY, INCY, YY

  566. 

  567. 	FMUL	C, a4, c5

  568. 	FMUL	S, b4, c6

  569. 	FMUL	C, b4, c7

  570. 	FMUL	S, a4, c8

  571. 

  572. 	FADD	c5, c6, t3

  573. 	FSUB	c7, c8, t4

  574. 

  575. 	STF	t3, [XX +  0 * SIZE]

  576. 	add	XX, INCX, XX

  577. 	STF	t4, [YY +  0 * SIZE]

  578. 	add	YY, INCY, YY

  579. 

  580. 	FMUL	C, a5, c1

  581. 	FMUL	S, b5, c2

  582. 	FMUL	C, b5, c3

  583. 	FMUL	S, a5, c4

  584. 

  585. 	FADD	c1, c2, t1

  586. 	FSUB	c3, c4, t2

  587. 

  588. 	STF	t1, [XX +  0 * SIZE]

  589. 	add	XX, INCX, XX

  590. 	STF	t2, [YY +  0 * SIZE]

  591. 	add	YY, INCY, YY

  592. 

  593. 	FMUL	C, a6, c5

  594. 	FMUL	S, b6, c6

  595. 	FMUL	C, b6, c7

  596. 	FMUL	S, a6, c8

  597. 

  598. 	FADD	c5, c6, t3

  599. 	FSUB	c7, c8, t4

  600. 

  601. 	STF	t3, [XX +  0 * SIZE]

  602. 	add	XX, INCX, XX

  603. 	STF	t4, [YY +  0 * SIZE]

  604. 	add	YY, INCY, YY

  605. 

  606. 	FMUL	C, a7, c1

  607. 	FMUL	S, b7, c2

  608. 	FMUL	C, b7, c3

  609. 	FMUL	S, a7, c4

  610. 

  611. 	FADD	c1, c2, t1

  612. 	FSUB	c3, c4, t2

  613. 

  614. 	STF	t1, [XX +  0 * SIZE]

  615. 	add	XX, INCX, XX

  616. 	STF	t2, [YY +  0 * SIZE]

  617. 	add	YY, INCY, YY

  618. 

  619. 	FMUL	C, a8, c5

  620. 	FMUL	S, b8, c6

  621. 	FMUL	C, b8, c7

  622. 	FMUL	S, a8, c8

  623. 

  624. 	FADD	c5, c6, t3

  625. 	FSUB	c7, c8, t4

  626. 

  627. 	STF	t3, [XX +  0 * SIZE]

  628. 	add	XX, INCX, XX

  629. 	STF	t4, [YY +  0 * SIZE]

  630. 	add	YY, INCY, YY

  631. 

  632. 	addcc	I, -1, I

  633. 	bg,pt	%icc, .LL51

  634. 	nop

  635. 

  636. 

  637. .LL55:

  638. 	andcc	N, 7, I

  639. 	nop

  640. 	ble	%icc, .LL59

  641. 	nop

  642. 

  643. .LL56:

  644. 	LDF	[X +  0 * SIZE], a1

  645. 	LDF	[Y +  0 * SIZE], b1

  646. 

  647. 	FMUL	C, a1, c1

  648. 	FMUL	S, b1, c2

  649. 	FMUL	C, b1, c3

  650. 	FMUL	S, a1, c4

  651. 

  652. 	FADD	c1, c2, c2

  653. 	FSUB	c3, c4, c4

  654. 

  655. 	STF	c2, [X +  0 * SIZE]

  656. 	add	X, INCX, X

  657. 	STF	c4, [Y +  0 * SIZE]

  658. 	addcc	I, -1, I

  659. 

  660. 	bg	%icc, .LL56

  661. 	add	Y, INCY, Y

  662. 

  663. 

  664. .LL59:

  665. 	return	%i7 + 8

  666. 	nop

  667. 

  668. 	EPILOGUE