Siemens SINUMERIK 840D sl Function Manual page 637

Replacement subprogram "LANG_SUB", version 2
Flexibility through indirect addressing using the system variable (leading spindle: $P_SUB_LA,
following spindle: $P_SUB_CA).
Programming
N1000 PROC LANG_SUB DISPLOF SBLOF
N1010 DEF AXIS _LA
N1020 DEF AXIS _CA
N1030 DEF INT _LSPI
N1040 DEF INT _CSPI
...
N2100 IF($P_SUB_AXFCT==2)
N2110 ;Replacement of SPOS/SPOSA/M19 for active synchronous spindle coupling
N2120
N2130
N2140
N2180
N2185
N2190
N2200
N2210
N2220
N2230
LABEL1_DC:
LABEL1_IC:
LABEL1_AC:
LABEL1_ACP: SPOS[_LSPI]=ACP($P_SUB_SPOSIT) POS[_CSPI]=ACP($P_SUB_SPOSIT)
LABEL1_ACN: SPOS[_LSPI]=ACN($P_SUB_SPOSIT) POS[_CSPI]=ACN($P_SUB_SPOSIT)
LABEL1_CONT:
N2250
N2270
Basic Functions
Function Manual, 01/2015, 6FC5397-0BP40-5BA2
K1: Mode group, channel, program operation, reset response
_LA=$P_SUB_LA
_CA=$P_SUB_CA
_LSPI=AXTOSPI(_LA)
_CSPI=AXTOSPI(_LA)
DELAYFSTON
COUPOF(_CA,_LA)
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[_LSPI]=DC($P_SUB_SPOSIT) SPOS[_CSPI]=DC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
DELAYFSTOF
SPOS[_LSPI]=IC($P_SUB_SPOSIT) SPOS[_CSPI]=IC($P_SUB_SPOSIT)
DELAYFSTON
GOTOF LABEL1_CONT
SPOS[_LSPI]=AC($P_SUB_SPOSIT) SPOS[_CSPI]=AC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
GOTOF LABEL1_CONT
ELSE
M[_LSPI]=19 M[_CSPI]=19
9.17 Replacing functions by subprograms
Comment
; Leading axis/spindle
; Following axis/spindle
; Leading spindle number (programmed
; spindle)
; Following spindle number
; Axis name of the leading spindle
; Axis name of the following spindle
; Number of the leading spindle
; Number of the following spindle
; Start of stop delay area
; Deactivate synchronous spindle coupling
; Position leading and following spindle:
; Position the spindle using M19
637