PROGRAM P2P
VAR_EXTERNAL


END_VAR

VAR_GLOBAL

END_VAR

VAR
int1   :bool;
toncycle            :ton;
cycle               :bool;
NetVarSend_Slave	: NetVarSend;
en_word1 at%m6000.0 : dint;
b_en01   at%m6000.1 : bool;
b_en02   at%m6000.2 : bool;
b_en03   at%m6000.3 : bool;
b_en04   at%m6000.4 : bool;
b_en05   at%m6000.5 : bool;
b_en06   at%m6000.6 : bool;
b_en07   at%m6000.7 : bool;
b_en08   at%m6001.0 : bool;
b_en09   at%m6001.1 : bool;
b_en10   at%m6001.2 : bool;
b_en11   at%m6001.3 : bool;
b_en12   at%m6001.4 : bool;
b_en13   at%m6001.5 : bool;
b_en14   at%m6001.6 : bool;
b_en15   at%m6001.7 : bool;
b_en16   at%m6002.0 : bool;
b_en17   at%m6002.1 : bool;
b_en18   at%m6002.2 : bool;
b_en19   at%m6002.3 : bool;
b_en20   at%m6002.4 : bool;
b_en21   at%m6002.5 : bool;
b_en22   at%m6002.6 : bool;
b_en23   at%m6002.7 : bool;
b_en24   at%m6003.0 : bool;
b_en25   at%m6003.1 : bool;
b_en26   at%m6003.2 : bool;
b_en27   at%m6003.3 : bool;
b_en28   at%m6003.4 : bool;
b_en29   at%m6003.5 : bool;
b_en30   at%m6003.6 : bool;
b_en31   at%m6003.7 : bool;

en_word2 at%m6004.0 : dint;
b_en32   at%m6004.1 : bool;
b_en33   at%m6004.2 : bool;
b_en34   at%m6004.3 : bool;
b_en35   at%m6004.4 : bool;
b_en36   at%m6004.5 : bool;
b_en37   at%m6004.6 : bool;
b_en38   at%m6004.7 : bool;
b_en39   at%m6005.0 : bool;
b_en40   at%m6005.1 : bool;
b_en41   at%m6005.2 : bool;
b_en42   at%m6005.3 : bool;
b_en43   at%m6005.4 : bool;
b_en44   at%m6005.5 : bool;
b_en45   at%m6005.6 : bool;
b_en46   at%m6005.7 : bool;
b_en47   at%m6006.0 : bool;
b_en48   at%m6006.1 : bool;
b_en49   at%m6006.2 : bool;
b_en50   at%m6006.3 : bool;
b_en51   at%m6006.4 : bool;
b_en52   at%m6006.5 : bool;
b_en53   at%m6006.6 : bool;
b_en54   at%m6006.7 : bool;
b_en55   at%m6007.0 : bool;
b_en56   at%m6007.1 : bool;
b_en57   at%m6007.2 : bool;
b_en58   at%m6007.3 : bool;
b_en59   at%m6007.4 : bool;
b_en60   at%m6007.5 : bool;
b_en61   at%m6007.6 : bool;
b_en62   at%m6007.7 : bool;

temp :bool;
en_enable1 :bool;
en_enable2 :bool;

p2p_en : array[0..255] of bool;
i,j : int;


END_VAR

(*Automatically declared*)
VAR_EXTERNAL
	LIES04C01_TS : REAL;
	LIES04C01_CO2S : REAL;
	RNLIES04C01_TS : REAL;
	RNLIES04C01_CO2S : REAL;
END_VAR
(** if p2p_en[0]=0 then **)
	(* if - Cond *)
	LD p2p_en[0]
	EQ 0
	JMPCN ODK_SKIP_000000000000001_000000000000001

		(* then - Stmts *)

(** 	p2p_en[0]:=1; **)
		(* assign - Stmt *)
		LD 1
		ST p2p_en[0]

(** 	p2p_en[1]:=1; **)
		(* assign - Stmt *)
		LD 1
		ST p2p_en[1]

		JMP ODK_END_IF_000000000000001

(** end_if; **)
	(* if - End *) 
	ODK_SKIP_000000000000001_000000000000001:
	ODK_END_IF_000000000000001:

(**  **)
(**  **)
(** for i:=80 to 1 by -1 do  **)
	(* for - Init *)
	LD 80
	ST i
	EQ 1
	JMPC ODK_FOR_STMTS_000000000000002

	(* for - Cond *)
	ODK_FOR_000000000000002:

	LD 80
	GT 1
	JMPC ODK_FOR_DOWN_000000000000002

	LD 0
	GT( -1
	)
	JMPC ODK_END_FOR_000000000000002

	LD 1
	LT i
	JMPC ODK_END_FOR_000000000000002
	JMP ODK_FOR_STMTS_000000000000002

	ODK_FOR_DOWN_000000000000002:

	LD 1
	GT i
	JMPC ODK_END_FOR_000000000000002

	LD 0
	LT( -1
	)
	JMPC ODK_END_FOR_000000000000002

		(* for - Stmts *)
		ODK_FOR_STMTS_000000000000002:

(** 	j:=i+1; **)
		(* assign - Stmt *)
		LD i
		ADD 1
		ST j

(** 	p2p_en[j]:=p2p_en[i]; **)
		(* assign - Stmt *)
		LD p2p_en[i]
		ST p2p_en[j]

	(* for - By *)
	LD -1
	ADD i
	ST i
(** end_for; **)

	JMP ODK_FOR_000000000000002

	(* for - End *) 
	ODK_END_FOR_000000000000002:

(** p2p_en[1]:=p2p_en[81]; **)
	(* assign - Stmt *)
	LD p2p_en[81]
	ST p2p_en[1]

(**  **)
(** NetVarSend_Slave(EN := p2p_en[01], IP1 := 192, IP2 := 168, IP3 := 50, IP4 := 110, ADDR_LOCAL := 3000, ADDR_REMOTE := 3100, NUM :=  10); **)
	(* call - Stmt *)
	CAL NetVarSend_Slave (
		EN := p2p_en[01],
		IP1 := 192,
		IP2 := 168,
		IP3 := 50,
		IP4 := 110,
		ADDR_LOCAL := 3000,
		ADDR_REMOTE := 3100,
		NUM := 10
	)

(**  **)
(** {*403DDC的CO2数据给到L10总线,供新风机FAU-5-A1和A3联动用*}  **)
(** RNLIES04C01_CO2S         :=LIES04C01_CO2S   ; **)
	(* assign - Stmt *)
	LD LIES04C01_CO2S
	ST RNLIES04C01_CO2S

(** RNLIES04C01_TS			 :=LIES04C01_TS; **)
	(* assign - Stmt *)
	LD LIES04C01_TS
	ST RNLIES04C01_TS


END_PROGRAM