.TITLE	WFOWN
;  IRET = WFOWN(UIC)    SETS FILE-OWNER WORD IN $$FSR2; 
;
;
WFOWN::
	MOV	@2(R5),R1		;GET UIC
	CALL	.WFOWN
	CLR	R0
	RTS	PC
;
;  IRET = WDFFP(PROT)	SETS DEFAULT FILE-PROTECTION WORD IN $$FSR2
WDFFP::
	MOV	@2(R5),R1		;GET PROT
	CALL	.WDFFP
	CLR	R0
	RTS	PC

	.END