Siemens SINUMERIK 840D sl Programming Manual page 703

Program code
N100 R3=1500
N200 R2=100000 R13=R2/300
N300 R4=100000
N400 R6=30
N500 R1=1
N600 LEADOF(Y,X)
N700 CTABDEF(Y,X,1,0)
N800 X=30 Y=30
N900 X=R13 Y=R13
N1000 X=2*R13 Y=30
N1100 CTABEND
N1200 PRESETON(X1,0)
N1300 Y=R6 G0
N1400 ID=1 WHENEVER $AA_IW[X]>$R3 DO PESETON(X1,0)
N1500 RELEASE(Y)
N1800 ID=6 EVERY $AA_IM[X]<10 DO LEADON(Y,X,1)
N1900 ID=10 EVERY $AA_IM[X]>$R3-30 DO EADOF(Y,X)
N2000 WAITP(X)
N2100 ID=7 WHEN $R1==1 DO MOV[X]=1 FA[X]=$R4
N2200 M30
Job Planning
Programming Manual, 06/2009, 6FC5398-2BP20-0BA0
Motion synchronous actions
10.4 Actions in synchronized actions
Comments
; Length of a part to be
cut off
; Start position Y axis
; Start condition for
conveyor axis
; Delete any existing
coupling
; Table definition
; Value pairs
; End of table
definition
; PRESET at beginning
; Start position Y axis,
axis is linear
; PRESET after length
R3, new start after
disconnecting
; For X < 10, couple Y
to X via table 1
; > 30 before traversed
parting distance,
deactivate coupling
; Set extruded material
axis continuously in
motion
703