Siemens SINUMERIK 840D sl Function Manual page 636

K1: Mode group, channel, program operation, reset response
9.17 Replacing functions by subprograms
Programming
N2110 ;Replacement of SPOS/SPOSA/M19 for active synchronous spindle coupling
N2185
N2190
N2200
N2210
N2220
N2230
LABEL1_DC:
LABEL1_IC:
LABEL1_AC:
LABEL1_ACP: SPOS[1]=ACP($P_SUB_SPOSIT) SPOS[2]=ACP($P_SUB_SPOSIT)
LABEL1_ACN: SPOS[1]=ACN($P_SUB_SPOSIT) SPOS[2]=ACN($P_SUB_SPOSIT)
LABEL1_CONT:
N2250
N2270
N2280
N2285
N2290
N2410 ELSE
N2420
...
N3300 ENDIF
...
N9999 RET
LABEL_ERR: SETAL(61000)
636
DELAYFSTON
COUPOF(S2,S1)
IF($P_SUB_SPOS==TRUE) OR ($P_SUB_SPOSA==TRUE)
;SPOS and SPOSA are mapped to SPOS
CASE $P_SUB_SPOSMODE OF \
0 GOTOF LABEL1_DC \
1 GOTOF LABEL1_IC \
2 GOTOF LABEL1_AC \
3 GOTOF LABEL1_DC \
4 GOTOF LABEL1_ACP \
5 GOTOF LABEL1_ACN \
DEFAULT GOTOF LABEL_ERR
SPOS[1]=DC($P_SUB_SPOSIT) SPOS[2]=DC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
DELAYFSTOF
SPOS[1]=IC($P_SUB_SPOSIT) SPOS[2]=IC($P_SUB_SPOSIT)
DELAYFSTON
GOTOF LABEL1_CONT
SPOS[1]=AC($P_SUB_SPOSIT) SPOS[2]=AC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
GOTOF LABEL1_CONT
ELSE
M1=19 M2=19
ENDIF
DELAYFSTOF
COUPON(S2,S1)
;from here processing further replacements
Comment
; Start of stop delay area
; Open synchronous spindle coupling
; Position leading and following spindles
; Positioning the spindle using M19
; Leading and following spindles
; End replacement SPOS, SPOSA
; End of stop delay area
; Activate synchronous spindle coupling
; End replacements
; Normal end of program
; Error has occurred
Function Manual, 01/2015, 6FC5397-0BP40-5BA2
Basic Functions