.TITLE	RENAME
	.GLOBL	.RENAM
	.MCALL	FDOF$L
	FDOF$L			; DEFINE FDB OFFSETS LOCALLY
RENAME::			; entry point
	TST	(R5)+		; bump pointer
	MOV	@(R5)+,R0	; old fdb in R0
	MOV	@(R5),R1	; new fdb in R1
	MOV	R0,-(SP)	; SAVE OLD FDB ADDRESS
	CALL	.RENAM		; rename file
	MOV	(SP)+,R0	; RESTORE FDB ADDRESS
	TSTB	F.ERR(R0)	; branch on error in rename
	BMI	10$		;
	CLR	R0		; RETURN 0 AS VALUE OF FUNCTION UPON SUCCESS
	RETURN
10$:	MOV	F.ERR(R0),R0	; MOVE ERROR CODE INTO R0
	SWAB	R0		; MAKE VALUE OF FUNCTION NEGATIVE
	RETURN
        .END