Siemens SINUMERIK 840D sl Function Manual page 754

Detailed description
2.11 Subroutine call through NC language replacement
Example of replacement subroutine for spindle positioning
Using the system variables $P_SUB_LA and $P_SUB_CA
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
N2120
N2130
N2140
N2180
N2185
N2190
N2200
N2210
N2220
N2230
LABEL_DC:
LABEL_IC:
LABEL_AC:
LABEL_ACP:
LABEL_ACN:
LABEL_CONT:
N2250
N2260
N2270
N2280
N2285
N2290
196
;Replacement due to SPOS/SPOSA/M19 command during active synchronous spindle
coupling
_LA=$P_SUB_LA
_CA=$P_SUB_CA
_LSPI=AXTOSPI(_LA)
_CSPI=AXTOSPI(_LA)
DELAYFSTON
COUPOF(_CA,_LA)
;Position leading and following spindle:
IF($P_SUB_SPOS==TRUE) OR ($P_SUB_SPOSA==TRUE)
;Position spindle with SPOS
CASE $P_SUB_SPOSMODE OF 0 GOTO LABEL_DC\
1 GOTO LABEL_IC 2 GOTO LABEL_AC 3 GOTO LABEL_DC\
4 GOTO LABEL_ACP 5 GOTO LABEL_ACN\
DEFAULT GOTOF LABEL_ERR
SPOS[_LSPI]=DC($P_SUB_SPOSIT) SPOS[_CSPI]=DC($P_SUB_SPOSIT)
GOTOF LABEL_CONT
DELAYFSTOF
SPOS[_LSPI]=IC($P_SUB_SPOSIT) SPOS[_CSPI]=IC($P_SUB_SPOSIT)
DELAYFSTON
GOTOF LABEL_CONT
SPOS[_LSPI]=AC($P_SUB_SPOSIT) SPOS[_CSPI]=AC($P_SUB_SPOSIT)
GOTOF LABEL_CONT
SPOS[_LSPI]=ACP($P_SUB_SPOSIT)
SPOS[_CSPI]=ACP($P_SUB_SPOSIT)
GOTOF LABEL_CONT
SPOS[_LSPI]=ACN($P_SUB_SPOSIT)
SPOS[_CSPI]=ACN($P_SUB_SPOSIT)
ELSE
;Position spindle with M19
M[_LSPI]=19 M[_CSPI]=19
ENDIF
DELAYFSTOF
COUPON(_CA,_LA)
Basic logic functions: Mode group, channel, program operation, reset response (K1)
; Auxiliary memory for leading axis / leading spindle
; Auxiliary memory for following axis / following
spindle
; Auxiliary memory for leading spindle no.. (progr.
spindle)
; Auxiliary memory for following spindle number
; Save axis identifier of the leading spindle
temporarily
; Save axis identifier of the following spindle
temporarily
; Save the number of the leading spindle
temporarily
; Save the number of the following spindle
temporarily
; Start Stop Delay Area
; Deactivate synchronous spindle coupling
; Position leading and following spindle
; End of Stop Delay Area
; Activate synchronous spindle coupling
Function Manual, 11/2006, 6FC5397-0BP10-2BA0