Siemens SINUMERIK 840D sl Function Manual page 634

K1: Mode group, channel, program operation, reset response
9.17 Replacing functions by subprograms
Programming
N120 G01 F100 X100 S5000 M3 M43
N130 M40
N140 M3 S1000
N9999 M30
Replacement subprogram "LANG_SUB", version 1
Optimized for simplicity and velocity by directly addressing the spindles (S1: Leading spindle,
S2: Following spindle).
Programming
N1000 PROC LANG_SUB DISPLOF SBLOF
N1100 IF($P_SUB_AXFCT ==1)
N1140
N1150
N1160
N1170
N1180
N1190
N1200 ENDIF
...
N9999 RET
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 _GEAR
N1100 IF($P_SUB_AXFCT==1)
N1110
N1120
N1130
N1140
N1150
N1160
N1170
634
DELAYFSTON
COUPOF(S2,S1)
;gear stage change separately for leading and following spindles
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)
;gear stage change for leading and following spindles
M[AXTOSPI(_LA)]=_GEAR M[AXTOSPI(_CA)]=_GEAR
Comment
; Subprogram call due to M43
; Switch-on automatic gear stage change
; Subprogram call due to S1000
; and as a result initiated automatic
; Gear stage change
Comment
; Replacement due to gear stage change
; Start of stop delay area
; Open synchronous spindle coupling
; End of stop delay area
; Close the synchronous spindle coupling
Comment
; Bit memory for leading axis / leading spindle
; Bit memory for following axis / following spin-
dle
; Bit memory for gear stage
; Replacement due to gear stage change
; Gear stage to be activated
; Axis name of the leading spindle
; Axis name of the following spindle
; Start of stop delay area
; Open synchronous spindle coupling
Function Manual, 01/2015, 6FC5397-0BP40-5BA2
Basic Functions