开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 嵌入式/单片机编程 > VxWorks > 查看源码
fparc32.s
资源名称：vxwork_src.rar　[点击查看]
上传用户：nvosite88
上传日期：2007-01-17
资源大小：4983k
文件大小：21k
源码类别：

VxWorks

开发平台：

C/C++

fparc32.s：源码内容
  1. /* fparc32.s - VxWorks conversion from Microtek tools to Sun native */
  3. /* Copyright 1984-1992 Wind River Systems, Inc. */
  5. /*
  6. modification history
  7. --------------------
  8. 01b,10nov92,jwt  fixed register use error in fpexatan().
  9. 01a,06aug92,jwt  converted.
  10. */
  12. /*
  13. ! ! ! ! !
  14. ! SPARClite Floating Point Library
  15. !
  16. ! Copyright (C) 1992 By
  17. ! United States Software Corporation
  18. ! 14215 N.W. Science Park Drive
  19. ! Portland, Oregon 97229
  20. !
  21. ! This software is furnished under a license and may be used
  22. ! and copied only in accordance with the terms of such license
  23. ! and with the inclusion of the above copyright notice.
  24. ! This software or any other copies thereof may not be provided
  25. ! or otherwise made available to any other person.  No title to
  26. ! and ownership of the software is hereby transferred.
  27. !
  28. ! The information in this software is subject to change without 
  29. ! notice and should not be construed as a commitment by United
  30. ! States Software Corporation.
  31. !
  32. ! First Release: V1.02 March 26 1992
  33. ! ! ! ! !
  35. .macro scan,p1,p2,p3
  36. .word 0x81602000 | (&p3<<25) | (&p1<<14) | p2
  37. .endm
  38. .macro umul,p1,p2,p3
  39. .word 0x80500000 | (&p3<<25) | (&p1<<14) | &p2
  40. .endm
  41. .macro divscc,p1,p2,p3
  42. .word 0x80e80000 | (&p3<<25) | (&p1<<14) | &p2
  43. .endm
  44. */
  46. #include "arch/sparc/ussSun4.h"
  48. .global _fpexsqrt
  50. .data
  51. .align 4
  53. atntaf: .word 0x0,0x0
  54. .word 0xffeaaddd,0x79
  55. .word 0xffaaddb9,0x7a
  56. .word 0xbf70c130,0x7b
  57. .word 0xfeadd4d5,0x7b
  58. .word 0x9eb77746,0x7c
  59. .word 0xbdcbda5e,0x7c
  60. .word 0xdc86ba95,0x7c
  61. .word 0xfadbafc9,0x7c
  62. .word 0x8c5fad18,0x7d
  63. .word 0x9b13b9b8,0x7d
  64. .word 0xa9856ccb,0x7d
  65. .word 0xb7b0ca0f,0x7d
  66. .word 0xc59269ca,0x7d
  67. .word 0xd327761e,0x7d
  68. .word 0xe06da64a,0x7d
  69. .word 0xed63382b,0x7d
  70. .word 0xfa06e85b,0x7d
  71. .word 0x832bf4a7,0x7e
  72. .word 0x892aece0,0x7e
  73. .word 0x8f005d5f,0x7e
  74. .word 0x94ac72c9,0x7e
  75. .word 0x9a2f80e6,0x7e
  76. .word 0x9f89fdc5,0x7e
  77. .word 0xa4bc7d19,0x7e
  78. .word 0xa9c7abdc,0x7e
  79. .word 0xaeac4c39,0x7e
  80. .word 0xb36b31c9,0x7e
  81. .word 0xb8053e2c,0x7e
  82. .word 0xbc7b5deb,0x7e
  83. .word 0xc0ce85b9,0x7e
  84. .word 0xc4ffaffb,0x7e
  86. .text
  87. .align 4
  89. .global _fpexatan
  90. _fpexatan:
  91. save %sp,-96,%sp
  93. subcc   %i1,0x7f,%g0
  94. bl      i1             
  95. subcc   %i1,0,%i1
  96. bneg    Azer     
  97. NOP
  98. sub     %g0,%i1,%i1
  99. add     %i1,0xfd,%i1
  100. sethi   %hi(0x80000000),%l3
  101. subcc   %i0,%l3,%g0
  102. bne     i2             
  103. subcc   %i1,0x7e,%g0
  104. bne     i3       
  105. NOP
  106. ba      e2       
  107. or      %g0,-1,%i0
  108. i3: ba      e2       
  109. add     %i1,1,%i1
  110. i2: or      %g0,%i0,%i3
  112. wr %l3,0,%y
  113. or %g0,0x0,%i0
  114. orcc %g0,0,%g0
  115. #if 0
  116. divscc %i0,%i3,%i0
  117. divscc %i0,%i3,%i0
  118. divscc %i0,%i3,%i0
  119. divscc %i0,%i3,%i0
  120. divscc %i0,%i3,%i0
  121. divscc %i0,%i3,%i0
  122. divscc %i0,%i3,%i0
  123. divscc %i0,%i3,%i0
  124. divscc %i0,%i3,%i0
  125. divscc %i0,%i3,%i0
  126. divscc %i0,%i3,%i0
  127. divscc %i0,%i3,%i0
  128. divscc %i0,%i3,%i0
  129. divscc %i0,%i3,%i0
  130. divscc %i0,%i3,%i0
  131. divscc %i0,%i3,%i0
  132. divscc %i0,%i3,%i0
  133. divscc %i0,%i3,%i0
  134. divscc %i0,%i3,%i0
  135. divscc %i0,%i3,%i0
  136. divscc %i0,%i3,%i0
  137. divscc %i0,%i3,%i0
  138. divscc %i0,%i3,%i0
  139. divscc %i0,%i3,%i0
  140. divscc %i0,%i3,%i0
  141. divscc %i0,%i3,%i0
  142. divscc %i0,%i3,%i0
  143. divscc %i0,%i3,%i0
  144. divscc %i0,%i3,%i0
  145. divscc %i0,%i3,%i0
  146. divscc %i0,%i3,%i0
  147. divscc %i0,%i3,%i0
  148. #else
  149. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  150. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  151. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  152. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  153. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  154. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  155. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  156. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  157. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  158. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  159. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  160. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  161. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  162. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  163. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  164. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  165. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  166. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  167. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  168. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  169. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  170. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  171. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  172. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  173. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  174. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  175. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  176. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  177. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  178. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  179. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  180. DIVSCC | (in0 << 14) | in3 | (in0 << 25)
  181. #endif
  183. e2: or      %i2,1,%i2
  184. i1: or      %g0,0x81,%i3
  185. sub     %i3,%i1,%i3
  186. subcc   %i3,8,%g0
  187. bge,a i4               
  188. or      %g0,8,%i3
  189. i4: srl     %i0,24,%l1
  190. srl     %l1,%i3,%l1
  191. sll     %l1,1,%l1
  192. sll     %l1,26,%l3
  193. umul %l3,%i0,%l3
  194. rd %y,%l3
  195. or      %g0,0x7f,%i5
  196. sub     %i5,%i1,%i5
  197. subcc %i5,32,%g0
  198. bcc,a L1             
  199. or %g0,0,%l3
  200. L1: srl %l3,%i5,%l3
  201. sethi   %hi(0x80000000),%l6
  202. or      %l3,%l6,%l3
  203. or      %g0,8,%l7
  204. sub     %l7,%i3,%l7
  205. or      %g0,-1,%l6
  206. srl     %l6,%l7,%l6
  207. andcc   %i0,%l6,%i0
  208. be      Alab5    
  209. NOP
  210. /* scan %i0,0,%i3 */
  211. SCAN | (in0 << 14) | 0 | (in3 << 25)
  212. sll %i0,%i3,%i0
  213. subcc %i1,%i3,%i1
  214. srl     %i0,1,%i0
  216. wr %i0,0,%y
  217. or %g0,0x0,%i0
  218. orcc %g0,0,%g0
  219. #if 0
  220. divscc %i0,%l3,%i0
  221. divscc %i0,%l3,%i0
  222. divscc %i0,%l3,%i0
  223. divscc %i0,%l3,%i0
  224. divscc %i0,%l3,%i0
  225. divscc %i0,%l3,%i0
  226. divscc %i0,%l3,%i0
  227. divscc %i0,%l3,%i0
  228. divscc %i0,%l3,%i0
  229. divscc %i0,%l3,%i0
  230. divscc %i0,%l3,%i0
  231. divscc %i0,%l3,%i0
  232. divscc %i0,%l3,%i0
  233. divscc %i0,%l3,%i0
  234. divscc %i0,%l3,%i0
  235. divscc %i0,%l3,%i0
  236. divscc %i0,%l3,%i0
  237. divscc %i0,%l3,%i0
  238. divscc %i0,%l3,%i0
  239. divscc %i0,%l3,%i0
  240. divscc %i0,%l3,%i0
  241. divscc %i0,%l3,%i0
  242. divscc %i0,%l3,%i0
  243. divscc %i0,%l3,%i0
  244. divscc %i0,%l3,%i0
  245. divscc %i0,%l3,%i0
  246. divscc %i0,%l3,%i0
  247. divscc %i0,%l3,%i0
  248. divscc %i0,%l3,%i0
  249. divscc %i0,%l3,%i0
  250. divscc %i0,%l3,%i0
  251. divscc %i0,%l3,%i0
  252. #else
  253. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  254. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  255. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  256. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  257. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  258. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  259. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  260. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  261. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  262. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  263. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  264. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  265. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  266. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  267. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  268. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  269. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  270. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  271. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  272. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  273. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  274. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  275. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  276. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  277. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  278. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  279. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  280. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  281. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  282. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  283. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  284. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  285. #endif
  287. subcc   %i0,0,%i0
  288. ble     i5       
  289. NOP
  290. sll     %i0,1,%i0
  291. sub     %i1,1,%i1
  293. i5:
  294. umul %i0,%i0,%l3
  295. rd %y,%l3
  296. or      %g0,0xfc,%i3
  297. sub     %i3,%i1,%i3
  298. sub     %i3,%i1,%i3
  299. subcc %i3,32,%g0
  300. bcc,a L2             
  301. or %g0,0,%l3
  302. L2: srl %l3,%i3,%l3
  303. sethi   %hi(0x1999999a),%i5
  304. or      %i5,0x19a,%i5
  305. umul %l3,%i5,%i5
  306. rd %y,%i5
  307. sethi   %hi(0x2aaaaaab),%l6
  308. or      %l6,0x2ab,%l6
  309. sub     %l6,%i5,%i5
  310. umul %l3,%i5,%i5
  311. rd %y,%i5
  312. sethi   %hi(0x80000000),%l6
  313. subcc   %l6,%i5,%i5
  314. bneg    i6       
  315. NOP
  316. ba      e6       
  317. sll     %i5,1,%i5
  318. i6: add     %i1,1,%i1
  320. e6:
  321. umul %i0,%i5,%i0
  322. rd %y,%i0
  323. subcc   %i0,0,%i0
  324. bneg    i7       
  325. NOP
  326. sll     %i0,1,%i0
  327. sub     %i1,1,%i1
  328. i7: subcc   %l1,0,%l1
  329. be      Alab7    
  330. NOP
  332. Alab5: sethi   %hi(atntaf),%l6
  333. or %l6,%lo(atntaf),%l6
  334. add     %l1,1,%l7
  335. sll     %l7,2,%l7
  336. ld      [%l6+%l7],%i3
  337. sub     %i3,%i1,%i4
  338. subcc %i4,32,%g0
  339. bcc,a L3             
  340. or %g0,0,%i0
  341. L3: srl %i0,%i4,%i0
  342. or      %g0,%i3,%i1
  343. sethi   %hi(atntaf),%l6
  344. or %l6,%lo(atntaf),%l6
  345. sll     %l1,2,%l7
  346. ld      [%l6+%l7],%i3
  347. addcc   %i0,%i3,%i0
  348. bcc     Alab7    
  349. NOP
  350. srl     %i0,1,%i0
  351. sethi   %hi(0x80000000),%l6
  352. or      %i0,%l6,%i0
  353. add     %i1,1,%i1
  355. Alab7: andcc   %i2,1,%l6
  356. be      Alab8    
  357. NOP
  358. and     %i2,0xfffffffe,%i2
  359. or      %g0,0x7f,%i3
  360. sub     %i3,%i1,%i3
  361. subcc %i3,32,%g0
  362. bcc,a L4             
  363. or %g0,0,%i0
  364. L4: srl %i0,%i3,%i0
  365. or      %g0,0x7f,%i1
  366. sethi   %hi(0xc90fdaa2),%l6
  367. or      %l6,0x2a2,%l6
  368. subcc   %l6,%i0,%i0
  369. bneg    Alab8    
  370. NOP
  371. sll     %i0,1,%i0
  372. sub     %i1,1,%i1
  374. Alab8:
  375. A999: jmpl %i7+8,%g0
  376. restore %g0,0,%g0
  378. Azer: or      %g0,0,%i1
  379. ba      Alab8    
  380. or      %g0,%i1,%i0
  382. .global _fpatan
  383. _fpatan:
  384. .global _atanf
  385. _atanf:
  386. save %sp,-96,%sp
  388. srl     %i0,23,%i2
  389. and     %i2,0xff,%i2
  390. sethi   %hi(0x80000000),%i3
  391. sll     %i0,8,%i1
  392. or      %i1,%i3,%i1
  393. and     %i3,%i0,%i3
  394. subcc   %i2,0xff,%g0
  395. bne     i11            
  396. sll     %i1,1,%l1
  397. subcc   %l1,0,%l1
  398. bne     Bnan           
  400. i11: or      %g0,%i1,%o0
  401. or      %g0,%i2,%o1
  402. call    _fpexatan
  403. or      %g0,%i3,%o2
  404. or      %g0,%o0,%i4
  405. or      %g0,%o1,%i5
  406. or      %g0,%o2,%l0
  408. sll     %i4,1,%i1
  409. srl     %i1,9,%i1
  410. sll     %i5,23,%l1
  411. or      %i1,%l1,%i1
  412. or      %i1,%i3,%i0
  414. B999: jmpl %i7+8,%g0
  415. restore %g0,0,%g0
  417. Bnan: ba      B999     
  418. sethi   %hi(0xffc00000),%i0
  420. .global _fpatan2
  421. _fpatan2:
  422. .global _atan2f
  423. _atan2f:
  424. save %sp,-96,%sp
  426. srl     %i0,23,%i3
  427. and     %i3,0xff,%i3
  428. sethi   %hi(0x80000000),%l2
  429. sll     %i0,8,%i2
  430. or      %i2,%l2,%i2
  431. and     %i0,%l2,%i4
  432. srl     %i1,23,%l0
  433. and     %l0,0xff,%l0
  434. sll     %i1,8,%i5
  435. or      %i5,%l2,%i5
  437. sub     %i3,1,%l6
  438. subcc   %l6,0xfe,%g0
  439. bcc     CspecA         
  441. Clab1: sub     %l0,1,%l6
  442. subcc   %l6,0xfe,%g0
  443. bcc     CspecB   
  444. NOP
  446. Clab2: add     %i3,0x7f,%i3
  447. sub     %i3,%l0,%i3
  448. srl     %i2,1,%i2
  450. wr %i2,0,%y
  451. or %g0,0x0,%i2
  452. orcc %g0,0,%g0
  453. #if 0
  454. divscc %i2,%i5,%i2
  455. divscc %i2,%i5,%i2
  456. divscc %i2,%i5,%i2
  457. divscc %i2,%i5,%i2
  458. divscc %i2,%i5,%i2
  459. divscc %i2,%i5,%i2
  460. divscc %i2,%i5,%i2
  461. divscc %i2,%i5,%i2
  462. divscc %i2,%i5,%i2
  463. divscc %i2,%i5,%i2
  464. divscc %i2,%i5,%i2
  465. divscc %i2,%i5,%i2
  466. divscc %i2,%i5,%i2
  467. divscc %i2,%i5,%i2
  468. divscc %i2,%i5,%i2
  469. divscc %i2,%i5,%i2
  470. divscc %i2,%i5,%i2
  471. divscc %i2,%i5,%i2
  472. divscc %i2,%i5,%i2
  473. divscc %i2,%i5,%i2
  474. divscc %i2,%i5,%i2
  475. divscc %i2,%i5,%i2
  476. divscc %i2,%i5,%i2
  477. divscc %i2,%i5,%i2
  478. divscc %i2,%i5,%i2
  479. divscc %i2,%i5,%i2
  480. divscc %i2,%i5,%i2
  481. divscc %i2,%i5,%i2
  482. divscc %i2,%i5,%i2
  483. divscc %i2,%i5,%i2
  484. divscc %i2,%i5,%i2
  485. divscc %i2,%i5,%i2
  486. #else
  487. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  488. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  489. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  490. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  491. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  492. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  493. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  494. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  495. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  496. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  497. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  498. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  499. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  500. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  501. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  502. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  503. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  504. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  505. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  506. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  507. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  508. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  509. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  510. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  511. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  512. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  513. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  514. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  515. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  516. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  517. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  518. DIVSCC | (in2 << 14) | in5 | (in2 << 25)
  519. #endif
  521. subcc   %i2,0,%i2
  522. ble     i12      
  523. NOP
  524. sll     %i2,1,%i2
  525. sub     %i3,1,%i3
  527. i12: or      %g0,%i2,%o0
  528. or      %g0,%i3,%o1
  529. call    _fpexatan
  530. or      %g0,%i4,%o2
  531. or      %g0,%o0,%i5
  532. or      %g0,%o1,%l0
  533. or      %g0,%o2,%l1
  535. subcc   %i1,0,%i1
  536. bpos    i13      
  537. NOP
  538. or      %g0,0x80,%l2
  539. sub     %l2,%l0,%l2
  540. or      %g0,0x80,%l0
  541. subcc %l2,32,%g0
  542. bcc,a L5             
  543. or %g0,0,%i5
  544. L5: srl %i5,%l2,%i5
  545. sethi   %hi(0xc90fdaa2),%l6
  546. or      %l6,0x2a2,%l6
  547. sub     %l6,%i5,%i5
  548. /* scan %i5,0,%l2 */
  549. SCAN | (in5 << 14) | 0 | (lo2 << 25)
  550. sll %i5,%l2,%i5
  551. subcc %l0,%l2,%l0
  552. i13: subcc   %l0,0,%l0
  553. bg      i14      
  554. NOP
  555. or      %g0,1,%l2
  556. sub     %l2,%l0,%l2
  557. subcc %l2,32,%g0
  558. bcc,a L6             
  559. or %g0,0,%i5
  560. L6: srl %i5,%l2,%i5
  561. or      %g0,0,%l0
  562. i14: sll     %i5,1,%i2
  563. srl     %i2,9,%i2
  564. sll     %l0,23,%l6
  565. or      %i2,%l6,%i2
  567. Cret: or      %i2,%i4,%i0
  569. C999: jmpl %i7+8,%g0
  570. restore %g0,0,%g0
  572. CspecA: subcc   %i3,0,%i3
  573. be      i15            
  574. addcc   %i2,%i2,%l6
  575. bne     Cnan     
  576. NOP
  577. ba      Clab1    
  578. or      %g0,0x100,%i3
  579. i15: addcc   %i2,%i2,%i2
  580. be      Clab1    
  581. NOP
  582. /* scan %i2,0,%l2 */
  583. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  584. sll %i2,%l2,%i2
  585. subcc %i3,%l2,%i3
  586. ba,a    Clab1    
  588. CspecB: subcc   %l0,0,%l0
  589. be      i17            
  590. addcc   %i5,%i5,%l6
  591. bne     Cnan     
  592. NOP
  593. or      %g0,0x100,%l0
  594. subcc   %i3,%l0,%g0
  595. be      Cnan     
  596. NOP
  597. ba,a    Clab2    
  598. i17: addcc   %i5,%i5,%i5
  599. be      Clab2    
  600. NOP
  601. /* scan %i5,0,%l2 */
  602. SCAN | (in5 << 14) | 0 | (lo2 << 25)
  603. sll %i5,%l2,%i5
  604. subcc %l0,%l2,%l0
  605. ba,a    Clab2    
  607. Cnan: ba      C999     
  608. sethi   %hi(0xffc00000),%i0
  610. .global _fpasin
  611. _fpasin:
  612. .global _asinf
  613. _asinf:
  614. save %sp,-96,%sp
  616. srl     %i0,23,%l0
  617. and     %l0,0xff,%l0
  618. sethi   %hi(0x80000000),%l1
  619. sll     %i0,8,%i5
  620. or      %i5,%l1,%i5
  621. and     %l1,%i0,%l1
  622. umul %i5,%i5,%l2
  623. rd %y,%l2
  624. add     %l0,%l0,%l3
  625. sub     %l3,0x7e,%l3
  626. subcc   %l2,0,%l2
  627. bneg    i19      
  628. NOP
  629. sll     %l2,1,%l2
  630. sub     %l3,1,%l3
  631. i19: or      %g0,0x7f,%i1
  632. subcc   %i1,%l3,%i1
  633. bneg    Dnan     
  634. NOP
  635. or      %g0,0x7f,%l3
  636. subcc %i1,32,%g0
  637. bcc,a L7             
  638. or %g0,0,%l2
  639. L7: srl %l2,%i1,%l2
  640. sethi   %hi(0x80000000),%i1
  641. subcc   %l2,%i1,%g0
  642. bgu     Dnan     
  643. NOP
  644. subcc   %i1,%l2,%l2
  645. bne     i20      
  646. NOP
  647. ba      Dlab4    
  648. or      %g0,0xff,%l0
  649. i20:
  650. /* scan %l2,0,%i1 */
  651. SCAN | (lo2 << 14) | 0 | (in1 << 25)
  652. sll %l2,%i1,%l2
  653. subcc %l3,%i1,%l3
  655. or      %g0,%l2,%o0
  656. call    _fpexsqrt
  657. or      %g0,%l3,%o1
  658. orcc    %g0,%o0,%l2
  659. or      %g0,%o1,%l3
  661. bne     i21      
  662. or      %g0,%o2,%l4
  663. ba,a    D999     
  664. i21: add     %l0,0x7f,%l0
  665. sub     %l0,%l3,%l0
  666. srl     %i5,1,%i5
  668. wr %i5,0,%y
  669. or %g0,0x0,%i5
  670. orcc %g0,0,%g0
  671. #if 0
  672. divscc %i5,%l2,%i5
  673. divscc %i5,%l2,%i5
  674. divscc %i5,%l2,%i5
  675. divscc %i5,%l2,%i5
  676. divscc %i5,%l2,%i5
  677. divscc %i5,%l2,%i5
  678. divscc %i5,%l2,%i5
  679. divscc %i5,%l2,%i5
  680. divscc %i5,%l2,%i5
  681. divscc %i5,%l2,%i5
  682. divscc %i5,%l2,%i5
  683. divscc %i5,%l2,%i5
  684. divscc %i5,%l2,%i5
  685. divscc %i5,%l2,%i5
  686. divscc %i5,%l2,%i5
  687. divscc %i5,%l2,%i5
  688. divscc %i5,%l2,%i5
  689. divscc %i5,%l2,%i5
  690. divscc %i5,%l2,%i5
  691. divscc %i5,%l2,%i5
  692. divscc %i5,%l2,%i5
  693. divscc %i5,%l2,%i5
  694. divscc %i5,%l2,%i5
  695. divscc %i5,%l2,%i5
  696. divscc %i5,%l2,%i5
  697. divscc %i5,%l2,%i5
  698. divscc %i5,%l2,%i5
  699. divscc %i5,%l2,%i5
  700. divscc %i5,%l2,%i5
  701. divscc %i5,%l2,%i5
  702. divscc %i5,%l2,%i5
  703. divscc %i5,%l2,%i5
  704. #else
  705. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  706. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  707. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  708. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  709. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  710. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  711. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  712. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  713. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  714. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  715. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  716. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  717. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  718. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  719. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  720. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  721. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  722. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  723. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  724. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  725. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  726. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  727. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  728. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  729. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  730. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  731. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  732. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  733. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  734. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  735. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  736. DIVSCC | (in5 << 14) | lo2 | (in5 << 25)
  737. #endif
  739. subcc   %i5,0,%i5
  740. ble     Dlab4    
  741. NOP
  742. sll     %i5,1,%i5
  743. sub     %l0,1,%l0
  745. Dlab4: or      %g0,%i5,%o0
  746. or      %g0,%l0,%o1
  747. call    _fpexatan
  748. or      %g0,%l1,%o2
  749. or      %g0,%o0,%l2
  750. or      %g0,%o1,%l3
  751. or      %g0,%o2,%l4
  753. sll     %l2,1,%i5
  754. srl     %i5,9,%i5
  755. sll     %l3,23,%l5
  756. or      %i5,%l5,%i5
  757. or      %i5,%l1,%i0
  759. D999: jmpl %i7+8,%g0
  760. restore %g0,0,%g0
  762. Dnan: ba      D999     
  763. sethi   %hi(0xffc00000),%i0
  765. .global _fpacos
  766. _fpacos:
  767. .global _acosf
  768. _acosf:
  769. save %sp,-96,%sp
  771. srl     %i0,23,%l0
  772. and     %l0,0xff,%l0
  773. sethi   %hi(0x80000000),%l1
  774. sll     %i0,8,%i5
  775. or      %i5,%l1,%i5
  776. and     %l1,%i0,%l1
  777. umul %i5,%i5,%l2
  778. rd %y,%l2
  779. add     %l0,%l0,%l3
  780. sub     %l3,0x7e,%l3
  781. subcc   %l2,0,%l2
  782. bneg    i23      
  783. NOP
  784. sll     %l2,1,%l2
  785. sub     %l3,1,%l3
  786. i23: or      %g0,0x7f,%i1
  787. subcc   %i1,%l3,%i1
  788. bneg    Enan     
  789. NOP
  790. or      %g0,0x7f,%l3
  791. subcc %i1,32,%g0
  792. bcc,a L8             
  793. or %g0,0,%l2
  794. L8: srl %l2,%i1,%l2
  795. sethi   %hi(0x80000000),%i1
  796. subcc   %l2,%i1,%g0
  797. bgu     Enan     
  798. NOP
  799. sub     %i1,%l2,%l2
  800. /* scan %l2,0,%i1 */
  801. SCAN | (lo2 << 14) | 0 | (in1 << 25)
  802. sll %l2,%i1,%l2
  803. subcc %l3,%i1,%l3
  805. or      %g0,%l2,%o0
  806. call    _fpexsqrt
  807. or      %g0,%l3,%o1
  808. or      %g0,%o0,%l2
  809. or      %g0,%o1,%l3
  810. or      %g0,%o2,%l4
  812. sub     %l3,%l0,%l0
  813. add     %l0,0x7f,%l0
  814. srl     %l2,1,%l2
  815. or      %g0,%i5,%i2
  817. wr %l2,0,%y
  818. or %g0,0x0,%i5
  819. orcc %g0,0,%g0
  820. #if 0
  821. divscc %i5,%i2,%i5
  822. divscc %i5,%i2,%i5
  823. divscc %i5,%i2,%i5
  824. divscc %i5,%i2,%i5
  825. divscc %i5,%i2,%i5
  826. divscc %i5,%i2,%i5
  827. divscc %i5,%i2,%i5
  828. divscc %i5,%i2,%i5
  829. divscc %i5,%i2,%i5
  830. divscc %i5,%i2,%i5
  831. divscc %i5,%i2,%i5
  832. divscc %i5,%i2,%i5
  833. divscc %i5,%i2,%i5
  834. divscc %i5,%i2,%i5
  835. divscc %i5,%i2,%i5
  836. divscc %i5,%i2,%i5
  837. divscc %i5,%i2,%i5
  838. divscc %i5,%i2,%i5
  839. divscc %i5,%i2,%i5
  840. divscc %i5,%i2,%i5
  841. divscc %i5,%i2,%i5
  842. divscc %i5,%i2,%i5
  843. divscc %i5,%i2,%i5
  844. divscc %i5,%i2,%i5
  845. divscc %i5,%i2,%i5
  846. divscc %i5,%i2,%i5
  847. divscc %i5,%i2,%i5
  848. divscc %i5,%i2,%i5
  849. divscc %i5,%i2,%i5
  850. divscc %i5,%i2,%i5
  851. divscc %i5,%i2,%i5
  852. divscc %i5,%i2,%i5
  853. #else
  854. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  855. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  856. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  857. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  858. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  859. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  860. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  861. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  862. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  863. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  864. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  865. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  866. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  867. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  868. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  869. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  870. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  871. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  872. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  873. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  874. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  875. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  876. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  877. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  878. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  879. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  880. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  881. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  882. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  883. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  884. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  885. DIVSCC | (in5 << 14) | in2 | (in5 << 25)
  886. #endif
  888. subcc   %i5,0,%i5
  889. ble     i24      
  890. NOP
  891. sll     %i5,1,%i5
  892. sub     %l0,1,%l0
  894. i24: or      %g0,%i5,%o0
  895. or      %g0,%l0,%o1
  896. call    _fpexatan
  897. or      %g0,%l1,%o2
  898. or      %g0,%o0,%l2
  899. or      %g0,%o1,%l3
  900. or      %g0,%o2,%l4
  902. subcc   %l1,0,%l1
  903. be      i25      
  904. NOP
  905. or      %g0,0x80,%i1
  906. sub     %i1,%l3,%i1
  907. or      %g0,0x80,%l3
  908. subcc %i1,32,%g0
  909. bcc,a L9             
  910. or %g0,0,%l2
  911. L9: srl %l2,%i1,%l2
  912. sethi   %hi(0xc90fdaa2),%l5
  913. or      %l5,0x2a2,%l5
  914. subcc   %l5,%l2,%l2
  915. be,a i26               
  916. or      %g0,0,%l3
  917. i26:
  918. /* scan %l2,0,%i1 */
  919. SCAN | (lo2 << 14) | 0 | (in1 << 25)
  920. sll %l2,%i1,%l2
  921. subcc %l3,%i1,%l3
  922. i25: sll     %l2,1,%i5
  923. srl     %i5,9,%i5
  924. sll     %l3,23,%l5
  925. or      %i5,%l5,%i5
  926. or      %g0,%i5,%i0
  928. E999: jmpl %i7+8,%g0
  929. restore %g0,0,%g0
  931. Enan: ba      E999     
  932. sethi   %hi(0xffc00000),%i0
  934. ! .end