Siemens SINUMERIK 840D sl Function Manual page 750

Detailed description
2.11 Subroutine call through NC language replacement
Example S1 is the leading spindle and S2 is the following spindle:
Typically, the machine manufacturer, is aware of the following spindle(s) that are affected by
a gear stage change in case of a double spindle, and addresses these spindles directly.
N1000 PROC LANG_SUB DISPLOF SBLOF
N1100 IF($P_SUB_AXFCT ==1)
N1140
N1150
N1160
N1170
N1180
N1190
N1200 ENDIF
...
N9999 RET
Example of replacement subroutine for gear stage change
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 _GEAR
...
N1100 IF($P_SUB_AXFCT==1)
N1110
N1120
N1130
N1140
N1150
N1160
N1170
N1180
N1190
N1200 ENDIF
...
N9999 RET
192
DELAYFSTON
COUPOF(S2,S1)
;Execute gear stage change separately for leading and following spindle:
M1=$P_SUB_GEAR M2=$P_SUB_GEAR
DELAYFSTON
COUPON(S2,S1)
_GEAR=$P_SUB_GEAR
_LA=$P_SUB_LA
_CA=$P_SUB_CA
DELAYFSTON
COUPOF(_CA,_LA)
;Execute gear stage change for leading and following spindle:
M[AXTOSPI(_LA)]=_GEAR M[AXTOSPI(_CA)]=_GEAR
DELAYFSTOF
COUPON(_CA,_LA)
Basic logic functions: Mode group, channel, program operation, reset response (K1)
; Replacement due to gear stage change
; Start Stop Delay Area
; Deactivate synchronous spindle coupling
; End of Stop Delay Area
; Activate synchronous spindle coupling
; Auxiliary memory for leading axis / leading spindle
; Auxiliary memory for following axis / following
spindle
; Auxiliary memory for gear stage
; Replacement due to gear stage change
; Save gear stage to be activated temporarily
; Save axis identifier of the leading spindle
temporarily
; Save axis identifier of the following spindle
temporarily
; Start Stop Delay Area
; Deactivate synchronous spindle coupling
; End of Stop Delay Area
; Activate synchronous spindle coupling
Function Manual, 11/2006, 6FC5397-0BP10-2BA0