.TITLE	ML10..	STRING PROCEDURES IN MACRO USING COMMON DICTIONARY.
;
	.IDENT	/ML10../
;
	.SBTTL	.		SHIFT CHARACTER STRING ONE PLACE RIGHT.
;
L$SHR::
;	ENTRY CONDITIONS
;
;	CD.SRC	->	CHARACTER STRING ADDRESS.
;	CD.CHR	=	FILLER CHARACTER.
;
;	EXIT CONDITIONS
;
;	NON
;
	CALL	R$SAVE
	MOV	CD.SRC,R0
	MOV	CD.CHR,R3
	CALL	R$SHR
	CALL	R$UNSAVE
	RETURN
;
	.END
;
;
;
;
L$SHL::
;	ENTRY CONDITIONS
;
;	CD.SRC	->	CHARACTER STRING ADDRESS.
;
;	EXIT CONDITIONS
;
;	NON
;
	CALL	R$SAVE
	MOV	CD.SRC,R0
	CALL	R$SHR
	CALL	R$UNSAVE
	RETURN
;
	.END
;
;
;
;