Siemens SINUMERIK 840Di Function Manual page 573

N270 G1 X50
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
Mode Group, Channel, Program Operation, Reset Response (K1)
Function Manual, 08/2005 Edition, 6FC5397-0BP10-0BA0
Detailed Description
; 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
; Check-back signal to PLC
; ASUB end
2.5 Block search
2-37