home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / StringF.ass < prev    next >
Encoding:
Text File  |  1980-02-04  |  499 b   |  34 lines
  1.  
  2. # StringF(r3:PTR TO CHAR,r4:PTR TO CHAR,r5=0:PTR TO ULONG)
  3.  
  4.     .text
  5.     .global    _StringF
  6.     .global    _VStringF
  7.  
  8. _VStringF:
  9. _StringF:
  10.     mflr    r0
  11.     stw    r0,8(r1)
  12.     stwu    r1,-32(r1)
  13.     stw    r3,24(r1)
  14.                 # r4 and r5 are set
  15.     li    r6,0        # copy all characters
  16.     mr    r7,r3
  17.     lwz    r3,_PowerPCBase(r2)
  18.     lwz    r0,-840+2(r3)
  19.     mtlr    r0
  20.     blrl
  21.  
  22.     lwz    r3,24(r1)
  23.     addi    r1,r1,32
  24.     lwz    r0,8(r1)
  25.     mtlr    r0
  26.     blr
  27.  
  28.     .type    _StringF,@function
  29.     .size    _StringF,$-_StringF
  30.     .type    _VStringF,@function
  31.     .size    _VStringF,$-_VStringF
  32.  
  33.     .extern    _PowerPCBase
  34.