雷尼绍子程序(6)

LN9:

RENC[47]=R30

IF R23==9999 GOTOF LN10

L9730(9999,9999,9999,R11,9999,9999,R13,9999,9999,R19,R20,R23,R24,R25,R26) LN10:

IF R21==9999 GOTOF LN11; U UPPER TOL IF ABS(RENC[43])>=R21 GOTOF LN23 IF RENC[45]>=R21 GOTOF LN23 LN11:

IF R11==9999 GOTOF LN13

IF ABS(RENC[43])

IF RENC[20]==4 GOTOF LN13

IF ABS(RENC[43])

L9700; OUT OF TOL LN13:

IF R13==9999 GOTOF LN15

IF ABS(RENC[45])

IF RENC[20]==4 GOTOF LN15

IF ABS(RENC[45])

L9700; OUT OF POSITION LN15:

IF R20==9999 GOTOF LN19 IF R22==9999 GOTOF LN155

IF ABS(RENC[46])

IF R9<>9999 GOTOF LN16 R9=1 LN16:

L9732(R20,R32,RENC[46]*R9,R26,9999,9999) LN19:

IF R19==9999 GOTOF LN24

L9732(9999,9999,9999,R26,R19,1) GOTOF LN24 LN21:

IF RENC[49]<>2 GOTOF LN22

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=380

L9700; PROBE FAIL LN22:

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=370

L9700; PROBE OPEN LN225:

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=210

L9700; XYZ INPUT MISSING LN23:

RENC[48]=3

IF RENC[20]==4 GOTOF LN24

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=540

L9700; UPPER TOL EXCEEDED LN24:

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 LN25:

RENC[39]=11

L9800; CLEAR INPUTS STOPRE RET

%_N_L9812_SPF

;$PATH=/_N_SPF_DIR

PROC L9812 SAVE DISPLOF

EXTERN L9721(REAL,REAL,REAL,REAL,REAL) EXTERN L9722(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) EXTERN L9710(REAL,REAL,REAL,REAL) ; REN WEB POCKET MEASURE

