.TITLE	ML11..	STRING PROCEDURES IN MACRO USING COMMON DICTIONARY.
;
	.IDENT	/ML11../
;
	.SBTTL	.		COMPARE TWO CHARACTER STRINGS.
;
L$COMPARE::
;	ENTRY CONDITIONS
;
;	CD.SRC	->	CHARACTER STRING ADDRESS.
;	CD.DST	->	CHARACTER STRING ADDRESS.
;
;	EXIT CONDITIONS
;
;	IF BOTH STRING IDENTICAL	CD.RES = ZERO	(SUCCESS)
;	IF SOURCE STRING LARGEST	CD.RES = POSITIVE	(ERROR)
;	IF DESTINATION STRING LARGEST	CD.RES = NEGATIVE	(ERROR)
;
;	NOTE:-	WHEN STRINGS OF DEFFERING LENGTHS ARE SUPPLIED THE
;		CHARACTERS ARE COMPARED OVER THE LENGTH OF THE
;		SHORTEST STRING, IF ALL CHARACTERS ARE THE SAME THE
;		SHORTEST STRING IS ASSUMED TO BE THE SMALLER.
;
	CALL	R$SAVE
	MOV	CD.SRC,R1
	MOV	CD.DST,R2
	CALL	R$COMPARE
	MOV	R0,CD.RES
	TST	R0
	CALL	R$UNSAVE
	RETURN
;
	.END
;
;
;
;