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

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

VxWorks

开发平台：

C/C++

trig32.s：源码内容
  1. /* trig32.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 _exdiv
  49. .global _sigmax
  51. .data
  52. .align 4
  54. sincon: .word 0xff946030,0xffffffff
  55. .word 0x5849184f,0x0
  56. .word 0x33753015,0xffffffca
  57. .word 0xe3a556c7,0x171d
  58. .word 0xf97f97f9,0xfff97f97
  59. .word 0x11111111,0x1111111
  60. .word 0xaaaaaaab,0xeaaaaaaa
  61. .word 0x0,0x80000000
  62. coscon: .word 0x6b9fd,0x0
  63. .word 0xf9b1a2d6,0xffffffff
  64. .word 0x7bb63bfe,0x4
  65. .word 0x360910ec,0xfffffdb0
  66. .word 0xd00d01,0xd00d
  67. .word 0xd27d27d2,0xffd27d27
  68. .word 0x55555555,0x5555555
  69. .word 0x0,0xc0000000
  70. .word 0x0,0x80000000
  71. tancon: .word 0xffde9d9a,0xffffffff
  72. .word 0xfeb68270,0xffffffff
  73. .word 0xf34c0f08,0xffffffff
  74. .word 0x82a09a5d,0xffffffff
  75. .word 0x2a9e38a7,0xfffffffb
  76. .word 0x4b63c10d,0xffffffd0
  77. .word 0x24d3b1f7,0xfffffe29
  78. .word 0xfa29bbda,0xffffedd7
  79. .word 0x86a0478a,0xffff4cab
  80. .word 0x1b32c43d,0xfff910a2
  81. .word 0xffbaa65,0xffbaa655
  82. .word 0x27d27d28,0xfd27d27d
  83. .word 0x55555555,0xd5555555
  84. .word 0x0,0x80000000
  86. .text
  87. .align 4
  89. .global _reduct
  90. _reduct:
  91. save %sp,-96,%sp
  93. sll     %i0,1,%i4
  94. srl     %i4,21,%i4
  95. sll     %i0,11,%i2
  96. srl     %i1,21,%l5
  97. or      %i2,%l5,%i2
  98. sll     %i1,11,%i3
  99. sethi   %hi(0x80000000),%l5
  100. or      %i2,%l5,%i2
  101. subcc   %i4,0x3fe,%i5
  102. bneg    Aret2          
  103. subcc   %i5,0x40,%g0
  104. bg      Anan     
  105. NOP
  106. srl     %i3,1,%i3
  107. sll     %i2,31,%l5
  108. srl     %i2,1,%i2
  109. or      %i3,%l5,%i3
  110. sethi   %hi(0x60000000),%l4
  111. sethi   %hi(0x10b4611a),%l3
  112. or      %l3,0x11a,%l3
  113. sethi   %hi(0x6487ed51),%l2
  114. or      %l2,0x151,%l2
  115. or      %g0,-1,%l0
  116. or      %g0,0,%l1
  118. Alab3: subcc   %l1,%l4,%l1
  119. subxcc  %i3,%l3,%i3
  120. subxcc  %i2,%l2,%i2
  121. bcc     i1       
  122. NOP
  123. addcc   %l1,%l4,%l1
  124. addxcc  %i3,%l3,%i3
  125. addxcc  %i2,%l2,%i2
  126. i1: addx    %l0,%l0,%l0
  127. addcc   %l1,%l1,%l1
  128. addxcc  %i3,%i3,%i3
  129. addx    %i2,%i2,%i2
  130. subcc   %i5,0,%i5
  131. bne     Alab3    
  132. sub     %i5,1,%i5
  133. xor     %l0,-1,%l0
  134. andcc   %l0,1,%l5
  135. be      i2       
  136. NOP
  137. or      %g0,%l1,%i5
  138. sll     %l4,1,%l1
  139. subcc   %l1,%i5,%l1
  140. or      %g0,%i3,%i5
  141. sll     %l3,1,%i3
  142. subxcc  %i3,%i5,%i3
  143. or      %g0,%i2,%i5
  144. sll     %l2,1,%i2
  145. subx    %i2,%i5,%i2
  146. i2: or      %g0,0x3fe,%i4
  148. b3: subcc   %i2,0,%i2
  149. bneg    Aret     
  150. NOP
  151. addcc   %l1,%l1,%l1
  152. addxcc  %i3,%i3,%i3
  153. addx    %i2,%i2,%i2
  154. ba      b3       
  155. sub     %i4,1,%i4
  157. Aret: sll     %l0,29,%l5
  158. or      %i4,%l5,%i4
  160. Aret2: or      %g0,%i2,%i0
  161. or      %g0,%i3,%i1
  162. or      %g0,%i4,%i2
  164. A999: jmpl %i7+8,%g0
  165. restore %g0,0,%g0
  167. Anan: or      %g0,-1,%i4
  168. sethi   %hi(0xc0000000),%i2
  169. ba      Aret2    
  170. or      %g0,0,%i3
  173. .global _dpsin
  174. _dpsin:
  175. .global _sin
  176. _sin:
  177. save %sp,-96,%sp
  179. sethi   %hi(0x80000000),%l4
  180. and     %l4,%i0,%i2
  182. or      %g0,%i0,%o0
  183. call    _reduct
  184. or      %g0,%i1,%o1
  185. or      %g0,%o0,%i4
  186. or      %g0,%o1,%i5
  187. or      %g0,%o2,%l0
  189. subcc   %l0,-1,%g0
  190. be      Bret     
  191. NOP
  192. srl     %l0,29,%i3
  193. sll     %l0,3,%l0
  194. srl     %l0,3,%l0
  195. andcc   %i3,4,%l4
  196. be      i4       
  197. NOP
  198. sub     %i3,4,%i3
  199. sethi   %hi(0x80000000),%l4
  200. xor     %i2,%l4,%i2
  201. i4: sub     %i3,1,%l4
  202. subcc   %l4,2,%g0
  203. bcc     i5             
  205. or      %g0,%i4,%o0
  206. or      %g0,%i5,%o1
  207. or      %g0,%l0,%o2
  208. or      %g0,%i4,%o3
  209. or      %g0,%i5,%o4
  210. call    _exmul
  211. or      %g0,%l0,%o5
  213. or      %g0,0,%o3
  214. sethi   %hi(coscon),%o4
  215. call    _sigmax
  216. or %o4,%lo(coscon),%o4
  217. or      %g0,%o0,%i4
  218. or      %g0,%o1,%i5
  219. ba      Bret     
  220. or      %g0,%o2,%l0
  222. i5: or      %g0,%i4,%l1
  223. or      %g0,%i5,%l2
  224. or      %g0,%l0,%l3
  226. or      %g0,%i4,%o0
  227. or      %g0,%i5,%o1
  228. or      %g0,%l0,%o2
  229. or      %g0,%i4,%o3
  230. or      %g0,%i5,%o4
  231. call    _exmul
  232. or      %g0,%l0,%o5
  234. or      %g0,0,%o3
  235. sethi   %hi(sincon),%o4
  236. call    _sigmax
  237. or %o4,%lo(sincon),%o4
  239. or      %g0,%l1,%o3
  240. or      %g0,%l2,%o4
  241. call    _exmul
  242. or      %g0,%l3,%o5
  243. or      %g0,%o0,%i4
  244. or      %g0,%o1,%i5
  245. or      %g0,%o2,%l0
  247. Bret: srl     %i5,11,%i1
  248. sll     %i4,21,%l4
  249. or      %i1,%l4,%i1
  250. srl     %i4,11,%i0
  251. sethi   %hi(0xfffff),%l4
  252. or      %l4,0x3ff,%l4
  253. and     %i0,%l4,%i0
  254. sll     %l0,20,%l4
  255. or      %i0,%l4,%i0
  256. or      %i0,%i2,%i0
  258. B999: jmpl %i7+8,%g0
  259. restore %g0,0,%g0
  262. .global _dpcos
  263. _dpcos:
  264. .global _cos
  265. _cos:
  266. save %sp,-96,%sp
  268. or      %g0,0,%i2
  270. or      %g0,%i0,%o0
  271. call    _reduct
  272. or      %g0,%i1,%o1
  273. or      %g0,%o0,%i4
  274. or      %g0,%o1,%i5
  275. or      %g0,%o2,%l0
  277. subcc   %l0,-1,%g0
  278. be      Cret     
  279. NOP
  280. srl     %l0,29,%i3
  281. sll     %l0,3,%l0
  282. srl     %l0,3,%l0
  283. andcc   %i3,4,%l4
  284. be      i6       
  285. NOP
  286. sub     %i3,4,%i3
  287. sethi   %hi(0x80000000),%l4
  288. xor     %i2,%l4,%i2
  289. i6: andcc   %i3,2,%l4
  290. be      i7       
  291. NOP
  292. sethi   %hi(0x80000000),%l4
  293. xor     %i2,%l4,%i2
  295. i7: sub     %i3,1,%l4
  296. subcc   %l4,2,%g0
  297. bcc     i8       
  298. NOP
  299. or      %g0,%i4,%l1
  300. or      %g0,%i5,%l2
  301. or      %g0,%l0,%l3
  303. or      %g0,%i4,%o0
  304. or      %g0,%i5,%o1
  305. or      %g0,%l0,%o2
  306. or      %g0,%i4,%o3
  307. or      %g0,%i5,%o4
  308. call    _exmul
  309. or      %g0,%l0,%o5
  311. or      %g0,0,%o3
  312. sethi   %hi(sincon),%o4
  313. call    _sigmax
  314. or %o4,%lo(sincon),%o4
  316. or      %g0,%l1,%o3
  317. or      %g0,%l2,%o4
  318. call    _exmul
  319. or      %g0,%l3,%o5
  320. or      %g0,%o0,%i4
  321. or      %g0,%o1,%i5
  322. ba      Cret     
  323. or      %g0,%o2,%l0
  325. i8: or      %g0,%i4,%o0
  326. or      %g0,%i5,%o1
  327. or      %g0,%l0,%o2
  328. or      %g0,%i4,%o3
  329. or      %g0,%i5,%o4
  330. call    _exmul
  331. or      %g0,%l0,%o5
  333. or      %g0,0,%o3
  334. sethi   %hi(coscon),%o4
  335. call    _sigmax
  336. or %o4,%lo(coscon),%o4
  337. or      %g0,%o0,%i4
  338. or      %g0,%o1,%i5
  339. or      %g0,%o2,%l0
  341. Cret: srl     %i5,11,%i1
  342. sll     %i4,21,%l4
  343. or      %i1,%l4,%i1
  344. srl     %i4,11,%i0
  345. sethi   %hi(0xfffff),%l4
  346. or      %l4,0x3ff,%l4
  347. and     %i0,%l4,%i0
  348. sll     %l0,20,%l4
  349. or      %i0,%l4,%i0
  350. or      %i0,%i2,%i0
  352. C999: jmpl %i7+8,%g0
  353. restore %g0,0,%g0
  356. .global _dptan
  357. _dptan:
  358. .global _tan
  359. _tan:
  360. save %sp,-96,%sp
  362. sethi   %hi(0x80000000),%l5
  363. and     %l5,%i0,%i2
  365. or      %g0,%i0,%o0
  366. call    _reduct
  367. or      %g0,%i1,%o1
  368. or      %g0,%o0,%i5
  369. or      %g0,%o1,%l0
  370. or      %g0,%o2,%l1
  372. subcc   %l1,-1,%g0
  373. be      Dret     
  374. NOP
  375. srl     %l1,29,%i4
  376. sll     %l1,3,%l1
  377. srl     %l1,3,%l1
  378. and     %i4,0xfffffffb,%i4
  379. andcc   %i4,2,%l5
  380. be      i9       
  381. NOP
  382. sethi   %hi(0x80000000),%l5
  383. xor     %i2,%l5,%i2
  385. i9: or      %g0,%i5,%o0
  386. or      %g0,%l0,%o1
  387. or      %g0,%l1,%o2
  388. or      %g0,%i5,%o3
  389. or      %g0,%l0,%o4
  390. call    _exmul
  391. or      %g0,%l1,%o5
  393. or      %g0,0,%o3
  394. sethi   %hi(tancon),%o4
  395. call    _sigmax
  396. or %o4,%lo(tancon),%o4
  397. or      %g0,%o0,%l2
  398. or      %g0,%o1,%l3
  399. or      %g0,%o2,%l4
  401. sub     %i4,1,%l5
  402. subcc   %l5,2,%g0
  403. bcc     i10            
  405. or      %g0,%l2,%o0
  406. or      %g0,%l3,%o1
  407. or      %g0,%l4,%o2
  408. or      %g0,%i5,%o3
  409. or      %g0,%l0,%o4
  410. call    _exdiv
  411. or      %g0,%l1,%o5
  412. or      %g0,%o0,%i5
  413. or      %g0,%o1,%l0
  414. ba      Dret     
  415. or      %g0,%o2,%l1
  417. i10: or      %g0,%i5,%o0
  418. or      %g0,%l0,%o1
  419. or      %g0,%l1,%o2
  420. or      %g0,%l2,%o3
  421. or      %g0,%l3,%o4
  422. call    _exdiv
  423. or      %g0,%l4,%o5
  424. or      %g0,%o0,%i5
  425. or      %g0,%o1,%l0
  426. or      %g0,%o2,%l1
  428. Dret: srl     %l0,11,%i1
  429. sll     %i5,21,%l5
  430. or      %i1,%l5,%i1
  431. srl     %i5,11,%i0
  432. sethi   %hi(0xfffff),%l5
  433. or      %l5,0x3ff,%l5
  434. and     %i0,%l5,%i0
  435. sll     %l1,20,%l5
  436. or      %i0,%l5,%i0
  437. or      %i0,%i2,%i0
  439. D999: jmpl %i7+8,%g0
  440. restore %g0,0,%g0
  442. ! .end