You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
218 lines
4.0 KiB
218 lines
4.0 KiB
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
|