.TITLE	MOVE
	.IDENT	/V7.01/

;+
;
; *** MV.STR
;
;	MOVES A STRING FROM ONE PLACE TO ANOTHER.
;
;	INPUTS:
;		R0	ADDRESS TO MOVE TO
;		R1	ADDRESS TO MOVE FROM (NULL BYTE AT END)
;
;	OUTPUTS:
;		R0	UPDATED
;		R1	USED
;		ALL OTHER REGISTERS PRESERVED
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;
;-

MV.STR::MOVB	(R1)+,(R0)+		; MOVE A BYTE
	BNE	MV.STR			; IF NOT AT END OF TEXT, LOOP
	DEC	R0			; REMOVE NULL BYTE
	RETURN				; RETURN TO CALLER

	.END