Siemens SINUMERIK 840D sl Function Manual page 492

K1: Mode group, channel, program operation, reset response
9.7 Block search, types 1, 2, and 4:
Program code
N280 Y50
N290 X150
N300 G0 G40 G60 X170 Y30
N310 Z100 D0
End of contour section 2
...
M30
PROC WZW
;Tool change routine
N500 DEF INT TNR_AKTIV
N510 DEF INT TNR_VORWAHL
N520 TNR_AKTIV = $TC_MPP6[9998,1]
N530 GETSELT(TNR_VORWAHL)
;
;Execute tool change only if tool is not yet active
N540 IF TNR_AKTIV == TNR_VORWAHL GOTOF ENDE
N550 G0 G40 G60 G90 SUPA X450 Y300 Z300 D0
N560 M6
;
END: M17
PROC SUCHLAUF_ENDE SAVE
;ASUB for calling the tool change routine after block search
N1000 DEF INT TNR_AKTIV
N1010 DEF INT TNR_VORWAHL
N1020 DEF INT TNR_SUCHLAUF
N1030 TNR_AKTIV = $TC_MPP6[9998,1]
N1040 TNR_SUCHLAUF = $P_TOOLNO
N1050 GETSELT(TNR_VORWAHL)
N1060 IF TNR_AKTIV ==TNR_SUCHLAUF GOTOF ASUP_ENDE
N1070 T = $TC_TP2[TNR_SUCHLAUF]
N1080 WZW
N1090 IF TNR_VORWAHL == TNR_SUCHLAUF GOTOF ASUP_ENDE
N1100 T = $TC_TP2[TNR_VORWAHL]
ASUP_ENDE:
N1110 M90
N1120 REPOSA
492
Comment
; Deselect radius compensation
; Deselect length correction
; Variable for active T number
; Variable for preselected T number
; Read T number of active tool
; Read T number of preselected tool
; Approach tool change position
; Execute tool change
; Variable for active T number
; Variable for preselected T number
; Variable for T number determined in
search
; Read T number of active tool
; Read T number determined by search
; Read T number of preselected tool
; T selection by tool name
; Call tool change routine
; Restore T preselection by tool name
; Feedback to PLC
; ASUB end
Function Manual, 01/2015, 6FC5397-0BP40-5BA2
Basic Functions