home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / sviluppo / powerd / lib / powerd_lib.lha / PowerD / FillEStr.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  334 b   |  21 lines
  1. ; a0 - estring
  2. ; d0 - char
  3. ; d1 - length=-1
  4.  
  5.     xdef    _FillEStr
  6.  
  7. _FillEStr    move.l    a0,a1
  8.     tst.w    d1
  9.     bgt.s    .skip
  10. .step    move.w    (-4,a0),d1
  11. .skip    cmp.w    (-4,a0),d1
  12.     bgt.s    .loop
  13.     bra.s    .step
  14. .loop    move.b    d0,(a0)+
  15.     dbra.s    d1,.loop
  16.     clr.b    (a0)
  17.     move.l    a1,d0        ; store string
  18.     sub.l    a0,d0        ; get new length
  19.     move.w    d0,(-2,a1)    ; set new length
  20.     rts
  21.