Table of Contents
Advertisement
[ST]
IF((Var_Flag_Inst=TRUE) AND (Var_Flag_Exe=FALSE))THEN
MOVP(TRUE,H1,Var_ControlData[2]); (* Sets clear target *)
MOVP(TRUE,H0,Var_ControlData[3]); (* Sets clear function *)
SET(TRUE,Var_Flag_Exe); (* Turns execution flag ON *)
END_IF;
IF(Var_Flag_Exe=TRUE)THEN
ZP_ERRCLR(TRUE,"U0",Var_ControlData,Var_Result); (* Clears error information *)
END_IF;
IF(Var_Result[0]=TRUE)THEN (* Execution finished *)
IF(Var_Result[1]=FALSE)THEN (* Normal completion *)
MOVP(TRUE,0,Var_ErrorCode); (* Clears error code to 0 *)
END_IF;
IF(Var_Result[1]=TRUE)THEN (* Error completion *)
MOVP(TRUE,Var_ControlData[1],Var_ErrorCode);(* Stores error code *)
END_IF;
RST(TRUE,Var_Flag_Exe); (* Turns execution flag OFF *)
END_IF;
5 MODULE DEDICATED INSTRUCTION
5.4 Network Dedicated Instruction
5
211
Advertisement
Table of Contents
