.TITLE	ZECB
	.IDENT	/01.00/
	.PSECT	RMSFTN
	;
	;
	;
;BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON
;B									   B
;R	PURPOSE: ZERO A CORE BLOCK					   R
;I									   I
;D									   D
;G	AUTHOR: ARTHUR P. GAUGHAN, JR.					   G
;E									   E
;P	DATE: 5/31/78							   P
;O									   O
;R	GLOBAL SYMBOLS DEFINED IN THIS MODULE: $ZECB			   R
;T									   T
;!	GLOBAL SYMBOLS REFERENCED IN THIS MODULE:			   !
;T									   T
;E									   E
;X									   X
;T									   T
;R									   R
;O	INPUTS: CORE BLOCK ADDRESS IN R0, BYTE COUNT IN R1		   O
;N									   N
;!	OUTPUTS:							   !
;!									   !
;H	HOUSEKEEPING:							   H
;O									   O
;R									   R
;S	NOTES: BLOCK ADDRESS (R0) PRESERVED ACROSS CALL			   S
;H									   H
;A									   A
;M									   M
;BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON BRIDGEPORT-TEXTRON
	;
	;
	;
	.MCALL	SMACIT
	;
	;
	;
	SMACIT
	;
	;
	;
	PROCEDURE	$ZECB,GLOBAL
	;
	;
	;
	PUSH R0				;SAVE BUFFER POINTER
	FOR.ABS R2 := #1 TO R1		;INITIALIZE LOOP
	  LET (R0)+ :B= #0		;ZERO A BYTE
	END
	POP R0				;RESTORE BUFFER POINTER
	$RETURN				;RETURN TO CALLER
	;
	;
	;
	;///////////////////////////////////////////////////////////////////////
	.END