K1: Mode group, channel, program operation, reset response
9.15 Replacing functions by subprograms
Basic Functions
654
Function Manual, 09/2011, 6FC5397-0BP40-2BA0
Replacement subprogram "LANG_SUB", version 1
Optimized for simplicity and velocity by directly addressing the spindles (S1: Leading spindle, S2: Following
spindle).
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
Comment
N1000 PROC LANG_SUB DISPLOF SBLOF
N1100 IF($P_SUB_AXFCT ==1)
; Replacement due to gear stage change
N1140 DELAYFSTON
; Start stop delay area
N1150 COUPOF(S2,S1)
; Open synchronous spindle coupling
N1160 ;gear stage change separately for leading and following spindles
N1170 M1=$P_SUB_GEAR M2=$P_SUB_GEAR
N1180 DELAYFSTON
; End of stop delay area
N1190 COUPON(S2,S1)
; Close the synchronous spindle coupling
N1200 ENDIF
...
N9999 RET
Programming
Comment
N1000 PROC LANG_SUB DISPLOF SBLOF
N1010 DEF AXIS _LA
; Bit memory for leading axis / leading spindle
N1020 DEF AXIS _CA
; Bit memory for following axis / following
spindle
N1030 DEF INT _GEAR
; Bit memory for gear stage
N1100 IF($P_SUB_AXFCT==1)
; Replacement due to gear stage change
N1110 _GEAR=$P_SUB_GEAR
; gear stage to be activated
N1120 _LA=$P_SUB_LA
; Axis identifier of the leading spindle
N1130 _CA=$P_SUB_CA
; Axis identifier of the following spindle
N1140 DELAYFSTON
; Start stop delay area
N1150 COUPOF(_CA,_LA)
; Open synchronous spindle coupling
N1160 ;gear stage change for leading and following spindles
N1170 M[AXTOSPI(_LA)]=_GEAR M[AXTOSPI(_CA)]=_GEAR
N1180 DELAYFSTOF
; End of stop delay area
N1190 COUPON(_CA,_LA)
; Close the synchronous spindle coupling
N1200 ENDIF
...
N9999 RET