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

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

VxWorks

开发平台：

C/C++

sqrt32.s：源码内容
  1. /* sqrt32.s - VxWorks conversion from Microtek tools to Sun native */
  3. /* Copyright 1984-1992 Wind River Systems, Inc. */
  5. /*
  6. modification history
  7. --------------------
  8. 01b,13nov92,jwt  added workaround for sqrt(-0.0) until USS patch.
  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 _exsqrt
  52. _exsqrt:
  53. save %sp,-96,%sp
  55. subcc   %i0,0,%i0
  56. be      Aret           
  57. andcc   %i2,1,%l5
  58. be      i1       
  59. NOP
  60. sethi   %hi(0x67f21800),%l0
  61. umul %i0,%l0,%l0
  62. rd %y,%l0
  63. sethi   %hi(0x4d134800),%l5
  64. add     %l0,%l5,%l0
  65. srl     %i1,1,%i1
  66. sll     %i0,31,%l5
  67. srl     %i0,1,%i0
  68. or      %i1,%l5,%i1
  69. ba      e1       
  70. add     %i2,1,%i2
  71. i1: sethi   %hi(0x93000000),%l0
  72. umul %i0,%l0,%l0
  73. rd %y,%l0
  74. sethi   %hi(0x6cfffc00),%l5
  75. add     %l0,%l5,%l0
  76. e1: sra     %i2,1,%i2
  77. add     %i2,0x1ff,%i2
  78. srl     %i1,1,%i1
  79. sll     %i0,31,%l5
  80. srl     %i0,1,%i0
  81. or      %i1,%l5,%i1
  83. wr %i0,0,%y
  84. or %g0,%i1,%i3
  85. orcc %g0,0,%g0
  86. #if 0
  87. divscc %i3,%l0,%i3
  88. divscc %i3,%l0,%i3
  89. divscc %i3,%l0,%i3
  90. divscc %i3,%l0,%i3
  91. divscc %i3,%l0,%i3
  92. divscc %i3,%l0,%i3
  93. divscc %i3,%l0,%i3
  94. divscc %i3,%l0,%i3
  95. divscc %i3,%l0,%i3
  96. divscc %i3,%l0,%i3
  97. divscc %i3,%l0,%i3
  98. divscc %i3,%l0,%i3
  99. divscc %i3,%l0,%i3
  100. divscc %i3,%l0,%i3
  101. divscc %i3,%l0,%i3
  102. divscc %i3,%l0,%i3
  103. divscc %i3,%l0,%i3
  104. divscc %i3,%l0,%i3
  105. divscc %i3,%l0,%i3
  106. divscc %i3,%l0,%i3
  107. divscc %i3,%l0,%i3
  108. divscc %i3,%l0,%i3
  109. divscc %i3,%l0,%i3
  110. divscc %i3,%l0,%i3
  111. divscc %i3,%l0,%i3
  112. divscc %i3,%l0,%i3
  113. divscc %i3,%l0,%i3
  114. divscc %i3,%l0,%i3
  115. divscc %i3,%l0,%i3
  116. divscc %i3,%l0,%i3
  117. divscc %i3,%l0,%i3
  118. divscc %i3,%l0,%i3
  119. #else
  120. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  121. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  122. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  123. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  124. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  125. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  126. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  127. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  128. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  129. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  130. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  131. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  132. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  133. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  134. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  135. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  136. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  137. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  138. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  139. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  140. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  141. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  142. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  143. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  144. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  145. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  146. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  147. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  148. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  149. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  150. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  151. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  152. #endif
  154. srl     %l0,1,%l0
  155. addcc   %l0,%i3,%l0
  156. subx    %l0,0,%l0
  158. wr %i0,0,%y
  159. or %g0,%i1,%i3
  160. orcc %g0,0,%g0
  161. #if 0
  162. divscc %i3,%l0,%i3
  163. divscc %i3,%l0,%i3
  164. divscc %i3,%l0,%i3
  165. divscc %i3,%l0,%i3
  166. divscc %i3,%l0,%i3
  167. divscc %i3,%l0,%i3
  168. divscc %i3,%l0,%i3
  169. divscc %i3,%l0,%i3
  170. divscc %i3,%l0,%i3
  171. divscc %i3,%l0,%i3
  172. divscc %i3,%l0,%i3
  173. divscc %i3,%l0,%i3
  174. divscc %i3,%l0,%i3
  175. divscc %i3,%l0,%i3
  176. divscc %i3,%l0,%i3
  177. divscc %i3,%l0,%i3
  178. divscc %i3,%l0,%i3
  179. divscc %i3,%l0,%i3
  180. divscc %i3,%l0,%i3
  181. divscc %i3,%l0,%i3
  182. divscc %i3,%l0,%i3
  183. divscc %i3,%l0,%i3
  184. divscc %i3,%l0,%i3
  185. divscc %i3,%l0,%i3
  186. divscc %i3,%l0,%i3
  187. divscc %i3,%l0,%i3
  188. divscc %i3,%l0,%i3
  189. divscc %i3,%l0,%i3
  190. divscc %i3,%l0,%i3
  191. divscc %i3,%l0,%i3
  192. divscc %i3,%l0,%i3
  193. divscc %i3,%l0,%i3
  194. #else
  195. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  196. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  197. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  198. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  199. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  200. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  201. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  202. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  203. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  204. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  205. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  206. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  207. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  208. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  209. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  210. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  211. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  212. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  213. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  214. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  215. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  216. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  217. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  218. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  219. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  220. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  221. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  222. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  223. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  224. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  225. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  226. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  227. #endif
  229. srl     %l0,1,%l0
  230. addcc   %l0,%i3,%l0
  231. subx    %l0,0,%l0
  233. wr %i0,0,%y
  234. or %g0,%i1,%i3
  235. orcc %g0,0,%g0
  236. #if 0
  237. divscc %i3,%l0,%i3
  238. divscc %i3,%l0,%i3
  239. divscc %i3,%l0,%i3
  240. divscc %i3,%l0,%i3
  241. divscc %i3,%l0,%i3
  242. divscc %i3,%l0,%i3
  243. divscc %i3,%l0,%i3
  244. divscc %i3,%l0,%i3
  245. divscc %i3,%l0,%i3
  246. divscc %i3,%l0,%i3
  247. divscc %i3,%l0,%i3
  248. divscc %i3,%l0,%i3
  249. divscc %i3,%l0,%i3
  250. divscc %i3,%l0,%i3
  251. divscc %i3,%l0,%i3
  252. divscc %i3,%l0,%i3
  253. divscc %i3,%l0,%i3
  254. divscc %i3,%l0,%i3
  255. divscc %i3,%l0,%i3
  256. divscc %i3,%l0,%i3
  257. divscc %i3,%l0,%i3
  258. divscc %i3,%l0,%i3
  259. divscc %i3,%l0,%i3
  260. divscc %i3,%l0,%i3
  261. divscc %i3,%l0,%i3
  262. divscc %i3,%l0,%i3
  263. divscc %i3,%l0,%i3
  264. divscc %i3,%l0,%i3
  265. divscc %i3,%l0,%i3
  266. divscc %i3,%l0,%i3
  267. divscc %i3,%l0,%i3
  268. divscc %i3,%l0,%i3
  269. #else
  270. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  271. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  272. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  273. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  274. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  275. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  276. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  277. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  278. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  279. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  280. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  281. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  282. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  283. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  284. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  285. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  286. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  287. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  288. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  289. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  290. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  291. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  292. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  293. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  294. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  295. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  296. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  297. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  298. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  299. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  300. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  301. DIVSCC | (in3 << 14) | lo0 | (in3 << 25)
  302. #endif
  303. bge L1       
  304.  rd %y,%l4
  305. addcc %l0,%l4,%l4
  307. L1: wr %l4,0,%y
  308. or %g0,0x0,%i4
  309. orcc %g0,0,%g0
  310. #if 0
  311. divscc %i4,%l0,%i4
  312. divscc %i4,%l0,%i4
  313. divscc %i4,%l0,%i4
  314. divscc %i4,%l0,%i4
  315. divscc %i4,%l0,%i4
  316. divscc %i4,%l0,%i4
  317. divscc %i4,%l0,%i4
  318. divscc %i4,%l0,%i4
  319. divscc %i4,%l0,%i4
  320. divscc %i4,%l0,%i4
  321. divscc %i4,%l0,%i4
  322. divscc %i4,%l0,%i4
  323. divscc %i4,%l0,%i4
  324. divscc %i4,%l0,%i4
  325. divscc %i4,%l0,%i4
  326. divscc %i4,%l0,%i4
  327. divscc %i4,%l0,%i4
  328. divscc %i4,%l0,%i4
  329. divscc %i4,%l0,%i4
  330. divscc %i4,%l0,%i4
  331. divscc %i4,%l0,%i4
  332. divscc %i4,%l0,%i4
  333. divscc %i4,%l0,%i4
  334. divscc %i4,%l0,%i4
  335. divscc %i4,%l0,%i4
  336. divscc %i4,%l0,%i4
  337. divscc %i4,%l0,%i4
  338. divscc %i4,%l0,%i4
  339. divscc %i4,%l0,%i4
  340. divscc %i4,%l0,%i4
  341. divscc %i4,%l0,%i4
  342. divscc %i4,%l0,%i4
  343. #else
  344. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  345. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  346. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  347. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  348. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  349. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  350. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  351. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  352. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  353. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  354. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  355. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  356. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  357. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  358. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  359. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  360. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  361. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  362. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  363. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  364. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  365. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  366. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  367. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  368. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  369. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  370. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  371. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  372. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  373. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  374. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  375. DIVSCC | (in4 << 14) | lo0 | (in4 << 25)
  376. #endif
  378. sll     %l0,31,%l1
  379. srl     %l0,1,%l0
  380. addcc   %i4,%l1,%i4
  381. addx    %i3,%l0,%i3
  383. or      %g0,%i3,%i0
  384. or      %g0,%i4,%i1
  386. Aret:
  387. A999: jmpl %i7+8,%g0
  388. restore %g0,0,%g0
  390. .global _dpsqrt
  391. _dpsqrt:
  392. .global _sqrt
  393. _sqrt:
  394. save %sp,-96,%sp
  396. /* Test for negative zero */
  398. set 0xFFF00000,%l0 /* sign (31) and exponent (30-20) */
  399. and %l0,%i0,%l0
  400. set 0x80000000,%l1 /* negative zero */
  401. cmp %l0,%l1
  402. bne sqrtNonZero
  403. nop
  405. ret /* return value = -0.0 */
  406. restore
  408. sqrtNonZero:
  410. srl     %i0,20,%i4
  411. sll     %i0,11,%i2
  412. srl     %i1,21,%l6
  413. or      %i2,%l6,%i2
  414. sll     %i1,11,%i3
  415. sethi   %hi(0x80000000),%l6
  416. or      %i2,%l6,%i2
  417. sub     %i4,1,%l6
  418. subcc   %l6,0x7fe,%g0
  419. bcc     Bspec          
  421. Blab1: or      %g0,%i2,%o0
  422. or      %g0,%i3,%o1
  423. call    _exsqrt
  424. or      %g0,%i4,%o2
  425. or      %g0,%o0,%i5
  426. or      %g0,%o1,%l0
  427. or      %g0,%o2,%l1
  429. andcc   %i4,1,%l6
  430. be      i2       
  431. NOP
  432. srl     %i3,1,%i3
  433. sll     %i2,31,%l6
  434. srl     %i2,1,%i2
  435. or      %i3,%l6,%i3
  436. i2:
  437. umul %i5,%l0,%l3
  438. rd %y,%l2
  439. addcc   %l3,%l3,%l3
  440. addx    %l2,%l2,%l2
  441. umul %i5,%i5,%l5
  442. rd %y,%l4
  443. add     %l2,%l5,%l2
  444. umul %l0,%l0,%l4
  445. rd %y,%l5
  446. addcc   %l3,%l5,%l3
  447. addx    %l2,0,%l2
  448. sub     %l2,%i3,%l2
  449. or      %l2,%l3,%l6
  450. orcc    %l6,%l4,%l6
  451. be      Bret           
  452. subcc   %l2,0,%l2
  453. bneg    Bloo1    
  454. NOP
  456. Bloo2: subcc   %l0,1,%l0
  457. subx    %i5,0,%i5
  458. addcc   %l4,1,%l4
  459. addxcc  %l3,0,%l3
  460. addx    %l2,0,%l2
  461. subcc   %l4,%l0,%l4
  462. subxcc  %l3,%i5,%l3
  463. subx    %l2,0,%l2
  464. subcc   %l4,%l0,%l4
  465. subxcc  %l3,%i5,%l3
  466. subxcc  %l2,0,%l2
  467. bpos    Bloo2    
  468. NOP
  469. ba,a    Bret     
  471. Bloo1: addcc   %l0,1,%l0
  472. addxcc  %i5,0,%i5
  473. bcs     Blab3    
  474. NOP
  475. addcc   %l4,%l0,%l4
  476. addxcc  %l3,%i5,%l3
  477. addx    %l2,0,%l2
  478. addcc   %l4,%l0,%l4
  479. addxcc  %l3,%i5,%l3
  480. addx    %l2,0,%l2
  481. addcc   %l4,1,%l4
  482. addxcc  %l3,0,%l3
  483. addxcc  %l2,0,%l2
  484. bneg    Bloo1    
  485. NOP
  487. Blab3: subcc   %l0,1,%l0
  488. subx    %i5,0,%i5
  490. Bret: addcc   %l0,0x400,%l0
  491. addxcc  %i5,0,%i5
  492. addx    %l1,0,%l1
  493. srl     %l0,11,%i1
  494. sll     %i5,21,%l6
  495. or      %i1,%l6,%i1
  496. srl     %i5,11,%i0
  497. sethi   %hi(0xfffff),%l6
  498. or      %l6,0x3ff,%l6
  499. and     %i0,%l6,%i0
  500. sll     %l1,20,%l6
  501. or      %i0,%l6,%i0
  503. B999: jmpl %i7+8,%g0
  504. restore %g0,0,%g0
  506. Bspec: subcc   %i0,0,%i0
  507. bneg    Bnan           
  508. subcc   %i4,0,%i4
  509. bne     i4       
  510. NOP
  511. addcc   %i3,%i3,%i3
  512. addx    %i2,%i2,%i2
  513. orcc    %i2,%i3,%l6
  514. be      Bzer     
  515. NOP
  517. /* scan %i2,0,%l2 */
  518. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  519. subcc %l2,63,%g0
  520. bne L2             
  521. NOP
  522. or %i3,0,%i2
  523. or %g0,0,%i3
  524. sub %i4,32,%i4
  525. /* scan %i2,0,%l2 */
  526. SCAN | (in2 << 14) | 0 | (lo2 << 25)
  527. subcc %l2,63,%g0
  528. be,a L2             
  529. or %l2,0,%i4
  530. L2: subcc %g0,%l2,%l3
  531. be Blab1          
  532. sub %i4,%l2,%i4
  533. sll %i2,%l2,%i2
  534. srl %i3,%l3,%l3
  535. or %l3,%i2,%i2
  536. sll %i3,%l2,%i3
  538. ba,a    Blab1    
  539. i4: sll     %i2,1,%l6
  540. orcc    %l6,%i3,%l6
  541. bne     Bnan     
  542. NOP
  543. ba,a    B999     
  545. Bnan: sethi   %hi(0xfff80000),%i0
  546. ba      B999     
  547. or      %g0,0,%i1
  549. Bzer: or      %g0,0,%i1
  550. ba      B999     
  551. or      %g0,%i1,%i0
  553. ! .end