;$CS	MVC	MOVE CHARACTER STRING
;	16-DEC-76	P. CANNON CONVERT TO RSX-11M
;.	24-APR-74	J. W. TIPPIE
;.
;.	THIS ROUTINE MOVES A SPECIFIED NUMBER OF
;.	CHARACTERS FROM ONE STRING TO ANOTHER.
;.
;.	CALL MVC(SCS,DCS,NC)
;.
;.	SCS	= SOURCE CHAR STRING
;.	DCS	= DESTINATION CHAR STRING
;.	NC	= NO CHAR TO BE MOVED
;
	.TITLE	MVC
	.CSECT
	.GLOBL	MVC
;
EF:	.WORD	0		;ADDRESS OF ARGUMENT LIST
	.WORD	0		;NUMBER OF TIMES CALLED
;
MVC:	MOV	R5,EF		;SAVE ARGUMENT ADDRESS
	INC	EF+2		;INCREMENT NBR OF TIMES CALLED
	MOV	2(R5),R0	
	MOV	4(R5),R1
	MOV	@6(R5),R2
	BLE	RTN
MOV:	MOVB	(R0)+,(R1)+
	SOB	R2,MOV
RTN:	RTS	PC
	.END