home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / powerd / lib / PowerD / EStringF.ass < prev    next >
Encoding:
Text File  |  1999-09-22  |  549 b   |  33 lines
  1. ; (4,a7)  - dst str
  2. ; (8,a7)  - format str
  3. ; (12,a7) - list
  4.  
  5.     xdef    _EStringF
  6.  
  7. _EStringF    movem.l    a2-a3/a6,-(a7)
  8.     movea.l    (4+12,a7),a3
  9.     movea.l    (8+12,a7),a0
  10.     lea    (12+12,a7),a1
  11.     lea    (copychar,pc),a2
  12.     movea.l    4.w,a6
  13.     jsr    (-522,a6)
  14.     move.l    a3,d0
  15.     movem.l    (a7)+,a2-a3/a6
  16.     rts
  17.  
  18. copychar    movem.l    d1-d2,-(a7)
  19.     move.w    (-4,a3),d1
  20.     move.w    (-2,a3),d2
  21.     cmp.w    d2,d1
  22.     bgt.s    .addchar
  23.     move.w    d2,d0
  24.     subq.w    #1,d0
  25.     clr.b    (a3,d0.w)        ; zero byte
  26.     bra.s    .finish
  27. .addchar    move.w    d2,d1
  28.     move.b    d0,(a3,d1.w)
  29.     addq.w    #1,d1
  30.     move.w    d1,(-2,a3)
  31. .finish    movem.l    (a7)+,d1-d2
  32.     rts
  33.