Siemens Sinumerik 840D sl Programming Manual page 625

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
N1900 ID=10 EVERY
N2000 WAITP(X)
N2100 ID=7 WHEN $R1==1 DO MOV[X]=1
N2200 M30
Job planning
Programming Manual, 02/2011, 6FC5398-2BP40-1BA0
DO LEADON(Y,X,1)
$AA_IM[X]>$R3-30 DO EADOF(Y,X)
FA[X]=$R4
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
625