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

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

VxWorks

开发平台：

C/C++

fpmod32.s：源码内容
  1. /* fpmod32.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. .text
  48. .align 4
  50. .global _fpfmod
  51. _fpfmod:
  52. .global _fmodf
  53. _fmodf:
  54. save %sp,-96,%sp
  56. srl     %i0,23,%i3
  57. and     %i3,0xff,%i3
  58. srl     %i1,23,%l0
  59. and     %l0,0xff,%l0
  60. sethi   %hi(0x80000000),%l2
  61. sll     %i0,8,%i2
  62. or      %i2,%l2,%i2
  63. sll     %i1,8,%i5
  64. or      %i5,%l2,%i5
  65. and     %i0,%l2,%i4
  67. sub     %i3,1,%l3
  68. subcc   %l3,0xfe,%g0
  69. bcc     AspecA         
  71. Alab1: sub     %l0,1,%l3
  72. subcc   %l3,0xfe,%g0
  73. bcc     AspecB   
  74. NOP
  76. Alab2: subcc   %i3,%l0,%l2
  77. bpos    i1       
  78. NOP
  79. ba,a    A999     
  80. i1: srl     %i2,1,%i2
  81. srl     %i5,1,%i5
  83. b2: subcc   %i2,%i5,%i2
  84. bcs,a i3               
  85. addcc   %i2,%i5,%i2
  86. i3: addcc   %i2,%i2,%i2
  87. subcc   %l2,0,%l2
  88. bne     b2       
  89. sub     %l2,1,%l2
  90. subcc   %i2,0,%i2
  91. be      Azer     
  92. NOP
  93. /* scan %i2,0,%l2 */
  94. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  95. sll %i2,%l2,%i2
  96. subcc %l0,%l2,%l0
  97. subcc   %l0,0,%l0
  98. bg      i4       
  99. NOP
  100. or      %g0,9,%l2
  101. sub     %l2,%l0,%l2
  102. subcc %l2,32,%g0
  103. bcc,a L1             
  104. or %g0,0,%i2
  105. L1: srl %i2,%l2,%i2
  106. ba,a    Aret     
  107. i4: sll     %i2,1,%i2
  108. srl     %i2,9,%i2
  109. sll     %l0,23,%l3
  110. or      %i2,%l3,%i2
  112. Aret: or      %i2,%i4,%i0
  114. A999: jmpl %i7+8,%g0
  115. restore %g0,0,%g0
  117. AspecA: subcc   %i3,0,%i3
  118. bne     Anan     
  119. NOP
  120. addcc   %i2,%i2,%i2
  121. be      Alab1    
  122. NOP
  123. /* scan %i2,0,%l2 */
  124. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  125. sll %i2,%l2,%i2
  126. subcc %i3,%l2,%i3
  127. ba,a    Alab1    
  129. AspecB: add     %i5,%i5,%i5
  130. subcc   %l0,0,%l0
  131. bne     i6             
  132. subcc   %i5,0,%i5
  133. be      Anan     
  134. NOP
  135. /* scan %i5,0,%l2 */
  136. SCAN | (in5 << 14) | 0 | (lo2 << 25)
  137. sll %i5,%l2,%i5
  138. subcc %l0,%l2,%l0
  139. ba,a    Alab2    
  140. i6: subcc   %i5,0,%i5
  141. bne     Anan     
  142. NOP
  143. ba,a    A999     
  145. Anan: ba      A999     
  146. sethi   %hi(0xffc00000),%i0
  148. Azer: ba      A999     
  149. or      %g0,%i4,%i0
  151. .global _fpfrexp
  152. _fpfrexp:
  153. .global _frexpf
  154. _frexpf:
  155. save %sp,-96,%sp
  157. srl     %i0,23,%i2
  158. and     %i2,0xff,%i2
  159. sub     %i2,1,%i5
  160. subcc   %i5,0xfe,%g0
  161. bcc     Bspec    
  162. NOP
  164. Blab1: sub     %i2,0x7e,%i2
  165. sethi   %hi(0x807fffff),%i5
  166. or      %i5,0x3ff,%i5
  167. and     %i0,%i5,%i0
  168. sethi   %hi(0x3f000000),%i5
  169. or      %i0,%i5,%i0
  171. Bret: st      %i2,[%i1]
  173. B999: jmpl %i7+8,%g0
  174. restore %g0,0,%g0
  176. Bspec: subcc   %i2,0,%i2
  177. bne     i8             
  178. addcc   %i0,%i0,%i5
  179. be      Bret     
  180. NOP
  181. sll     %i0,9,%i3
  182. /* scan %i3,0,%i4 */
  183. SCAN | (in3 << 14) | 0 | (in4 << 25)
  184. sll %i3,%i4,%i3
  185. subcc %i2,%i4,%i2
  186. sethi   %hi(0x80000000),%i5
  187. and     %i5,%i0,%i0
  188. srl     %i3,8,%i5
  189. ba      Blab1    
  190. or      %i0,%i5,%i0
  191. i8: sethi   %hi(0xffc00000),%i0
  192. ba      Bret     
  193. or      %g0,0,%i2
  195. .global _fpldexp
  196. _fpldexp:
  197. .global _ldexpf
  198. _ldexpf:
  199. save %sp,-96,%sp
  201. srl     %i0,23,%l0
  202. and     %l0,0xff,%l0
  203. sub     %l0,1,%l2
  204. subcc   %l2,0xfe,%g0
  205. bcc     Cspec    
  206. NOP
  207. add     %l0,%i1,%l0
  208. sub     %l0,1,%l2
  209. subcc   %l2,0xfe,%g0
  210. bcc     Cspec2   
  211. NOP
  212. sethi   %hi(0x807fffff),%l2
  213. or      %l2,0x3ff,%l2
  214. and     %i0,%l2,%i0
  215. sll     %l0,23,%l2
  216. or      %i0,%l2,%i0
  218. C999: jmpl %i7+8,%g0
  219. restore %g0,0,%g0
  221. Cspec: subcc   %l0,0xff,%g0
  222. bne     Cspec2         
  223. sethi   %hi(0xff800000),%l3
  224. andncc  %i0,%l3,%l2
  225. bne,a i10              
  226. sethi   %hi(0xffc00000),%i0
  227. i10:
  228. ba,a    C999     
  230. Cspec2: srl     %i0,23,%i3
  231. andcc   %i3,0xff,%i3
  232. sethi   %hi(0x80000000),%i4
  233. sll     %i0,8,%i2
  234. or      %i2,%i4,%i2
  235. bne     i11      
  236. and     %i4,%i0,%i4
  237. addcc   %i2,%i2,%i2
  238. be      i12      
  239. NOP
  240. /* scan %i2,0,%l1 */
  241. SCAN | (in2 << 14) | 0 | (lo1 << 25)
  242. sll %i2,%l1,%i2
  243. subcc %i3,%l1,%i3
  244. ba,a    i11      
  245. i12:
  246. ba,a    C999     
  247. i11: add     %i3,%i1,%i3
  248. sub     %i3,1,%l2
  249. subcc   %l2,0xfe,%g0
  250. bcs     Cret2          
  251. subcc   %i3,0,%i3
  252. ble     i13      
  253. NOP
  254. ba      Cret1    
  255. sethi   %hi(0x7f800000),%i0
  256. i13: or      %g0,1,%l1
  257. sub     %l1,%i3,%l1
  258. subcc   %l1,0x20,%g0
  259. bcs     i14      
  260. NOP
  261. ba      e14      
  262. or      %g0,2,%i2
  263. i14: or      %g0,%i2,%l0
  264. srl     %i2,%l1,%i2
  265. sll     %i2,%l1,%l2
  266. subcc   %l2,%l0,%g0
  267. bne,a e14              
  268. or      %i2,2,%i2
  269. e14: addcc   %i2,0x80,%i2
  270. addx    %i3,0,%i3
  271. srl     %i2,8,%l2
  272. and     %l2,1,%l2
  273. sub     %i2,%l2,%i2
  274. or      %g0,0,%i3
  276. Cret2: sll     %i2,1,%i0
  277. srl     %i0,9,%i0
  278. sll     %i3,23,%l2
  279. or      %i0,%l2,%i0
  281. Cret1: ba      C999     
  282. or      %i0,%i4,%i0
  284. .global _fpmodf
  285. _fpmodf:
  286. .global _modff
  287. _modff:
  288. save %sp,-96,%sp
  290. srl     %i0,23,%i3
  291. and     %i3,0xff,%i3
  292. sethi   %hi(0x80000000),%i4
  293. sll     %i0,8,%i2
  294. or      %i2,%i4,%i2
  295. and     %i4,%i0,%i4
  296. subcc   %i3,0xff,%g0
  297. be      Dinfnan  
  298. NOP
  299. or      %g0,%i2,%i5
  300. or      %g0,%i3,%l0
  301. or      %g0,%i4,%l1
  302. or      %g0,0x9e,%l2
  303. sub     %l2,%i3,%l2
  304. subcc   %l2,0,%l2
  305. ble     Dlab3          
  306. subcc   %l2,0x20,%g0
  307. bge     Dzer     
  308. NOP
  309. srl     %i5,%l2,%i5
  310. sll     %i5,%l2,%i5
  312. Dlab3: sll     %i5,1,%l2
  313. srl     %l2,9,%l2
  314. sll     %l0,23,%l3
  315. or      %l2,%l3,%l2
  316. or      %l2,%l1,%l3
  317. st      %l3,[%i1]
  318. sub     %i3,%l0,%l2
  319. subcc %l2,32,%g0
  320. bcc,a L2             
  321. or %g0,0,%i5
  322. L2: srl %i5,%l2,%i5
  323. subcc   %i2,%i5,%i2
  324. be      Dret2    
  325. NOP
  326. /* scan %i2,0,%l2 */
  327. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  328. sll %i2,%l2,%i2
  329. subcc %i3,%l2,%i3
  331. Dret: sll     %i2,1,%i2
  332. srl     %i2,9,%i2
  333. sll     %i3,23,%l3
  334. or      %i2,%l3,%i2
  336. Dret2: or      %i2,%i4,%i0
  338. D999: jmpl %i7+8,%g0
  339. restore %g0,0,%g0
  341. Dzer: ba      Dret     
  342. st      %i4,[%i1]
  344. Dinfnan:
  345. sethi   %hi(0xffc00000),%i0
  346. ba      D999     
  347. st      %i0,[%i1]
  349. ! .end