Filter
Top Products
5-162
5.4 Network Dedicated Instruction
5.4.10 WRITE instruction
J_WRITE, G_WRITE
[ST]
IF (Var_Flag_Inst=TRUE) THEN
MOV(TRUE,H81,Var_ControlData[0]); (* Sets execution/error completion type *)
MOV(TRUE,2,Var_ControlData[2]); (* Sets channel used by host station *)
MOV(TRUE,H0,Var_ControlData[3]); (* Sets target station's CPU type *)
MOV(TRUE,1,Var_ControlData[4]); (* Sets target station network number *)
MOV(TRUE,3,Var_ControlData[5]); (* Sets target station number *)
MOV(TRUE,0,Var_ControlData[6]);
MOV(TRUE,0,Var_ControlData[8]); (* Sets monitoring time *)
MOV(TRUE,4,Var_ControlData[9]); (* Sets data length by the word *)
MOV(TRUE,0,Var_ControlData[10]);
END_IF;
IF (LDP(TRUE,Var_Flag_Inst2)) THEN
MOV(TRUE,10,D750); (* Sets write data to D750 to D753 *)
MOV(TRUE,20,D751);
MOV(TRUE,30,D752);
MOV(TRUE,40,D753);
END_IF;
IF((Var_Flag_Exe=TRUE) AND (SB47=FALSE) AND (SW0A0.2=FALSE)) THEN
MOV(TRUE, 5, Var_ControlData[7]); (* Sets number of resends *)
JP_WRITE(TRUE,1,Var_ControlData,D750,D300,Var_Result);
(* Performs writing *)
END_IF;
IF(Var_Result[0]=TRUE)THEN (* Execution finished *)
IF(Var_Result[1]=FALSE)THEN (* Normal completion *)
ELSE (* Error completion *)
MOV(TRUE, Var_ControlData[1], Var_ErrorCode);
(* Stores error code *)
END_IF;
END_IF;
(* Process on completion of writing *)
(* Process on normal completion *)
(* Process on error completion *)