.TITLE	MC16.. STRING PROCEDURES FOR CORAL IN MACRO
	.IDENT /MC16../
;
	.PAGE
	.SBTTL	ADD TO FIRST STRING CONTENT OF SECOND STRING (ADD TO) PROCEDURE
;
ADDTO::
	SAVE R1,R2		;SAVE R1 AND R2
;
	MOV 2(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 4(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
	CALL R$ADDTO		;APPEND CHARACTER STRINGS
;
;
;	PROGRAM EXIT
140$:
	UNSAVE R1,R2		;RESTORE R1 AND R2
	RETURN			;RETURN TO CALLING PROGRAM
;
;
;
	.END
;
;