.TITLE	COPY
	.IDENT	/V7.01/

;+
;
; *** CO.PY
;
;	COPIES A STRING FROM ONE PLACE TO ANOTHER.
;
;	INPUTS:
;		R0	ADDRESS TO COPY TO
;		R1	ADDRESS TO COPY FROM
;		R2	NUMBER OF BYTES TO COPY
;
;	OUTPUTS:
;		R0	UPDATED
;		R1	USED
;		R2	USED
;		ALL OTHER REGISTERS PRESERVED
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;				$COPY --> CO.PY
;-

CO.PY::	MOVB	(R1)+,(R0)+		; COPY A BYTE
	DEC	R2			; DONE YET?
	BNE	CO.PY			; IF NE NO, LOOP
	RETURN				; RETURN TO CALLER

	.END