;
;			LOA.MAC
;
;  CALL LOA(ARRAY, NO. OF CHAR, CHAR)
;  ARRAY IS THE NAME OF A LOGICAL*1 ARRAY OR LOGICAL*1 VARIABLE, 
;  THE 2ND ARGUMENT IS THE NUMBER OF CHARACTERS
;  CHAR IS THE CHARACTER YOU WANT TO LOAD THE ARRAY WITH.  COULD BE
;  GIVEN ANY ONE OF THE FOLLOWING WAYS USING # SYMBOL AS AN EXAMPLE
;  "43 OR '#' OR 35  (NOTE "43 MEANS OCTAL 43)
;  OR YOU CAN DEFINE A LOGICAL*1 VARIABLE CALLED POUND AND THEN USE A
;  DATA STATEMENT SUCH AS:  DATA /POUND/'#'
;  OR MAKE A STATEMENT SUCH AS
;  POUND="43  OR POUND=35 
;  NOTE:  YOU CANNOT SAY POUND='#'
;
;  THIS SUBROUTINE SUPERSEEDS THE SUBROUTINE SCLR FOR WHICH YOU USE ZEROE
;  AS THE CHARACTER TO FILL THE ARRAY WITH
;
	.TITLE	LOA
	.GLOBL	LOA
LOA:	MOV	2(R5),R0
	MOV	@4(R5),R1
1$:	MOVB	@6(R5),(R0)+
	DEC	R1
	BGT	1$
	RTS	PC
	.END