.TITLE	MC04.. STRING PROCEDURES FOR CORAL IN MACRO
;
	.IDENT	/MC04../
;
	.PAGE
	.SBTTL	COPY CHARACTER FROM ONE STRING TO ANOTHER (COPY) PROCEDURE
;
COPY::
	SAVE R1,R2			;SAVE R1 AND R2
;
	MOV 4(R5),R0		;HOLD OUTPUT ADDRESS
	CALL R$ADDRESS		;CHECK IF ADDRESS VALID
	IFERROR	140$		;J IF INVALID OUTPUT ADDRESS
	MOV R0,R1		;HOLD OUTPUT ADDRESS
;
	MOV 2(R5),R0		;HOLD INPUT ADDRESS
	CALL R$ADDRESS		;CHECK IF ADDRESS VALID
	IFERROR	140$		;J IF INVALID INPUT ADDRESS
	MOV R0,R2		;HOLD INPUT STRING ADDRESS
;
	TST -2(R1)		;IS CHARACTER STRING WRITE PROTECTED
	BLE	140$		;J IF PROTECTED
	CLR @R1			;SET CHARACTER COUNT TO ZERO
	CALL R$ADDTO		;APPEND CHARACTER STRINGS
;
;
;	PROGRAM EXIT
140$:
	UNSAVE R1,R2		;RESTORE REGISTERS
	RETURN			;RETURN TO CALLING PROGRAM
;
;
	.END
;