.TITLE RENAM
.IDENT  /042178/
;       SUBROUTINE TO RENAME A FILE
;       THREE ARGUMENTS
;       ONE=ADDRESS OF FDB ASSOCIATED WITH FILE TO BE RENAMED
;       TWO=ADDRESS OF FDB CONTAINING NEW NAME FOR FILE
;       THREE= ADDRESS TO RETURN ERROR CODE = -1 IF NOT SUCESSFUL
;
RENAM:: MOV     R0,-(SP)
	MOV     R1,-(SP)
	MOV     2(R5),R0        ;FETCH ADDRESS OF OLD FDB
	MOV     4(R5),R1        ;FETCH ADDRESS OF NEW FDB
	CLR     @6(R5)          ;ASSUME SUCCESS
	CALL    .RENAM
	BCC     RET             ;SUCCESS
	MOV     F.ERR(R0),@6(R5)          ;NOT SUCCESSFUL=RETURN F.ERR
RET:    MOV     (SP)+,R1
	MOV     (SP)+,R0
	RTS     PC
	.END