*****************   Routine de vrif   ********************
*****************   suivant un r0=?    ********************

	gosbvl	GETPTR
	gosbvl	PUSH_R0
	gosbvl	EXIT