.TITLE	SETDEF
	.IDENT	/130978/
SETDEF::
	MOV	R1,-(SP)
	MOV	#177416,R1
	CALL	.WDFFP
	MOV	(SP)+,R1
	RETURN
	.END