.TITLE	COPYW
	.IDENT	/V7.01/

;+
;
; *** CO.PYW
;
;	COPIES A STRING FROM ONE PLACE TO ANOTHER.
;
;	INPUTS:
;		R0	ADDRESS TO COPY TO (EVEN)
;		R1	ADDRESS TO COPY FROM (EVEN)
;		R2	NUMBER OF WORDS 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)
;				$COPYW --> CO.PYW
;-

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

	.END