home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / ReEStr.ass < prev    next >
Encoding:
Text File  |  1980-03-26  |  266 b   |  23 lines
  1.  
  2.  
  3. # ReEStr(estr:r3:PTR TO CHAR)(PTR TO CHAR)
  4.  
  5.     .text
  6.     .global    _ReEStr
  7.  
  8. _ReEStr:
  9.     subi    r4,r3,1
  10. .loop:    lbzu    r0,1(r4)
  11.     cmpwi    r0,0
  12.     bne    .loop
  13.     sub    r4,r4,r3
  14.  
  15.     lhz    r0,-4(r3)
  16.     cmpw    r0,r4
  17.     bge    .end
  18.     sth    r4,-2(r3)
  19. .end:    blr
  20.  
  21.     .type    _ReEStr,@function
  22.     .size    _ReEStr,$-_ReEStr
  23.