_REN[6]=$P_UBFR[AXV[3],TR]
$P_UBFR[AXV[3],TR]=_REN[6]+RENC[42];SET BASE ZERO LN50: STOPRE RET
%_N_L9800_SPF
;$PATH=/_N_SPF_DIR ; REN R PARAM CLEAR STOPRE R0=1 LN1:
R[R0]=9999 R0=R0+1
IF R0<=27 GOTOB LN1 RENTL=\R0=9999 STOPRE RET
%_N_L9801_SPF
;$PATH=/_N_SPF_DIR
PROC L9801 SAVE DISPLOF
EXTERN L9726(REAL,REAL,REAL,REAL,REAL,REAL,REAL) EXTERN L9732(REAL,REAL,REAL,REAL,REAL,REAL) ; REN CAL PROBE LENGTH
IF ($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN5 L9724
IF R20<>9999 GOTOF LN1 RENC[15]=160
L9700; T INPUT MISSING LN1:
IF R26<>9999 GOTOF LN2 RENC[15]=190
L9700; Z INPUT MISSING LN2:
L9725; CLEAR OUTPUTS R10=$AA_IW[AXV[3]]
L9726(9999,9999,9999,9999,R26,R17,0) IF RENC[49]<>0 GOTOF LN3 R3=RENC[26]-R26
L9732(R20,$P_TOOL,-R3,R26,9999,9999) GOTOF LN5 LN3:
G0 AX[AXV[3]]=R10
IF RENC[49]==2 GOTOF LN4 RENC[15]=370
L9700; PROBE OPEN LN4:
RENC[15]=380
L9700; PROBE FAIL LN5:
L9800; CLEAR INPUTS STOPRE
RET
%_N_L9802_SPF
;$PATH=/_N_SPF_DIR
PROC L9802 SAVE DISPLOF
EXTERN L9721(REAL,REAL,REAL,REAL,REAL) EXTERN L9722(REAL,REAL,REAL,REAL,REAL) ; REN CAL XY OFFSET
IF ($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN5 L9724
IF R7<>9999 GOTOF LN1 RENC[15]=110
L9700; D INPUT MISSING LN1:
L9725; CLEAR OUTPUTS R10=$AA_IW[AXV[1]] R12=$AA_IW[AXV[2]]
IF R26==9999 GOTOF LN2 IF R18<>9999 GOTOF LN2 R18=5*RENC[29] LN2:
L9721(R7,R17,R18,R26,RENP[0]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN3 G0 AX[AXV[1]]=RENC[27]
RENP[2]=(R10-RENC[27])*RENC[7]/RENC[29]
L9722(R7,R17,R18,R26,RENP[1]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN3
RENP[3]=(R12-RENC[28])*RENC[7]/RENC[29] GOTOF LN5 LN3:
G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 IF RENC[49]==2 GOTOF LN4 RENC[15]=370
L9700; PROBE OPEN LN4:
RENC[15]=380
L9700; PROBE FAIL LN5:
G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 L9800; CLEAR INPUTS STOPRE RET
%_N_L9803_SPF
;$PATH=/_N_SPF_DIR
PROC L9803 SAVE DISPLOF
EXTERN L9721(REAL,REAL,REAL,REAL,REAL) EXTERN L9722(REAL,REAL,REAL,REAL,REAL)
EXTERN L9732(REAL,REAL,REAL,REAL,REAL,REAL) ; REN CAL STYLUS RAD
IF ($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN7 L9724
IF R7<>9999 GOTOF LN1 RENC[15]=110
L9700; D INPUT MISSING LN1:
L9725; CLEAR OUTPUTS R10=$AA_IW[AXV[1]] R12=$AA_IW[AXV[2]]
IF R26==9999 GOTOF LN2 IF R18<>9999 GOTOF LN2 R18=5*RENC[29] LN2:
L9721(R7,R17,R18,R26,RENP[0]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN4 G0 AX[AXV[1]]=RENC[27]
L9722(R7,R17,R18,R26,RENP[0]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN4 G0 AX[AXV[2]]=RENC[28]
L9721(R7,R17,R18,R26,RENP[0]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN4
RENP[0]=(ABS(R7/2-ABS(RENC[24]-RENC[27])))*RENC[7]/RENC[29] L9722(R7,R17,R18,R26,RENP[1]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN4
RENP[1]=(ABS(R7/2-ABS(RENC[25]-RENC[28])))*RENC[7]/RENC[29] RENC[40]=RENC[27]+(RENP[2]*RENC[29]/RENC[7])-R10 RENC[41]=RENC[28]+(RENP[3]*RENC[29]/RENC[7])-R12 IF R19==9999 GOTOF LN7
L9732(9999,9999,9999,9999,R19,1) GOTOF LN7 LN4:
G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 IF RENC[49]==2 GOTOF LN5 RENC[15]=370
L9700; PROBE OPEN LN5:
RENC[15]=380
L9700; PROBE FAIL LN7:
G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 L9800; CLEAR INPUTS STOPRE RET
%_N_L9810_SPF
;$PATH=/_N_SPF_DIR
PROC L9810 SAVE DISPLOF
EXTERN L9710(REAL,REAL,REAL,REAL) ; REN PROT POSN
IF ($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN9 L9724
IF R9<>9999 GOTOF LN3
IF RENC[17]<>9999 GOTOF LN2 RENC[15]=60
L9700; NO FEED RATE LN2:
R9=RENC[17] LN3:
RENC[17]=R9
RENC[48]=0 LN4:
L9710(R24,R25,R26,R9); PROTECT MOVE IF RENC[49]<>2 GOTOF LN8 GOTOF LN9 LN8:
RENC[48]=7
IF R13==1 GOTOF LN9 RENC[15]=50
L9700; PATH OBSTRUCTED LN9:
L9800; CLEAR INPUTS STOPRE RET
%_N_L9811_SPF
;$PATH=/_N_SPF_DIR
PROC L9811 SAVE DISPLOF
EXTERN L9710(REAL,REAL,REAL,REAL)
EXTERN L9726(REAL,REAL,REAL,REAL,REAL,REAL,REAL)
EXTERN L9730(REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL,REAL) EXTERN L9732(REAL,REAL,REAL,REAL,REAL,REAL) ; REN XYZ MEASURE
IF($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN25 L9724
IF R19==9999 GOTOF LN1 IF R20==9999 GOTOF LN1 RENC[15]=330
L9700; ST INPUT MIXED LN1:
IF R19==9999 GOTOF LN2 IF R11==9999 GOTOF LN2 RENC[15]=320
L9700; SH INPUT MIXED LN2:
IF R20==9999 GOTOF LN3 IF R13==9999 GOTOF LN3 RENC[15]=340
L9700; TM INPUT MIXED LN3:
L9725; CLEAR OUTPUTS
R10=$AA_IW[AXV[1]]; X START R12=$AA_IW[AXV[2]]; Y START R16=$AA_IW[AXV[3]]; Z START
L9710(R10-(RENP[2]*RENC[29]/RENC[7]),R12-(RENP[3]*RENC[29]/RENC[7]),9999,RENC[19]); PROTECT MOVE IF RENC[49]<>2 GOTOF LN22 R30=-1; DIR FLAG
IF R24<>9999 GOTOF LN5 IF R25<>9999 GOTOF LN7 ; Z MOVE
IF R26==9999 GOTOF LN225
IF $AA_IW[AXV[3]] L9726(9999,9999,9999,9999,R26,R17,0) IF RENC[49]<>0 GOTOF LN21 RENC[35]=R10 RENC[36]=R12 RENC[37]=RENC[26]; Z POS RENC[38]=RENC[37] IF R8==9999 GOTOF LN45 RENC[38]=RENC[38]+(RENE[R8]*RENC[29]/RENC[7]); SIZE LN45: RENC[42]=RENC[37]-R26; Z ERROR RENC[43]=RENC[38]-R26; SIZE ERROR RENC[45]=ABS(RENC[42]); T P ERR RENC[46]=RENC[43]*R30; METAL CON GOTOF LN9 LN5:; X MOVE IF R25<>9999 GOTOF LN225 IF R26<>9999 GOTOF LN225 R6=RENP[0]*RENC[29]/RENC[7] IF $AA_IW[AXV[1]] L9726(9999,9999,R24,9999,9999,R17,RENP[0]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN21 RENC[35]=RENC[24]+R6+(RENP[2]*RENC[29]/RENC[7]); COR SKIP POS RENC[36]=R12 RENC[37]=R16 RENC[38]=RENC[35] IF R8==9999 GOTOF LN65 RENC[38]=RENC[38]+(RENE[R8]*RENC[29]/RENC[7]); ACT SIZE LN65: RENC[40]=RENC[35]-R24; X ERROR RENC[43]=RENC[38]-R24; SIZE ERROR RENC[45]=ABS(RENC[40]); T P ERROR RENC[46]=RENC[43]*R30; METAL CON GOTOF LN9 LN7:; Y MOVE IF R26<>9999 GOTOF LN225 R6=RENP[1]*RENC[29]/RENC[7] IF $AA_IW[AXV[2]] L9726(9999,9999,9999,R25,9999,R17,RENP[1]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN21 RENC[35]=R10 RENC[36]=RENC[25]+R6+(RENP[3]*RENC[29]/RENC[7]); Y SKIP POS RENC[37]=R16 RENC[38]=RENC[36] IF R8==9999 GOTOF LN85 RENC[38]=RENC[38]+(RENE[R8]*RENC[29]/RENC[7]); ACT SIZE LN85: RENC[41]=RENC[36]-R25; ERROR RENC[43]=RENC[38]-R25; SIZE ERROR RENC[45]=ABS(RENC[41]); TP ERROR RENC[46]=RENC[43]*R30; METAL CON