.TITLE	BLANK
		.IDENT	/V1.0/
;
; AUTHOR:	Jan H. Belgraver
;
; DATE:		18-NOV-81
;
; VERSION:	V1.0
;
; PURPOSE:	Clears array and fills it with spaces.
;		FORTRAN call: CALL BLANK (ARRAY, NBYTES)
;
; INPUT:	ARRAY	 2(R5)	Array address
;		NBYTES	@4(R5)	Array length in bytes
;
; OUTPUT:	ARRAY		All bytes cleared.
;
			.NLIST	BEX
			.GLOBL	BLANK
;
BLANK:	MOV	2(R5),R0		; R0= array address
	MOV	@4(R5),R1		; R1= array length in bytes
;
1$:	MOVB	#' ,(R0)+		; Fill with SPACE character.
	SOB	R1,1$			; One less to do, if not ready do next
	RTS	PC
	.END