home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / alde_c / misc / lib / dlibssrc / blkfill.s < prev    next >
Encoding:
Text File  |  1987-10-04  |  572 b   |  30 lines
  1. *    char *blkfill(dest, data, len)
  2. *    register char *dest;
  3. *    register char data;
  4. *    register int len;
  5. *    /*
  6. *     *    Fill <dest> will <len> bytes of <data>.  A pointer to <dest>
  7. *     *    is returned.
  8. *     */
  9. *    {
  10. *        register char *p = dest;
  11. *    
  12. *        while(len--)
  13. *            *dest++ = data;
  14. *        return(p);
  15. *    }
  16.  
  17. .text
  18. .globl _blkfill
  19. _blkfill:
  20.     move.l    4(a7),a0    * destination
  21.     move.b    8(a7),d0    * fill data
  22.     move.w    10(a7),d1    * number of bytes
  23.     bra    blkfill2
  24. blkfill1:
  25.     move.b    d0,(a0)+    * fill loop
  26. blkfill2:
  27.     dbra    d1,blkfill1
  28.     move.l    4(a7),d0    * return destination pointer
  29.     rts
  30.