Siemens Sinumerik 840D sl Programming Manual page 618

Motion synchronous actions
10.4 Actions in synchronized actions
Example
Sample program:
Program code
N100 Id=1 DO CTSWEC
; init
NEXT:
N200 G0 X30 Z1
N210 G95 F.5
N220 M3 S1000
N230 G0 X25
N240 G1 Z-10
N250 G0 X30
N260 M5
N270 AXCTSWE(S1)
N280 GOTO NEXT
Technology cycle CTSWEC:
Program code
CTSWEC PROC(_ex_CT="CT1" STRING _ex_CTsl_BITmask=1H LONG _ex_CT_SL_Number=1
_ex_WAIT_number_of_IPOs=1000) DISPLOF ICYCOF
DEFINE _ex_CT[3]
DEFINE _ex_CTsl_BITmask
DEFINE _ex_CT_SL_Number LONG =1
DEFINE _ex_WAIT_number_of_IPOs INTEGER =1000
DEFINE _ex_number_of_IPOs $AC_MARKER[0]
N110 IF (($A_STOP_COND[0] OR $A_STOP_COND[1] OR $A_STOP_COND[2] OR $A_STOP_COND[3] OR $A_STOP_COND[4]
OR $A_STOP_COND[5] OR $A_STOP_COND[6] OR $A_STOP_COND[7] OR $A_STOP_COND[8] OR $A_STOP_COND[9] OR
$A_STOP_COND[10]) is true))
N120 _ex_number_of_IPOs=_ex_number_of_IPOs+1
N130 IF _ex_number_of_IPOs >= _ex_WAIT_number_of_IPOs
AND $AN_AXCTSWEC[_ex_CT] == _ex_CTsl_BITmask
N140 AXCTSWEC
; ... ELSE
N150 ENDIF
N160 ELSE
N170 _ex_number_of_IPOs=0
N180 ENDIF
N190 RET
618
Comment
; See the technology cycle below.
; Enable axis container rotation via the container spindle S1 known in
the channel.
Comment
; Container name
; Slot bit
; If any hold condition is available for
longer than 1000 IPO cycles
; and own slot has still not been enabled:
; Withdraw enable.
; Wait, whether or not the hold condition
releases itself.
Programming Manual, 02/2011, 6FC5398-2BP40-1BA0
Job planning