/*
 * 5799-WZQ (C) COPYRIGHT IBM CORPORATION 1986
 * LICENSED MATERIALS - PROPERTY OF IBM
 * REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083
 */
/* $Header:clear.s 12.0$ */
/* $ACIS:clear.s 12.0$ */
/* $Source: /ibm/acis/usr/src/lib/libc/ca/gen/RCS/clear.s,v $ */

	.data
rcsid:	.asciz	"$Header:clear.s 12.0$"
	.text

#include "LINKG.h"

 #       Clear memory subroutine
 #       count = clear(start, count)
 #                      r2     r3
 
        .globl  _.mfill                 #externally defined symbol
ENTRY(clear)
        st	r15,REG_OFFSET+4(sp)	#save caller's return address in
					#r1's register save spot, known not
					#to be touched by mfill
	get	r0,$_mfill
	balix	r15,_.mfill
	lis	r4,0			#fill constant byte
 
        #return to the calling routine
 
        l	r15,REG_OFFSET+4(sp)    #restore caller's return address
					#from r1's register save spot
        br	r15                     #return to calling routine

	TTNOFRM
