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

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

VxWorks

开发平台：

C/C++

exp32.s：源码内容
  1. /* exp32.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. .global _exmul
  48. .global _sigmax
  50. .data
  51. .align 4
  52. expcon: .word 0xe1deb28,0x0
  53. .word 0xf465639b,0x0
  54. .word 0x267a8ac6,0xf
  55. .word 0x929e9caf,0xda
  56. .word 0x111d2e4,0xb16
  57. .word 0xff1622c3,0x7ff2
  58. .word 0x4be1b1e2,0x50c24
  59. .word 0xcf14ce62,0x2bb0ff
  60. .word 0xfba4e773,0x13b2ab6
  61. .word 0xc1282fe3,0x71ac235
  62. .word 0x82c58ea9,0x1ebfbdff
  63. .word 0xe8e7bcd6,0x58b90bfb
  64. .word 0x0,0x80000000
  66. .text
  67. .align 4
  69. .global _exexp
  70. _exexp:
  71. save %sp,-96,%sp
  73. sra     %i3,31,%i4
  75. sethi   %hi(0xb8aa3b29),%o0
  76. or      %o0,0x329,%o0
  77. sethi   %hi(0x5c17f0bc),%o1
  78. or      %o1,0xbc,%o1
  79. or      %g0,0x3ff,%o2
  80. or      %g0,%i0,%o3
  81. or      %g0,%i1,%o4
  82. call    _exmul
  83. or      %g0,%i2,%o5
  84. or      %g0,%o0,%l2
  85. or      %g0,%o1,%l3
  86. or      %g0,%o2,%l4
  88. or      %g0,0,%i5
  89. sub     %l4,0x3fe,%l0
  90. subcc   %l0,0xf,%g0
  91. bcs     b2             
  92. subcc   %l0,0,%l0
  93. bg      Aovr     
  94. NOP
  95. ba,a    Alab3    
  97. b2: subcc   %l0,0,%l0
  98. be      i2       
  99. sub     %l0,1,%l0
  100. addcc   %l3,%l3,%l3
  101. addxcc  %l2,%l2,%l2
  102. addx    %i5,%i5,%i5
  103. ba      b2       
  104. sub     %l4,1,%l4
  105. i2: subcc   %l2,0,%l2
  106. bpos    Alab3    
  107. NOP
  108. subcc   %g0,%l3,%l3
  109. subx    %g0,%l2,%l2
  110. sethi   %hi(0x80000000),%l5
  111. xor     %i3,%l5,%i3
  112. add     %i5,1,%i5
  114. Alab3: or      %g0,%l2,%o0
  115. or      %g0,%l3,%o1
  116. or      %g0,%l4,%o2
  117. or      %g0,%i3,%o3
  118. sethi   %hi(expcon),%o4
  119. call    _sigmax
  120. or %o4,%lo(expcon),%o4
  121. or      %g0,%o0,%l2
  122. or      %g0,%o1,%l3
  123. or      %g0,%o2,%l4
  125. xor     %i5,%i4,%i5
  126. sub     %i5,%i4,%i5
  127. add     %l4,%i5,%l4
  129. Aret: or      %g0,%l2,%i0
  130. or      %g0,%l3,%i1
  131. or      %g0,%l4,%i2
  133. A999: jmpl %i7+8,%g0
  134. restore %g0,0,%g0
  136. Aovr: or      %g0,0,%l3
  137. subcc   %i3,0,%i3
  138. be      i4       
  139. NOP
  140. or      %g0,0,%l4
  141. ba      Aret     
  142. or      %g0,%l4,%l2
  143. i4: sethi   %hi(0x80000000),%l2
  144. sethi   %hi(0x7fff),%l4
  145. ba      Aret     
  146. or      %l4,0x3ff,%l4
  148. .global _dpexp
  149. _dpexp:
  150. .global _exp
  151. _exp:
  152. save %sp,-96,%sp
  154. sll     %i0,1,%i4
  155. srl     %i4,21,%i4
  156. sll     %i0,11,%i2
  157. srl     %i1,21,%l0
  158. or      %i2,%l0,%i2
  159. sll     %i1,11,%i3
  160. sethi   %hi(0x80000000),%i5
  161. or      %i2,%i5,%i2
  162. sub     %i4,1,%l0
  163. subcc   %l0,0x7fe,%g0
  164. bcc     Bspec          
  166. or      %g0,%i2,%o0
  167. or      %g0,%i3,%o1
  168. or      %g0,%i4,%o2
  169. call    _exexp
  170. and     %i0,%i5,%o3
  171. or      %g0,%o0,%i2
  172. or      %g0,%o1,%i3
  173. or      %g0,%o2,%i4
  175. sub     %i4,1,%l0
  176. subcc   %l0,0x7fe,%g0
  177. bcc     Bundove  
  178. NOP
  179. srl     %i3,11,%i1
  180. sll     %i2,21,%l0
  181. or      %i1,%l0,%i1
  182. srl     %i2,11,%i0
  183. sethi   %hi(0xfffff),%l0
  184. or      %l0,0x3ff,%l0
  185. and     %i0,%l0,%i0
  186. sll     %i4,20,%l0
  187. or      %i0,%l0,%i0
  189. Bret:
  190. B999: jmpl %i7+8,%g0
  191. restore %g0,0,%g0
  193. Bspec: subcc   %i4,0,%i4
  194. be      Bone           
  195. sll     %i2,1,%l0
  196. orcc    %l0,%i3,%l0
  197. bne     Bnan           
  198. subcc   %i0,0,%i0
  199. bpos    Binf     
  200. NOP
  201. or      %g0,0,%i1
  202. ba      Bret     
  203. or      %g0,%i1,%i0
  205. Binf: sethi   %hi(0x7ff00000),%i0
  206. ba      Bret     
  207. or      %g0,0,%i1
  209. Bnan: sethi   %hi(0xfff80000),%i0
  210. ba      Bret     
  211. or      %g0,0,%i1
  213. Bone: sethi   %hi(0x3ff00000),%i0
  214. ba      Bret     
  215. or      %g0,0,%i1
  217. Bundove:
  218. subcc   %i4,0,%i4
  219. bg      Binf     
  220. NOP
  221. or      %g0,0xc,%i5
  222. sub     %i5,%i4,%i5
  224. L1: subcc %i5,32,%g0
  225. bcs L2             
  226. subcc %g0,%i5,%i4
  227. sub %i5,32,%i5
  228. orcc %i2,0,%i3
  229. bne L1             
  230. or %g0,0,%i2
  231. L2: be L3             
  232. sll %i2,%i4,%i4
  233. srl %i3,%i5,%i3
  234. srl %i2,%i5,%i2
  235. or %i3,%i4,%i3
  237. L3: or      %g0,%i2,%i0
  238. ba      Bret     
  239. or      %g0,%i3,%i1
  241. ! .end