Siemens SINUMERIK 828D Function Manual page 656

K1: Mode group, channel, program operation, reset response
9.15 Replacing functions by subprograms
Programming
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[1]=DC($P_SUB_SPOSIT) SPOS[2]=DC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
LABEL1_IC: DELAYFSTOF
SPOS[1]=IC($P_SUB_SPOSIT) SPOS[2]=IC($P_SUB_SPOSIT)
DELAYFSTON
GOTOF LABEL1_CONT
LABEL1_AC: SPOS[1]=AC($P_SUB_SPOSIT) SPOS[2]=AC($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
LABEL1_ACP: SPOS[1]=ACP($P_SUB_SPOSIT) SPOS[2]=ACP($P_SUB_SPOSIT)
GOTOF LABEL1_CONT
LABEL1_ACN: SPOS[1]=ACN($P_SUB_SPOSIT) SPOS[2]=ACN($P_SUB_SPOSIT)
LABEL1_CONT:
N2250 ELSE
N2270 M1=19 M2=19
N2280 ENDIF
N2285 DELAYFSTOF
N2290 COUPON(S2,S1)
N2410 ELSE
N2420 ;from here processing further replacements
...
N3300 ENDIF
...
N9999 RET
LABEL_ERR: SETAL(61000)
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
656
Comment
; 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
Comment
; Leading axis/spindle
; Following axis/spindle
; Leading spindle number (programmed
; spindle)
; Following spindle number
Function Manual, 09/2011, 6FC5397-0BP40-2BA0
Basic Functions