! ERROR TOOL LENGTH EXCEEDS TARGET TO SPINDL DISTANCE

MOM99

(GTO,100)

(LBL,30)XL1110Z,L1111-.200*L1+L103,FOM25M19 ! MOVE X AND Z TO DIAMETER SENSOR

M5

(IFT,L146=0, (GTO,40»

! GO TO LABEL 40 TO MOVE TOOL TO SENSOR

(IFT,30.1181*L1-L1103-.15*L1-L146<1.*L1,(GTO,40»! FEED FROM PRESENT POSITION

G72Y,L1103+L146+L1,FOM25

! MOVE Y WITHIN 1.0" OF SENSOR

(LBL,40)G72YL1103FL109M25M49

! MOVE ON SENSOR AT L109 FEEDRATE

(LBL,50) (IFT,L1100=0,(GTO,50» ! WAIT FOR G72 BLOCK COMPLETION

(IFT,L1100=1.,(GTO,60»

! CONTINUE IF G72 COMPLETED SUCCESSFULLY

(IFT,L1100=2.,M99MOML6)

! ERROR: TOOL SENSOR ALREADY IN CONTACT

(IFT,L1100=3.,M99MOML6)

! ERROR: TOOL SENSOR NEVER WAS CONTACTED

(GTO,100)

! GO TO SUBROUTINE EXIT POINT

(LBL,60)Y,Y+L3100+.01*L1,FOM48 ! MOVE OFF SENSOR

(PAR,L1100=0)

G72YL1103F,2.*L1,M25M49

! MOVE ON SENSOR

(LBL,70) (IFT,L1100=0, (GTO,70» ! WAIT FOR G72 BLOCK COMPLETION

(IFT,L1100=1.,(GTO,80»

! CONTINUE IF G72 COMPLETED SUCCESSFULLY

(IFT,L1100=2.,M99MOML6)

! ERROR: TOOL SENSOR ALREADY IN CONTACT

(IFT,L1100=3.,M99MOML6)

! ERROR: TOOL SENSOR NEVER WAS CONTACTED

(GTO,100)

! GO TO SUBROUTINE EXIT POINT

(LBL,80) (PAR,L124=L1103-L3001-L3100)! CALCULATE LENGTH IN Y

(IFT,NOTDEF(L104) OR (L146=0),(GTO,85»

(IFT,ABS(L124-L146)

M99MOML6

!

ERROR Y LENGTH OUT OF TOLERANCE

(LBL,85) (TLD,TL7PL124)

! LOAD SUFFIX COMP 4

(IFT,NOTDEF(L106), (GTO,100»

! L106 DIA ACTIVATES PRIMARY COMP SEQUENCE

Y,Y+0.5*L1,F,200.*L1,M48

! MOVE OFF SENSOR

(IFT,NOTDEF(L101),(PAR,L101=75.»! RPM

(IFT,NOTDEF(L102),(PAR,L102=4.» ! SPINDLE DIRECTION

(IFT,NOTDEF(Ll14), (PAR,Ll14=.25*L1»! TOOL TIP TO CHECKING DIAMETER

(IFT,NOTDEF(Ll15),(PAR,Ll15=4.92*L1»! COLLET FACE TO SPINDLE CL

(STS,L)

(PAR,L1100=0)

XL1108Z,L1102+(L106/2.)+L1+L103,FOM25SL101ML102 ! MOVE X,Z TO POSITION

(IFT, (-L124-Ll14-.2*L1-Ll15»1.2*L1, (GTO,90»

MOM99M5

!

ERROR TOOL TOO SHORT TO CLEAR SENSOR BODY

(GTO,100)

(LBL,90)Y,L1109-L124-Ll14-.2*L1,F,200.*L1,M25 ! MOVE Y OVER SENSOR

G72Z,L1102-L1104,FL109M25M49

! MOVE TOOL ON Z SENSOR

(LBL,110) (IFT,L1100=0,(GTO,110» ! WAIT FOR G72 COMPLETION

(IFT,L1100=1.,(GTO,120»

! CONTINUE TO 120 IF G72 COMPLETED

(IFT,L1100=2.,M99MO)

! ERROR SENSOR ALREADY IN CONTACT

(IFT,L1100=3.,M99MO)

! ERROR SENSOR NEVER CONTACTED

(GTO,100)

! GO TO SUBROUTINE EXIT POINT

(LBL,120) (PAR,L1100=0)

Z,Z+.1*L1,F,200.*L1,M48

G72Z,Z-.2*L1,F,2.*L1,M49

(LBL,130) (IFT,L1100=0,(GTO,130»

(IFT,L1100=1.,(GTO,140»

(IFT,L1100=2.,MOML6M99)

(IFT,L1100=3.,MOML6M99)

Y,Y+.5*L1,F,200.*L1,M48

(GTO,100)

(LBL,140) (PAR,L1101=0)

(MTD)

(LBL,150) (IFT,L1101=0,(GTO,150»

Z,Z+L3104+.01*L1,F,200.*L1,M48

(PAR,L101=INT(L101/2.),L1101=0)

Z,Z-(.01*L1+L1104),FL1SL101M49

! MOVE OFF OF SENSOR

! MOVE ON TOOL SENSOR AT 2 IPM

! WAIT FOR G72 BLOCK COMPLETION

! CONTINUE AT 140 IF G72 SUCCESFUL

! ERROR SENSOR ALREADY IN CONTACT

! ERROR SENSOR NEVER CONTACTED

! MOVE Y CLEAR OF SENSOR

! GO TO SUBROUTINE EXIT POINT

! STATUS PARAMETER FOR (MTD) COMMAND

! MEASURE L3104

! WAIT FOR (MTD) BLOCK COMPLETION

! MOVE OFF SENSOR .01"

! REDUCE RPM BY ONE HALF

! MOVE BACK ON SENSOR

2