Siemens SINUMERIK 828D Function Manual page 654

K1: Mode group, channel, program operation, reset response
9.15 Replacing functions by subprograms
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 DELAYFSTON
N1150 COUPOF(S2,S1)
N1160 ;gear stage change separately for leading and following spindles
N1170 M1=$P_SUB_GEAR M2=$P_SUB_GEAR
N1180 DELAYFSTON
N1190 COUPON(S2,S1)
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 _GEAR=$P_SUB_GEAR
N1120 _LA=$P_SUB_LA
N1130 _CA=$P_SUB_CA
N1140 DELAYFSTON
N1150 COUPOF(_CA,_LA)
N1160 ;gear stage change for leading and following spindles
N1170 M[AXTOSPI(_LA)]=_GEAR M[AXTOSPI(_CA)]=_GEAR
N1180 DELAYFSTOF
N1190 COUPON(_CA,_LA)
N1200 ENDIF
...
N9999 RET
654
Comment
; Replacement due to gear stage change
; Start 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
spindle
; Bit memory for gear stage
; Replacement due to gear stage change
; gear stage to be activated
; Axis identifier of the leading spindle
; Axis identifier of the following spindle
; Start stop delay area
; Open synchronous spindle coupling
; End of stop delay area
; Close the synchronous spindle coupling
Function Manual, 09/2011, 6FC5397-0BP40-2BA0
Basic Functions