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

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

VxWorks

开发平台：

C/C++

func32.s：源码内容
  1. /* func32.s - VxWorks conversion from Microtek tools to Sun native */
  3. /* Copyright 1984-1992 Wind River Systems, Inc. */
  5. /*
  6. modification history
  7. --------------------
  8. 01b,10nov92,jwt  added two missing DIVSCC instructions in exdiv().
  9. 01a,06aug92,jwt  converted.
  10. */
  12. /*
  13. ! ! ! ! !
  14. ! SPARClite Floating Point Library
  15. !
  16. ! Copyright (C) 1992 By
  17. ! United States Software Corporation
  18. ! 14215 N.W. Science Park Drive
  19. ! Portland, Oregon 97229
  20. !
  21. ! This software is furnished under a license and may be used
  22. ! and copied only in accordance with the terms of such license
  23. ! and with the inclusion of the above copyright notice.
  24. ! This software or any other copies thereof may not be provided
  25. ! or otherwise made available to any other person.  No title to
  26. ! and ownership of the software is hereby transferred.
  27. !
  28. ! The information in this software is subject to change without 
  29. ! notice and should not be construed as a commitment by United
  30. ! States Software Corporation.
  31. !
  32. ! First Release: V1.02 March 26 1992
  33. ! ! ! ! !
  35. .macro scan,p1,p2,p3
  36. .word 0x81602000 | (&p3<<25) | (&p1<<14) | p2
  37. .endm
  38. .macro umul,p1,p2,p3
  39. .word 0x80500000 | (&p3<<25) | (&p1<<14) | &p2
  40. .endm
  41. .macro divscc,p1,p2,p3
  42. .word 0x80e80000 | (&p3<<25) | (&p1<<14) | &p2
  43. .endm
  44. */
  46. #include "arch/sparc/ussSun4.h"
  48. .text
  49. .align 4
  51. .global _sigmax
  52. _sigmax:
  53. save %sp,-96,%sp
  55. or      %g0,0x3fe,%l4
  56. sub     %l4,%i2,%l4
  58. L1: subcc %l4,32,%g0
  59. bcs L2             
  60. subcc %g0,%l4,%l5
  61. sub %l4,32,%l4
  62. orcc %i0,0,%i1
  63. bne L1             
  64. or %g0,0,%i0
  65. L2: be L3             
  66. sll %i0,%l5,%l5
  67. srl %i1,%l4,%i1
  68. srl %i0,%l4,%i0
  69. or %i1,%l5,%i1
  71. L3: ld      [%i4],%l3
  72. add     %i4,4,%i4
  73. ld      [%i4],%l2
  74. add     %i4,4,%i4
  76. b1: xor     %l2,%i3,%l6
  77. subcc   %l2,0,%l2
  78. bpos    i2       
  79. NOP
  80. subcc   %g0,%l3,%l3
  81. subx    %g0,%l2,%l2
  82. i2:
  83. umul %i0,%l3,%l3
  84. rd %y,%l3
  85. umul %i0,%l2,%l5
  86. rd %y,%l0
  87. addcc   %l3,%l5,%l3
  88. addx    %l0,0,%l0
  89. umul %i1,%l2,%l4
  90. rd %y,%l4
  91. addcc   %l3,%l4,%l3
  92. addx    %l0,0,%l0
  93. or      %g0,%l0,%l2
  94. subcc   %l6,0,%l6
  95. bpos    i3       
  96. NOP
  97. subcc   %g0,%l3,%l3
  98. subx    %g0,%l2,%l2
  99. i3: ld      [%i4],%l1
  100. add     %i4,4,%i4
  101. ld      [%i4],%l0
  102. add     %i4,4,%i4
  103. addcc   %l3,%l1,%l3
  104. addx    %l2,%l0,%l2
  105. sethi   %hi(0x80000000),%l7
  106. subcc   %l0,%l7,%g0
  107. bne     b1       
  108. NOP
  110. or      %g0,0x3ff,%i2
  111. subcc   %l2,0,%l2
  112. bneg    i4       
  113. NOP
  114. addcc   %l3,%l3,%l3
  115. addx    %l2,%l2,%l2
  116. sub     %i2,1,%i2
  117. i4: or      %g0,%l3,%i1
  118. or      %g0,%l2,%i0
  120. A999: jmpl %i7+8,%g0
  121. restore %g0,0,%g0
  123. .global _exmul
  124. _exmul:
  125. save %sp,-96,%sp
  126. umul %i0,%i3,%l1
  127. rd %y,%l0
  128. umul %i0,%i4,%l3
  129. rd %y,%l2
  130. addcc   %l1,%l2,%l1
  131. addx    %l0,0,%l0
  132. umul %i1,%i3,%l4
  133. rd %y,%l2
  134. addcc   %l4,%l3,%l4
  135. addxcc  %l1,%l2,%l1
  136. addxcc  %l0,0,%l0
  137. bneg    i5       
  138. NOP
  139. be      Bzer     
  140. NOP
  141. addcc   %l4,%l4,%l4
  142. addxcc  %l1,%l1,%l1
  143. addx    %l0,%l0,%l0
  144. sub     %i2,1,%i2
  145. i5: addcc   %l4,%l4,%l4
  146. addxcc  %l1,0,%l1
  147. addx    %l0,0,%l0
  148. add     %i2,%i5,%i2
  149. sub     %i2,0x3fe,%i2
  150. or      %g0,%l1,%i1
  151. or      %g0,%l0,%i0
  153. Bret:
  154. B999: jmpl %i7+8,%g0
  155. restore %g0,0,%g0
  157. Bzer: or      %g0,0,%i2
  158. or      %g0,%i2,%i0
  159. ba      Bret     
  160. or      %g0,%i2,%i1
  163. .global _exadd
  164. _exadd:
  165. save %sp,-96,%sp
  167. sub     %i2,%i5,%l0
  168. subcc   %l0,0,%l0
  169. bneg    i6       
  170. NOP
  172. L4: subcc %l0,32,%g0
  173. bcs L5             
  174. subcc %g0,%l0,%l1
  175. sub %l0,32,%l0
  176. orcc %i3,0,%i4
  177. bne L4             
  178. or %g0,0,%i3
  179. L5: be e6             
  180. sll %i3,%l1,%l1
  181. srl %i4,%l0,%i4
  182. srl %i3,%l0,%i3
  183. or %i4,%l1,%i4
  184. ba,a    e6       
  186. i6: or      %g0,%i5,%i2
  187. sub     %g0,%l0,%l0
  189. L7: subcc %l0,32,%g0
  190. bcs L8             
  191. subcc %g0,%l0,%l1
  192. sub %l0,32,%l0
  193. orcc %i0,0,%i1
  194. bne L7             
  195. or %g0,0,%i0
  196. L8: be e6             
  197. sll %i0,%l1,%l1
  198. srl %i1,%l0,%i1
  199. srl %i0,%l0,%i0
  200. or %i1,%l1,%i1
  202. e6: addcc   %i1,%i4,%i1
  203. addxcc  %i0,%i3,%i0
  204. bcc     i7       
  205. NOP
  206. srl     %i1,1,%i1
  207. sll     %i0,31,%l2
  208. srl     %i0,1,%i0
  209. or      %i1,%l2,%i1
  210. sethi   %hi(0x80000000),%l2
  211. or      %i0,%l2,%i0
  212. add     %i2,1,%i2
  214. i7:
  215. C999: jmpl %i7+8,%g0
  216. restore %g0,0,%g0
  219. .global _exsub
  220. _exsub:
  221. save %sp,-96,%sp
  223. sub     %i2,%i5,%l0
  225. L10: subcc %l0,32,%g0
  226. bcs L11             
  227. subcc %g0,%l0,%l1
  228. sub %l0,32,%l0
  229. orcc %i3,0,%i4
  230. bne L10             
  231. or %g0,0,%i3
  232. L11: be L12             
  233. sll %i3,%l1,%l1
  234. srl %i4,%l0,%i4
  235. srl %i3,%l0,%i3
  236. or %i4,%l1,%i4
  238. L12: subcc   %i1,%i4,%i1
  239. subx    %i0,%i3,%i0
  241. /* scan %i0,0,%l0 */
  242. SCAN | (in0 << 14) | 0 | (lo0 << 25)
  243. subcc %l0,63,%g0
  244. bne L13             
  245. NOP
  246. or %i1,0,%i0
  247. or %g0,0,%i1
  248. sub %i2,32,%i2
  249. /* scan %i0,0,%l0 */
  250. SCAN | (in0 << 14) | 0 | (lo0 << 25)
  251. subcc %l0,63,%g0
  252. be,a L13             
  253. or %l0,0,%i2
  254. L13: subcc %g0,%l0,%l1
  255. be L14             
  256. sub %i2,%l0,%i2
  257. sll %i0,%l0,%i0
  258. srl %i1,%l1,%l1
  259. or %l1,%i0,%i0
  260. sll %i1,%l0,%i1
  262. L14:
  263. D999: jmpl %i7+8,%g0
  264. restore %g0,0,%g0
  266. .global _exdiv
  267. _exdiv:
  268. save %sp,-96,%sp
  270. subcc   %i3,0,%i3
  271. be      Einf     
  272. NOP
  273. srl     %i1,1,%i1
  274. sll     %i0,31,%l5
  275. srl     %i0,1,%i0
  276. or      %i1,%l5,%i1
  278. wr %i0,0,%y
  279. or %g0,%i1,%l0
  280. orcc %g0,0,%g0
  281. #if 0
  282. divscc %l0,%i3,%l0
  283. divscc %l0,%i3,%l0
  284. divscc %l0,%i3,%l0
  285. divscc %l0,%i3,%l0
  286. divscc %l0,%i3,%l0
  287. divscc %l0,%i3,%l0
  288. divscc %l0,%i3,%l0
  289. divscc %l0,%i3,%l0
  290. divscc %l0,%i3,%l0
  291. divscc %l0,%i3,%l0
  292. divscc %l0,%i3,%l0
  293. divscc %l0,%i3,%l0
  294. divscc %l0,%i3,%l0
  295. divscc %l0,%i3,%l0
  296. divscc %l0,%i3,%l0
  297. divscc %l0,%i3,%l0
  298. divscc %l0,%i3,%l0
  299. divscc %l0,%i3,%l0
  300. divscc %l0,%i3,%l0
  301. divscc %l0,%i3,%l0
  302. divscc %l0,%i3,%l0
  303. divscc %l0,%i3,%l0
  304. divscc %l0,%i3,%l0
  305. divscc %l0,%i3,%l0
  306. divscc %l0,%i3,%l0
  307. divscc %l0,%i3,%l0
  308. divscc %l0,%i3,%l0
  309. divscc %l0,%i3,%l0
  310. divscc %l0,%i3,%l0
  311. divscc %l0,%i3,%l0
  312. divscc %l0,%i3,%l0
  313. divscc %l0,%i3,%l0
  314. #else
  315. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  316. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  317. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  318. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  319. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  320. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  321. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  322. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  323. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  324. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  325. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  326. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  327. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  328. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  329. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  330. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  331. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  332. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  333. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  334. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  335. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  336. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  337. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  338. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  339. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  340. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  341. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  342. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  343. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  344. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  345. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  346. DIVSCC | (lo0 << 14) | in3 | (lo0 << 25)
  347. #endif
  348. bge L15       
  349.  rd %y,%i0
  350. addcc %i3,%i0,%i0
  351. L15:
  352. umul %l0,%i4,%l3
  353. rd %y,%l2
  354. or      %g0,0,%i1
  355. subcc   %i1,%l3,%i1
  356. subxcc  %i0,%l2,%i0
  357. bcc     i8       
  358. NOP
  360. Elab3: sub     %l0,1,%l0
  361. addcc   %i1,%i4,%i1
  362. addxcc  %i0,%i3,%i0
  363. bcc     Elab3          
  364. i8: subcc   %i0,%i3,%g0
  365. bne     i9       
  366. NOP
  367. or      %g0,%i4,%l2
  368. or      %g0,%i1,%i0
  369. or      %g0,0,%l1
  370. ba      e9       
  371. or      %g0,%l1,%l3
  373. i9: wr %i0,0,%y
  374. or %g0,%i1,%l1
  375. orcc %g0,0,%g0
  376. #if 0
  377. divscc %l1,%i3,%l1
  378. divscc %l1,%i3,%l1
  379. divscc %l1,%i3,%l1
  380. divscc %l1,%i3,%l1
  381. divscc %l1,%i3,%l1
  382. divscc %l1,%i3,%l1
  383. divscc %l1,%i3,%l1
  384. divscc %l1,%i3,%l1
  385. divscc %l1,%i3,%l1
  386. divscc %l1,%i3,%l1
  387. divscc %l1,%i3,%l1
  388. divscc %l1,%i3,%l1
  389. divscc %l1,%i3,%l1
  390. divscc %l1,%i3,%l1
  391. divscc %l1,%i3,%l1
  392. divscc %l1,%i3,%l1
  393. divscc %l1,%i3,%l1
  394. divscc %l1,%i3,%l1
  395. divscc %l1,%i3,%l1
  396. divscc %l1,%i3,%l1
  397. divscc %l1,%i3,%l1
  398. divscc %l1,%i3,%l1
  399. divscc %l1,%i3,%l1
  400. divscc %l1,%i3,%l1
  401. divscc %l1,%i3,%l1
  402. divscc %l1,%i3,%l1
  403. divscc %l1,%i3,%l1
  404. divscc %l1,%i3,%l1
  405. divscc %l1,%i3,%l1
  406. divscc %l1,%i3,%l1
  407. divscc %l1,%i3,%l1
  408. divscc %l1,%i3,%l1
  409. #else
  410. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  411. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  412. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  413. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  414. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  415. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  416. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  417. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  418. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  419. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  420. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  421. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  422. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  423. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  424. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  425. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  426. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  427. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  428. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  429. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  430. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  431. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  432. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  433. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  434. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  435. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  436. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  437. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  438. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  439. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  440. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  441. DIVSCC | (lo1 << 14) | in3 | (lo1 << 25)
  442. #endif
  443. bge L16       
  444.  rd %y,%i0
  445. addcc %i3,%i0,%i0
  446. L16:
  447. umul %l1,%i4,%l3
  448. rd %y,%l2
  449. e9: or      %g0,0,%i1
  450. subcc   %i1,%l3,%i1
  451. subxcc  %i0,%l2,%i0
  452. bcc     i10      
  453. NOP
  455. Elab4: sub     %l1,1,%l1
  456. addcc   %i1,%i4,%i1
  457. addxcc  %i0,%i3,%i0
  458. bcc     Elab4    
  459. NOP
  460. i10: sub     %i2,%i5,%i2
  461. add     %i2,0x3ff,%i2
  462. subcc   %l0,0,%l0
  463. bneg    i11      
  464. NOP
  465. addcc   %l1,%l1,%l1
  466. addx    %l0,%l0,%l0
  467. sub     %i2,1,%i2
  468. i11: or      %g0,%l0,%i0
  469. or      %g0,%l1,%i1
  471. Eret:
  472. E999: jmpl %i7+8,%g0
  473. restore %g0,0,%g0
  475. Einf: or      %g0,0x7ff,%i2
  476. sethi   %hi(0x80000000),%i0
  477. ba      Eret     
  478. or      %g0,0,%i1
  480. ! .end