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

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

VxWorks

开发平台：

C/C++

dp32.s：源码内容
  1. /* dp32.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. .text
  48. .align 4
  50. .global _dpsub
  51. _dpsub:
  52. .global __dsub
  53. __dsub:
  55. sethi   %hi(0x80000000),%g1
  56. xor     %o2,%g1,%o2
  58. .global _dpadd
  59. _dpadd:
  60. .global __dadd
  61. __dadd:
  62. save %sp,-96,%sp
  64. sll     %i0,1,%l4
  65. srl     %l4,21,%l4
  66. sll     %i0,11,%l2
  67. srl     %i1,21,%g1
  68. or      %l2,%g1,%l2
  69. sll     %i1,11,%l3
  70. sethi   %hi(0x80000000),%l1
  71. or      %l2,%l1,%l2
  72. sll     %i2,1,%l7
  73. srl     %l7,21,%l7
  74. sll     %i2,11,%l5
  75. srl     %i3,21,%g1
  76. or      %l5,%g1,%l5
  77. sll     %i3,11,%l6
  78. or      %l5,%l1,%l5
  79. and     %l1,%i0,%l1
  81. sub     %l4,1,%g1
  82. subcc   %g1,0x7fe,%g0
  83. bcc     BspecA         
  85. Blab1: sub     %l7,1,%g1
  86. subcc   %g1,0x7fe,%g0
  87. bcc     BspecB   
  88. NOP
  90. Blab2: subcc   %l4,%l7,%i4
  91. be      Badd3          
  92. subcc   %i4,0,%i4
  93. ble     i1       
  94. NOP
  96. L1: subcc %i4,32,%g0
  97. bcs L2             
  98. orcc %l6,0,%g0
  99. sub %i4,32,%i4
  100. or %l5,0,%l6
  101. or %g0,0,%l5
  102. be L3             
  103. orcc %l6,0,%g0
  104. or %l6,2,%l6
  105. L3: bne L1             
  106. NOP
  107. ba,a Badd3          
  108. L2: subcc %g0,%i4,%i5
  109. be Badd3          
  110. sll %l6,%i5,%l0
  111. orcc %l0,0,%g0
  112. sll %l5,%i5,%i5
  113. srl %l6,%i4,%l6
  114. srl %l5,%i4,%l5
  115. or %l6,%i5,%l6
  116. bne,a Badd3          
  117. or %l6,2,%l6
  118. ba,a    Badd3    
  120. i1: or      %g0,%l7,%l4
  121. sub     %g0,%i4,%i4
  123. L5: subcc %i4,32,%g0
  124. bcs L6             
  125. orcc %l3,0,%g0
  126. sub %i4,32,%i4
  127. or %l2,0,%l3
  128. or %g0,0,%l2
  129. be L7             
  130. orcc %l3,0,%g0
  131. or %l3,2,%l3
  132. L7: bne L5             
  133. NOP
  134. ba,a Badd3          
  135. L6: subcc %g0,%i4,%i5
  136. be Badd3          
  137. sll %l3,%i5,%l0
  138. orcc %l0,0,%g0
  139. sll %l2,%i5,%i5
  140. srl %l3,%i4,%l3
  141. srl %l2,%i4,%l2
  142. or %l3,%i5,%l3
  143. bne,a Badd3          
  144. or %l3,2,%l3
  146. Badd3: xorcc   %i0,%i2,%g1
  147. bneg    Bsub1    
  148. NOP
  149. addcc   %l3,%l6,%l3
  150. addxcc  %l2,%l5,%l2
  151. bcc     Bres           
  152. andcc   %l3,1,%g1
  153. bne,a i3               
  154. or      %l3,2,%l3
  155. i3: srl     %l3,1,%l3
  156. sll     %l2,31,%g1
  157. srl     %l2,1,%l2
  158. or      %l3,%g1,%l3
  159. sethi   %hi(0x80000000),%g1
  160. or      %l2,%g1,%l2
  161. add     %l4,1,%l4
  162. subcc   %l4,0x7ff,%g0
  163. be      Binf     
  164. NOP
  165. ba,a    Bres     
  167. Bsub1: subcc   %l3,%l6,%l3
  168. subxcc  %l2,%l5,%l2
  169. bcc     i4       
  170. NOP
  171. sethi   %hi(0x80000000),%g1
  172. xor     %l1,%g1,%l1
  173. subcc   %g0,%l3,%l3
  174. subx    %g0,%l2,%l2
  176. i4:
  177. /* scan %l2,0,%i4 */
  178. SCAN | (lo2 << 14) | 0 | (in4 << 25)
  179. subcc %i4,63,%g0
  180. bne L9             
  181. NOP
  182. or %l3,0,%l2
  183. or %g0,0,%l3
  184. sub %l4,32,%l4
  185. /* scan %l2,0,%i4 */
  186. SCAN | (lo2 << 14) | 0 | (in4 << 25)
  187. subcc %i4,63,%g0
  188. be,a L9             
  189. or %i4,0,%l4
  190. L9: subcc %g0,%i4,%i5
  191. be Bres            
  192. sub %l4,%i4,%l4
  193. sll %l2,%i4,%l2
  194. srl %l3,%i5,%i5
  195. or %i5,%l2,%l2
  196. sll %l3,%i4,%l3
  198. Bres: subcc   %l4,0,%l4
  199. ble     Bund     
  200. NOP
  202. Blab8: addcc   %l3,0x400,%l3
  203. addxcc  %l2,0,%l2
  204. addx    %l4,0,%l4
  205. srl     %l3,11,%g1
  206. and     %g1,1,%g1
  207. sub     %l3,%g1,%l3
  208. srl     %l3,11,%i1
  209. sll     %l2,21,%g1
  210. or      %i1,%g1,%i1
  211. srl     %l2,11,%i0
  212. sethi   %hi(0xfffff),%g1
  213. or      %g1,0x3ff,%g1
  214. and     %i0,%g1,%i0
  215. sll     %l4,20,%g1
  216. or      %i0,%g1,%i0
  218. Bret: or      %i0,%l1,%i0
  220. B999: jmpl %i7+8,%g0
  221. restore %g0,0,%g0
  223. BspecA: subcc   %l4,0,%l4
  224. bne     i5       
  225. NOP
  226. addcc   %l3,%l3,%l3
  227. addx    %l2,%l2,%l2
  228. orcc    %l2,%l3,%g1
  229. be      i6       
  230. NOP
  232. /* scan %l2,0,%i4 */
  233. SCAN | (lo2 << 14) | 0 | (in4 << 25)
  234. subcc %i4,63,%g0
  235. bne L11             
  236. NOP
  237. or %l3,0,%l2
  238. or %g0,0,%l3
  239. sub %l4,32,%l4
  240. /* scan %l2,0,%i4 */
  241. SCAN | (lo2 << 14) | 0 | (in4 << 25)
  242. subcc %i4,63,%g0
  243. be,a L11             
  244. or %i4,0,%l4
  245. L11: subcc %g0,%i4,%i5
  246. be Blab1           
  247. sub %l4,%i4,%l4
  248. sll %l2,%i4,%l2
  249. srl %l3,%i5,%i5
  250. or %i5,%l2,%l2
  251. sll %l3,%i4,%l3
  253. ba,a    Blab1    
  254. i6: subcc   %l7,0x7ff,%g0
  255. be      BspecB   
  256. NOP
  257. ba,a    BretB    
  258. i5: sll     %l2,1,%g1
  259. orcc    %g1,%l3,%g1
  260. bne     Bnan           
  261. subcc   %l7,0x7ff,%g0
  262. bne     BretA          
  263. xorcc   %i0,%i2,%g1
  264. bneg    Bnan     
  265. NOP
  266. ba,a    BretB    
  268. BspecB: subcc   %l7,0,%l7
  269. bne     i8       
  270. NOP
  271. addcc   %l6,%l6,%l6
  272. addx    %l5,%l5,%l5
  273. orcc    %l5,%l6,%g1
  274. be      BretA    
  275. NOP
  277. /* scan %l5,0,%i4 */
  278. SCAN | (lo5 << 14) | 0 | (in4 << 25)
  279. subcc %i4,63,%g0
  280. bne L13             
  281. NOP
  282. or %l6,0,%l5
  283. or %g0,0,%l6
  284. sub %l7,32,%l7
  285. /* scan %l5,0,%i4 */
  286. SCAN | (lo5 << 14) | 0 | (in4 << 25)
  287. subcc %i4,63,%g0
  288. be,a L13             
  289. or %i4,0,%l7
  290. L13: subcc %g0,%i4,%i5
  291. be Blab2           
  292. sub %l7,%i4,%l7
  293. sll %l5,%i4,%l5
  294. srl %l6,%i5,%i5
  295. or %i5,%l5,%l5
  296. sll %l6,%i4,%l6
  298. ba,a    Blab2    
  299. i8: sll     %l5,1,%g1
  300. orcc    %g1,%l6,%g1
  301. bne     Bnan     
  302. NOP
  304. BretB: or      %g0,%i2,%i0
  305. ba      B999     
  306. or      %g0,%i3,%i1
  308. BretA:
  309. ba,a    B999     
  311. Bnan: sethi   %hi(0xfff80000),%i0
  312. ba      Bret     
  313. or      %g0,0,%i1
  315. Bund: or      %g0,1,%i4
  316. sub     %i4,%l4,%i4
  318. L15: subcc %i4,32,%g0
  319. bcs L16             
  320. orcc %l3,0,%g0
  321. sub %i4,32,%i4
  322. or %l2,0,%l3
  323. or %g0,0,%l2
  324. be L17             
  325. orcc %l3,0,%g0
  326. or %l3,2,%l3
  327. L17: bne L15             
  328. NOP
  329. ba,a L18             
  330. L16: subcc %g0,%i4,%i5
  331. be L18             
  332. sll %l3,%i5,%l0
  333. orcc %l0,0,%g0
  334. sll %l2,%i5,%i5
  335. srl %l3,%i4,%l3
  336. srl %l2,%i4,%l2
  337. or %l3,%i5,%l3
  338. bne,a L18             
  339. or %l3,2,%l3
  341. L18: ba      Blab8    
  342. or      %g0,0,%l4
  344. Binf: sethi   %hi(0x7ff00000),%i0
  345. ba      Bret     
  346. or      %g0,0,%i1
  348. .global _dpmul
  349. _dpmul:
  350. .global __dmul
  351. __dmul:
  352. save %sp,-96,%sp
  354. sll     %i0,1,%l0
  355. srl     %l0,21,%l0
  356. sll     %i0,11,%i4
  357. srl     %i1,21,%g1
  358. or      %i4,%g1,%i4
  359. sll     %i1,11,%i5
  360. sethi   %hi(0x80000000),%l5
  361. or      %i4,%l5,%i4
  362. sll     %i2,1,%l3
  363. srl     %l3,21,%l3
  364. sll     %i2,11,%l1
  365. srl     %i3,21,%g1
  366. or      %l1,%g1,%l1
  367. sll     %i3,11,%l2
  368. or      %l1,%l5,%l1
  369. xor     %i0,%i2,%g1
  370. and     %l5,%g1,%l5
  372. sub     %l0,1,%g1
  373. subcc   %g1,0x7fe,%g0
  374. bcc     CspecA         
  376. Clab1: sub     %l3,1,%g1
  377. subcc   %g1,0x7fe,%g0
  378. bcc     CspecB   
  379. NOP
  381. Clab2: umul %i4,%l1,%i2
  382. rd %y,%l6
  383. umul %i5,%l2,%l4
  384. rd %y,%i3
  385. umul %i4,%l2,%l2
  386. rd %y,%l7
  387. addcc   %i3,%l2,%i3
  388. addxcc  %i2,%l7,%i2
  389. addx    %l6,0,%l6
  390. umul %i5,%l1,%i5
  391. rd %y,%l7
  392. addcc   %i3,%i5,%i3
  393. addxcc  %i2,%l7,%i2
  394. addx    %l6,0,%l6
  395. orcc    %l4,%i3,%g1
  396. bne,a i10              
  397. or      %i2,1,%i2
  398. i10: orcc    %g0,%l6,%i4
  399. bneg    i11      
  400. or      %g0,%i2,%i5
  401. addcc   %i5,%i5,%i5
  402. addx    %i4,%i4,%i4
  403. sub     %l0,1,%l0
  404. i11: sub     %l3,0x3fe,%g1
  405. add     %l0,%g1,%l0
  406. sub     %l0,1,%g1
  407. subcc   %g1,0x7fe,%g0
  408. bcc     Coveund  
  409. NOP
  411. Clab8: addcc   %i5,0x400,%i5
  412. addxcc  %i4,0,%i4
  413. addx    %l0,0,%l0
  414. srl     %i5,11,%g1
  415. and     %g1,1,%g1
  416. sub     %i5,%g1,%i5
  417. srl     %i5,11,%i1
  418. sll     %i4,21,%g1
  419. or      %i1,%g1,%i1
  420. srl     %i4,11,%i0
  421. sethi   %hi(0xfffff),%g1
  422. or      %g1,0x3ff,%g1
  423. and     %i0,%g1,%i0
  424. sll     %l0,20,%g1
  425. or      %i0,%g1,%i0
  427. Cret: or      %i0,%l5,%i0
  429. Cret2:
  430. C999: jmpl %i7+8,%g0
  431. restore %g0,0,%g0
  433. CspecA: subcc   %l0,0,%l0
  434. bne     i12      
  435. NOP
  436. addcc   %i5,%i5,%i5
  437. addx    %i4,%i4,%i4
  438. orcc    %i4,%i5,%g1
  439. be      i12      
  440. NOP
  442. /* scan %i4,0,%l6 */
  443. SCAN | (in4 << 14) | 0 | (lo6 << 25)
  444. subcc %l6,63,%g0
  445. bne L19             
  446. NOP
  447. or %i5,0,%i4
  448. or %g0,0,%i5
  449. sub %l0,32,%l0
  450. /* scan %i4,0,%l6 */
  451. SCAN | (in4 << 14) | 0 | (lo6 << 25)
  452. subcc %l6,63,%g0
  453. be,a L19             
  454. or %l6,0,%l0
  455. L19: subcc %g0,%l6,%i2
  456. be Clab1           
  457. sub %l0,%l6,%l0
  458. sll %i4,%l6,%i4
  459. srl %i5,%i2,%i2
  460. or %i2,%i4,%i4
  461. sll %i5,%l6,%i5
  463. ba,a    Clab1    
  464. i12: add     %l0,%l3,%g1
  465. subcc   %g1,0x7ff,%g0
  466. be      Cnan           
  467. subcc   %l0,0,%l0
  468. be      Czer           
  469. sll     %i4,1,%g1
  470. orcc    %g1,%i5,%g1
  471. bne     Cnan           
  472. subcc   %l3,0x7ff,%g0
  473. bne     Cinf           
  475. CspecB: subcc   %l3,0,%l3
  476. bne     i14      
  477. NOP
  478. addcc   %l2,%l2,%l2
  479. addx    %l1,%l1,%l1
  480. orcc    %l1,%l2,%g1
  481. be      Czer     
  482. NOP
  484. /* scan %l1,0,%l7 */
  485. SCAN | (lo1 << 14) | 0 | (lo7 << 25)
  486. subcc %l7,63,%g0
  487. bne L21             
  488. NOP
  489. or %l2,0,%l1
  490. or %g0,0,%l2
  491. sub %l3,32,%l3
  492. /* scan %l1,0,%l7 */
  493. SCAN | (lo1 << 14) | 0 | (lo7 << 25)
  494. subcc %l7,63,%g0
  495. be,a L21             
  496. or %l7,0,%l3
  497. L21: subcc %g0,%l7,%l6
  498. be Clab2           
  499. sub %l3,%l7,%l3
  500. sll %l1,%l7,%l1
  501. srl %l2,%l6,%l6
  502. or %l6,%l1,%l1
  503. sll %l2,%l7,%l2
  505. ba,a    Clab2    
  506. i14: sll     %l1,1,%g1
  507. orcc    %g1,%l2,%g1
  508. bne     Cnan     
  509. NOP
  511. Cinf: sethi   %hi(0x7ff00000),%i0
  512. ba      Cret     
  513. or      %g0,0,%i1
  515. Cnan: sethi   %hi(0xfff80000),%i0
  516. ba      Cret     
  517. or      %g0,0,%i1
  519. Coveund:
  520. subcc   %l0,0,%l0
  521. bg      Cinf     
  522. NOP
  523. or      %g0,1,%l6
  524. sub     %l6,%l0,%l6
  526. L23: subcc %l6,32,%g0
  527. bcs L24             
  528. orcc %i5,0,%g0
  529. sub %l6,32,%l6
  530. or %i4,0,%i5
  531. or %g0,0,%i4
  532. be L25             
  533. orcc %i5,0,%g0
  534. or %i5,2,%i5
  535. L25: bne L23             
  536. NOP
  537. ba,a L26             
  538. L24: subcc %g0,%l6,%i2
  539. be L26             
  540. sll %i5,%i2,%i3
  541. orcc %i3,0,%g0
  542. sll %i4,%i2,%i2
  543. srl %i5,%l6,%i5
  544. srl %i4,%l6,%i4
  545. or %i5,%i2,%i5
  546. bne,a L26             
  547. or %i5,2,%i5
  549. L26: ba      Clab8    
  550. or      %g0,0,%l0
  552. Czer: or      %g0,0,%i0
  553. ba      Cret     
  554. or      %g0,%i0,%i1
  556. .global _dpdiv
  557. _dpdiv:
  558. .global __ddiv
  559. __ddiv:
  560. save %sp,-96,%sp
  562. sll     %i0,1,%l0
  563. srl     %l0,21,%l0
  564. sll     %i0,11,%i4
  565. srl     %i1,21,%g1
  566. or      %i4,%g1,%i4
  567. sll     %i1,11,%i5
  568. sethi   %hi(0x80000000),%l4
  569. or      %i4,%l4,%i4
  570. sll     %i2,1,%l3
  571. srl     %l3,21,%l3
  572. sll     %i2,11,%l1
  573. srl     %i3,21,%g1
  574. or      %l1,%g1,%l1
  575. sll     %i3,11,%l2
  576. or      %l1,%l4,%l1
  577. xor     %i0,%i2,%g1
  578. and     %l4,%g1,%l4
  580. sub     %l0,1,%g1
  581. subcc   %g1,0x7fe,%g0
  582. bcc     DspecA         
  584. Dlab1: sub     %l3,1,%g1
  585. subcc   %g1,0x7fe,%g0
  586. bcc     DspecB   
  587. NOP
  589. Dlab2: srl     %i5,1,%i5
  590. sll     %i4,31,%g1
  591. srl     %i4,1,%i4
  592. or      %i5,%g1,%i5
  594. wr %i4,0,%y
  595. or %g0,%i5,%l5
  596. orcc %g0,0,%g0
  597. #if 0
  598. divscc %l5,%l1,%l5
  599. divscc %l5,%l1,%l5
  600. divscc %l5,%l1,%l5
  601. divscc %l5,%l1,%l5
  602. divscc %l5,%l1,%l5
  603. divscc %l5,%l1,%l5
  604. divscc %l5,%l1,%l5
  605. divscc %l5,%l1,%l5
  606. divscc %l5,%l1,%l5
  607. divscc %l5,%l1,%l5
  608. divscc %l5,%l1,%l5
  609. divscc %l5,%l1,%l5
  610. divscc %l5,%l1,%l5
  611. divscc %l5,%l1,%l5
  612. divscc %l5,%l1,%l5
  613. divscc %l5,%l1,%l5
  614. divscc %l5,%l1,%l5
  615. divscc %l5,%l1,%l5
  616. divscc %l5,%l1,%l5
  617. divscc %l5,%l1,%l5
  618. divscc %l5,%l1,%l5
  619. divscc %l5,%l1,%l5
  620. divscc %l5,%l1,%l5
  621. divscc %l5,%l1,%l5
  622. divscc %l5,%l1,%l5
  623. divscc %l5,%l1,%l5
  624. divscc %l5,%l1,%l5
  625. divscc %l5,%l1,%l5
  626. divscc %l5,%l1,%l5
  627. divscc %l5,%l1,%l5
  628. divscc %l5,%l1,%l5
  629. divscc %l5,%l1,%l5
  630. #else
  631. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  632. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  633. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  634. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  635. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  636. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  637. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  638. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  639. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  640. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  641. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  642. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  643. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  644. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  645. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  646. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  647. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  648. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  649. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  650. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  651. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  652. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  653. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  654. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  655. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  656. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  657. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  658. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  659. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  660. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  661. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  662. DIVSCC | (lo5 << 14) | lo1 | (lo5 << 25)
  663. #endif
  664. bge L27       
  665.  rd %y,%i4
  666. addcc %l1,%i4,%i4
  667. L27: umul %l5,%l2,%i2
  668. rd %y,%l7
  669. or      %g0,0,%i5
  670. subcc   %i5,%i2,%i5
  671. subxcc  %i4,%l7,%i4
  672. bcc     i16      
  673. NOP
  675. Dlab3: sub     %l5,1,%l5
  676. addcc   %i5,%l2,%i5
  677. addxcc  %i4,%l1,%i4
  678. bcc     Dlab3          
  679. i16: subcc   %i4,%l1,%g0
  680. bne     i17      
  681. NOP
  682. or      %g0,%l2,%l7
  683. or      %g0,%i5,%i4
  684. or      %g0,0,%l6
  685. ba      e17      
  686. or      %g0,%l6,%i2
  688. i17: wr %i4,0,%y
  689. or %g0,%i5,%l6
  690. orcc %g0,0,%g0
  691. #if 0
  692. divscc %l6,%l1,%l6
  693. divscc %l6,%l1,%l6
  694. divscc %l6,%l1,%l6
  695. divscc %l6,%l1,%l6
  696. divscc %l6,%l1,%l6
  697. divscc %l6,%l1,%l6
  698. divscc %l6,%l1,%l6
  699. divscc %l6,%l1,%l6
  700. divscc %l6,%l1,%l6
  701. divscc %l6,%l1,%l6
  702. divscc %l6,%l1,%l6
  703. divscc %l6,%l1,%l6
  704. divscc %l6,%l1,%l6
  705. divscc %l6,%l1,%l6
  706. divscc %l6,%l1,%l6
  707. divscc %l6,%l1,%l6
  708. divscc %l6,%l1,%l6
  709. divscc %l6,%l1,%l6
  710. divscc %l6,%l1,%l6
  711. divscc %l6,%l1,%l6
  712. divscc %l6,%l1,%l6
  713. divscc %l6,%l1,%l6
  714. divscc %l6,%l1,%l6
  715. divscc %l6,%l1,%l6
  716. divscc %l6,%l1,%l6
  717. divscc %l6,%l1,%l6
  718. divscc %l6,%l1,%l6
  719. divscc %l6,%l1,%l6
  720. divscc %l6,%l1,%l6
  721. divscc %l6,%l1,%l6
  722. divscc %l6,%l1,%l6
  723. divscc %l6,%l1,%l6
  724. #else
  725. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  726. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  727. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  728. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  729. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  730. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  731. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  732. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  733. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  734. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  735. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  736. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  737. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  738. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  739. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  740. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  741. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  742. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  743. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  744. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  745. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  746. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  747. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  748. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  749. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  750. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  751. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  752. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  753. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  754. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  755. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  756. DIVSCC | (lo6 << 14) | lo1 | (lo6 << 25)
  757. #endif
  758. bge L28       
  759.  rd %y,%i4
  760. addcc %l1,%i4,%i4
  761. L28: umul %l6,%l2,%i2
  762. rd %y,%l7
  763. e17: or      %g0,0,%i5
  764. subcc   %i5,%i2,%i5
  765. subxcc  %i4,%l7,%i4
  766. bcc     i18      
  767. NOP
  769. Dlab4: sub     %l6,1,%l6
  770. addcc   %i5,%l2,%i5
  771. addxcc  %i4,%l1,%i4
  772. bcc     Dlab4    
  773. NOP
  774. i18: sub     %l0,%l3,%l0
  775. add     %l0,0x3ff,%l0
  776. subcc   %l5,0,%l5
  777. bneg    i19      
  778. NOP
  779. addcc   %l6,%l6,%l6
  780. addx    %l5,%l5,%l5
  781. sub     %l0,1,%l0
  782. i19: orcc    %i4,%i5,%g1
  783. bne,a i20              
  784. or      %l6,1,%l6
  785. i20: or      %g0,%l5,%i4
  786. or      %g0,%l6,%i5
  787. sub     %l0,1,%g1
  788. subcc   %g1,0x7fe,%g0
  789. bcc     Doveund  
  790. NOP
  792. Dlab8: addcc   %i5,0x400,%i5
  793. addxcc  %i4,0,%i4
  794. addx    %l0,0,%l0
  795. srl     %i5,11,%g1
  796. and     %g1,1,%g1
  797. sub     %i5,%g1,%i5
  798. srl     %i5,11,%i1
  799. sll     %i4,21,%g1
  800. or      %i1,%g1,%i1
  801. srl     %i4,11,%i0
  802. sethi   %hi(0xfffff),%g1
  803. or      %g1,0x3ff,%g1
  804. and     %i0,%g1,%i0
  805. sll     %l0,20,%g1
  806. or      %i0,%g1,%i0
  808. Dret: or      %i0,%l4,%i0
  810. D999: jmpl %i7+8,%g0
  811. restore %g0,0,%g0
  813. Doveund:
  814. subcc   %l0,0,%l0
  815. bg      Dinf     
  816. NOP
  817. or      %g0,1,%l5
  818. sub     %l5,%l0,%l5
  820. L29: subcc %l5,32,%g0
  821. bcs L30             
  822. orcc %i5,0,%g0
  823. sub %l5,32,%l5
  824. or %i4,0,%i5
  825. or %g0,0,%i4
  826. be L31             
  827. orcc %i5,0,%g0
  828. or %i5,2,%i5
  829. L31: bne L29             
  830. NOP
  831. ba,a L32             
  832. L30: subcc %g0,%l5,%l6
  833. be L32             
  834. sll %i5,%l6,%l7
  835. orcc %l7,0,%g0
  836. sll %i4,%l6,%l6
  837. srl %i5,%l5,%i5
  838. srl %i4,%l5,%i4
  839. or %i5,%l6,%i5
  840. bne,a L32             
  841. or %i5,2,%i5
  843. L32: ba      Dlab8    
  844. or      %g0,0,%l0
  846. DspecA: subcc   %l0,0,%l0
  847. bne     i21      
  848. NOP
  849. addcc   %i5,%i5,%i5
  850. addx    %i4,%i4,%i4
  851. orcc    %i4,%i5,%g1
  852. be      i21      
  853. NOP
  855. /* scan %i4,0,%l5 */
  856. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  857. subcc %l5,63,%g0
  858. bne L33             
  859. NOP
  860. or %i5,0,%i4
  861. or %g0,0,%i5
  862. sub %l0,32,%l0
  863. /* scan %i4,0,%l5 */
  864. SCAN | (in4 << 14) | 0 | (lo5 << 25)
  865. subcc %l5,63,%g0
  866. be,a L33             
  867. or %l5,0,%l0
  868. L33: subcc %g0,%l5,%l6
  869. be Dlab1           
  870. sub %l0,%l5,%l0
  871. sll %i4,%l5,%i4
  872. srl %i5,%l6,%l6
  873. or %l6,%i4,%i4
  874. sll %i5,%l5,%i5
  876. ba,a    Dlab1    
  877. i21: subcc   %l0,%l3,%g0
  878. be      Dnan           
  879. subcc   %l3,0x7ff,%g0
  880. be      DspecB         
  881. subcc   %l0,0,%l0
  882. be      Dzer           
  883. sll     %i4,1,%g1
  884. orcc    %g1,%i5,%g1
  885. bne     Dnan     
  886. NOP
  888. Dinf: sethi   %hi(0x7ff00000),%i0
  889. ba      Dret     
  890. or      %g0,0,%i1
  892. DspecB: subcc   %l3,0,%l3
  893. bne     i23      
  894. NOP
  895. addcc   %l2,%l2,%l2
  896. addx    %l1,%l1,%l1
  897. orcc    %l1,%l2,%g1
  898. be      Dinf     
  899. NOP
  901. /* scan %l1,0,%l5 */
  902. SCAN | (lo1 << 14) | 0 | (lo5 << 25)
  903. subcc %l5,63,%g0
  904. bne L35             
  905. NOP
  906. or %l2,0,%l1
  907. or %g0,0,%l2
  908. sub %l3,32,%l3
  909. /* scan %l1,0,%l5 */
  910. SCAN | (lo1 << 14) | 0 | (lo5 << 25)
  911. subcc %l5,63,%g0
  912. be,a L35             
  913. or %l5,0,%l3
  914. L35: subcc %g0,%l5,%l6
  915. be Dlab2           
  916. sub %l3,%l5,%l3
  917. sll %l1,%l5,%l1
  918. srl %l2,%l6,%l6
  919. or %l6,%l1,%l1
  920. sll %l2,%l5,%l2
  922. ba,a    Dlab2    
  923. i23: sll     %l1,1,%g1
  924. orcc    %g1,%l2,%g1
  925. bne     Dnan     
  926. NOP
  928. Dzer: or      %g0,0,%i1
  929. ba      Dret     
  930. or      %g0,%i1,%i0
  932. Dnan: sethi   %hi(0xfff80000),%i0
  933. ba      Dret     
  934. or      %g0,0,%i1
  937. .global __dcmp
  938. .global _dpcmp
  939. ! ! ! ! !
  940. !  __dcmp: dp floating point comparison
  941. !  On entry: o0:o1 = argument A
  942. ! o2:o3 = argument B
  943. !  On exit: condition codes set
  944. ! o0 = -1  A < B
  945. !  0  A == B
  946. !  1  A > B
  947. ! ! ! ! !
  948. __dcmp: ! C ifc
  949. _dpcmp: ! USSW ifc
  950. or %o2,%o0,%o4 ! two zeroes of any kind are equal
  951. add %o4,%o4,%o4
  952. or %o4,%o1,%o4
  953. orcc %o4,%o3,%o4
  954. be cmp98
  955. !
  956.  andcc %o0,%o2,%g0
  957. bneg cmp10 ! j/ both negative
  958. !
  959. ! A & B are both positive or of different sign
  960. !
  961.  subcc %o0,%o2,%g0
  962. bl,a cmp99 ! j/ A < B
  963.  or %g0,-1,%o0
  964. bg,a cmp99 ! j/ A > B
  965.  or %g0,1,%o0
  966. subcc %o1,%o3,%g0
  967. bcs,a cmp99 ! j/ A < B
  968.  or %g0,-1,%o0
  969. bgu,a cmp99 ! j/ A > B
  970.  or %g0,1,%o0
  971. cmp98: or %g0,0,%o0 ! A == B
  972. cmp99: jmpl %o7+8,%g0 ! return
  973.  orcc %g0,%o0,%g0 ! setting cc
  974. !
  975. ! A & B are both negative
  976. !
  977. cmp10:  subcc %o0,%o2,%g0
  978. bl,a cmp99 ! j/ A > B
  979.  or %g0,1,%o0
  980. bg,a cmp99 ! j/ A < B
  981.  or %g0,-1,%o0
  982. subcc %o1,%o3,%o0
  983. bcs,a cmp99 ! j/ A > B
  984.  or %g0,1,%o0
  985. bgu,a cmp99 ! j/ A < B
  986.  or %g0,-1,%o0
  987. jmpl %o7+8,%g0 ! return
  988.  orcc %g0,%o0,%g0 ! setting cc
  991. .global __dtol
  992. .global _dptoli
  993. ! ! ! ! !
  994. !  __dtol: dp floating point to long
  995. !  On entry: o0:o1 = argument A
  996. !  On exit: o0 = long
  997. !  Note: >>>> This routine truncates DOWN <<<<
  998. ! ! ! ! !
  999. __dtol: ! C ifc
  1000. _dptoli: ! USSW ifc
  1001. sll %o0,1,%o2 ! o2 = exp:mant left justified
  1002. sethi %hi(0xffe00000),%g1
  1003. subcc %o2,%g1,%g0
  1004. bgu tol22 ! j/ NaN
  1005.  srl %o2,21,%o2 ! o2 = exp right justified
  1006. !
  1007. sll %o0,11,%o3 ! %o3 = mantissa left justified
  1008. sethi %hi(0x80000000),%g1
  1009. or %o3,%g1,%o3
  1010. srl %o1,21,%g1
  1011. or %g1,%o3,%o3
  1012. !
  1013. ! convert mantissa to integer
  1014. !
  1015. subcc %o2,1054,%o2  ! check unbiased exponent
  1016. bge tol22 ! j/ exp too large
  1017.  sub %g0,%o2,%o2
  1018. subcc %o2,31,%g0
  1019. bg tol20 ! j/ exp too small
  1020.  orcc %o0,0,%g0
  1021. bge tol99 ! j/ positive number
  1022.  srl %o3,%o2,%o0 ! shift mantissa to long answer
  1023. !
  1024. sub %g0,%o0,%o0 ! negative answer
  1025. !
  1026. tol99: jmpl %o7+8,%g0 ! return
  1027.  nop
  1028. !
  1029. ! exponent too small, return 0
  1030. !
  1031. tol20: ba tol99 ! exp too small, return 0
  1032.  or %g0,%g0,%o0
  1033. !
  1034. ! NaN or exponent too large, return IEEE invalid 0x80000000
  1035. !
  1036. tol22: ba tol99
  1037. sethi %hi(0x80000000),%o0
  1040. .global _dptoul
  1041. _dptoul:
  1042. save %sp,-96,%sp
  1044. sll %i0,11,%i3
  1045. srl %i1,21,%i5
  1046. sll %i1,11,%i4
  1047. or %i3,%i5,%i3
  1048. sethi %hi(0x80000000),%i5
  1049. or %i3,%i5,%i3
  1050. sll %i0,1,%i5
  1051. srl %i5,21,%i5
  1053. or %g0,%i3,%l0
  1055. subcc %i5,0x41f,%g0
  1056. bcc Lnaninf
  1057. NOP
  1059. or %g0,0x41e,%i2
  1060. subcc %i2,%i5,%i2
  1062. subcc %i2,32,%g0
  1063. bcc,a L4
  1064. or %g0,0,%l0
  1065. L4: srl %l0,%i2,%l0
  1067. subcc %i0,0x0,%g0
  1068. bge i28      
  1069. NOP
  1071. subcc %g0,%l0,%l0
  1073. i28: or %g0,%l0,%i0
  1075. L999: jmpl %i7+8,%g0
  1076. restore %g0,0,%g0
  1078. Lnaninf:
  1079. sethi %hi(0x80000000),%i0
  1080. ba L999
  1081. NOP
  1084. .global __ltod
  1085. .global __ultod
  1086. .global _litodp
  1087. .global _ultodp
  1088. ! ! ! ! !
  1089. !  __ultod: unsigned long to dp floating point
  1090. !  __ltod: long to dp floating point
  1091. !  On entry: o0 = argument A
  1092. !  On exit: o0:o1 = dp floating point
  1093. ! ! ! ! !
  1094. __ltod: ! C ifc
  1095. _litodp: ! USSW ifc
  1096. orcc %o0,0,%g0
  1097. bl tod10 ! j/ negative
  1099. __ultod: ! C ifc
  1100. _ultodp: ! USSW ifc
  1101.  or %g0,31+0x3ff,%o4 ! o4 = anticipated exp
  1102. !
  1103. ! normalize mantissa to o2:o3
  1104. !
  1105. tod01:
  1106. /* scan %o0,0,%g1 ! count zero bits */
  1107. SCAN | (out0 << 14) | 0 | (gl1 << 25)
  1108. subcc %g1,63,%g0
  1109. be tod22 ! j/ zero
  1110.  sll %o0,%g1,%o2 ! o2 = long left justified
  1111. sll %o2,1,%o2 ! toss hidden bit
  1112. sll %o2,20,%o3 ! o3 = low order bits
  1113. srl %o2,12,%o2 ! room for sign & mant
  1114. !
  1115. sub %o4,%g1,%o4 ! adjust exp
  1116. sll %o4,20,%o4 ! position exp
  1117. or %o2,%o4,%o2 ! combine exp & mant
  1118. !
  1119. ! o0:o1 = answer
  1120. !
  1121. tod99: or %g0,%o2,%o0 ! o0:o1 = answer
  1122. jmpl %o7+8,%g0 ! return
  1123.  or %g0,%o3,%o1
  1124. !
  1125. tod22: or %g0,0,%o0 ! return 0
  1126. jmpl %o7+8,%g0
  1127.  or %g0,0,%o1
  1128. !
  1129. ! negate long
  1130. ! normalize mantissa to o2:o3
  1131. !
  1132. tod10: sub %g0,%o0,%o0 ! negate long
  1133. /* scan %o0,0,%g1 ! count zero bits */
  1134. SCAN | (out0 << 14) | 0 | (gl1 << 25)
  1135. sll %o0,%g1,%o2 ! o2 = long left justified
  1136. sll %o2,1,%o2 ! toss hidden bit
  1137. sll %o2,20,%o3 ! o3 = low order bits
  1138. srl %o2,12,%o2 ! room for sign & mant
  1139. !
  1140. sub %o4,%g1,%o4 ! adjust exp
  1141. or %o4,0x800,%o4 ! combine sign & exp
  1142. sll %o4,20,%o4 ! position sign & exp
  1143. ba tod99
  1144.  or %o2,%o4,%o2 ! combine sign & exp & mant
  1147. .global _fptodp
  1148. _fptodp:
  1149. .global __ftod
  1150. __ftod:
  1151. save %sp,-96,%sp
  1153. srl     %i0,23,%i3
  1154. and     %i3,0xff,%i3
  1155. sethi   %hi(0x80000000),%i4
  1156. and     %i0,%i4,%i1
  1157. sub     %i3,1,%i5
  1158. subcc   %i5,0xfe,%g0
  1159. bcc     Gspec    
  1160. NOP
  1162. Glab1: add     %i3,0x380,%i3
  1163. sll     %i0,9,%i5
  1164. srl     %i5,12,%i5
  1165. or      %i1,%i5,%i1
  1166. sll     %i0,29,%i2
  1168. Gret: sll     %i3,20,%i5
  1169. or      %i1,%i5,%i1
  1171. Gret2: or      %g0,%i1,%i0
  1172. or      %g0,%i2,%i1
  1174. G999: jmpl %i7+8,%g0
  1175. restore %g0,0,%g0
  1177. Gspec: or      %g0,0,%i2
  1178. subcc   %i3,0,%i3
  1179. bne     j28      
  1180. NOP
  1181. addcc   %i0,%i0,%i0
  1182. be      Gret2    
  1183. NOP
  1184. /* scan %i0,0,%i4 */
  1185. SCAN | (in0 << 14) | 0 | (in4 << 25)
  1186. sll %i0,%i4,%i0
  1187. subcc %i3,%i4,%i3
  1188. srl     %i0,8,%i0
  1189. ba      Glab1    
  1190. add     %i3,8,%i3
  1191. j28: or      %g0,0x7ff,%i3
  1192. sethi   %hi(0xff800000),%l0
  1193. andncc  %i0,%l0,%i5
  1194. bne,a Gret             
  1195. sethi   %hi(0xfff80000),%i1
  1196. ba,a    Gret     
  1198. .global _dptofp
  1199. _dptofp:
  1200. .global __dtof
  1201. __dtof:
  1202. save %sp,-96,%sp
  1204. sll     %i0,1,%i4
  1205. srl     %i4,21,%i4
  1206. sll     %i0,11,%i2
  1207. srl     %i1,21,%l1
  1208. or      %i2,%l1,%i2
  1209. sll     %i1,11,%i3
  1210. sethi   %hi(0x80000000),%i5
  1211. or      %i2,%i5,%i2
  1212. and     %i5,%i0,%i5
  1213. sub     %i4,0x380,%i4
  1214. sub     %i4,1,%l1
  1215. subcc   %l1,0xfe,%g0
  1216. bcc     Hspec          
  1218. Hlab1: subcc   %i3,0,%i3
  1219. bne,a i30              
  1220. or      %i2,1,%i2
  1221. i30: addcc   %i2,0x80,%i2
  1222. addx    %i4,0,%i4
  1223. srl     %i2,8,%l1
  1224. and     %l1,1,%l1
  1225. sub     %i2,%l1,%i2
  1226. sll     %i2,1,%i2
  1227. srl     %i2,9,%i2
  1228. sll     %i4,23,%l1
  1229. or      %i2,%l1,%i2
  1230. or      %i2,%i5,%i0
  1232. H999: jmpl %i7+8,%g0
  1233. restore %g0,0,%g0
  1235. Hspec: subcc   %i4,0x47f,%g0
  1236. bne     i31            
  1237. sll     %i2,1,%l1
  1238. orcc    %l1,%i3,%l1
  1239. be      i31      
  1240. NOP
  1241. sethi   %hi(0x7fc00000),%l1
  1242. ba      H999     
  1243. or      %l1,%i5,%i0
  1244. i31: subcc   %i4,0xff,%g0
  1245. bl      i33      
  1246. NOP
  1247. sethi   %hi(0x7f800000),%l1
  1248. ba      H999     
  1249. or      %l1,%i5,%i0
  1250. i33: or      %g0,1,%l0
  1251. sub     %l0,%i4,%l0
  1252. subcc   %l0,0x20,%g0
  1253. bcs     i34      
  1254. NOP
  1255. or      %i3,%i2,%i3
  1256. ba      e34      
  1257. or      %g0,0,%i2
  1258. i34: or      %g0,0x20,%l2
  1259. sub     %l2,%l0,%l2
  1260. sll     %i2,%l2,%l1
  1261. or      %i3,%l1,%i3
  1262. srl     %i2,%l0,%i2
  1263. e34: ba      Hlab1    
  1264. or      %g0,0,%i4
  1266. .global _dpfabs
  1267. _dpfabs:
  1268. sethi %hi(0x80000000),%g1
  1269. jmpl %o7+8,%g0
  1270. andn %o0,%g1,%o0
  1272. ! .end