.PSECT	FILDSD
	.TITLE	FILDSD - COPY NEW MAIL FILE NAME
	.IDENT	/781117/
;
;    THIS CODE HAS BEEN DEVELOPED BY THE COMPUTING
;    GROUP OF THE ATMOSPHERIC SCIENCES DIVISION,
;    ALBERTA RESEARCH. THIS WORK FUNDED BY THE
;    ALBERTA WEATHER MODIFICATION BOARD.
;
;    THERE IS EXPLICITLY NO COPYRIGHT ON THIS SOFTWARE,
;    AND ITS DISTRIBUTION IS ENCOURAGED. NO RESPONSIBILITY
;    NOR GUARANTEE IS MADE OR ASSUMED BY THE AUTHOR, OR
;    BY ALBERTA RESEARCH.
;
;    SUGGESTIONS OR CHANGES ARE INVITED, AND WILL BE
;    DISTRIBUTED TO OTHER USERS OF THIS SOFTWARE THROUGH
;    THE DECUS IAS/RSX SPECIAL INTEREST GROUP.
;
;
; VERSION:	781020
; WRITTEN BY:	W. WORENDYK
; DATE WRITTEN:	30-OCT-78
; 
;	
;
; MODIFICATIONS:
;
; CODE		NAME		DATE
;

;+
;
; *** - FILDSD -- MAIL SUPPORT SUBROUTINE (INTERNAL)
;
; THIS ROUTINE ALLOWS FOR THE REPLACEMENT OF THE FILENAME
; IN THE DSDS OF THE MAIL BOX (OUTFDB) FILE.
;
; ENTRY BY:	JSR	R5,FILDSD
;		.WORD	FROM	;ADDRESS OF REPLACEMENT STRING
;
;-
	.MCALL	ENTER,LEAVE
	.DSABL	GBL
	.MCALL	FCSMC$,FDOF$L,FCSBT$
	FCSMC$
	FDOF$L
	FCSBT$
	.MCALL	MAIGBL
	MAIGBL
FILDSD:	ENTER	R0,R1		;SAVE A PAIR OF REGISTERS
	MOV	(R5)+,R0	;POINT TO NEW FILE NAME
	MOV	MAIDSD+12,R1	;POINT TO OLD FILE NAME
	.REPT	6
	MOVB	(R0)+,(R1)+	;REPLACE IT
	.ENDR
	FDOP$R	#OUTFDB,,#MAIDSD;AND MAKE SURE IS A PART OF OUTFDB
	LEAVE
	RTS	R5
	.END