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

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

VxWorks

开发平台：

C/C++

fplog32.s：源码内容
  1. /* fplog32.s - VxWorks conversion from Microtek tools to Sun native */
  3. /* Copyright 1984-1992 Wind River Systems, Inc. */
  5. /*
  6. modification history
  7. --------------------
  8. 01a,06aug92,jwt  converted.
  9. */
  11. /*
  12. ! ! ! ! !
  13. ! SPARClite Floating Point Library
  14. !
  15. ! Copyright (C) 1992 By
  16. ! United States Software Corporation
  17. ! 14215 N.W. Science Park Drive
  18. ! Portland, Oregon 97229
  19. !
  20. ! This software is furnished under a license and may be used
  21. ! and copied only in accordance with the terms of such license
  22. ! and with the inclusion of the above copyright notice.
  23. ! This software or any other copies thereof may not be provided
  24. ! or otherwise made available to any other person.  No title to
  25. ! and ownership of the software is hereby transferred.
  26. !
  27. ! The information in this software is subject to change without 
  28. ! notice and should not be construed as a commitment by United
  29. ! States Software Corporation.
  30. !
  31. ! First Release: V1.02 March 26 1992
  32. ! ! ! ! !
  34. .macro scan,p1,p2,p3
  35. .word 0x81602000 | (&p3<<25) | (&p1<<14) | p2
  36. .endm
  37. .macro umul,p1,p2,p3
  38. .word 0x80500000 | (&p3<<25) | (&p1<<14) | &p2
  39. .endm
  40. .macro divscc,p1,p2,p3
  41. .word 0x80e80000 | (&p3<<25) | (&p1<<14) | &p2
  42. .endm
  43. */
  45. #include "arch/sparc/ussSun4.h"
  47. .data
  48. .align 4
  50. logtaf: .word 0xb17217f8,0x7e
  51. .word 0x934b108a,0x7e
  52. .word 0xf0a450d1,0x7d
  53. .word 0xbfd7d1df,0x7d
  54. .word 0x934b108a,0x7d
  55. .word 0xd49f69e4,0x7c
  56. .word 0x88bc7411,0x7c
  57. .word 0x842cc5ad,0x7b
  58. .word 0x0,0x0
  59. .word 0xf1383b71,0x7b
  60. .word 0xe47fbe3d,0x7c
  61. .word 0xa30c5e11,0x7d
  62. .word 0xcf991f66,0x7d
  63. .word 0xf8947afd,0x7d
  64. .word 0x8f42faf4,0x7e
  65. .word 0xa0ec7f42,0x7e
  67. .text
  68. .align 4
  70. .global _fpexlog
  71. _fpexlog:
  72. save %sp,-96,%sp
  74. srl     %i0,27,%i4
  75. and     %i4,0x1e,%i4
  76. sethi   %hi(0xf0000000),%l6
  77. and     %l6,%i0,%i5
  78. subcc   %i1,0x7f,%g0
  79. bl      i1       
  80. NOP
  81. or      %g0,0,%i2
  82. sub     %i1,0x7f,%i3
  83. add     %i5,%i0,%l3
  84. sethi   %hi(0xfffffff),%l6
  85. or      %l6,0x3ff,%l6
  86. ba      e1       
  87. and     %i0,%l6,%i0
  88. i1: sethi   %hi(0x80000000),%i2
  89. or      %g0,0x7e,%i3
  90. sub     %i3,%i1,%i3
  91. sub     %i4,0xe,%i4
  92. sethi   %hi(0x10000000),%l6
  93. add     %i5,%l6,%i5
  94. add     %i5,%i0,%l3
  95. sub     %i5,%i0,%i0
  96. e1: srl     %l3,1,%l3
  97. sethi   %hi(0x80000000),%l6
  98. or      %l3,%l6,%l3
  99. or      %g0,0x7f,%i1
  100. /* scan %i0,0,%i5 */
  101. SCAN | (in0 << 14) | 0 | (in5 << 25)
  102. sll %i0,%i5,%i0
  103. subcc %i1,%i5,%i1
  104. subcc   %i0,%l3,%g0
  105. bcs     i2       
  106. NOP
  107. srl     %i0,1,%i0
  108. add     %i1,1,%i1
  109. i2: srl     %l3,1,%i5
  111. wr %i0,0,%y
  112. or %g0,%i5,%i0
  113. orcc %g0,0,%g0
  114. #if 0
  115. divscc %i0,%l3,%i0
  116. divscc %i0,%l3,%i0
  117. divscc %i0,%l3,%i0
  118. divscc %i0,%l3,%i0
  119. divscc %i0,%l3,%i0
  120. divscc %i0,%l3,%i0
  121. divscc %i0,%l3,%i0
  122. divscc %i0,%l3,%i0
  123. divscc %i0,%l3,%i0
  124. divscc %i0,%l3,%i0
  125. divscc %i0,%l3,%i0
  126. divscc %i0,%l3,%i0
  127. divscc %i0,%l3,%i0
  128. divscc %i0,%l3,%i0
  129. divscc %i0,%l3,%i0
  130. divscc %i0,%l3,%i0
  131. divscc %i0,%l3,%i0
  132. divscc %i0,%l3,%i0
  133. divscc %i0,%l3,%i0
  134. divscc %i0,%l3,%i0
  135. divscc %i0,%l3,%i0
  136. divscc %i0,%l3,%i0
  137. divscc %i0,%l3,%i0
  138. divscc %i0,%l3,%i0
  139. divscc %i0,%l3,%i0
  140. divscc %i0,%l3,%i0
  141. divscc %i0,%l3,%i0
  142. divscc %i0,%l3,%i0
  143. divscc %i0,%l3,%i0
  144. divscc %i0,%l3,%i0
  145. divscc %i0,%l3,%i0
  146. divscc %i0,%l3,%i0
  147. #else
  148. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  149. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  150. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  151. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  152. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  153. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  154. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  155. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  156. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  157. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  158. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  159. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  160. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  161. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  162. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  163. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  164. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  165. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  166. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  167. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  168. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  169. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  170. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  171. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  172. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  173. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  174. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  175. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  176. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  177. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  178. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  179. DIVSCC | (in0 << 14) | lo3 | (in0 << 25)
  180. #endif
  181. umul %i0,%i0,%l3
  182. rd %y,%l3
  184. or      %g0,0x80,%i5
  185. sub     %i5,%i1,%i5
  186. sll     %i5,1,%i5
  187. subcc %i5,32,%g0
  188. bcc,a L1             
  189. or %g0,0,%l3
  190. L1: srl %l3,%i5,%l3
  191. sethi   %hi(0x12492492),%l1
  192. or      %l1,0x92,%l1
  193. umul %l3,%l1,%l1
  194. rd %y,%l1
  195. sethi   %hi(0x1999999a),%l6
  196. or      %l6,0x19a,%l6
  197. add     %l1,%l6,%l1
  198. umul %l3,%l1,%l1
  199. rd %y,%l1
  200. sethi   %hi(0x2aaaaaab),%l6
  201. or      %l6,0x2ab,%l6
  202. add     %l1,%l6,%l1
  203. umul %l3,%l1,%l1
  204. rd %y,%l1
  205. sethi   %hi(0x80000000),%l6
  206. add     %l1,%l6,%l1
  207. umul %i0,%l1,%i5
  208. rd %y,%i0
  209. subcc   %i0,0,%i0
  210. ble     i3       
  211. NOP
  212. addcc   %i5,%i5,%i5
  213. addx    %i0,%i0,%i0
  214. sub     %i1,1,%i1
  216. i3: sethi   %hi(logtaf),%l6
  217. or %l6,%lo(logtaf),%l6
  218. add     %i4,1,%l7
  219. sll     %l7,2,%l7
  220. ld      [%l6+%l7],%i5
  221. subcc   %i5,0,%i5
  222. be      i4       
  223. NOP
  224. sub     %i5,%i1,%l0
  225. subcc %l0,32,%g0
  226. bcc,a L2             
  227. or %g0,0,%i0
  228. L2: srl %i0,%l0,%i0
  229. or      %g0,%i5,%i1
  230. sethi   %hi(logtaf),%l6
  231. or %l6,%lo(logtaf),%l6
  232. sll     %i4,2,%l7
  233. ld      [%l6+%l7],%i5
  234. addcc   %i0,%i5,%i0
  235. bcc     i4       
  236. NOP
  237. srl     %i0,1,%i0
  238. sethi   %hi(0x80000000),%l6
  239. or      %i0,%l6,%i0
  240. add     %i1,1,%i1
  241. i4: subcc   %i3,0,%i3
  242. be      i6       
  243. NOP
  244. or      %g0,0x9e,%l4
  245. /* scan %i3,0,%i5 */
  246. SCAN | (in3 << 14) | 0 | (in5 << 25)
  247. sll %i3,%i5,%i3
  248. subcc %l4,%i5,%l4
  249. sethi   %hi(0xb17217f8),%i5
  250. or      %i5,0x3f8,%i5
  251. umul %i3,%i5,%i5
  252. rd %y,%l3
  253. subcc   %l3,0,%l3
  254. ble     i7       
  255. NOP
  256. addcc   %i5,%i5,%i5
  257. addx    %l3,%l3,%l3
  258. sub     %l4,1,%l4
  259. i7: sub     %l4,%i1,%i5
  260. subcc %i5,32,%g0
  261. bcc,a L3             
  262. or %g0,0,%i0
  263. L3: srl %i0,%i5,%i0
  264. addcc   %i0,%l3,%i0
  265. bcc     i8       
  266. NOP
  267. srl     %i0,1,%i0
  268. sethi   %hi(0x80000000),%l6
  269. or      %i0,%l6,%i0
  270. add     %l4,1,%l4
  271. i8: or      %g0,%l4,%i1
  272. i6: subcc   %i0,0,%i0
  273. be,a i9                
  274. or      %g0,0,%i1
  276. i9:
  277. A999: jmpl %i7+8,%g0
  278. restore %g0,0,%g0
  280. .global _fplog
  281. _fplog:
  282. .global _logf
  283. _logf:
  284. save %sp,-96,%sp
  286. srl     %i0,23,%i2
  287. sll     %i0,8,%i1
  288. sethi   %hi(0x80000000),%i5
  289. or      %i1,%i5,%i1
  290. sub     %i2,1,%i5
  291. subcc   %i5,0xfe,%g0
  292. bcc     Bspec          
  294. Blog5: or      %g0,%i1,%o0
  295. or      %g0,%i2,%o1
  296. call    _fpexlog
  297. or      %g0,%i3,%o2
  298. or      %g0,%o0,%i1
  299. or      %g0,%o1,%i2
  300. or      %g0,%o2,%i3
  302. sll     %i1,1,%i1
  303. srl     %i1,9,%i1
  304. sll     %i2,23,%i5
  305. or      %i1,%i5,%i1
  306. or      %i1,%i3,%i0
  308. B999: jmpl %i7+8,%g0
  309. restore %g0,0,%g0
  311. Bspec: subcc   %i0,0,%i0
  312. bneg    Bnan           
  313. subcc   %i2,0,%i2
  314. bne     i10      
  315. NOP
  316. addcc   %i1,%i1,%i1
  317. bne     i11      
  318. NOP
  319. ba      B999     
  320. sethi   %hi(0xff800000),%i0
  321. i11:
  322. /* scan %i1,0,%i4 */
  323. SCAN | (in1 << 14) | 0 | (in4 << 25)
  324. sll %i1,%i4,%i1
  325. subcc %i2,%i4,%i2
  326. ba,a    Blog5    
  327. i10: addcc   %i1,%i1,%i5
  328. bne     Bnan     
  329. NOP
  330. ba      B999     
  331. sethi   %hi(0x7f800000),%i0
  333. Bnan: ba      B999     
  334. sethi   %hi(0xffc00000),%i0
  336. .global _fplog10
  337. _fplog10:
  338. .global _log10f
  339. _log10f:
  340. save %sp,-96,%sp
  342. srl     %i0,23,%i2
  343. sll     %i0,8,%i1
  344. sethi   %hi(0x80000000),%i5
  345. or      %i1,%i5,%i1
  346. sub     %i2,1,%i5
  347. subcc   %i5,0xfe,%g0
  348. bcc     Cspec          
  350. Clog5: or      %g0,%i1,%o0
  351. or      %g0,%i2,%o1
  352. call    _fpexlog
  353. or      %g0,%i3,%o2
  354. or      %g0,%o0,%i1
  355. or      %g0,%o1,%i2
  356. or      %g0,%o2,%i3
  358. sub     %i2,1,%i2
  359. sethi   %hi(0xde5bd8a9),%i4
  360. or      %i4,0xa9,%i4
  361. umul %i1,%i4,%i1
  362. rd %y,%i1
  363. subcc   %i1,0,%i1
  364. ble     i13      
  365. NOP
  366. sll     %i1,1,%i1
  367. sub     %i2,1,%i2
  368. i13: sll     %i1,1,%i1
  369. srl     %i1,9,%i1
  370. sll     %i2,23,%i5
  371. or      %i1,%i5,%i1
  372. or      %i1,%i3,%i0
  374. C999: jmpl %i7+8,%g0
  375. restore %g0,0,%g0
  377. Cspec: subcc   %i0,0,%i0
  378. bneg    Cnan           
  379. subcc   %i2,0,%i2
  380. bne     i14      
  381. NOP
  382. addcc   %i1,%i1,%i1
  383. bne     i15      
  384. NOP
  385. ba      C999     
  386. sethi   %hi(0xff800000),%i0
  387. i15:
  388. /* scan %i1,0,%i4 */
  389. SCAN | (in1 << 14) | 0 | (in4 << 25)
  390. sll %i1,%i4,%i1
  391. subcc %i2,%i4,%i2
  392. ba,a    Clog5    
  393. i14: addcc   %i1,%i1,%i5
  394. bne     Cnan     
  395. NOP
  396. ba      C999     
  397. sethi   %hi(0x7f800000),%i0
  399. Cnan: ba      C999     
  400. sethi   %hi(0xffc00000),%i0
  402. ! .end