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

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

VxWorks

开发平台：

C/C++

mod32.s：源码内容
  1. /* mod32.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 _exsub
  49. .text
  50. .align 4
  52. .global _dpfmod
  53. _dpfmod:
  54. .global _fmod
  55. _fmod:
  56. save %sp,-96,%sp
  58. sll     %i0,1,%l0
  59. srl     %l0,21,%l0
  60. sll     %i0,11,%i4
  61. srl     %i1,21,%l7
  62. or      %i4,%l7,%i4
  63. sll     %i1,11,%i5
  64. sethi   %hi(0x80000000),%l4
  65. or      %i4,%l4,%i4
  66. sll     %i2,1,%l3
  67. srl     %l3,21,%l3
  68. sll     %i2,11,%l1
  69. srl     %i3,21,%l7
  70. or      %l1,%l7,%l1
  71. sll     %i3,11,%l2
  72. or      %l1,%l4,%l1
  73. and     %l4,%i0,%l4
  75. sub     %l0,1,%l7
  76. subcc   %l7,0x7fe,%g0
  77. bcc     AspecA         
  79. Alab1: sub     %l3,1,%l7
  80. subcc   %l7,0x7fe,%g0
  81. bcc     AspecB   
  82. NOP
  84. Alab2: subcc   %l0,%l3,%l5
  85. bneg    Aret2    
  86. NOP
  87. srl     %i5,1,%i5
  88. sll     %i4,31,%l7
  89. srl     %i4,1,%i4
  90. or      %i5,%l7,%i5
  91. srl     %l2,1,%l2
  92. sll     %l1,31,%l7
  93. srl     %l1,1,%l1
  94. or      %l2,%l7,%l2
  96. b1: subcc   %i5,%l2,%i5
  97. subxcc  %i4,%l1,%i4
  98. bcc     i2       
  99. NOP
  100. addcc   %i5,%l2,%i5
  101. addx    %i4,%l1,%i4
  102. i2: addcc   %i5,%i5,%i5
  103. addx    %i4,%i4,%i4
  104. subcc   %l5,0,%l5
  105. bne     b1       
  106. sub     %l5,1,%l5
  107. or      %g0,%l3,%l0
  109. /* scan %i4,0,%l5 */
  110. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  111. subcc %l5,63,%g0
  112. bne L1             
  113. NOP
  114. or %i5,0,%i4
  115. or %g0,0,%i5
  116. sub %l0,32,%l0
  117. /* scan %i4,0,%l5 */
  118. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  119. subcc %l5,63,%g0
  120. be,a L1             
  121. or %l5,0,%l0
  122. L1: subcc %g0,%l5,%l6
  123. be L2             
  124. sub %l0,%l5,%l0
  125. sll %i4,%l5,%i4
  126. srl %i5,%l6,%l6
  127. or %l6,%i4,%i4
  128. sll %i5,%l5,%i5
  130. L2: subcc   %l0,0,%l0
  131. bg      i3       
  132. NOP
  133. or      %g0,1,%l5
  134. sub     %l5,%l0,%l5
  136. L3: subcc %l5,32,%g0
  137. bcs L4             
  138. subcc %g0,%l5,%l6
  139. sub %l5,32,%l5
  140. orcc %i4,0,%i5
  141. bne L3             
  142. or %g0,0,%i4
  143. L4: be L5             
  144. sll %i4,%l6,%l6
  145. srl %i5,%l5,%i5
  146. srl %i4,%l5,%i4
  147. or %i5,%l6,%i5
  149. L5: or      %g0,0,%l0
  150. i3: srl     %i5,11,%i1
  151. sll     %i4,21,%l7
  152. or      %i1,%l7,%i1
  153. srl     %i4,11,%i0
  154. sethi   %hi(0xfffff),%l7
  155. or      %l7,0x3ff,%l7
  156. and     %i0,%l7,%i0
  157. sll     %l0,20,%l7
  158. or      %i0,%l7,%i0
  159. or      %i0,%l4,%i0
  161. Aret2:
  162. A999: jmpl %i7+8,%g0
  163. restore %g0,0,%g0
  165. AspecA: subcc   %l0,0,%l0
  166. bne     Anan     
  167. NOP
  168. addcc   %i5,%i5,%i5
  169. addx    %i4,%i4,%i4
  170. orcc    %i4,%i5,%l7
  171. be      Alab1    
  172. NOP
  174. /* scan %i4,0,%l5 */
  175. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  176. subcc %l5,63,%g0
  177. bne L6             
  178. NOP
  179. or %i5,0,%i4
  180. or %g0,0,%i5
  181. sub %l0,32,%l0
  182. /* scan %i4,0,%l5 */
  183. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  184. subcc %l5,63,%g0
  185. be,a L6             
  186. or %l5,0,%l0
  187. L6: subcc %g0,%l5,%l6
  188. be Alab1          
  189. sub %l0,%l5,%l0
  190. sll %i4,%l5,%i4
  191. srl %i5,%l6,%l6
  192. or %l6,%i4,%i4
  193. sll %i5,%l5,%i5
  195. ba,a    Alab1    
  197. AspecB: subcc   %l3,0,%l3
  198. bne     i5       
  199. NOP
  200. addcc   %l2,%l2,%l2
  201. addx    %l1,%l1,%l1
  202. orcc    %l1,%l2,%l7
  203. be      Anan     
  204. NOP
  206. /* scan %l1,0,%l5 */
  207. SCAN | (lo1 << 14) | 0 | (lo5 << 25)
  208. subcc %l5,63,%g0
  209. bne L8             
  210. NOP
  211. or %l2,0,%l1
  212. or %g0,0,%l2
  213. sub %l3,32,%l3
  214. /* scan %l1,0,%l5 */
  215. SCAN | (lo1 << 14) | 0 | (lo5 << 25)
  216. subcc %l5,63,%g0
  217. be,a L8             
  218. or %l5,0,%l3
  219. L8: subcc %g0,%l5,%l6
  220. be Alab2          
  221. sub %l3,%l5,%l3
  222. sll %l1,%l5,%l1
  223. srl %l2,%l6,%l6
  224. or %l6,%l1,%l1
  225. sll %l2,%l5,%l2
  227. ba,a    Alab2    
  228. i5: sll     %l1,1,%l7
  229. orcc    %l7,%l2,%l7
  230. bne     Anan     
  231. NOP
  232. ba,a    Aret2    
  234. Anan: sethi   %hi(0xfff80000),%i0
  235. ba      Aret2    
  236. or      %g0,0,%i1
  238. Azer: or      %g0,%l4,%i0
  239. ba      Aret2    
  240. or      %g0,0,%i1
  242. .global _dpfrexp
  243. _dpfrexp:
  244. .global _frexp
  245. _frexp:
  246. save %sp,-96,%sp
  248. sll     %i0,1,%i3
  249. srl     %i3,21,%i3
  250. sub     %i3,1,%i5
  251. subcc   %i5,0x7fe,%g0
  252. bcc     Bspec    
  253. NOP
  255. Blab1: sub     %i3,0x3fe,%i3
  256. sethi   %hi(0x800fffff),%i5
  257. or      %i5,0x3ff,%i5
  258. and     %i0,%i5,%i0
  259. sethi   %hi(0x3fe00000),%i5
  260. or      %i0,%i5,%i0
  262. Bret: st      %i3,[%i2]
  264. B999: jmpl %i7+8,%g0
  265. restore %g0,0,%g0
  267. Bspec: subcc   %i3,0,%i3
  268. bne     i7       
  269. NOP
  270. sethi   %hi(0x80000000),%i5
  271. and     %i5,%i0,%i4
  272. sll     %i0,1,%i5
  273. orcc    %i5,%i1,%i5
  274. be      Bret     
  275. NOP
  276. add     %i3,1,%i3
  278. Blab6: sub     %i3,1,%i3
  279. addcc   %i1,%i1,%i1
  280. addx    %i0,%i0,%i0
  281. sethi   %hi(0x100000),%i5
  282. subcc   %i0,%i5,%g0
  283. bcs     Blab6    
  284. NOP
  285. ba      Blab1    
  286. or      %i0,%i4,%i0
  287. i7: sethi   %hi(0xfff80000),%i0
  288. or      %g0,0,%i1
  289. ba      Bret     
  290. or      %g0,%i1,%i3
  292. .global _dpldexp
  293. _dpldexp:
  294. .global _ldexp
  295. _ldexp:
  296. save %sp,-96,%sp
  298. sll     %i0,1,%l0
  299. srl     %l0,21,%l0
  300. sub     %l0,1,%l3
  301. subcc   %l3,0x7fe,%g0
  302. bcc     Cspec    
  303. NOP
  304. add     %l0,%i2,%l0
  305. sub     %l0,1,%l3
  306. subcc   %l3,0x7fe,%g0
  307. bcc     Cspec2   
  308. NOP
  309. sethi   %hi(0x800fffff),%l3
  310. or      %l3,0x3ff,%l3
  311. and     %i0,%l3,%i0
  312. sll     %l0,20,%l3
  313. or      %i0,%l3,%i0
  315. C999: jmpl %i7+8,%g0
  316. restore %g0,0,%g0
  318. Cspec: subcc   %l0,0x7ff,%g0
  319. bne     Cspec2         
  320. sethi   %hi(0xfff00000),%l4
  321. andn    %i0,%l4,%l3
  322. orcc    %l3,%i1,%l3
  323. be      Cret     
  324. NOP
  325. sethi   %hi(0xfff80000),%i0
  326. ba      Cret     
  327. or      %g0,0,%i1
  329. Cspec2: sll     %i0,1,%i5
  330. srl     %i5,21,%i5
  331. sll     %i0,11,%i3
  332. srl     %i1,21,%l3
  333. or      %i3,%l3,%i3
  334. sll     %i1,11,%i4
  335. sethi   %hi(0x80000000),%l1
  336. or      %i3,%l1,%i3
  337. and     %l1,%i0,%l1
  338. subcc   %i5,0,%i5
  339. bne     i11      
  340. NOP
  341. addcc   %i4,%i4,%i4
  342. addx    %i3,%i3,%i3
  343. orcc    %i3,%i4,%l3
  344. be      Cret     
  345. NOP
  347. /* scan %i3,0,%l2 */
  348. SCAN | (in3 << 14) | 0 | (lo2 << 25)
  349. subcc %l2,63,%g0
  350. bne L10             
  351. NOP
  352. or %i4,0,%i3
  353. or %g0,0,%i4
  354. sub %i5,32,%i5
  355. /* scan %i3,0,%l2 */
  356. SCAN | (in3 << 14) | 0 | (lo2 << 25)
  357. subcc %l2,63,%g0
  358. be,a L10             
  359. or %l2,0,%i5
  360. L10: subcc %g0,%l2,%l0
  361. be i11             
  362. sub %i5,%l2,%i5
  363. sll %i3,%l2,%i3
  364. srl %i4,%l0,%l0
  365. or %l0,%i3,%i3
  366. sll %i4,%l2,%i4
  367. ba,a    i11      
  369. i11: add     %i5,%i2,%i5
  370. sub     %i5,1,%l3
  371. subcc   %l3,0x7fe,%g0
  372. bcs     Cret2          
  373. subcc   %i5,0,%i5
  374. ble     i13      
  375. NOP
  376. sethi   %hi(0x7ff00000),%i0
  377. ba      Cret1    
  378. or      %g0,0,%i1
  379. i13: or      %g0,1,%l2
  380. sub     %l2,%i5,%l2
  382. L12: subcc %l2,32,%g0
  383. bcs L13             
  384. orcc %i4,0,%g0
  385. sub %l2,32,%l2
  386. or %i3,0,%i4
  387. or %g0,0,%i3
  388. be L14             
  389. orcc %i4,0,%g0
  390. or %i4,2,%i4
  391. L14: bne L12             
  392. NOP
  393. ba,a L15             
  394. L13: subcc %g0,%l2,%i0
  395. be L15             
  396. sll %i4,%i0,%i1
  397. orcc %i1,0,%g0
  398. sll %i3,%i0,%i0
  399. srl %i4,%l2,%i4
  400. srl %i3,%l2,%i3
  401. or %i4,%i0,%i4
  402. bne,a L15             
  403. or %i4,2,%i4
  405. L15: addcc   %i4,0x400,%i4
  406. addxcc  %i3,0,%i3
  407. addx    %i5,0,%i5
  408. srl     %i4,11,%l3
  409. and     %l3,1,%l3
  410. sub     %i4,%l3,%i4
  411. or      %g0,0,%i5
  413. Cret2: srl     %i4,11,%i1
  414. sll     %i3,21,%l3
  415. or      %i1,%l3,%i1
  416. srl     %i3,11,%i0
  417. sethi   %hi(0xfffff),%l3
  418. or      %l3,0x3ff,%l3
  419. and     %i0,%l3,%i0
  420. sll     %i5,20,%l3
  421. or      %i0,%l3,%i0
  423. Cret1: or      %i0,%l1,%i0
  425. Cret:
  426. ba,a    C999     
  428. .global _dpmodf
  429. _dpmodf:
  430. .global _modf
  431. _modf:
  432. save %sp,-96,%sp
  434. sll     %i0,1,%i5
  435. srl     %i5,21,%i5
  436. sll     %i0,11,%i3
  437. srl     %i1,21,%l6
  438. or      %i3,%l6,%i3
  439. sll     %i1,11,%i4
  440. sethi   %hi(0x80000000),%l4
  441. or      %i3,%l4,%i3
  442. and     %l4,%i0,%l4
  443. sub     %i5,1,%l6
  444. subcc   %l6,0x7fe,%g0
  445. bcc     Dspec    
  446. NOP
  447. or      %g0,%i3,%l0
  448. or      %g0,%i4,%l1
  449. or      %g0,%i5,%l2
  450. or      %g0,0x43e,%l3
  451. sub     %l3,%i5,%l3
  452. subcc   %l3,0,%l3
  453. ble     Dlab3          
  454. subcc   %l3,0x40,%g0
  455. bge     Dzer     
  456. NOP
  457. and     %l3,0x1f,%l6
  458. or      %g0,1,%l5
  459. sll     %l5,%l6,%l5
  460. sub     %g0,%l5,%l5
  461. subcc   %l3,0x20,%g0
  462. bl      i14      
  463. NOP
  464. or      %g0,0,%l1
  465. ba      Dlab3    
  466. and     %l0,%l5,%l0
  467. i14: and     %l1,%l5,%l1
  469. Dlab3: srl     %l1,11,%i1
  470. sll     %l0,21,%l6
  471. or      %i1,%l6,%i1
  472. srl     %l0,11,%i0
  473. sethi   %hi(0xfffff),%l6
  474. or      %l6,0x3ff,%l6
  475. and     %i0,%l6,%i0
  476. sll     %l2,20,%l6
  477. or      %i0,%l6,%i0
  478. or      %i0,%l4,%i0
  479. st      %i0,[%i2]
  480. st      %i1,[%i2+4]
  482. or      %g0,%i3,%o0
  483. or      %g0,%i4,%o1
  484. or      %g0,%i5,%o2
  485. or      %g0,%l0,%o3
  486. or      %g0,%l1,%o4
  487. call    _exsub
  488. or      %g0,%l2,%o5
  489. or      %g0,%o0,%i3
  490. or      %g0,%o1,%i4
  491. or      %g0,%o2,%i5
  493. Dret: srl     %i4,11,%i1
  494. sll     %i3,21,%l6
  495. or      %i1,%l6,%i1
  496. srl     %i3,11,%i0
  497. sethi   %hi(0xfffff),%l6
  498. or      %l6,0x3ff,%l6
  499. and     %i0,%l6,%i0
  500. sll     %i5,20,%l6
  501. or      %i0,%l6,%i0
  502. or      %i0,%l4,%i0
  504. Dret2:
  505. D999: jmpl %i7+8,%g0
  506. restore %g0,0,%g0
  508. Dzer: st      %g0,[%i2+4]
  509. ba      Dret2    
  510. st      %l4,[%i2]
  512. Dspec: subcc   %i5,0,%i5
  513. be      Dzer     
  514. NOP
  515. or      %g0,0,%i1
  516. st      %i1,[%i2+4]
  517. sethi   %hi(0xfff80000),%i0
  518. ba      Dret2    
  519. st      %i0,[%i2]
  521. ! .end