;
;			LOAINT.MAC
;
;  A SUBROUTINE TO LOAD AN ARRAY WITH A GIVEN INTEGERS
;
;  CALL LOAINT(A,AMOUT,NUMBER)
;  A IS THE ADDRESS OF THE ARRAY
;  AMOUNT IS THE NUMBER OF POSITIONS TO FILL WITH THIS NUMBER
;  NUMBER IS THE NUMBER TO BE PLACED IN THIS ARRAY
	.GLOBL	LOAINT
	.TITLE	LOAINT
LOAINT:	MOV	2(R5),R0		; GET ADDRESS OF ARRAY
	MOV	@4(R5),R1
10$:	MOV	@6(R5),(R0)+		; PLACE A NUMBER IN POSITION
	DEC	R1
	BGT	10$			;  NO
	RETURN
	.END