更新KUKA程序
This commit is contained in:
12
KUKA/KRC/R1/Program/Mylib/Initmove.src
Normal file
12
KUKA/KRC/R1/Program/Mylib/Initmove.src
Normal file
@@ -0,0 +1,12 @@
|
||||
&ACCESS RV
|
||||
DEF Initmove ( )
|
||||
CONTINUE
|
||||
IF ($T1 OR $T2) AND NOT $NEAR_POSRET THEN
|
||||
CONTINUE
|
||||
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
|
||||
INTERRUPT ON 3
|
||||
BAS (#INITMOV,0 )
|
||||
CONTINUE
|
||||
PTP $POS_ACT C_DIS
|
||||
ENDIF
|
||||
END
|
||||
Reference in New Issue
Block a user