home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / powerd / lib / PowerD / RightEStr.ass < prev    next >
Encoding:
Text File  |  1999-09-21  |  544 b   |  37 lines
  1. ; (4,a7)  - estr1
  2. ; (8,a7)  - estr2
  3. ; (12,a7) - length
  4.  
  5.     xdef    _RightEStr
  6.  
  7. _RightEStr
  8.     movem.l    d2/a2,-(a7)
  9.     movea.l    (4,a7),a0
  10.     movea.l    (8,a7),a1
  11.     move.w    (-2,a1),d0
  12.     ext.l    d0
  13.     sub.l    (12,a7),d0
  14.     tst.l    d0
  15.     bpl.s    .skip
  16.     moveq    #0,d0
  17. .skip    add.l    d0,a1
  18.     move.l    #$ffff,d0
  19.     move.l    a0,a2
  20.     move.w    (-4,a0),d1
  21.     ext.l    d1
  22.     cmp.l    d0,d1
  23.     bpl.s    .skip2
  24.     move.l    d1,d0
  25. .skip2    move.l    d0,d2
  26.     subq.l    #1,d0
  27. .loop    move.b    (a1)+,(a0)+
  28.     beq.s    .done
  29.     dbra.s    d0,.loop
  30.     move.b    #0,(a0)+
  31. .done    addq.w    #1,d0
  32.     sub.w    d0,d2
  33.     move.w    d2,(-2,a2)
  34.     move.l    a2,d0
  35.     movem.l    (a7)+,d2/a2
  36.     rts
  37.