home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / sozodlib / bzero.s next >
Text File  |  1991-03-07  |  764b  |  34 lines
  1. *    char *bzero(dest, len)
  2. *        register char *dest;
  3. *        register unsigned int len;
  4.  
  5. .text
  6. .globl _bzero
  7. _bzero:
  8.     move.l    4(a7),a0    ; destination
  9.     move.w    8(a7),d1    ; number of bytes
  10.     beq    bzero4        ; skip the lot if none to zero
  11.     move.l    a1,d0
  12.     btst    #0,d0        ; odd alignment?
  13.     beq    bzero0
  14.     clr.b    (a0)+        ; zero first byte
  15.     subq.w    #1,d1        ; and reduce count
  16. bzero0:
  17.     move.w    d1,d2        ; save full count value
  18.     lsr.w    #2,d1        ; convert to long count
  19.     bra    bzero2
  20. bzero1:
  21.     clr.l    (a0)+        ; word zero loop
  22. bzero2:
  23.     dbra    d1,bzero1
  24.     btst    #1,d2        ; extra word to copy?
  25.     beq    bzero3
  26.     clr.w    (a0)+        ; zero residual word
  27. bzero3:
  28.     btst    #0,d2        ; extra odd byte to copy?
  29.     beq    bzero4
  30.     clr.b    (a0)+        ; zero last byte
  31. bzero4:
  32.     move.l    4(a7),d0    ; return destination pointer
  33.     rts
  34.