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

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

VxWorks

开发平台：

C/C++

arc32.s：源码内容
  1. /* arc32.s - VxWorks conversion from Microtek tools to Sun native */
  3. /* Copyright 1984-1992 Wind River Systems, Inc. */
  5. /*
  6. modification history
  7. --------------------
  8. 01a,05aug92,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 _exsub
  49. .global _exmul
  50. .global _exdiv
  51. .global _exsqrt
  52. .global _sigmax
  54. .data
  55. .align 4
  56. atncon: .word 0x38e38e39,0xe38e38e
  57. .word 0xb6db6db7,0xedb6db6d
  58. .word 0x9999999a,0x19999999
  59. .word 0x55555555,0xd5555555
  60. .word 0x0,0x80000000
  61. atntab: .word 0x0,0x0,0x0
  62. .word 0xffeaaddd,0x4bb12542,0x3f9
  63. .word 0xffaaddb9,0x67ef4e37,0x3fa
  64. .word 0xbf70c130,0x17887460,0x3fb
  65. .word 0xfeadd4d5,0x617b6e33,0x3fb
  66. .word 0x9eb77746,0x331362c3,0x3fc
  67. .word 0xbdcbda5e,0x72d81134,0x3fc
  68. .word 0xdc86ba94,0x93051023,0x3fc
  69. .word 0xfadbafc9,0x6406eb15,0x3fc
  70. .word 0x8c5fad18,0x5f8bc131,0x3fd
  71. .word 0x9b13b9b8,0x3f5e5e6a,0x3fd
  72. .word 0xa9856cca,0x8e6a4eda,0x3fd
  73. .word 0xb7b0ca0f,0x26f78474,0x3fd
  74. .word 0xc59269ca,0x50d92b6e,0x3fd
  75. .word 0xd327761e,0x611fe5b6,0x3fd
  76. .word 0xe06da64a,0x764f7c68,0x3fd
  77. .word 0xed63382b,0xdda7b46,0x3fd
  78. .word 0xfa06e85a,0xa0a0be5c,0x3fd
  79. .word 0x832bf4a6,0xd9867e2a,0x3fe
  80. .word 0x892aecdf,0xde9547b5,0x3fe
  81. .word 0x8f005d5e,0xf7f59f9b,0x3fe
  82. .word 0x94ac72c9,0x847186f6,0x3fe
  83. .word 0x9a2f80e6,0x71bdda20,0x3fe
  84. .word 0x9f89fdc4,0xf4b7a1ed,0x3fe
  85. .word 0xa4bc7d19,0x34f70924,0x3fe
  86. .word 0xa9c7abdc,0x4830f5c8,0x3fe
  87. .word 0xaeac4c38,0xb4d8c080,0x3fe
  88. .word 0xb36b31c9,0x1f043691,0x3fe
  89. .word 0xb8053e2b,0xc2319e74,0x3fe
  90. .word 0xbc7b5dea,0xe98af281,0x3fe
  91. .word 0xc0ce85b8,0xac526640,0x3fe
  92. .word 0xc4ffaffa,0xbf8fbd54,0x3fe
  94. .text
  95. .align 4
  97. .global _exatan
  98. _exatan:
  99. save %sp,-96,%sp
  101. or      %g0,0,%i3
  102. subcc   %i2,0x3ff,%g0
  103. bl      i1             
  105. sethi   %hi(0x80000000),%o0
  106. or      %g0,0,%o1
  107. or      %g0,0x3ff,%o2
  108. or      %g0,%i0,%o3
  109. or      %g0,%i1,%o4
  110. call    _exdiv
  111. or      %g0,%i2,%o5
  112. or      %g0,%o0,%i0
  113. or      %g0,%o1,%i1
  114. or      %g0,%o2,%i2
  116. or      %g0,1,%i3
  117. subcc   %i2,0x3ff,%g0
  118. bne     i1       
  119. NOP
  120. or      %g0,0x3fe,%i2
  121. or      %g0,-1,%i0
  122. or      %g0,%i0,%i1
  123. i1: or      %g0,%i0,%l2
  124. or      %g0,%i1,%l3
  125. or      %g0,%i2,%l4
  126. or      %g0,0x401,%l0
  127. sub     %l0,%i2,%l0
  128. subcc   %l0,8,%g0
  129. bcc,a i3               
  130. or      %g0,8,%l0
  131. i3: srl     %i0,24,%l1
  132. srl     %l1,%l0,%l1
  133. sll     %l1,27,%i4
  134. or      %g0,8,%l6
  135. sub     %l6,%l0,%l6
  136. or      %g0,-1,%l5
  137. srl     %l5,%l6,%l5
  138. and     %i0,%l5,%i0
  140. /* scan %i0,0,%i5 */
  141. SCAN | (in0 << 14) | 0 | (in5 << 25)
  142. subcc %i5,63,%g0
  143. bne L1             
  144. NOP
  145. or %i1,0,%i0
  146. or %g0,0,%i1
  147. sub %i2,32,%i2
  148. /* scan %i0,0,%i5 */
  149. SCAN | (in0 << 14) | 0 | (in5 << 25)
  150. subcc %i5,63,%g0
  151. be,a L1             
  152. or %i5,0,%i2
  153. L1: subcc %g0,%i5,%l0
  154. be L2             
  155. sub %i2,%i5,%i2
  156. sll %i0,%i5,%i0
  157. srl %i1,%l0,%l0
  158. or %l0,%i0,%i0
  159. sll %i1,%i5,%i1
  160. L2: umul %i4,%l3,%i5
  161. rd %y,%i5
  162. umul %i4,%l2,%l3
  163. rd %y,%l2
  164. addcc   %l3,%i5,%l3
  165. addx    %l2,0,%l2
  166. or      %g0,0x3ff,%i4
  167. sub     %i4,%l4,%i4
  169. L3: subcc %i4,32,%g0
  170. bcs L4             
  171. subcc %g0,%i4,%i5
  172. sub %i4,32,%i4
  173. orcc %l2,0,%l3
  174. bne L3             
  175. or %g0,0,%l2
  176. L4: be L5             
  177. sll %l2,%i5,%i5
  178. srl %l3,%i4,%l3
  179. srl %l2,%i4,%l2
  180. or %l3,%i5,%l3
  182. L5: or      %g0,0x3ff,%l4
  183. sethi   %hi(0x80000000),%l5
  184. or      %l2,%l5,%l2
  186. or      %g0,%i0,%o0
  187. or      %g0,%i1,%o1
  188. or      %g0,%i2,%o2
  189. or      %g0,%l2,%o3
  190. or      %g0,%l3,%o4
  191. call    _exdiv
  192. or      %g0,%l4,%o5
  193. or      %g0,%o0,%i0
  194. or      %g0,%o1,%i1
  195. or      %g0,%o2,%i2
  197. or      %g0,%o0,%o3
  198. or      %g0,%o1,%o4
  199. call    _exmul
  200. or      %g0,%o2,%o5
  202. or      %g0,0,%o3
  203. sethi   %hi(atncon),%o4
  204. call    _sigmax
  205. or %o4,%lo(atncon),%o4
  206. or      %g0,%o0,%l2
  207. or      %g0,%o1,%l3
  208. or      %g0,%o2,%l4
  210. or      %g0,%i0,%o0
  211. or      %g0,%i1,%o1
  212. or      %g0,%i2,%o2
  213. or      %g0,%l2,%o3
  214. or      %g0,%l3,%o4
  215. call    _exmul
  216. or      %g0,%l4,%o5
  218. sethi   %hi(atntab),%l6
  219. or %l6,%lo(atntab),%l6
  220. sll     %l1,2,%l5
  221. add     %l6,%l5,%l6
  222. add     %l6,%l5,%l6
  223. add     %l6,%l5,%l6
  224. ld      [%l6],%o3
  225. ld      [%l6+4],%o4
  226. call    _exadd
  227. ld      [%l6+8],%o5
  228. or      %g0,%o0,%i0
  229. or      %g0,%o1,%i1
  230. or      %g0,%o2,%i2
  232. subcc   %i3,0,%i3
  233. be      i4             
  235. sethi   %hi(0xc90fdaa2),%o0
  236. or      %o0,0x2a2,%o0
  237. sethi   %hi(0x2168c235),%o1
  238. or      %o1,0x235,%o1
  239. or      %g0,0x3ff,%o2
  240. or      %g0,%i0,%o3
  241. or      %g0,%i1,%o4
  242. call    _exsub
  243. or      %g0,%i2,%o5
  244. or      %g0,%o0,%i0
  245. or      %g0,%o1,%i1
  246. or      %g0,%o2,%i2
  248. i4:
  249. A999: jmpl %i7+8,%g0
  250. restore %g0,0,%g0
  252. .global _dpatan
  253. _dpatan:
  254. .global _atan
  255. _atan:
  256. save %sp,-96,%sp
  258. sll     %i0,1,%i4
  259. srl     %i4,21,%i4
  260. sll     %i0,11,%i2
  261. srl     %i1,21,%l0
  262. or      %i2,%l0,%i2
  263. sll     %i1,11,%i3
  264. sethi   %hi(0x80000000),%i5
  265. or      %i2,%i5,%i2
  266. and     %i5,%i0,%i5
  268. subcc   %i4,0x7ff,%g0
  269. bne     i5             
  270. sll     %i2,1,%l0
  271. orcc    %l0,%i3,%l0
  272. bne     Bnan           
  273. i5: subcc   %i4,0,%i4
  274. be      Bret           
  276. or      %g0,%i2,%o0
  277. or      %g0,%i3,%o1
  278. call    _exatan
  279. or      %g0,%i4,%o2
  280. or      %g0,%o0,%i2
  281. or      %g0,%o1,%i3
  282. or      %g0,%o2,%i4
  284. srl     %i3,11,%i1
  285. sll     %i2,21,%l0
  286. or      %i1,%l0,%i1
  287. srl     %i2,11,%i0
  288. sethi   %hi(0xfffff),%l0
  289. or      %l0,0x3ff,%l0
  290. and     %i0,%l0,%i0
  291. sll     %i4,20,%l0
  292. or      %i0,%l0,%i0
  293. or      %i0,%i5,%i0
  295. Bret:
  296. B999: jmpl %i7+8,%g0
  297. restore %g0,0,%g0
  299. Bnan: sethi   %hi(0xfff80000),%i0
  300. ba      Bret     
  301. or      %g0,0,%i1
  303. .global _dpatan2
  304. _dpatan2:
  305. .global _atan2
  306. _atan2:
  307. save %sp,-96,%sp
  309. sll     %i0,1,%l0
  310. srl     %l0,21,%l0
  311. sll     %i0,11,%i4
  312. srl     %i1,21,%l7
  313. or      %i4,%l7,%i4
  314. sll     %i1,11,%i5
  315. sethi   %hi(0x80000000),%l4
  316. or      %i4,%l4,%i4
  317. sll     %i2,1,%l3
  318. srl     %l3,21,%l3
  319. sll     %i2,11,%l1
  320. srl     %i3,21,%l7
  321. or      %l1,%l7,%l1
  322. sll     %i3,11,%l2
  323. or      %l1,%l4,%l1
  324. and     %l4,%i0,%l4
  326. sub     %l0,1,%l7
  327. subcc   %l7,0x7fe,%g0
  328. bcc     CspecA         
  330. Clab1: sub     %l3,1,%l7
  331. subcc   %l7,0x7fe,%g0
  332. bcc     CspecB         
  334. Clab2: or      %g0,%i4,%o0
  335. or      %g0,%i5,%o1
  336. or      %g0,%l0,%o2
  337. or      %g0,%l1,%o3
  338. or      %g0,%l2,%o4
  339. call    _exdiv
  340. or      %g0,%l3,%o5
  342. call    _exatan
  343. NOP
  344. or      %g0,%o0,%i4
  345. or      %g0,%o1,%i5
  346. or      %g0,%o2,%l0
  348. subcc   %i2,0,%i2
  349. bpos    i6             
  351. sethi   %hi(0xc90fdaa2),%o0
  352. or      %o0,0x2a2,%o0
  353. sethi   %hi(0x2168c235),%o1
  354. or      %o1,0x235,%o1
  355. or      %g0,0x400,%o2
  356. or      %g0,%i4,%o3
  357. or      %g0,%i5,%o4
  358. call    _exsub
  359. or      %g0,%l0,%o5
  360. or      %g0,%o0,%i4
  361. or      %g0,%o1,%i5
  362. or      %g0,%o2,%l0
  364. i6: subcc   %l0,0,%l0
  365. bg      i7       
  366. NOP
  367. or      %g0,1,%l5
  368. sub     %l5,%l0,%l5
  370. L6: subcc %l5,32,%g0
  371. bcs L7             
  372. subcc %g0,%l5,%l0
  373. sub %l5,32,%l5
  374. orcc %i4,0,%i5
  375. bne L6             
  376. or %g0,0,%i4
  377. L7: be L8             
  378. sll %i4,%l0,%l0
  379. srl %i5,%l5,%i5
  380. srl %i4,%l5,%i4
  381. or %i5,%l0,%i5
  383. L8: or      %g0,0,%l0
  384. i7: srl     %i5,11,%i1
  385. sll     %i4,21,%l7
  386. or      %i1,%l7,%i1
  387. srl     %i4,11,%i0
  388. sethi   %hi(0xfffff),%l7
  389. or      %l7,0x3ff,%l7
  390. and     %i0,%l7,%i0
  391. sll     %l0,20,%l7
  392. or      %i0,%l7,%i0
  393. or      %i0,%l4,%i0
  395. Cret:
  396. C999: jmpl %i7+8,%g0
  397. restore %g0,0,%g0
  399. CspecA: subcc   %l0,0,%l0
  400. be      i8             
  401. sll     %i4,1,%l7
  402. orcc    %l7,%i5,%l7
  403. bne     Cnan     
  404. NOP
  405. ba      Clab1    
  406. sethi   %hi(0x1000),%l0
  407. i8: addcc   %i5,%i5,%i5
  408. addx    %i4,%i4,%i4
  410. /* scan %i4,0,%l5 */
  411. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  412. subcc %l5,63,%g0
  413. bne L9             
  414. NOP
  415. or %i5,0,%i4
  416. or %g0,0,%i5
  417. sub %l0,32,%l0
  418. /* scan %i4,0,%l5 */
  419. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  420. subcc %l5,63,%g0
  421. be,a L9             
  422. or %l5,0,%l0
  423. L9: subcc %g0,%l5,%l6
  424. be Clab1           
  425. sub %l0,%l5,%l0
  426. sll %i4,%l5,%i4
  427. srl %i5,%l6,%l6
  428. or %l6,%i4,%i4
  429. ba      Clab1    
  430. sll %i5,%l5,%i5
  432. CspecB: subcc   %l3,0,%l3
  433. be      i9             
  434. sll     %l1,1,%l7
  435. orcc    %l7,%l2,%l7
  436. bne     Cnan     
  437. NOP
  438. sethi   %hi(0x1000),%l3
  439. subcc   %l0,%l3,%g0
  440. be      Cnan     
  441. NOP
  442. ba,a    Clab2    
  443. i9: addcc   %l2,%l2,%l2
  444. addx    %l1,%l1,%l1
  446. /* scan %l1,0,%l5 */
  447. SCAN | (lo1 << 14) | 0 | (lo5 << 25)
  448. subcc %l5,63,%g0
  449. bne L11             
  450. NOP
  451. or %l2,0,%l1
  452. or %g0,0,%l2
  453. sub %l3,32,%l3
  454. /* scan %l1,0,%l5 */
  455. SCAN | (lo1 << 14) | 0 | (lo5 << 25)
  456. subcc %l5,63,%g0
  457. be,a L11             
  458. or %l5,0,%l3
  459. L11: subcc %g0,%l5,%l6
  460. be Clab2           
  461. sub %l3,%l5,%l3
  462. sll %l1,%l5,%l1
  463. srl %l2,%l6,%l6
  464. or %l6,%l1,%l1
  465. ba      Clab2    
  466. sll %l2,%l5,%l2
  468. Cnan: sethi   %hi(0xfff80000),%i0
  469. ba      Cret     
  470. or      %g0,0,%i1
  472. .global _dpasin
  473. _dpasin:
  474. .global _asin
  475. _asin:
  476. save %sp,-96,%sp
  478. sll     %i0,1,%i4
  479. srl     %i4,21,%i4
  480. sll     %i0,11,%i2
  481. srl     %i1,21,%l3
  482. or      %i2,%l3,%i2
  483. sll     %i1,11,%i3
  484. sethi   %hi(0x80000000),%l2
  485. or      %i2,%l2,%i2
  486. and     %l2,%i0,%l2
  488. subcc   %i4,0x3ff,%g0
  489. bcs     i10            
  490. sll     %i2,1,%l3
  491. orcc    %l3,%i3,%l3
  492. bne     Dnan           
  493. subcc   %i4,0x3ff,%g0
  494. bgu     Dnan           
  495. i10: subcc   %i4,0,%i4
  496. be      Dret           
  498. or      %g0,%i2,%o0
  499. or      %g0,%i3,%o1
  500. or      %g0,%i4,%o2
  501. or      %g0,%i2,%o3
  502. or      %g0,%i3,%o4
  503. call    _exmul
  504. or      %g0,%i4,%o5
  505. or      %g0,%o0,%i5
  506. or      %g0,%o1,%l0
  507. or      %g0,%o2,%l1
  509. sethi   %hi(0x80000000),%o0
  510. or      %g0,0,%o1
  511. or      %g0,0x3ff,%o2
  512. or      %g0,%i5,%o3
  513. or      %g0,%l0,%o4
  514. call    _exsub
  515. or      %g0,%l1,%o5
  517. call    _exsqrt
  518. NOP
  519. or      %g0,%o0,%i5
  520. or      %g0,%o1,%l0
  521. or      %g0,%o2,%l1
  523. or      %g0,%i2,%o0
  524. or      %g0,%i3,%o1
  525. or      %g0,%i4,%o2
  526. or      %g0,%i5,%o3
  527. or      %g0,%l0,%o4
  528. call    _exdiv
  529. or      %g0,%l1,%o5
  531. call    _exatan
  532. NOP
  533. or      %g0,%o0,%i2
  534. or      %g0,%o1,%i3
  535. or      %g0,%o2,%i4
  537. srl     %i3,11,%i1
  538. sll     %i2,21,%l3
  539. or      %i1,%l3,%i1
  540. srl     %i2,11,%i0
  541. sethi   %hi(0xfffff),%l3
  542. or      %l3,0x3ff,%l3
  543. and     %i0,%l3,%i0
  544. sll     %i4,20,%l3
  545. or      %i0,%l3,%i0
  546. or      %i0,%l2,%i0
  548. Dret:
  549. D999: jmpl %i7+8,%g0
  550. restore %g0,0,%g0
  552. Dnan: sethi   %hi(0xfff80000),%i0
  553. ba      Dret     
  554. or      %g0,0,%i1
  556. .global _dpacos
  557. _dpacos:
  558. .global _acos
  559. _acos:
  560. save %sp,-96,%sp
  562. sll     %i0,1,%i4
  563. srl     %i4,21,%i4
  564. sll     %i0,11,%i2
  565. srl     %i1,21,%l2
  566. or      %i2,%l2,%i2
  567. sll     %i1,11,%i3
  568. sethi   %hi(0x80000000),%l2
  569. or      %i2,%l2,%i2
  571. subcc   %i4,0x3ff,%g0
  572. bcs     i11            
  573. sll     %i2,1,%l2
  574. orcc    %l2,%i3,%l2
  575. bne     Enan           
  576. subcc   %i4,0x3ff,%g0
  577. bgu     Enan           
  579. i11: or      %g0,%i2,%o0
  580. or      %g0,%i3,%o1
  581. or      %g0,%i4,%o2
  582. or      %g0,%i2,%o3
  583. or      %g0,%i3,%o4
  584. call    _exmul
  585. or      %g0,%i4,%o5
  586. or      %g0,%o0,%i5
  587. or      %g0,%o1,%l0
  588. or      %g0,%o2,%l1
  590. sethi   %hi(0x80000000),%o0
  591. or      %g0,0,%o1
  592. or      %g0,0x3ff,%o2
  593. or      %g0,%i5,%o3
  594. or      %g0,%l0,%o4
  595. call    _exsub
  596. or      %g0,%l1,%o5
  598. call    _exsqrt
  599. NOP
  600. or      %g0,%o0,%i5
  601. or      %g0,%o1,%l0
  602. or      %g0,%o2,%l1
  604. or      %g0,%i2,%o3
  605. or      %g0,%i3,%o4
  606. call    _exdiv
  607. or      %g0,%i4,%o5
  609. call    _exatan
  610. NOP
  611. or      %g0,%o0,%i2
  612. or      %g0,%o1,%i3
  613. or      %g0,%o2,%i4
  615. subcc   %i0,0,%i0
  616. bpos    i12            
  618. sethi   %hi(0xc90fdaa2),%o0
  619. or      %o0,0x2a2,%o0
  620. sethi   %hi(0x2168c235),%o1
  621. or      %o1,0x235,%o1
  622. or      %g0,0x400,%o2
  623. or      %g0,%i2,%o3
  624. or      %g0,%i3,%o4
  625. call    _exsub
  626. or      %g0,%i4,%o5
  627. or      %g0,%o0,%i2
  628. or      %g0,%o1,%i3
  629. or      %g0,%o2,%i4
  631. i12: srl     %i3,11,%i1
  632. sll     %i2,21,%l2
  633. or      %i1,%l2,%i1
  634. srl     %i2,11,%i0
  635. sethi   %hi(0xfffff),%l2
  636. or      %l2,0x3ff,%l2
  637. and     %i0,%l2,%i0
  638. sll     %i4,20,%l2
  639. or      %i0,%l2,%i0
  641. Eret:
  642. E999: jmpl %i7+8,%g0
  643. restore %g0,0,%g0
  645. Enan: sethi   %hi(0xfff80000),%i0
  646. ba      Eret     
  647. or      %g0,0,%i1
  649. ! .end