Siemens SINUMERIK 828D Function Manual page 657

Programming
N2120 _LA=$P_SUB_LA
N2130 _CA=$P_SUB_CA
N2140 _LSPI=AXTOSPI(_LA)
N2180 _CSPI=AXTOSPI(_LA)
N2185 DELAYFSTON
N2190 COUPOF(_CA,_LA)
N2200
N2210 IF($P_SUB_SPOS==TRUE) OR ($P_SUB_SPOSA==TRUE)
N2220 ;SPOS and SPOSA are mapped to SPOS
N2230 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
LABEL1_DC: SPOS[_LSPI]=DC($P_SUB_SPOSIT) SPOS[_CSPI]=DC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
LABEL1_IC: DELAYFSTOF
SPOS[_LSPI]=IC($P_SUB_SPOSIT) SPOS[_CSPI]=IC($P_SUB_SPOSIT)
DELAYFSTON
GOTOF LABEL1_CONT
LABEL1_AC: SPOS[_LSPI]=AC($P_SUB_SPOSIT) SPOS[_CSPI]=AC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
LABEL1_ACP: SPOS[_LSPI]=ACP($P_SUB_SPOSIT) POS[_CSPI]=ACP($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
LABEL1_ACN: SPOS[_LSPI]=ACN($P_SUB_SPOSIT) POS[_CSPI]=ACN($P_SUB_SPOSIT)
LABEL1_CONT:
N2250 ELSE
N2270 M[_LSPI]=19 M[_CSPI]=19
N2280 ENDIF
N2285 DELAYFSTOF
N2290 COUPON(_CA,_LA)
N2410 ELSE
N2420 ;from here processing further replacements
...
N3300 ENDIF
...
N9999 RET
LABEL_ERR: SETAL(61000)
Basic Functions
Function Manual, 09/2011, 6FC5397-0BP40-2BA0
K1: Mode group, channel, program operation, reset response
Comment
; Axis identifier of the leading spindle
; Axis identifier of the following spindle
; Number of the leading spindle
; Number of the following spindle
; Start stop delay area
; Deactivate synchronous spindle coupling
; Position leading and following spindle:
; Position the spindle using M19
; End of stop delay area
; Activate synchronous spindle coupling
; Normal end of program
; Error has occurred
9.15 Replacing functions by subprograms
657