PROC L9710(REAL _XX,REAL _YY,REAL _ZZ,REAL _FF)

; REN PROBE MOVE

IF _XX<>9999 GOTOF LN1

_XX=$AA_IW[AXV[1]]

LN1:

IF _YY<>9999 GOTOF LN2

_YY=$AA_IW[AXV[2]]

LN2:

IF _ZZ<>9999 GOTOF LN3

_ZZ=$AA_IW[AXV[3]]

LN3:

RENC[49]=1; PROBE OPEN

IF $A_PROBE[ABS(RENP[7])]==1 GOTOF LN4

STOPRE

MEAS=RENP[7] G1 AX[AXV[1]]=_XX AX[AXV[2]]=_YY AX[AXV[3]]=_ZZ F=_FF

STOPRE

RENC[49]=2; PROBE FAIL

IF $AC_MEA[ABS(RENP[7])]==0 GOTOF LN4

RENC[49]=0; NORMAL HIT

LN4:

STOPRE

RET