%_N_BW_ABBRUCH_SPF
;$PATH=/_N_CMA_DIR
;----------------------------------------------
;Abbruchprogramm
;Version 1.0 Sinumerik 840D 24.08.01 W.Sch.
;----------------------------------------------
DEF INT VORSATZ
VORSATZ=0
;-----------Abfrage Bohrstange in Spindel------
IF($AC_TC_MFN)OR($AC_TC_MTO)==9999
ANF:SETAL(65000);Bohrstange in Spindel
GOTOB ANF
ENDIF
;----------------------------------------------
M58;Abbruchprogramm ist abgearbeitet
G0 G40 G90 G94 D0 M9
SPOS=0

;--------------Option Vorsatzeinheit-----------
IF $MN_USER_DATA_HEX[2]B_AND 8<>0
IF $TC_MPP4[9998,5]<>2
VORSATZ=1
ENDIF
ENDIF
;--------------Option Schwenkkopf--------------
IF($MN_USER_DATA_HEX[2]B_AND 2<>0)
IF($A_DBB[17]B_AND 64==0);Stellung horizontal
G153 Y=WZW_Y[1];Stellung oben
G153 Z=WZW_Z[0]
ENDIF
BW_HV_HOR
WHENEVER($A_DBB[17]B_AND 64==0) DO RDISABLE
ENDIF
ENDIF
IF VORSATZ<>0
G153 Z=WZW_Z[2]
ELSE
G153 Z=WZW_Z[0]
ENDIF
G153 Y=WZW_Y[0]
;--------------Palette entladen----------------
IF $MN_USER_DATA_HEX[32]B_AND 1<>0;Pal_Magazin
H0;Leerplatz Anwahl
ENDIF
L799;Palette entladen
;------------Ladegreifer entleeren-------------
IF $TC_MPP6[9998,2]<>0
T=$TC_TP2[$TC_MPP6[9998,2]]
L796
ENDIF
STOPRE
;-------------Spindel entleeren----------------
IF $TC_MPP6[9998,1]<>0
T0
L796
ENDIF
STOPRE
;----------------------------------------------
M02