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

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

VxWorks

开发平台：

C/C++

fptrig32.s：源码内容
  1. /* fptrig32.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. sincof: .word 0x171e
  51. .word 0xfff97f98
  52. .word 0x1111111
  53. .word 0xeaaaaaab
  54. .word 0x80000000
  55. coscof: .word 0xd00d
  56. .word 0xffd27d28
  57. .word 0x5555555
  58. .word 0xc0000000
  59. .word 0x80000000
  60. tancof: .word 0x1228
  61. .word 0xb354
  62. .word 0x6ef5e
  63. .word 0x4559ab
  64. .word 0x2d82d83
  65. .word 0x2aaaaaab
  67. .text
  68. .align 4
  70. .global _fpreduct
  71. _fpreduct:
  72. save %sp,-96,%sp
  74. sra     %i0,23,%i2
  75. and     %i2,0xff,%i2
  76. sll     %i0,8,%i1
  77. sethi   %hi(0x80000000),%l2
  78. or      %i1,%l2,%i1
  79. or      %g0,0,%i3
  80. subcc   %i2,0x7e,%i4
  81. bneg    Aret           
  82. subcc   %i4,0x40,%g0
  83. bg      Anan     
  84. NOP
  85. srl     %i1,1,%i1
  86. or      %g0,0,%i5
  87. or      %g0,-1,%i3
  88. sethi   %hi(0x10b4611a),%l1
  89. or      %l1,0x11a,%l1
  90. sethi   %hi(0x6487ed51),%l0
  91. or      %l0,0x151,%l0
  93. b1: subcc   %i5,%l1,%i5
  94. subxcc  %i1,%l0,%i1
  95. bcc     i2       
  96. NOP
  97. addcc   %i5,%l1,%i5
  98. addxcc  %i1,%l0,%i1
  99. i2: addx    %i3,%i3,%i3
  100. addcc   %i5,%i5,%i5
  101. addx    %i1,%i1,%i1
  102. subcc   %i4,0,%i4
  103. bne     b1       
  104. sub     %i4,1,%i4
  106. xor     %i3,7,%i3
  107. and     %i3,7,%i3
  108. andcc   %i3,1,%l2
  109. be      i3       
  110. NOP
  111. or      %g0,%i5,%i4
  112. sll     %l1,1,%i5
  113. subcc   %i5,%i4,%i5
  114. or      %g0,%i1,%i4
  115. sll     %l0,1,%i1
  116. subx    %i1,%i4,%i1
  117. i3: or      %g0,0x7e,%i2
  119. b4: subcc   %i1,0,%i1
  120. bneg    Aret     
  121. NOP
  122. addcc   %i5,%i5,%i5
  123. addx    %i1,%i1,%i1
  124. ba      b4       
  125. sub     %i2,1,%i2
  127. Aret: or      %g0,%i1,%i0
  128. or      %g0,%i2,%i1
  129. or      %g0,%i3,%i2
  131. A999: jmpl %i7+8,%g0
  132. restore %g0,0,%g0
  134. Anan: sethi   %hi(0x80000000),%i3
  135. or      %g0,0xff,%i2
  136. ba      Aret     
  137. sethi   %hi(0xc0000000),%i1
  140. .global _fpsin
  141. _fpsin:
  142. .global _sinf
  143. _sinf:
  144. save %sp,-96,%sp
  146. or      %g0,%i0,%o0
  147. call    _fpreduct
  148. NOP
  149. or      %g0,%o0,%l0
  150. or      %g0,%o1,%l1
  151. orcc    %g0,%o2,%l2
  153. bpos    i5       
  154. NOP
  155. ba      B999     
  156. sethi   %hi(0xffc00000),%i0
  157. i5: sethi   %hi(0x80000000),%l7
  158. and     %l7,%i0,%i1
  159. andcc   %l2,4,%l7
  160. be      i6       
  161. NOP
  162. sub     %l2,4,%l2
  163. sethi   %hi(0x80000000),%l7
  164. xor     %i1,%l7,%i1
  165. i6: sub     %l2,1,%l7
  166. subcc   %l7,2,%g0
  167. bcc     i7       
  168. NOP
  169. umul %l0,%l0,%i5
  170. rd %y,%i5
  171. sethi   %hi(coscof),%l6
  172. or %l6,%lo(coscof),%l6
  173. or      %g0,0x7e,%i3
  174. sub     %i3,%l1,%i3
  175. sll     %i3,1,%i3
  176. subcc %i3,32,%g0
  177. bcc,a L1             
  178. or %g0,0,%i5
  179. L1: srl %i5,%i3,%i5
  180. ld      [%l6],%l0
  181. add     %l6,4,%l6
  183. b8: sra     %l0,31,%i4
  184. xor     %l0,%i4,%l0
  185. sub     %l0,%i4,%l0
  186. umul %i5,%l0,%l0
  187. rd %y,%l0
  188. xor     %l0,%i4,%l0
  189. sub     %l0,%i4,%l0
  190. ld      [%l6],%i4
  191. add     %l6,4,%l6
  192. add     %l0,%i4,%l0
  193. addcc   %i4,%i4,%l7
  194. bne     b8       
  195. NOP
  196. ba      e7       
  197. or      %g0,0x7f,%l1
  198. i7: or      %g0,%l0,%l3
  199. umul %l0,%l0,%i5
  200. rd %y,%i5
  201. sethi   %hi(sincof),%l6
  202. or %l6,%lo(sincof),%l6
  203. or      %g0,0x7e,%i3
  204. sub     %i3,%l1,%i3
  205. sll     %i3,1,%i3
  206. subcc %i3,32,%g0
  207. bcc,a L2             
  208. or %g0,0,%i5
  209. L2: srl %i5,%i3,%i5
  210. ld      [%l6],%l0
  211. add     %l6,4,%l6
  213. b9: sra     %l0,31,%i4
  214. xor     %l0,%i4,%l0
  215. sub     %l0,%i4,%l0
  216. umul %i5,%l0,%l0
  217. rd %y,%l0
  218. xor     %l0,%i4,%l0
  219. sub     %l0,%i4,%l0
  220. ld      [%l6],%i4
  221. add     %l6,4,%l6
  222. add     %l0,%i4,%l0
  223. addcc   %i4,%i4,%l7
  224. bne     b9             
  225. subcc   %l0,0,%l0
  226. ble     i10      
  227. NOP
  228. sll     %l0,1,%l0
  229. sub     %l1,1,%l1
  230. i10: add     %l1,1,%l1
  231. umul %l0,%l3,%l0
  232. rd %y,%l0
  233. e7: subcc   %l0,0,%l0
  234. ble     i11      
  235. NOP
  236. sll     %l0,1,%l0
  237. sub     %l1,1,%l1
  238. i11: sll     %l0,1,%l0
  239. srl     %l0,9,%l0
  240. sll     %l1,23,%l7
  241. or      %l0,%l7,%l0
  242. or      %l0,%i1,%i0
  244. B999: jmpl %i7+8,%g0
  245. restore %g0,0,%g0
  247. .global _fpcos
  248. _fpcos:
  249. .global _cosf
  250. _cosf:
  251. save %sp,-96,%sp
  253. or      %g0,%i0,%o0
  254. call    _fpreduct
  255. NOP
  256. or      %g0,%o0,%i5
  257. or      %g0,%o1,%l0
  258. orcc    %g0,%o2,%l1
  260. bneg    Cnan     
  261. NOP
  262. or      %g0,0,%i1
  263. andcc   %l1,4,%l6
  264. be      i12      
  265. NOP
  266. sub     %l1,4,%l1
  267. sethi   %hi(0x80000000),%l6
  268. xor     %i1,%l6,%i1
  269. i12: andcc   %l1,2,%l6
  270. be      i13      
  271. NOP
  272. sethi   %hi(0x80000000),%l6
  273. xor     %i1,%l6,%i1
  275. i13: sub     %l1,1,%l6
  276. subcc   %l6,2,%g0
  277. bcc     i14      
  278. NOP
  279. or      %g0,%i5,%l2
  280. umul %i5,%i5,%i4
  281. rd %y,%i4
  282. sethi   %hi(sincof),%l5
  283. or %l5,%lo(sincof),%l5
  284. or      %g0,0x7e,%i2
  285. sub     %i2,%l0,%i2
  286. sll     %i2,1,%i2
  287. subcc %i2,32,%g0
  288. bcc,a L3             
  289. or %g0,0,%i4
  290. L3: srl %i4,%i2,%i4
  291. ld      [%l5],%i5
  292. add     %l5,4,%l5
  294. b15: sra     %i5,31,%i3
  295. xor     %i5,%i3,%i5
  296. sub     %i5,%i3,%i5
  297. umul %i4,%i5,%i5
  298. rd %y,%i5
  299. xor     %i5,%i3,%i5
  300. sub     %i5,%i3,%i5
  301. ld      [%l5],%i3
  302. add     %l5,4,%l5
  303. add     %i5,%i3,%i5
  304. addcc   %i3,%i3,%l6
  305. bne     b15            
  306. subcc   %i5,0,%i5
  307. ble     i16      
  308. NOP
  309. sll     %i5,1,%i5
  310. sub     %l0,1,%l0
  311. i16: add     %l0,1,%l0
  312. umul %i5,%l2,%i5
  313. rd %y,%i5
  314. ba,a    e14      
  315. i14:
  316. umul %i5,%i5,%i4
  317. rd %y,%i4
  318. sethi   %hi(coscof),%l5
  319. or %l5,%lo(coscof),%l5
  320. or      %g0,0x7e,%i2
  321. sub     %i2,%l0,%i2
  322. sll     %i2,1,%i2
  323. subcc %i2,32,%g0
  324. bcc,a L4             
  325. or %g0,0,%i4
  326. L4: srl %i4,%i2,%i4
  327. ld      [%l5],%i5
  328. add     %l5,4,%l5
  330. b17: sra     %i5,31,%i3
  331. xor     %i5,%i3,%i5
  332. sub     %i5,%i3,%i5
  333. umul %i4,%i5,%i5
  334. rd %y,%i5
  335. xor     %i5,%i3,%i5
  336. sub     %i5,%i3,%i5
  337. ld      [%l5],%i3
  338. add     %l5,4,%l5
  339. add     %i5,%i3,%i5
  340. addcc   %i3,%i3,%l6
  341. bne     b17      
  342. NOP
  343. or      %g0,0x7f,%l0
  344. e14: subcc   %i5,0,%i5
  345. ble     i18      
  346. NOP
  347. sll     %i5,1,%i5
  348. sub     %l0,1,%l0
  349. i18: sll     %i5,1,%i5
  350. srl     %i5,9,%i5
  351. sll     %l0,23,%l6
  352. or      %i5,%l6,%i5
  353. or      %i5,%i1,%i0
  355. C999: jmpl %i7+8,%g0
  356. restore %g0,0,%g0
  358. Cnan: ba      C999     
  359. sethi   %hi(0xffc00000),%i0
  361. .global _fptan
  362. _fptan:
  363. .global _tanf
  364. _tanf:
  365. save %sp,-96,%sp
  367. or      %g0,%i0,%o0
  368. call    _fpreduct
  369. NOP
  370. or      %g0,%o0,%l0
  371. or      %g0,%o1,%l1
  372. orcc    %g0,%o2,%l2
  374. bneg    Dnan     
  375. NOP
  376. sethi   %hi(0x80000000),%l7
  377. and     %l7,%i0,%i1
  378. and     %l2,0xfffffffb,%l2
  379. andcc   %l2,2,%l7
  380. be      i19      
  381. NOP
  382. sethi   %hi(0x80000000),%l7
  383. xor     %i1,%l7,%i1
  384. i19: or      %g0,%l1,%l4
  385. umul %l0,%l0,%l3
  386. rd %y,%l3
  387. sethi   %hi(tancof),%l6
  388. or %l6,%lo(tancof),%l6
  389. or      %g0,0x7e,%i2
  390. sub     %i2,%l1,%i2
  391. sll     %i2,1,%i2
  392. subcc %i2,32,%g0
  393. bcc,a L5             
  394. or %g0,0,%l3
  395. L5: srl %l3,%i2,%l3
  396. or      %g0,0,%i4
  398. b20: ld      [%l6],%i3
  399. add     %l6,4,%l6
  400. add     %i4,%i3,%i4
  401. umul %l3,%i4,%i4
  402. rd %y,%i4
  403. sethi   %hi(0x20000000),%l7
  404. subcc   %i3,%l7,%g0
  405. bcs     b20      
  406. NOP
  407. or      %g0,0x7f,%l1
  408. sethi   %hi(0x7fffffff),%l7
  409. or      %l7,0x3ff,%l7
  410. subcc   %l7,%i4,%i4
  411. bneg    i21      
  412. NOP
  413. sll     %i4,1,%i4
  414. sub     %l1,1,%l1
  415. i21: sub     %l2,1,%l7
  416. subcc   %l7,2,%g0
  417. bcc     i22      
  418. NOP
  419. add     %l1,0x7f,%l1
  420. sub     %l1,%l4,%l1
  421. srl     %i4,1,%i4
  422. or      %g0,%l0,%i5
  424. wr %i4,0,%y
  425. or %g0,0x0,%l0
  426. orcc %g0,0,%g0
  427. #if 0
  428. divscc %l0,%i5,%l0
  429. divscc %l0,%i5,%l0
  430. divscc %l0,%i5,%l0
  431. divscc %l0,%i5,%l0
  432. divscc %l0,%i5,%l0
  433. divscc %l0,%i5,%l0
  434. divscc %l0,%i5,%l0
  435. divscc %l0,%i5,%l0
  436. divscc %l0,%i5,%l0
  437. divscc %l0,%i5,%l0
  438. divscc %l0,%i5,%l0
  439. divscc %l0,%i5,%l0
  440. divscc %l0,%i5,%l0
  441. divscc %l0,%i5,%l0
  442. divscc %l0,%i5,%l0
  443. divscc %l0,%i5,%l0
  444. divscc %l0,%i5,%l0
  445. divscc %l0,%i5,%l0
  446. divscc %l0,%i5,%l0
  447. divscc %l0,%i5,%l0
  448. divscc %l0,%i5,%l0
  449. divscc %l0,%i5,%l0
  450. divscc %l0,%i5,%l0
  451. divscc %l0,%i5,%l0
  452. divscc %l0,%i5,%l0
  453. divscc %l0,%i5,%l0
  454. divscc %l0,%i5,%l0
  455. divscc %l0,%i5,%l0
  456. divscc %l0,%i5,%l0
  457. divscc %l0,%i5,%l0
  458. divscc %l0,%i5,%l0
  459. divscc %l0,%i5,%l0
  460. #else
  461. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  462. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  463. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  464. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  465. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  466. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  467. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  468. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  469. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  470. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  471. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  472. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  473. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  474. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  475. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  476. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  477. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  478. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  479. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  480. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  481. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  482. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  483. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  484. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  485. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  486. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  487. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  488. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  489. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  490. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  491. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  492. DIVSCC | (lo0 << 14) | in5 | (lo0 << 25)
  493. #endif
  494. ba,a    e22      
  496. i22: sub     %l4,%l1,%l1
  497. add     %l1,0x7f,%l1
  498. srl     %l0,1,%l0
  500. wr %l0,0,%y
  501. or %g0,0x0,%l0
  502. orcc %g0,0,%g0
  503. #if 0
  504. divscc %l0,%i4,%l0
  505. divscc %l0,%i4,%l0
  506. divscc %l0,%i4,%l0
  507. divscc %l0,%i4,%l0
  508. divscc %l0,%i4,%l0
  509. divscc %l0,%i4,%l0
  510. divscc %l0,%i4,%l0
  511. divscc %l0,%i4,%l0
  512. divscc %l0,%i4,%l0
  513. divscc %l0,%i4,%l0
  514. divscc %l0,%i4,%l0
  515. divscc %l0,%i4,%l0
  516. divscc %l0,%i4,%l0
  517. divscc %l0,%i4,%l0
  518. divscc %l0,%i4,%l0
  519. divscc %l0,%i4,%l0
  520. divscc %l0,%i4,%l0
  521. divscc %l0,%i4,%l0
  522. divscc %l0,%i4,%l0
  523. divscc %l0,%i4,%l0
  524. divscc %l0,%i4,%l0
  525. divscc %l0,%i4,%l0
  526. divscc %l0,%i4,%l0
  527. divscc %l0,%i4,%l0
  528. divscc %l0,%i4,%l0
  529. divscc %l0,%i4,%l0
  530. divscc %l0,%i4,%l0
  531. divscc %l0,%i4,%l0
  532. divscc %l0,%i4,%l0
  533. divscc %l0,%i4,%l0
  534. divscc %l0,%i4,%l0
  535. divscc %l0,%i4,%l0
  536. #else
  537. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  538. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  539. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  540. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  541. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  542. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  543. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  544. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  545. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  546. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  547. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  548. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  549. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  550. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  551. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  552. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  553. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  554. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  555. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  556. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  557. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  558. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  559. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  560. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  561. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  562. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  563. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  564. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  565. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  566. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  567. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  568. DIVSCC | (lo0 << 14) | in4 | (lo0 << 25)
  569. #endif
  571. e22: subcc   %l0,0,%l0
  572. ble     i23      
  573. NOP
  574. sll     %l0,1,%l0
  575. sub     %l1,1,%l1
  576. i23: sll     %l0,1,%l0
  577. srl     %l0,9,%l0
  578. sll     %l1,23,%l7
  579. or      %l0,%l7,%l0
  580. or      %l0,%i1,%i0
  582. D999: jmpl %i7+8,%g0
  583. restore %g0,0,%g0
  585. Dnan: ba      D999     
  586. sethi   %hi(0xffc00000),%i0
  588. ! .end