INEMERGENCn:=TRUE ;
IN_START:=ON_STARTNC;
IN_STOPn:=TRUE ;
IN_TRANSF:=TRUE ;
IN_ENABLE:=TRUE ;
IF (ON_STOPNCn = FALSE) THEN
STOP_AM := TRUE;
END_IF;

IF ((ON_CYCLEON = TRUE)
OR (ON_STARTNC=TRUE)
OR (ON_RESET=TRUE)) THEN
STOP_AM := FALSE ;
MESS:='。。。。。。';
END_IF;


MainProg := MAINPROGNUMBER ;
SubProg := SUBPROGNUMBER ;
Block := BLOCKNUMBER ;


IF (ERROR<> 0) THEN
IF (WRITE_ERROR_MESSAGE(ERROR_NUMBER:=ERROR,STATUS := 3,TEXT:='message')=TRUE)
THEN ERROR := 0;
END_IF ;
END_IF;



JOGA_P:= JOG_P ;

JOGA_M:= JOG_M;




IN_DRON02 := TRUE ;
IN_DRON03 := TRUE ;
IN_DRON01 := TRUE ;
IN_DRON04 := TRUE ;
IN_DRON05 := TRUE ;

TestDword := IN_DRIVEON ;


IN_DREN01:=TRUE;
IN_DREN02:=TRUE;
IN_DREN03:=TRUE;
IN_DREN04:=TRUE;
IN_DREN05:=TRUE;



I2EMERGENCn:=TRUE ;
I2_START:=O2_STARTNC;
I2_STOPn:=TRUE ;
I2_TRANSF:=TRUE ;
I2_ENABLE:=TRUE ;
IF (O2_STOPNCn = FALSE) THEN
STOP_AM := TRUE;
END_IF;

IF ((O2_CYCLEON = TRUE)
OR (O2_STARTNC=TRUE)
OR (O2_RESET=TRUE)) THEN
STOP_AM := FALSE ;
MESS:='。。。。。。。。。';
END_IF;

MainProg := c2MAINPROGNUMBER ;
SubProg := c2SUBPROGNUMBER ;
Block := c2BLOCKNUMBER ;
I2_DRON02 := TRUE ;
I2_DRON03 := TRUE ;
I2_DRON01 := TRUE ;
I2_DRON04 := TRUE ;
I2_DRON05 := TRUE ;

TestDword := I2_DRIVEON ;
I2_DREN01:=TRUE;
I2_DREN02:=TRUE;
I2_DREN03:=TRUE;
I2_DREN04:=TRUE;
I2_DREN05:=TRUE;



STAR_AM := ON_CYCLEON OR O2_CYCLEON;


CNC_DATA ;