.TITLE	FILLUP
	.ENABL	LC
;
;	CALL FILLUP( ARRAY, STRING, NCHRS ) --  This subroutine
;	loads the delimited character STRING into the ARRAY.
;	The number of characters is also returned.
;
	.PSECT	FILLUP
FILLUP::MOV	2(R5),R0	;GET ADDRESS OF ARRAY
	MOV	4(R5),R1	;GET ADDRESS OF STRING
1$:	MOVB	(R1)+,(R0)+	;TRANSFER CHARACTER
	BNE	1$		;CONTINUE IF NOT ZERO BYTE
	SUB	4(R5),R1	;SUBTRACT STARTING ADDRESS
	DEC	R1		;REMOVE COUNT OF ZERO BYTE
	MOV	R1,@6(R5)	;STORE AS NUMBER OF CHARACTERS
	RTS	PC		;RETURN
	.END