IF ($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN25 L9724 LN1:

IF R24==9999 GOTOF LN2 IF R25==9999 GOTOF LN2 RENC[15]=300

L9700; XY INPUT MIXED LN2:

IF R24<>9999 GOTOF LN3 IF R25<>9999 GOTOF LN3 RENC[15]=200

L9700; XY INPUT MISSING LN3:

L9725; CLEAR OUTPUTS

R10=$AA_IW[AXV[1]]; X START R12=$AA_IW[AXV[2]]; Y 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

IF R26==9999 GOTOF LN6 IF R18<>9999 GOTOF LN5 R18=5*RENC[29] LN5:

IF R18<0 GOTOF LN6 R30=1 LN6:

IF R25==9999 GOTOF LN7 R7=R25

L9722(R7,R17,R18,R26,RENP[1]*RENC[29]/RENC[7]) G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 IF RENC[49]<>0 GOTOF LN21

RENC[36]=RENC[28]+(RENP[3]*RENC[29]/RENC[7]); Y COR POS

RENC[38]=(ABS((RENC[25]-RENC[28])*2))-((RENP[1]*RENC[29]/RENC[7])*R30*2); SIZE IF R8==9999 GOTOF LN65

RENC[38]=RENC[38]+(RENE[R8]*RENC[29]/RENC[7]); COR SIZE LN65:

RENC[41]=RENC[36]-R12; Y POS ERROR RENC[45]=ABS(RENC[41]); TP ERROR GOTOF LN8 LN7: R7=R24

L9721(R7,R17,R18,R26,RENP[0]*RENC[29]/RENC[7]) G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 IF RENC[49]<>0 GOTOF LN21

RENC[35]=RENC[27]+(RENP[2]*RENC[29]/RENC[7]); X COR POS

RENC[38]=(ABS((RENC[24]-RENC[27])*2))-((RENP[0]*RENC[29]/RENC[7])*R30*2); SIZE IF R8==9999 GOTOF LN75

RENC[38]=RENC[38]+(RENE[R8]*RENC[29]/RENC[7]); COR SIZE LN75:

RENC[40]=RENC[35]-R10; X POS ERROR RENC[45]=ABS(RENC[40]); TP ERROR LN8:

RENC[43]=RENC[38]-R7; ERROR OF SIZE RENC[46]=RENC[43]*R30/2; METAL CON LN9:

IF R23==9999 GOTOF LN10

L9730(9999,R7,2,R11,9999,9999,R13,9999,9999,R19,R20,R23,R10,R12,9999) LN10:

IF R21==9999 GOTOF LN11

IF ABS(RENC[43]) >= R21 GOTOF LN23 IF RENC[45] >= R21 GOTOF LN23 LN11:

IF R11==9999 GOTOF LN13

IF ABS(RENC[43])

IF RENC[20]==4 GOTOF LN13

IF ABS(RENC[43])

L9700; OUT OF TOL LN13:

IF R13==9999 GOTOF LN15

IF ABS(RENC[45])

IF RENC[20]==4 GOTOF LN15

IF ABS(RENC[45])

L9700; OUT OF POSITION LN15:

IF R20==9999 GOTOF LN19 IF R22==9999 GOTOF LN155

IF ABS(RENC[46])

IF R9<>9999 GOTOF LN16 R9=1 LN16:

L9732(R20,R32,RENC[46]*R9,9999,9999,9999)

IF R26<>9999 GOTOF LN19

IF RENC[18]

IF RENC[20]==4 GOTOF LN19 IF RENC[18]

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=530

L9700; DIA OFFSET TOO LARGE LN19:

IF R19==9999 GOTOF LN24

L9732(9999,9999,9999,9999,R19,1) GOTOF LN24 LN21:

IF RENC[49]<>2 GOTOF LN22

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=380

L9700; PROBE FAIL LN22:

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=370

L9700; PROBE OPEN LN23:

RENC[48]=3

IF RENC[20]==4 GOTOF LN24

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 RENC[15]=540

L9700; UPPER TOL EXCEEDED LN24:

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 LN25:

L9800; CLEAR INPUTS STOPRE RET

%_N_L9814_SPF

;$PATH=/_N_SPF_DIR

PROC L9814 SAVE DISPLOF

EXTERN L9721(REAL,REAL,REAL,REAL,REAL) EXTERN L9722(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 BORE BOSS MEASURE

IF ($P_SEARCH)OR($P_SIM)OR($P_DRYRUN) GOTOF LN25 L9724 LN1:

IF R7<>9999 GOTOF LN2 RENC[15]=110

L9700; D INPUT MISSING LN2:

L9725; CLEAR OUTPUTS

R10=$AA_IW[AXV[1]]; X START R12=$AA_IW[AXV[2]]; Y START R30=-1

IF R26==9999 GOTOF LN6

IF R18<>9999 GOTOF LN5 R18=5*RENC[29] LN5:

IF R18<0 GOTOF LN6 R30=1 LN6:

L9722(R7,R17,R18,R26,RENP[1]*RENC[29]/RENC[7]) IF RENC[49]<>0 GOTOF LN21 G0 AX[AXV[2]]=RENC[28]

L9721(R7,R17,R18,R26,RENP[0]*RENC[29]/RENC[7]) G0 AX[AXV[2]]=R12

IF RENC[49]<>0 GOTOF LN21

RENC[35]=RENC[27]+(RENP[2]*RENC[29]/RENC[7]); X COR POS RENC[36]=RENC[28]+(RENP[3]*RENC[29]/RENC[7]); Y COR POS

RENC[38]=(ABS((RENC[24]-RENC[27])*2))-((RENP[0]*RENC[29]/RENC[7])*R30*2); SIZE IF R8==9999 GOTOF LN7

RENC[38]=RENC[38]+(RENE[R8]*RENC[29]/RENC[7]); COR SIZE LN7:

RENC[40]=RENC[35]-R10; X POS ERROR RENC[41]=RENC[36]-R12; Y POS ERROR RENC[43]=RENC[38]-R7; ERROR OF SIZE

RENC[45]=SQRT((RENC[40]*RENC[40])+(RENC[41]*RENC[41])); TP ERROR RENC[46]=RENC[43]*R30/2; METAL CON LN9:

IF R23==9999 GOTOF LN10

L9730(9999,R7,2,R11,9999,9999,R13,9999,9999,R19,R20,R23,R10,R12,9999) LN10:

IF R21==9999 GOTOF LN11

IF ABS(RENC[43]) >= R21 GOTOF LN23 IF RENC[45] >= R21 GOTOF LN23 LN11:

IF R11==9999 GOTOF LN13

IF ABS(RENC[43])

IF RENC[20]==4 GOTOF LN13

IF ABS(RENC[43])

L9700; OUT OF TOL LN13:

IF R13==9999 GOTOF LN15

IF ABS(RENC[45])

IF RENC[20]==4 GOTOF LN15

IF ABS(RENC[45])

L9700; OUT OF POSITION LN15:

IF R20==9999 GOTOF LN19 IF R22==9999 GOTOF LN155

IF ABS(RENC[46])

IF R9<>9999 GOTOF LN16 R9=1 LN16:

L9732(R20,R32,RENC[46]*R9,9999,9999,9999) IF R26<>9999 GOTOF LN19

IF RENC[18]

IF RENC[20]==4 GOTOF LN19 IF RENC[18]

L9700; DIA OFFSET TOO LARGE LN19:

IF R19==9999 GOTOF LN24

L9732(9999,9999,9999,9999,R19,1) GOTOF LN24 LN21:

IF RENC[49]<>2 GOTOF LN22 RENC[15]=380

L9700; PROBE FAIL LN22:

RENC[15]=370

L9700; PROBE OPEN LN23:

RENC[48]=3

IF RENC[20]==4 GOTOF LN24 RENC[15]=540

L9700; UPPER TOL EXCEEDED LN24:

G0 AX[AXV[1]]=R10 AX[AXV[2]]=R12 LN25:

L9800; CLEAR INPUTS STOPRE RET