home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / BitSize.ass < prev    next >
Encoding:
Text File  |  1980-11-16  |  345 b   |  27 lines
  1.  
  2. # BitSize(r3:LONG)(LONG)
  3.  
  4.     .text
  5.     .global    _BitSize
  6.  
  7. _BitSize:
  8.     cntlzw    r4,r3
  9.     li    r5,32
  10.     sub.    r4,r5,r4        # r4 contains hibit value
  11.     beq    .zero
  12.     li    r5,0
  13. .loop:    li    r6,1
  14.     slw.    r0,r6,r5
  15.     and.    r0,r3,r0
  16.     bne    .finish
  17.     addi    r5,r5,1
  18.     cmpw    r5,r4
  19.     ble    .loop
  20. .finish:    sub    r3,r4,r5
  21.     blr
  22. .zero:    li    r3,0
  23.     blr
  24.  
  25.     .type    _BitSize,@function
  26.     .size    _BitSize,$-_BitSize
  27.