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

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

VxWorks

开发平台：

C/C++

fppow32.s：源码内容
  1. /* fppow32.s - VxWorks conversion from Microtek tools to Sun native */
  3. /* Copyright 1984-1992 Wind River Systems, Inc. */
  5. /*
  6. modification history
  7. --------------------
  8. 01b,13nov92,jwt  added temporary (until USS patch) fix for pow(0.0,0.0) = 0.0.
  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 _fpexlog
  49. .global _fpexexp
  51. .text
  52. .align 4
  54. .global _fppow
  55. _fppow:
  56. .global _powf
  57. _powf:
  58. save %sp,-96,%sp
  60. /* Test for positive or negative zero */
  62. set 0x7F800000,%l4 /* exponent (30-23) */
  63. andcc %l4,%i0,%g0
  64. bne powNonZero
  66. andcc %l4,%i1,%g0
  67. bne powNonZero
  68. nop
  70. set 0x3F300000,%i0 /* return 1.0 */
  71. ret
  72. restore
  74. powNonZero:
  76. srl     %i0,23,%l2
  77. and     %l2,0xff,%l2
  78. srl     %i1,23,%l5
  79. and     %l5,0xff,%l5
  80. sethi   %hi(0x80000000),%i2
  81. sll     %i0,8,%l1
  82. or      %l1,%i2,%l1
  83. sll     %i1,8,%l4
  84. or      %l4,%i2,%l4
  85. and     %i1,%i2,%l6
  86. and     %i2,%i0,%i2
  88. sub     %l2,1,%l7
  89. subcc   %l7,0xfe,%g0
  90. bcc     AspecA         
  92. Alab1: sub     %l5,1,%l7
  93. subcc   %l7,0xfe,%g0
  94. bcc     AspecB   
  95. NOP
  96. sub     %l5,0x7e,%i4
  97. subcc   %i2,0,%i2
  98. be      i1             
  99. subcc   %i4,0,%i4
  100. ble     Anan           
  101. subcc   %i4,0x20,%g0
  102. bcs     i2       
  103. NOP
  104. ba      i1       
  105. or      %g0,0,%i2
  106. i2: sll     %l4,%i4,%l7
  107. subcc   %l7,0,%l7
  108. bne     Anan           
  109. sub     %i4,1,%g1
  110. sll     %l4,%g1,%l7
  111. subcc   %l7,0,%l7
  112. be,a i1                
  113. or      %g0,0,%i2
  114. i1: subcc   %i4,0xc,%g0
  115. bcc     i4             
  116. sll     %l4,%i4,%l7
  117. subcc   %l7,0,%l7
  118. be      Apow20         
  120. i4: or      %g0,%l1,%o0
  121. or      %g0,%l2,%o1
  122. call    _fpexlog
  123. or      %g0,%l3,%o2
  124. or      %g0,%o0,%l1
  125. or      %g0,%o1,%l2
  126. or      %g0,%o2,%l3
  128. sub     %l2,0x7e,%l7
  129. add     %l5,%l7,%l5
  130. xor     %l6,%l3,%l6
  131. umul %l1,%l4,%i3
  132. rd %y,%l4
  133. subcc   %l4,0,%l4
  134. ble     i5       
  135. NOP
  136. addcc   %i3,%i3,%i3
  137. addx    %l4,%l4,%l4
  138. sub     %l5,1,%l5
  139. i5: addcc   %i3,%i3,%i3
  140. addx    %l4,0,%l4
  142. or      %g0,%l4,%o0
  143. or      %g0,%l5,%o1
  144. call    _fpexexp
  145. or      %g0,%l6,%o2
  146. or      %g0,%o0,%l1
  147. or      %g0,%o1,%l2
  148. or      %g0,%o2,%l3
  150. Aret2: sub     %l2,1,%l7
  151. subcc   %l7,0xfe,%g0
  152. bcs     i6             
  153. subcc   %l2,0,%l2
  154. bg      Ainf     
  155. NOP
  156. or      %g0,9,%i3
  157. sub     %i3,%l2,%i3
  158. subcc %i3,32,%g0
  159. bcc,a L1             
  160. or %g0,0,%l1
  161. L1: srl %l1,%i3,%l1
  162. ba      A999     
  163. or      %l1,%i2,%i0
  164. i6: sll     %l1,1,%l1
  165. srl     %l1,9,%l1
  166. sll     %l2,23,%l7
  167. or      %l1,%l7,%l1
  168. or      %l1,%i2,%i0
  170. A999: jmpl %i7+8,%g0
  171. restore %g0,0,%g0
  173. Apow20: or      %g0,0x20,%l7
  174. sub     %l7,%i4,%l7
  175. srl     %l4,%l7,%l0
  176. or      %g0,%l1,%l4
  177. or      %g0,%l2,%l5
  178. andcc   %l0,1,%l7
  179. bne     i7       
  180. NOP
  181. sethi   %hi(0x80000000),%l1
  182. or      %g0,0x7f,%l2
  183. i7: srl     %l0,1,%l0
  185. b8: subcc   %l0,0,%l0
  186. be      i8       
  187. NOP
  188. sll     %l5,1,%l5
  189. sub     %l5,0x7e,%l5
  190. umul %l4,%l4,%l4
  191. rd %y,%l4
  192. subcc   %l4,0,%l4
  193. ble     i9       
  194. NOP
  195. sll     %l4,1,%l4
  196. sub     %l5,1,%l5
  197. i9: andcc   %l0,1,%l7
  198. be      i10      
  199. NOP
  200. sub     %l5,0x7e,%l7
  201. add     %l2,%l7,%l2
  202. umul %l1,%l4,%l1
  203. rd %y,%l1
  204. subcc   %l1,0,%l1
  205. ble     i10      
  206. NOP
  207. sll     %l1,1,%l1
  208. sub     %l2,1,%l2
  209. i10: ba      b8       
  210. srl     %l0,1,%l0
  211. i8: subcc   %l6,0,%l6
  212. be      Aret2    
  213. NOP
  214. sethi   %hi(0x40000000),%l4
  215. or      %g0,0xfe,%l7
  216. sub     %l7,%l2,%l2
  217. or      %g0,%l1,%i5
  219. wr %l4,0,%y
  220. or %g0,0x0,%l1
  221. orcc %g0,0,%g0
  222. #if 0
  223. divscc %l1,%i5,%l1
  224. divscc %l1,%i5,%l1
  225. divscc %l1,%i5,%l1
  226. divscc %l1,%i5,%l1
  227. divscc %l1,%i5,%l1
  228. divscc %l1,%i5,%l1
  229. divscc %l1,%i5,%l1
  230. divscc %l1,%i5,%l1
  231. divscc %l1,%i5,%l1
  232. divscc %l1,%i5,%l1
  233. divscc %l1,%i5,%l1
  234. divscc %l1,%i5,%l1
  235. divscc %l1,%i5,%l1
  236. divscc %l1,%i5,%l1
  237. divscc %l1,%i5,%l1
  238. divscc %l1,%i5,%l1
  239. divscc %l1,%i5,%l1
  240. divscc %l1,%i5,%l1
  241. divscc %l1,%i5,%l1
  242. divscc %l1,%i5,%l1
  243. divscc %l1,%i5,%l1
  244. divscc %l1,%i5,%l1
  245. divscc %l1,%i5,%l1
  246. divscc %l1,%i5,%l1
  247. divscc %l1,%i5,%l1
  248. divscc %l1,%i5,%l1
  249. divscc %l1,%i5,%l1
  250. divscc %l1,%i5,%l1
  251. divscc %l1,%i5,%l1
  252. divscc %l1,%i5,%l1
  253. divscc %l1,%i5,%l1
  254. divscc %l1,%i5,%l1
  255. #else
  256. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  257. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  258. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  259. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  260. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  261. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  262. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  263. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  264. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  265. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  266. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  267. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  268. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  269. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  270. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  271. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  272. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  273. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  274. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  275. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  276. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  277. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  278. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  279. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  280. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  281. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  282. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  283. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  284. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  285. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  286. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  287. DIVSCC | (lo1 << 14) | in5 | (lo1 << 25)
  288. #endif
  290. subcc   %l1,0,%l1
  291. ble     Aret2    
  292. NOP
  293. sll     %l1,1,%l1
  294. ba      Aret2    
  295. sub     %l2,1,%l2
  297. AspecA: subcc   %l2,0,%l2
  298. bne     i14      
  299. NOP
  300. addcc   %l1,%l1,%l1
  301. be      i14      
  302. NOP
  303. /* scan %l1,0,%i3 */
  304. SCAN | (lo1 << 14) | 0 | (in3 << 25)
  305. sll %l1,%i3,%l1
  306. subcc %l2,%i3,%l2
  307. ba,a    Alab1    
  308. i14: addcc   %i1,%i1,%l7
  309. be      Anan           
  310. subcc   %l2,0,%l2
  311. bne     i16            
  312. subcc   %l5,0xff,%g0
  313. be      Anan           
  314. subcc   %i1,0,%i1
  315. bneg    Ainf     
  316. NOP
  317. ba,a    Azer     
  318. i16: addcc   %l1,%l1,%l7
  319. bne     Anan           
  320. subcc   %l5,0x7f,%g0
  321. bcc     Alab1    
  322. NOP
  323. or      %g0,0x7f,%l5
  324. ba      Alab1    
  325. or      %g0,-1,%l4
  327. AspecB: add     %l4,%l4,%l4
  328. subcc   %l5,0,%l5
  329. bne     i18            
  330. subcc   %l4,0,%l4
  331. be      Aone           
  332. subcc   %i2,0,%i2
  333. be      Aone           
  334. i18: subcc   %l4,0,%l4
  335. bne     Anan     
  336. NOP
  337. ba,a    Aovr     
  339. Ainf: sethi   %hi(0x7f800000),%l7
  340. ba      A999     
  341. or      %l7,%i2,%i0
  343. Anan: ba      A999     
  344. sethi   %hi(0xffc00000),%i0
  346. Azer: ba      A999     
  347. or      %g0,%i2,%i0
  349. Aone: ba      A999     
  350. sethi   %hi(0x3f800000),%i0
  352. Aovr: subcc   %i2,0,%i2
  353. bne     Anan           
  354. subcc   %i1,0,%i1
  355. bpos    i19            
  356. subcc   %l2,0x7f,%g0
  357. bge     Azer     
  358. NOP
  359. ba,a    Ainf     
  360. i19: subcc   %l2,0x7f,%g0
  361. bge     Ainf     
  362. NOP
  363. ba,a    Azer     
  365. ! .end