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

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

VxWorks

开发平台：

C/C++

fp32.s：源码内容
  1. /* fp32.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 __finc
  51. ! ! ! ! !
  52. !  Routine: __finc sp increment
  53. !  On entry: o0 = argument A
  54. !  On exit: o0 = A + 1
  55. !  Notes: Uses _fpadd after setting second argument
  56. ! ! ! ! !
  57. __finc:
  58. ba _fpadd ! j/ add
  59.  sethi %hi(0x3f800000),%o1 ! o1 = 1
  61. .global __fdec
  62. ! ! ! ! !
  63. !  Routine: __fdec sp decrement
  64. !  On entry: o0 = argument A
  65. !  On exit: o0 = A - 1
  66. !  Notes: Uses _fpadd after setting second argument
  67. ! ! ! ! !
  68. __fdec:
  69. ba _fpadd ! j/ add
  70.  sethi %hi(0xbf800000),%o1 ! o1 = -1
  72. .global _fpsub
  73. _fpsub:
  74. .global __fsub
  75. __fsub:
  77. sethi   %hi(0x80000000),%g1
  78. xor     %o1,%g1,%o1
  80. .global _fpadd
  81. _fpadd:
  82. .global __fadd
  83. __fadd:
  84. save %sp,-96,%sp
  86. sra     %i0,23,%i5
  87. and     %i5,0xff,%i5
  88. sra     %i1,23,%l1
  89. and     %l1,0xff,%l1
  90. sethi   %hi(0x80000000),%i3
  91. sll     %i0,8,%i4
  92. or      %i4,%i3,%i4
  93. sll     %i1,8,%l0
  94. or      %l0,%i3,%l0
  96. sub     %i5,1,%l3
  97. subcc   %l3,0xfe,%g0
  98. bcc     BspecA         
  100. Blab1: sub     %l1,1,%l3
  101. subcc   %l3,0xfe,%g0
  102. bcc     BspecB   
  104. Blab2: subcc   %i5,%l1,%l2
  105. bneg    i1             
  106. subcc   %l2,0x20,%g0
  107. bl      i2       
  108. NOP
  109. ba      e1       
  110. or      %g0,2,%l0
  111. i2: or      %g0,%l0,%i2
  112. srl     %l0,%l2,%l0
  113. sll     %l0,%l2,%l3
  114. subcc   %l3,%i2,%g0
  115. bne,a e1               
  116. or      %l0,2,%l0
  117. ba,a    e1       
  118. i1: or      %g0,%l1,%i5
  119. sub     %g0,%l2,%l2
  120. subcc   %l2,0x20,%g0
  121. bl      i4       
  122. NOP
  123. ba      e1       
  124. or      %g0,2,%i4
  125. i4: or      %g0,%i4,%i2
  126. srl     %i4,%l2,%i4
  127. sll     %i4,%l2,%l3
  128. subcc   %l3,%i2,%g0
  129. bne,a e1               
  130. or      %i4,2,%i4
  132. e1: and     %i0,%i3,%l2
  133. xorcc   %l2,%i1,%l3
  134. bneg    Bsub1    
  135. NOP
  136. addcc   %i4,%l0,%i4
  137. bcc     Bres           
  138. andcc   %i4,1,%l3
  139. bne,a i7               
  140. or      %i4,2,%i4
  141. i7: srl     %i4,1,%i4
  142. add     %i5,1,%i5
  143. subcc   %i5,0xff,%g0
  144. be,a Bres              
  145. or      %g0,0,%i4
  146. ba,a    Bres     
  148. Bsub1: subcc   %i4,%l0,%i4
  149. be      Bzer     
  150. NOP
  151. bcc     i9       
  152. NOP
  153. sub     %g0,%i4,%i4
  154. xor     %l2,%i3,%l2
  155. i9:
  156. /* scan %i4,0,%i2 */
  157. SCAN | (in4 << 14) | 0 | (in2 << 25)
  158. sll %i4,%i2,%i4
  159. subcc %i5,%i2,%i5
  161. Bres: subcc   %i5,0,%i5
  162. ble     Bund     
  163. NOP
  165. Blab12: addcc   %i4,0x80,%i4
  166. addx    %i5,0,%i5
  167. srl     %i4,8,%l3
  168. and     %l3,1,%l3
  169. sub     %i4,%l3,%i4
  170. sll     %i4,1,%i4
  171. srl     %i4,9,%i4
  172. sll     %i5,23,%l3
  173. or      %i4,%l3,%i4
  174. or      %i4,%l2,%i0
  176. B999: jmpl %i7+8,%g0
  177. restore %g0,0,%g0
  179. Bund: or      %g0,1,%i2
  180. sub     %i2,%i5,%i2
  181. subcc   %i2,0x20,%g0
  182. bcc     Bzer     
  183. sethi   %hi(0x80000000),%l3
  184. or      %i4,%l3,%i4
  185. or      %g0,0x20,%l3
  186. sub     %l3,%i2,%l3
  187. sll     %i4,%l3,%i5
  188. srl     %i4,%i2,%i4
  189. subcc   %i5,0,%i5
  190. bne,a i10              
  191. or      %i4,1,%i4
  192. i10: ba      Blab12   
  193. or      %g0,0,%i5
  195. BspecA: subcc   %i5,0,%i5
  196. bne     i11      
  197. NOP
  198. addcc   %i4,%i4,%i4
  199. be      i12      
  200. NOP
  201. /* scan %i4,0,%l2 */
  202. SCAN | (in4 << 14) | 0 | (lo2 << 25)
  203. sll %i4,%l2,%i4
  204. subcc %i5,%l2,%i5
  205. ba,a    Blab1    
  206. i12: subcc   %l1,0xff,%g0
  207. be      BspecB   
  208. NOP
  209. ba,a    BretB    
  210. i11: addcc   %i4,%i4,%l3
  211. bne     Bnan           
  212. subcc   %l1,0xff,%g0
  213. bne     BretA          
  214. xorcc   %i0,%i1,%l3
  215. bneg    Bnan     
  216. NOP
  217. ba,a    BretB    
  219. BspecB: subcc   %l1,0,%l1
  220. bne     i14      
  221. NOP
  222. addcc   %l0,%l0,%l0
  223. be      BretA    
  224. NOP
  225. /* scan %l0,0,%l2 */
  226. SCAN | (lo0 << 14) | 0 | (lo2 << 25)
  227. sll %l0,%l2,%l0
  228. subcc %l1,%l2,%l1
  229. ba,a    Blab2    
  230. i14: addcc   %l0,%l0,%l3
  231. bne     Bnan     
  232. NOP
  234. BretB: ba      B999     
  235. or      %g0,%i1,%i0
  237. BretA:
  238. ba,a    B999     
  240. Bzer: ba      B999     
  241. or      %g0,0,%i0
  243. Bnan: ba      B999     
  244. sethi   %hi(0xffc00000),%i0
  246. .global _fpmul
  247. _fpmul:
  248. .global __fmul
  249. __fmul:
  250. save %sp,-96,%sp
  252. sra     %i0,23,%i3
  253. and     %i3,0xff,%i3
  254. sra     %i1,23,%i5
  255. and     %i5,0xff,%i5
  256. sethi   %hi(0x80000000),%l0
  257. sll     %i0,8,%i2
  258. or      %i2,%l0,%i2
  259. sll     %i1,8,%i4
  260. or      %i4,%l0,%i4
  261. xor     %i0,%i1,%l2
  262. and     %l0,%l2,%l0
  264. sub     %i3,1,%l2
  265. subcc   %l2,0xfe,%g0
  266. bcc     CspecA         
  268. Clab1: sub     %i5,1,%l2
  269. subcc   %l2,0xfe,%g0
  270. bcc     CspecB   
  272. Clab2:
  273. umul %i2,%i4,%l1
  274. rd %y,%i2
  275. subcc   %l1,0,%l1
  276. bne,a i16              
  277. or      %i2,1,%i2
  279. i16: subcc   %i2,0,%i2
  280. bneg    i17      
  281. NOP
  282. sll     %i2,1,%i2
  283. sub     %i3,1,%i3
  284. i17: sub     %i5,0x7e,%l2
  285. add     %i3,%l2,%i3
  286. sub     %i3,1,%l2
  287. subcc   %l2,0xfe,%g0
  288. bcc     Coveund  
  289. NOP
  291. Clab8: addcc   %i2,0x80,%i2
  292. addx    %i3,0,%i3
  293. srl     %i2,8,%l2
  294. and     %l2,1,%l2
  295. sub     %i2,%l2,%i2
  296. sll     %i2,1,%i2
  297. srl     %i2,9,%i2
  298. sll     %i3,23,%l2
  299. or      %i2,%l2,%i2
  300. or      %i2,%l0,%i0
  302. C999: jmpl %i7+8,%g0
  303. restore %g0,0,%g0
  305. CspecA: subcc   %i3,0,%i3
  306. bne     i18      
  307. NOP
  308. addcc   %i2,%i2,%i2
  309. be      i18      
  310. NOP
  311. /* scan %i2,0,%l1 */
  312. SCAN | (in2 << 14) | 0 | (lo1 << 25)
  313. sll %i2,%l1,%i2
  314. subcc %i3,%l1,%i3
  315. ba,a    Clab1    
  316. i18: add     %i3,%i5,%l2
  317. subcc   %l2,0xff,%g0
  318. be      Cnan           
  319. subcc   %i3,0,%i3
  320. be      Czer           
  321. addcc   %i2,%i2,%l2
  322. bne     Cnan           
  323. subcc   %i5,0xff,%g0
  324. bne     Cinf           
  326. CspecB: subcc   %i5,0,%i5
  327. bne     i20      
  328. NOP
  329. addcc   %i4,%i4,%i4
  330. be      Czer     
  331. NOP
  332. /* scan %i4,0,%l1 */
  333. SCAN | (in4 << 14) | 0 | (lo1 << 25)
  334. sll %i4,%l1,%i4
  335. subcc %i5,%l1,%i5
  336. ba,a    Clab2    
  338. Czer: ba      C999     
  339. or      %g0,%l0,%i0
  340. i20: addcc   %i4,%i4,%l2
  341. bne     Cnan     
  342. NOP
  344. Cinf: sethi   %hi(0x7f800000),%l2
  345. ba      C999     
  346. or      %l2,%l0,%i0
  348. Cnan: ba      C999     
  349. sethi   %hi(0xffc00000),%i0
  351. Coveund:
  352. subcc   %i3,0,%i3
  353. bg      Cinf     
  354. NOP
  355. or      %g0,1,%l1
  356. sub     %l1,%i3,%l1
  357. subcc   %l1,0x20,%g0
  358. bcc     Czer     
  359. NOP
  360. or      %g0,0x20,%l2
  361. sub     %l2,%l1,%l2
  362. sll     %i2,%l2,%i3
  363. srl     %i2,%l1,%i2
  364. subcc   %i3,0,%i3
  365. bne,a i23              
  366. or      %i2,2,%i2
  367. i23: ba      Clab8    
  368. or      %g0,0,%i3
  370. .global _fpdiv
  371. _fpdiv:
  372. .global __fdiv
  373. __fdiv:
  374. save %sp,-96,%sp
  376. sethi   %hi(0x80000000),%l1
  377. sra     %i0,23,%i4
  378. and     %i4,0xff,%i4
  379. sra     %i1,23,%l0
  380. and     %l0,0xff,%l0
  381. sll     %i0,8,%i3
  382. or      %i3,%l1,%i3
  383. sll     %i1,8,%i5
  384. or      %i5,%l1,%i5
  385. xor     %i0,%i1,%l6
  386. and     %l1,%l6,%l1
  388. sub     %i4,1,%l6
  389. subcc   %l6,0xfe,%g0
  390. bcc     DspecA         
  392. Dlab1: sub     %l0,1,%l6
  393. subcc   %l6,0xfe,%g0
  394. bcc     DspecB         
  396. Dlab2: subcc   %i3,%i5,%g0
  397. bcs     i24      
  398. NOP
  399. srl     %i3,1,%i3
  400. add     %i4,1,%i4
  402. i24: wr %i3,0,%y
  403. or %g0,0x0,%i3
  404. orcc %g0,0,%g0
  405. #if 0
  406. divscc %i3,%i5,%i3
  407. divscc %i3,%i5,%i3
  408. divscc %i3,%i5,%i3
  409. divscc %i3,%i5,%i3
  410. divscc %i3,%i5,%i3
  411. divscc %i3,%i5,%i3
  412. divscc %i3,%i5,%i3
  413. divscc %i3,%i5,%i3
  414. divscc %i3,%i5,%i3
  415. divscc %i3,%i5,%i3
  416. divscc %i3,%i5,%i3
  417. divscc %i3,%i5,%i3
  418. divscc %i3,%i5,%i3
  419. divscc %i3,%i5,%i3
  420. divscc %i3,%i5,%i3
  421. divscc %i3,%i5,%i3
  422. divscc %i3,%i5,%i3
  423. divscc %i3,%i5,%i3
  424. divscc %i3,%i5,%i3
  425. divscc %i3,%i5,%i3
  426. divscc %i3,%i5,%i3
  427. divscc %i3,%i5,%i3
  428. divscc %i3,%i5,%i3
  429. divscc %i3,%i5,%i3
  430. divscc %i3,%i5,%i3
  431. divscc %i3,%i5,%i3
  432. divscc %i3,%i5,%i3
  433. divscc %i3,%i5,%i3
  434. divscc %i3,%i5,%i3
  435. divscc %i3,%i5,%i3
  436. divscc %i3,%i5,%i3
  437. divscc %i3,%i5,%i3
  438. #else
  439. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  440. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  441. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  442. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  443. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  444. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  445. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  446. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  447. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  448. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  449. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  450. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  451. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  452. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  453. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  454. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  455. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  456. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  457. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  458. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  459. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  460. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  461. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  462. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  463. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  464. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  465. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  466. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  467. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  468. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  469. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  470. DIVSCC | (in3 << 14) | in5 | (in3 << 25)
  471. #endif
  472. bge L1       
  473.  rd %y,%i2
  474. addcc %i5,%i2,%i2
  476. L1: subcc   %i2,0,%i2
  477. bne,a i25              
  478. or      %i3,1,%i3
  479. i25: or      %g0,0x7e,%l6
  480. sub     %l6,%l0,%l6
  481. add     %i4,%l6,%i4
  482. sub     %i4,1,%l6
  483. subcc   %l6,0xfe,%g0
  484. bcc     Doveund  
  485. NOP
  487. Dlab8: addcc   %i3,0x80,%i3
  488. addx    %i4,0,%i4
  489. srl     %i3,8,%l6
  490. and     %l6,1,%l6
  491. sub     %i3,%l6,%i3
  492. sll     %i3,1,%i3
  493. srl     %i3,9,%i3
  494. sll     %i4,23,%l6
  495. or      %i3,%l6,%i3
  496. or      %i3,%l1,%i0
  498. D999: jmpl %i7+8,%g0
  499. restore %g0,0,%g0
  501. DspecA: subcc   %i4,0,%i4
  502. bne     i26      
  503. NOP
  504. addcc   %i3,%i3,%i3
  505. be      i26      
  506. NOP
  507. /* scan %i3,0,%l2 */
  508. SCAN | (in3 << 14) | 0 | (lo2 << 25)
  509. sll %i3,%l2,%i3
  510. subcc %i4,%l2,%i4
  511. ba,a    Dlab1    
  512. i26: subcc   %l0,%i4,%g0
  513. be      Dnan           
  514. subcc   %l0,0xff,%g0
  515. be      DspecB         
  516. subcc   %i4,0,%i4
  517. be      Dzer           
  518. addcc   %i3,%i3,%l6
  519. bne     Dnan     
  520. NOP
  521. ba,a    Dinf     
  523. DspecB: subcc   %l0,0,%l0
  524. bne     i28      
  525. NOP
  526. addcc   %i5,%i5,%i5
  527. be      Dinf     
  528. NOP
  529. /* scan %i5,0,%l2 */
  530. SCAN | (in5 << 14) | 0 | (lo2 << 25)
  531. sll %i5,%l2,%i5
  532. subcc %l0,%l2,%l0
  533. ba,a    Dlab2    
  534. i28: addcc   %i5,%i5,%l6
  535. bne     Dnan     
  536. NOP
  538. Dzer: ba      D999     
  539. or      %g0,%l1,%i0
  541. Doveund:
  542. subcc   %i4,0,%i4
  543. bg      Dinf     
  544. NOP
  545. or      %g0,1,%l2
  546. sub     %l2,%i4,%l2
  547. subcc   %l2,0x20,%g0
  548. bcc     Dzer     
  549. NOP
  550. or      %g0,0x20,%l6
  551. sub     %l6,%l2,%l6
  552. sll     %i3,%l6,%i4
  553. srl     %i3,%l2,%i3
  554. subcc   %i4,0,%i4
  555. bne,a i31              
  556. or      %i3,2,%i3
  557. i31: ba      Dlab8    
  558. or      %g0,0,%i4
  560. Dinf: sethi   %hi(0x7f800000),%l6
  561. ba      D999     
  562. or      %l6,%l1,%i0
  564. Dnan: ba      D999     
  565. sethi   %hi(0xffc00000),%i0
  568. .global __ltof
  569. .global _sitofp
  570. ! ! ! ! !
  571. !  _sitofp: signed int to sp floating point
  572. !  On entry: o0 = argument A
  573. !  On exit: o0 = sp floating point
  574. ! ! ! ! !
  575. __ltof: ! C ifc
  576. _sitofp: ! USSW ifc
  577. sethi %hi(0x80000000),%o3
  578. subcc %o0,0x0,%g0
  579. be j22      
  580.  andcc %o3,%o0,%o2
  581. bl,a j23
  582.  subcc %g0,%o0,%o0
  584. j23: or %g0,0x9e,%o1
  586. b24: sub %o1,0x1,%o1
  587. subcc %o0,0x0,%g0
  588. bg b24      
  589.  sll %o0,0x1,%o0
  591. add %o1,0x1,%o1
  593. addcc %o0,0x100,%o0
  594. addxcc %o1,0x0,%o1
  595. andcc %o0,0x1ff,%o3
  596. be,a j24
  597.  andcc %o0,0xfffffdff,%o0
  599. j24: srl %o0,0x9,%o0
  600. sll %o1,0x17,%o3
  601. orcc %o0,%o3,%o0
  603. j22: orcc %o0,%o2,%o0
  605. E999: jmpl %o7+8,%g0
  606.  NOP
  609. .global __ultof
  610. .global _uitofp
  611. ! ! ! ! !
  612. !  _uitofp: unsigned int to sp floating point
  613. !  On entry: o0 = argument A
  614. !  On exit: o0 = sp floating point
  615. ! ! ! ! !
  616. __ultof: ! C ifc
  617. _uitofp: ! USSW ifc
  618. subcc %o0,0x0,%g0
  619. be F999     
  620.  or %g0,0x9e,%o1
  622. b26: sub %o1,0x1,%o1
  623. subcc %o0,0x0,%g0
  624. bg b26      
  625.  sll %o0,0x1,%o0
  627. add %o1,0x1,%o1
  629. addcc %o0,0x100,%o0
  630. addxcc %o1,0x0,%o1
  631. andcc %o0,0x1ff,%o3
  632. be,a j26
  633.  andcc %o0,0xfffffdff,%o0
  635. j26: srl %o0,0x9,%o0
  636. sll %o1,0x17,%o2
  637. orcc %o0,%o2,%o0
  639. F999: jmpl %o7+8,%g0
  640.  NOP
  643. .global __ftol
  644. .global _fptosi
  645. ! ! ! ! !
  646. !  _fptosi: sp floating point to int
  647. !  On entry: o0 = argument A
  648. !  On exit: o0 = int
  649. ! ! ! ! !
  650. __ftol: ! C ifc
  651. _fptosi: ! USSW ifc
  652. srl %o0,0x17,%o2
  653. andcc %o2,0xff,%o2
  655. sll %o0,0x8,%o1
  656. sethi %hi(0x80000000),%o3
  657. orcc %o1,%o3,%o1
  659. subcc %o2,0x9e,%g0
  660. bge,a G999
  661.  sethi %hi(0x80000000),%o0
  663. j27: or %g0,0x9e,%o3
  664. subcc %o3,%o2,%o2
  666. subcc %o2,0x20,%g0
  667. bge,a e28
  668.  or %g0,0,%o1
  670. j28: srl %o1,%o2,%o1
  672. e28: subcc %o0,0x0,%g0
  673. bl,a j29
  674.  subcc %g0,%o1,%o1
  676. j29: or %g0,%o1,%o0
  677. G999: jmpl %o7+8,%g0
  678.  NOP
  681. .global _fptoui
  682. ! ! ! ! !
  683. !  _fptoui: sp floating point to unsigned int
  684. !  On entry: o0 = argument A
  685. !  On exit: o0 = unsigned int
  686. ! ! ! ! !
  687. _fptoui:
  688. srl %o0,0x17,%o2
  689. andcc %o2,0xff,%o2
  691. sll %o0,0x8,%o1
  692. sethi %hi(0x80000000),%o3
  693. orcc %o1,%o3,%o1
  695. subcc %o2,0x9f,%g0
  696. bge,a I999
  697.  sethi %hi(0x80000000),%o0
  699. i30: or %g0,0x9e,%o3
  700. subcc %o3,%o2,%o2
  702. subcc %o2,0x20,%g0
  703. bge,a e31
  704.  or %g0,0,%o1
  706. srl %o1,%o2,%o1
  708. e31: subcc %o0,0x0,%g0
  709. bl,a i32
  710.  subcc %g0,%o1,%o1
  712. i32: or %g0,%o1,%o0
  713. I999: jmpl %o7+8,%g0
  714.  NOP
  717. .global __fcmp
  718. .global _fpcmp
  719. ! ! ! ! !
  720. !  _fpcmp: sp floating point compare
  721. !  On entry: o0 = argument A
  722. ! o1 = argument B
  723. !  On exit: condition codes set
  724. ! o0 = -1  A < B
  725. !  0  A == B
  726. !  1  A > B
  727. ! ! ! ! !
  728. __fcmp: ! C ifc
  729. _fpcmp: ! USSW ifc
  730. orcc %o0,%o1,%o3
  731. addcc %o3,%o3,%o3
  732. be Jequ
  734.  sra %o0,0x1f,%o2
  736. sethi %hi(0x80000000),%o3
  737. andncc %o0,%o3,%o0
  739. xorcc %o0,%o2,%o0
  741. subcc %o0,%o2,%o0
  743. sra %o1,0x1f,%o2
  745. sethi %hi(0x80000000),%o3
  746. andncc %o1,%o3,%o1
  748. xorcc %o1,%o2,%o1
  750. subcc %o1,%o2,%o1
  752. subcc %o0,%o1,%g0
  753. bl,a J999
  754.  or %g0,0xffffffff,%o0
  756. i33: subcc %o0,%o1,%g0
  757. bg,a J999
  758.  or %g0,0x1,%o0
  760. Jequ: or %g0,0,%o0
  762. J999: jmpl %o7+8,%g0
  763.  orcc %o0,%g0,%o0
  766. .global _fabsf
  767. .global _fpfabs
  768. ! ! ! ! !
  769. !  _fpabs: sp floating point absolute
  770. !  On entry: o0 = argument A
  771. !  On exit: o0 = absolute value
  772. ! ! ! ! !
  773. _fabsf: ! C ifc
  774. _fpfabs: ! USSW ifc
  775. sethi %hi(0x80000000),%o1
  776. K999: jmpl %o7+8,%g0
  777.  andncc %o0,%o1,%o0
  779. ! .end