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

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

VxWorks

开发平台：

C/C++

log32.s：源码内容
  1. /* log32.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 _exadd
  48. .global _exmul
  49. .global _exdiv
  50. .global _sigmax
  52. .data
  53. .align 4
  55. logcon: .word 0x88888889,0x8888888
  56. .word 0xd89d89d9,0x9d89d89
  57. .word 0x2e8ba2e9,0xba2e8ba
  58. .word 0x38e38e39,0xe38e38e
  59. .word 0x49249249,0x12492492
  60. .word 0x9999999a,0x19999999
  61. .word 0xaaaaaaab,0x2aaaaaaa
  62. .word 0x0,0x80000000
  63. bastab: .word 0xb17217f7,0xd1cf79ac,0x3fe
  64. .word 0x934b1089,0xa6dc93c2,0x3fe
  65. .word 0xf0a450d1,0x39366ca7,0x3fd
  66. .word 0xbfd7d1de,0xc0a8df6f,0x3fd
  67. .word 0x934b1089,0xa6dc93c2,0x3fd
  68. .word 0xd49f69e4,0x56cf1b7a,0x3fc
  69. .word 0x88bc7411,0x3f23def2,0x3fc
  70. .word 0x842cc5ac,0xf1d03445,0x3fb
  71. .word 0x0,0x0,0x0
  72. .word 0xf1383b71,0x57972f50,0x3fb
  73. .word 0xe47fbe3c,0xd4d10d61,0x3fc
  74. .word 0xa30c5e10,0xe2f613e8,0x3fd
  75. .word 0xcf991f65,0xfcc25f96,0x3fd
  76. .word 0xf8947afd,0x7837659b,0x3fd
  77. .word 0x8f42faf3,0x820681f0,0x3fe
  78. .word 0xa0ec7f42,0x33957323,0x3fe
  80. .text
  81. .align 4
  83. .global _exlog
  84. _exlog:
  85. save %sp,-96,%sp
  87. sethi   %hi(0xf0000000),%l7
  88. and     %l7,%i0,%i5
  89. or      %g0,%i1,%l2
  90. or      %g0,%l2,%l5
  91. srl     %i0,28,%i4
  92. subcc   %i2,0x3ff,%g0
  93. bl      i1       
  94. NOP
  95. or      %g0,0x3ff,%l3
  96. sub     %i2,%l3,%i3
  97. add     %i0,%i5,%l4
  98. srl     %l5,1,%l5
  99. sll     %l4,31,%l7
  100. srl     %l4,1,%l4
  101. or      %l5,%l7,%l5
  102. sethi   %hi(0x80000000),%l7
  103. or      %l4,%l7,%l4
  104. or      %g0,0x400,%l6
  105. ba      e1       
  106. sub     %i0,%i5,%l1
  107. i1: or      %g0,0x3fe,%l3
  108. sub     %l3,%i2,%i3
  109. sub     %i4,7,%i4
  110. sethi   %hi(0x10000000),%l7
  111. add     %i5,%l7,%i5
  112. add     %i0,%i5,%l4
  113. srl     %l5,1,%l5
  114. sll     %l4,31,%l7
  115. srl     %l4,1,%l4
  116. or      %l5,%l7,%l5
  117. sethi   %hi(0x80000000),%l7
  118. or      %l4,%l7,%l4
  119. or      %g0,0x3ff,%l6
  120. sub     %i0,%i5,%l1
  121. subcc   %g0,%l2,%l2
  122. subx    %g0,%l1,%l1
  124. e1:
  125. /* scan %l1,0,%i5 */
  126. SCAN | (lo1 << 14) | 0 | (in5 << 25)
  127. subcc %i5,63,%g0
  128. bne L1             
  129. NOP
  130. or %l2,0,%l1
  131. or %g0,0,%l2
  132. sub %l3,32,%l3
  133. /* scan %l1,0,%i5 */
  134. SCAN | (lo1 << 14) | 0 | (in5 << 25)
  135. subcc %i5,63,%g0
  136. be,a L1             
  137. or %i5,0,%l3
  138. L1: subcc %g0,%i5,%l0
  139. be L2             
  140. sub %l3,%i5,%l3
  141. sll %l1,%i5,%l1
  142. srl %l2,%l0,%l0
  143. or %l0,%l1,%l1
  144. sll %l2,%i5,%l2
  146. L2: or      %g0,%l1,%o0
  147. or      %g0,%l2,%o1
  148. or      %g0,%l3,%o2
  149. or      %g0,%l4,%o3
  150. or      %g0,%l5,%o4
  151. call    _exdiv
  152. or      %g0,%l6,%o5
  153. or      %g0,%o0,%l1
  154. or      %g0,%o1,%l2
  155. or      %g0,%o2,%l3
  157. or      %g0,%o0,%o3
  158. or      %g0,%o1,%o4
  159. call    _exmul
  160. or      %g0,%o2,%o5
  162. or      %g0,0,%o3
  163. sethi   %hi(logcon),%o4
  164. call    _sigmax
  165. or %o4,%lo(logcon),%o4
  166. or      %g0,%o0,%l4
  167. or      %g0,%o1,%l5
  168. or      %g0,%o2,%l6
  170. add     %l6,1,%l6
  172. or      %g0,%l1,%o0
  173. or      %g0,%l2,%o1
  174. or      %g0,%l3,%o2
  175. or      %g0,%l4,%o3
  176. or      %g0,%l5,%o4
  177. call    _exmul
  178. or      %g0,%l6,%o5
  180. sethi   %hi(bastab),%g1
  181. or %g1,%lo(bastab),%g1
  182. sll     %i4,2,%l7
  183. add     %g1,%l7,%g1
  184. add     %g1,%l7,%g1
  185. add     %g1,%l7,%g1
  186. ld      [%g1],%o3
  187. ld      [%g1+4],%o4
  188. call    _exadd
  189. ld      [%g1+8],%o5
  190. or      %g0,%o0,%l1
  191. or      %g0,%o1,%l2
  192. or      %g0,%o2,%l3
  194. subcc   %i3,0,%i3
  195. be      Aret     
  196. NOP
  197. or      %g0,0x41e,%l6
  198. /* scan %i3,0,%i5 */
  199. SCAN | (in3 << 14) | 0 | (in5 << 25)
  200. sll %i3,%i5,%i3
  201. subcc %l6,%i5,%l6
  202. sethi   %hi(0xb17217f7),%i5
  203. or      %i5,0x3f7,%i5
  204. umul %i3,%i5,%l5
  205. rd %y,%l4
  206. sethi   %hi(0xd1cf79ac),%i5
  207. or      %i5,0x1ac,%i5
  208. umul %i3,%i5,%l0
  209. rd %y,%i5
  210. addcc   %l5,%i5,%l5
  211. addxcc  %l4,0,%l4
  212. bneg    i2       
  213. NOP
  214. addcc   %l0,%l0,%l0
  215. addxcc  %l5,%l5,%l5
  216. addx    %l4,%l4,%l4
  217. sub     %l6,1,%l6
  218. i2: addcc   %l0,%l0,%l0
  219. addxcc  %l5,0,%l5
  220. addx    %l4,0,%l4
  222. or      %g0,%l1,%o0
  223. or      %g0,%l2,%o1
  224. or      %g0,%l3,%o2
  225. or      %g0,%l4,%o3
  226. or      %g0,%l5,%o4
  227. call    _exadd
  228. or      %g0,%l6,%o5
  229. or      %g0,%o0,%l1
  230. or      %g0,%o1,%l2
  231. or      %g0,%o2,%l3
  233. Aret: or      %g0,%l1,%i0
  234. or      %g0,%l2,%i1
  235. or      %g0,%l3,%i2
  237. A999: jmpl %i7+8,%g0
  238. restore %g0,0,%g0
  240. .global _dplog
  241. _dplog:
  242. .global _log
  243. _log:
  244. save %sp,-96,%sp
  246. srl     %i0,20,%i4
  247. sll     %i0,11,%i2
  248. srl     %i1,21,%l4
  249. or      %i2,%l4,%i2
  250. sll     %i1,11,%i3
  251. sethi   %hi(0x80000000),%l4
  252. or      %i2,%l4,%i2
  253. sub     %i4,1,%l4
  254. subcc   %l4,0x7fe,%g0
  255. bcc     Bspec          
  257. Blog5: or      %g0,%i2,%o0
  258. or      %g0,%i3,%o1
  259. call    _exlog
  260. or      %g0,%i4,%o2
  261. or      %g0,%o0,%i5
  262. or      %g0,%o1,%l0
  263. or      %g0,%o2,%l1
  265. srl     %l0,11,%i1
  266. sll     %i5,21,%l4
  267. or      %i1,%l4,%i1
  268. srl     %i5,11,%i0
  269. sethi   %hi(0xfffff),%l4
  270. or      %l4,0x3ff,%l4
  271. and     %i0,%l4,%i0
  272. sll     %l1,20,%l4
  273. or      %i0,%l4,%i0
  275. Bret2: subcc   %i4,0x3ff,%g0
  276. bge     Bret     
  277. NOP
  278. sethi   %hi(0x80000000),%l4
  279. or      %i0,%l4,%i0
  281. Bret:
  282. B999: jmpl %i7+8,%g0
  283. restore %g0,0,%g0
  285. Bspec: subcc   %i0,0,%i0
  286. bneg    Bnan           
  287. subcc   %i4,0,%i4
  288. bne     i4       
  289. NOP
  290. addcc   %i3,%i3,%i3
  291. addx    %i2,%i2,%i2
  292. orcc    %i2,%i3,%l4
  293. be      e4       
  294. NOP
  296. /* scan %i2,0,%l2 */
  297. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  298. subcc %l2,63,%g0
  299. bne L3             
  300. NOP
  301. or %i3,0,%i2
  302. or %g0,0,%i3
  303. sub %i4,32,%i4
  304. /* scan %i2,0,%l2 */
  305. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  306. subcc %l2,63,%g0
  307. be,a L3             
  308. or %l2,0,%i4
  309. L3: subcc %g0,%l2,%l3
  310. be Blog5          
  311. sub %i4,%l2,%i4
  312. sll %i2,%l2,%i2
  313. srl %i3,%l3,%l3
  314. or %l3,%i2,%i2
  315. sll %i3,%l2,%i3
  317. ba,a    Blog5    
  318. i4: sll     %i2,1,%l4
  319. orcc    %l4,%i3,%l4
  320. bne     Bnan     
  321. NOP
  322. e4: sethi   %hi(0x7ff00000),%i0
  323. ba      Bret2    
  324. or      %g0,0,%i1
  326. Bnan: sethi   %hi(0xfff80000),%i0
  327. ba      Bret     
  328. or      %g0,0,%i1
  330. .global _dplog10
  331. _dplog10:
  332. .global _log10
  333. _log10:
  334. save %sp,-96,%sp
  336. srl     %i0,20,%i4
  337. sll     %i0,11,%i2
  338. srl     %i1,21,%l4
  339. or      %i2,%l4,%i2
  340. sll     %i1,11,%i3
  341. sethi   %hi(0x80000000),%l4
  342. or      %i2,%l4,%i2
  343. sub     %i4,1,%l4
  344. subcc   %l4,0x7fe,%g0
  345. bcc     Cspec          
  347. Clog5: or      %g0,%i2,%o0
  348. or      %g0,%i3,%o1
  349. call    _exlog
  350. or      %g0,%i4,%o2
  352. sethi   %hi(0xde5bd8a9),%o3
  353. or      %o3,0xa9,%o3
  354. sethi   %hi(0x37287195),%o4
  355. or      %o4,0x195,%o4
  356. call    _exmul
  357. or      %g0,0x3fd,%o5
  358. or      %g0,%o0,%i5
  359. or      %g0,%o1,%l0
  360. or      %g0,%o2,%l1
  362. srl     %l0,11,%i1
  363. sll     %i5,21,%l4
  364. or      %i1,%l4,%i1
  365. srl     %i5,11,%i0
  366. sethi   %hi(0xfffff),%l4
  367. or      %l4,0x3ff,%l4
  368. and     %i0,%l4,%i0
  369. sll     %l1,20,%l4
  370. or      %i0,%l4,%i0
  372. Cret2: subcc   %i4,0x3ff,%g0
  373. bge     Cret     
  374. NOP
  375. sethi   %hi(0x80000000),%l4
  376. or      %i0,%l4,%i0
  378. Cret:
  379. C999: jmpl %i7+8,%g0
  380. restore %g0,0,%g0
  382. Cspec: subcc   %i0,0,%i0
  383. bneg    Cnan           
  384. subcc   %i4,0,%i4
  385. bne     i7       
  386. NOP
  387. addcc   %i3,%i3,%i3
  388. addx    %i2,%i2,%i2
  389. orcc    %i2,%i3,%l4
  390. be      e7       
  391. NOP
  393. /* scan %i2,0,%l2 */
  394. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  395. subcc %l2,63,%g0
  396. bne L5             
  397. NOP
  398. or %i3,0,%i2
  399. or %g0,0,%i3
  400. sub %i4,32,%i4
  401. /* scan %i2,0,%l2 */
  402. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  403. subcc %l2,63,%g0
  404. be,a L5             
  405. or %l2,0,%i4
  406. L5: subcc %g0,%l2,%l3
  407. be Clog5          
  408. sub %i4,%l2,%i4
  409. sll %i2,%l2,%i2
  410. srl %i3,%l3,%l3
  411. or %l3,%i2,%i2
  412. sll %i3,%l2,%i3
  414. ba,a    Clog5    
  415. i7: sll     %i2,1,%l4
  416. orcc    %l4,%i3,%l4
  417. bne     Cnan     
  418. NOP
  419. e7: sethi   %hi(0x7ff00000),%i0
  420. ba      Cret2    
  421. or      %g0,0,%i1
  423. Cnan: sethi   %hi(0xfff80000),%i0
  424. ba      Cret     
  425. or      %g0,0,%i1
  427. ! .end