PROGRAM	ICEUP

	INTEGER * 4	SYS$SETPRI

	IRET = SYS$SETPRI( %VAL(0), %VAL(0), %VAL(8), %VAL(0) )
	IF( .NOT. IRET ) CALL EXIT( IRET )

	CALL EXIT
	END