home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gccdist / gcc-src / vms / gcclib / bzero.mar < prev    next >
Encoding:
Text File  |  1991-02-27  |  308 b   |  22 lines
  1.     .TITLE    BZERO    Zero out an array of bytes
  2.     .IDENT    /1.00/
  3.  
  4.     .PSECT    $CODE,LONG,PIC,REL,SHR,EXE,RD,NOWRT
  5.  
  6. ; bzero(ptr, size)
  7.  
  8.     .ENTRY    BZERO,^M<R2,R3,R4,R5>
  9.     MOVL    4(AP),R3
  10.     BRB    2$
  11. 1$:
  12.     SUBL2    R0,8(AP)
  13.     MOVC5    #0,(R3),#0,R0,(R3)
  14. 2$:
  15.     MOVZWL    #65535,R0
  16.     CMPL    8(AP),R0
  17.     BGTR    1$
  18.     MOVC5    #0,(R3),#0,8(AP),(R3)
  19.     RET
  20.  
  21.     .END
  22.