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.
 
 
 
 
 
 

3010 lines
62 KiB

FUNCTION_BLOCK IJ_EAFGroup
VAR_EXTERNAL
BS_Schedule_Str_W :STRING;
BS_Schedule_Str_R :ARRAY[0..60] OF BYTE;
END_VAR
VAR_INPUT
Enable :bool; (*联动启用*)
LinkageValue:ARRAY[0..10] of real;(*传感器输入数组*)
Dead_Band :real:=10.0; (*联动死区*)
MaxRange :real:=1000.0; (*上限切除值*)
MinRange :real:=10.0; (*下限切除值*)
LinkageSet :real; (*联动目标设定值,平均值大于设定值时动作*)
HoldDelay :time:=t#60s; (*波动稳定时间*)
EnableNum :INT; (*启用时间段数量 1~4*)
SCH_str :STRING;
ALLDAY :BOOL;
END_VAR
VAR_OUTPUT
LinkageOut :ARRAY[0..10] of bool;
END_VAR
VAR
OUT_Z :BOOL;
TempSum :REAL;
TempCount :INT;
ValueSum :REAL;
ValueCount :INT;
ValueAverage:REAL;
LinkageEN :BOOL;
ton1 :ton;
ton2 :ton;
i,j,k :INT:=0;
TimeSw1 :BOOL;
TimeSw2 :BOOL;
TimeSw3 :BOOL;
TimeSw4 :BOOL;
Enable1th :BOOL;
Enable2th :BOOL;
Enable3th :BOOL;
Enable4th :BOOL;
OnH1th :INT:=0;
OnM1th :INT:=0;
OffH1th :INT:=0;
OffM1th :INT:=0;
OnH2th :INT:=0;
OnM2th :INT:=0;
OffH2th :INT:=0;
OffM2th :INT:=0;
OnH3th :INT:=0;
OnM3th :INT:=0;
OffH3th :INT:=0;
OffM3th :INT:=0;
OnH4th :INT:=0;
OnM4th :INT:=0;
OffH4th :INT:=0;
OffM4th :INT:=0;
Clock : NW_DateTimeGet;
HOUR :byte;
YEAR :word;
MON :byte;
DAY :byte;
MI :byte;
SEC :byte;
WEEK :byte;
WD_HOUR :INT;
WD_MI :INT;
SetCompare1th :BOOL; (*开启设定时间大于关闭设定时间为1,反之为0*)
TrueSetCloseCompare1th :BOOL; (*关闭设定时间大于实际时间为1,反之为0*)
TrueSetOpenCompare1th :BOOL; (*开启设定时间大于实际时间为1,反之为0*)
SetCompare2th :BOOL; (*开启设定时间大于关闭设定时间为1,反之为0*)
TrueSetCloseCompare2th :BOOL; (*关闭设定时间大于实际时间为1,反之为0*)
TrueSetOpenCompare2th :BOOL; (*开启设定时间大于实际时间为1,反之为0*)
SetCompare3th :BOOL; (*开启设定时间大于关闭设定时间为1,反之为0*)
TrueSetCloseCompare3th :BOOL; (*关闭设定时间大于实际时间为1,反之为0*)
TrueSetOpenCompare3th :BOOL; (*开启设定时间大于实际时间为1,反之为0*)
SetCompare4th :BOOL; (*开启设定时间大于关闭设定时间为1,反之为0*)
TrueSetCloseCompare4th :BOOL; (*关闭设定时间大于实际时间为1,反之为0*)
TrueSetOpenCompare4th :BOOL; (*开启设定时间大于实际时间为1,反之为0*)
p1,p2 : pointer;
v2v : NW_MemCopy;
ini :BOOL;
str_ini :STRING;
END_VAR
(*Automatically declared*)
VAR_EXTERNAL
END_VAR
(** {* **)
(** ʱ �䣺20200807 **)
(** �� ����1.1 **)
(** �� �ߣ� **)
(** �� �ƣ��ŷ����������������ܿ� **)
(** ˵ ���� **)
(** �������� **)
(** Enable :bool; �������� **)
(** LinkageValue:ARRAY[0..10] of real; �������������� **)
(** Dead_Band :real:=10.0; �������� **)
(** MaxRange :real:=1000.0; �����г�ֵ **)
(** MinRange :real:=10.0; �����г�ֵ **)
(** LinkageSet :real; ����Ŀ���趨ֵ��ƽ��ֵ�����趨ֵʱ���� **)
(** HoldDelay :time:=t#60s; �����ȶ�ʱ�� Ĭ��60s **)
(** EnableNum :INT; ����ʱ�������� 1~4 **)
(** SCH_str :STRING; ��ʱ�ַ��� **)
(** ALLDAY :BOOL; ȫ����ģʽ 0��ʱʱ�������У�1ȫ���� **)
(** **)
(** �������� **)
(** **)
(** LinkageOut :ARRAY[0..10] of bool; ������������ **)
(** **)
(** 1.֧������4ʱ�λ�ȫ������������ **)
(** 2.֧��10����������ƽ��ȡֵ��Ϊ�������� **)
(** 3.֧��10���豸������Ϊ�������� **)
(** 4.����ֵ������������Χ���������г�ֵ���ȶ�ʱ�� **)
(** **)
(** �� ע������C4�汾CPU **)
(** �����飺 **)
(** BS_Runtime; **)
(** BS_DevC; **)
(** *} **)
(** if Enable=1 then **)
(* if - Cond *)
LD Enable
EQ 1
JMPCN ODK_SKIP_000000000000001_000000000000001
(* then - Stmts *)
(** if SCH_str<>'' then **)
(* if - Cond *)
LD SCH_str
NE ''
JMPCN ODK_SKIP_000000000000002_000000000000001
(* then - Stmts *)
(** {*��ͨ�����������ַ���,����������ֵΪASCII�룬��ͨ��BS_ASCII2INT��������������ָ�빦�����ߺ��Ż��ⲿ����*} **)
(** BS_Schedule_Str_W :=SCH_str; **)
(* assign - Stmt *)
LD SCH_str
ST BS_Schedule_Str_W
(** {* C2�汾 **)
(** v2m1(EN :=1 , DW_MEM_ADDR :=2000 , W_MAXNUM :=32 , STR_FILENAME :='OPCDA1' , STR_VARNAME :='BS_Schedule_Str_W' ); **)
(** m2v1(EN :=1 , DW_MEM_ADDR :=2000 , W_MEM_LEN :=32 , STR_FILENAME :='OPCDA1' , STR_VARNAME :='BS_Schedule_Str_R' ); **)
(** *} **)
(** {* C4�汾 *} **)
(** p1:=&BS_Schedule_Str_W; **)
(* assign - Stmt *)
LD &BS_Schedule_Str_W
ST p1
(** p2:=&BS_Schedule_Str_R; **)
(* assign - Stmt *)
LD &BS_Schedule_Str_R
ST p2
(** v2v(DEST :=p2 , SRC :=p1 , LENGTH :=32 , IQM :=0 ); **)
(* call - Stmt *)
CAL v2v (
DEST := p2,
SRC := p1,
LENGTH := 32,
IQM := 0
)
(** **)
(** {*ʱ�����ݸ�ֵ����ֵ����*} **)
(** if BS_ASCII2INT(BS_Schedule_Str_R[ 0],BS_Schedule_Str_R[ 1])<0 then OnH1th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[ 0],BS_Schedule_Str_R[ 1])>23 then OnH1th:=23; else OnH1th:=BS_ASCII2INT(BS_Schedule_Str_R[ 0],BS_Schedule_Str_R[ 1]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[0]
BS_ASCII2INT BS_Schedule_Str_R[1]
LT 0
JMPCN ODK_SKIP_000000000000003_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnH1th
JMP ODK_END_IF_000000000000003
(* elseif - Cond *)
ODK_SKIP_000000000000003_000000000000001:
LD BS_Schedule_Str_R[0]
BS_ASCII2INT BS_Schedule_Str_R[1]
GT 23
JMPCN ODK_SKIP_000000000000003_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OnH1th
JMP ODK_END_IF_000000000000003
(* else *)
ODK_SKIP_000000000000003_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[0]
BS_ASCII2INT BS_Schedule_Str_R[1]
ST OnH1th
(* if - End *)
ODK_END_IF_000000000000003:
(** if BS_ASCII2INT(BS_Schedule_Str_R[ 2],BS_Schedule_Str_R[ 3])<0 then OnM1th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[ 2],BS_Schedule_Str_R[ 3])>59 then OnM1th:=59; else OnM1th:=BS_ASCII2INT(BS_Schedule_Str_R[ 2],BS_Schedule_Str_R[ 3]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[2]
BS_ASCII2INT BS_Schedule_Str_R[3]
LT 0
JMPCN ODK_SKIP_000000000000004_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnM1th
JMP ODK_END_IF_000000000000004
(* elseif - Cond *)
ODK_SKIP_000000000000004_000000000000001:
LD BS_Schedule_Str_R[2]
BS_ASCII2INT BS_Schedule_Str_R[3]
GT 59
JMPCN ODK_SKIP_000000000000004_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OnM1th
JMP ODK_END_IF_000000000000004
(* else *)
ODK_SKIP_000000000000004_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[2]
BS_ASCII2INT BS_Schedule_Str_R[3]
ST OnM1th
(* if - End *)
ODK_END_IF_000000000000004:
(** if BS_ASCII2INT(BS_Schedule_Str_R[ 4],BS_Schedule_Str_R[ 5])<0 then OffH1th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[ 4],BS_Schedule_Str_R[ 5])>23 then OffH1th:=23; else OffH1th:=BS_ASCII2INT(BS_Schedule_Str_R[ 4],BS_Schedule_Str_R[ 5]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[4]
BS_ASCII2INT BS_Schedule_Str_R[5]
LT 0
JMPCN ODK_SKIP_000000000000005_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffH1th
JMP ODK_END_IF_000000000000005
(* elseif - Cond *)
ODK_SKIP_000000000000005_000000000000001:
LD BS_Schedule_Str_R[4]
BS_ASCII2INT BS_Schedule_Str_R[5]
GT 23
JMPCN ODK_SKIP_000000000000005_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OffH1th
JMP ODK_END_IF_000000000000005
(* else *)
ODK_SKIP_000000000000005_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[4]
BS_ASCII2INT BS_Schedule_Str_R[5]
ST OffH1th
(* if - End *)
ODK_END_IF_000000000000005:
(** if BS_ASCII2INT(BS_Schedule_Str_R[ 6],BS_Schedule_Str_R[ 7])<0 then OffM1th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[ 6],BS_Schedule_Str_R[ 7])>59 then OffM1th:=59; else OffM1th:=BS_ASCII2INT(BS_Schedule_Str_R[ 6],BS_Schedule_Str_R[ 7]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[6]
BS_ASCII2INT BS_Schedule_Str_R[7]
LT 0
JMPCN ODK_SKIP_000000000000006_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffM1th
JMP ODK_END_IF_000000000000006
(* elseif - Cond *)
ODK_SKIP_000000000000006_000000000000001:
LD BS_Schedule_Str_R[6]
BS_ASCII2INT BS_Schedule_Str_R[7]
GT 59
JMPCN ODK_SKIP_000000000000006_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OffM1th
JMP ODK_END_IF_000000000000006
(* else *)
ODK_SKIP_000000000000006_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[6]
BS_ASCII2INT BS_Schedule_Str_R[7]
ST OffM1th
(* if - End *)
ODK_END_IF_000000000000006:
(** **)
(** if BS_ASCII2INT(BS_Schedule_Str_R[ 8],BS_Schedule_Str_R[ 9])<0 then OnH2th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[ 8],BS_Schedule_Str_R[ 9])>23 then OnH2th:=23; else OnH2th:=BS_ASCII2INT(BS_Schedule_Str_R[ 8],BS_Schedule_Str_R[ 9]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[8]
BS_ASCII2INT BS_Schedule_Str_R[9]
LT 0
JMPCN ODK_SKIP_000000000000007_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnH2th
JMP ODK_END_IF_000000000000007
(* elseif - Cond *)
ODK_SKIP_000000000000007_000000000000001:
LD BS_Schedule_Str_R[8]
BS_ASCII2INT BS_Schedule_Str_R[9]
GT 23
JMPCN ODK_SKIP_000000000000007_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OnH2th
JMP ODK_END_IF_000000000000007
(* else *)
ODK_SKIP_000000000000007_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[8]
BS_ASCII2INT BS_Schedule_Str_R[9]
ST OnH2th
(* if - End *)
ODK_END_IF_000000000000007:
(** if BS_ASCII2INT(BS_Schedule_Str_R[10],BS_Schedule_Str_R[11])<0 then OnM2th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[10],BS_Schedule_Str_R[11])>59 then OnM2th:=59; else OnM2th:=BS_ASCII2INT(BS_Schedule_Str_R[10],BS_Schedule_Str_R[11]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[10]
BS_ASCII2INT BS_Schedule_Str_R[11]
LT 0
JMPCN ODK_SKIP_000000000000008_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnM2th
JMP ODK_END_IF_000000000000008
(* elseif - Cond *)
ODK_SKIP_000000000000008_000000000000001:
LD BS_Schedule_Str_R[10]
BS_ASCII2INT BS_Schedule_Str_R[11]
GT 59
JMPCN ODK_SKIP_000000000000008_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OnM2th
JMP ODK_END_IF_000000000000008
(* else *)
ODK_SKIP_000000000000008_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[10]
BS_ASCII2INT BS_Schedule_Str_R[11]
ST OnM2th
(* if - End *)
ODK_END_IF_000000000000008:
(** if BS_ASCII2INT(BS_Schedule_Str_R[12],BS_Schedule_Str_R[13])<0 then OffH2th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[12],BS_Schedule_Str_R[13])>23 then OffH2th:=23; else OffH2th:=BS_ASCII2INT(BS_Schedule_Str_R[12],BS_Schedule_Str_R[13]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[12]
BS_ASCII2INT BS_Schedule_Str_R[13]
LT 0
JMPCN ODK_SKIP_000000000000009_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffH2th
JMP ODK_END_IF_000000000000009
(* elseif - Cond *)
ODK_SKIP_000000000000009_000000000000001:
LD BS_Schedule_Str_R[12]
BS_ASCII2INT BS_Schedule_Str_R[13]
GT 23
JMPCN ODK_SKIP_000000000000009_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OffH2th
JMP ODK_END_IF_000000000000009
(* else *)
ODK_SKIP_000000000000009_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[12]
BS_ASCII2INT BS_Schedule_Str_R[13]
ST OffH2th
(* if - End *)
ODK_END_IF_000000000000009:
(** if BS_ASCII2INT(BS_Schedule_Str_R[14],BS_Schedule_Str_R[15])<0 then OffM2th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[14],BS_Schedule_Str_R[15])>59 then OffM2th:=59; else OffM2th:=BS_ASCII2INT(BS_Schedule_Str_R[14],BS_Schedule_Str_R[15]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[14]
BS_ASCII2INT BS_Schedule_Str_R[15]
LT 0
JMPCN ODK_SKIP_00000000000000A_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffM2th
JMP ODK_END_IF_00000000000000A
(* elseif - Cond *)
ODK_SKIP_00000000000000A_000000000000001:
LD BS_Schedule_Str_R[14]
BS_ASCII2INT BS_Schedule_Str_R[15]
GT 59
JMPCN ODK_SKIP_00000000000000A_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OffM2th
JMP ODK_END_IF_00000000000000A
(* else *)
ODK_SKIP_00000000000000A_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[14]
BS_ASCII2INT BS_Schedule_Str_R[15]
ST OffM2th
(* if - End *)
ODK_END_IF_00000000000000A:
(** **)
(** if BS_ASCII2INT(BS_Schedule_Str_R[16],BS_Schedule_Str_R[17])<0 then OnH3th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[16],BS_Schedule_Str_R[17])>23 then OnH3th:=23; else OnH3th:=BS_ASCII2INT(BS_Schedule_Str_R[16],BS_Schedule_Str_R[17]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[16]
BS_ASCII2INT BS_Schedule_Str_R[17]
LT 0
JMPCN ODK_SKIP_00000000000000B_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnH3th
JMP ODK_END_IF_00000000000000B
(* elseif - Cond *)
ODK_SKIP_00000000000000B_000000000000001:
LD BS_Schedule_Str_R[16]
BS_ASCII2INT BS_Schedule_Str_R[17]
GT 23
JMPCN ODK_SKIP_00000000000000B_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OnH3th
JMP ODK_END_IF_00000000000000B
(* else *)
ODK_SKIP_00000000000000B_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[16]
BS_ASCII2INT BS_Schedule_Str_R[17]
ST OnH3th
(* if - End *)
ODK_END_IF_00000000000000B:
(** if BS_ASCII2INT(BS_Schedule_Str_R[18],BS_Schedule_Str_R[19])<0 then OnM3th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[18],BS_Schedule_Str_R[19])>59 then OnM3th:=59; else OnM3th:=BS_ASCII2INT(BS_Schedule_Str_R[18],BS_Schedule_Str_R[19]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[18]
BS_ASCII2INT BS_Schedule_Str_R[19]
LT 0
JMPCN ODK_SKIP_00000000000000C_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnM3th
JMP ODK_END_IF_00000000000000C
(* elseif - Cond *)
ODK_SKIP_00000000000000C_000000000000001:
LD BS_Schedule_Str_R[18]
BS_ASCII2INT BS_Schedule_Str_R[19]
GT 59
JMPCN ODK_SKIP_00000000000000C_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OnM3th
JMP ODK_END_IF_00000000000000C
(* else *)
ODK_SKIP_00000000000000C_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[18]
BS_ASCII2INT BS_Schedule_Str_R[19]
ST OnM3th
(* if - End *)
ODK_END_IF_00000000000000C:
(** if BS_ASCII2INT(BS_Schedule_Str_R[20],BS_Schedule_Str_R[21])<0 then OffH3th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[20],BS_Schedule_Str_R[21])>23 then OffH3th:=23; else OffH3th:=BS_ASCII2INT(BS_Schedule_Str_R[20],BS_Schedule_Str_R[21]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[20]
BS_ASCII2INT BS_Schedule_Str_R[21]
LT 0
JMPCN ODK_SKIP_00000000000000D_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffH3th
JMP ODK_END_IF_00000000000000D
(* elseif - Cond *)
ODK_SKIP_00000000000000D_000000000000001:
LD BS_Schedule_Str_R[20]
BS_ASCII2INT BS_Schedule_Str_R[21]
GT 23
JMPCN ODK_SKIP_00000000000000D_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OffH3th
JMP ODK_END_IF_00000000000000D
(* else *)
ODK_SKIP_00000000000000D_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[20]
BS_ASCII2INT BS_Schedule_Str_R[21]
ST OffH3th
(* if - End *)
ODK_END_IF_00000000000000D:
(** if BS_ASCII2INT(BS_Schedule_Str_R[22],BS_Schedule_Str_R[23])<0 then OffM3th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[22],BS_Schedule_Str_R[23])>59 then OffM3th:=59; else OffM3th:=BS_ASCII2INT(BS_Schedule_Str_R[22],BS_Schedule_Str_R[23]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[22]
BS_ASCII2INT BS_Schedule_Str_R[23]
LT 0
JMPCN ODK_SKIP_00000000000000E_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffM3th
JMP ODK_END_IF_00000000000000E
(* elseif - Cond *)
ODK_SKIP_00000000000000E_000000000000001:
LD BS_Schedule_Str_R[22]
BS_ASCII2INT BS_Schedule_Str_R[23]
GT 59
JMPCN ODK_SKIP_00000000000000E_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OffM3th
JMP ODK_END_IF_00000000000000E
(* else *)
ODK_SKIP_00000000000000E_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[22]
BS_ASCII2INT BS_Schedule_Str_R[23]
ST OffM3th
(* if - End *)
ODK_END_IF_00000000000000E:
(** **)
(** if BS_ASCII2INT(BS_Schedule_Str_R[24],BS_Schedule_Str_R[25])<0 then OnH4th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[24],BS_Schedule_Str_R[25])>23 then OnH4th:=23; else OnH4th:=BS_ASCII2INT(BS_Schedule_Str_R[24],BS_Schedule_Str_R[25]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[24]
BS_ASCII2INT BS_Schedule_Str_R[25]
LT 0
JMPCN ODK_SKIP_00000000000000F_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnH4th
JMP ODK_END_IF_00000000000000F
(* elseif - Cond *)
ODK_SKIP_00000000000000F_000000000000001:
LD BS_Schedule_Str_R[24]
BS_ASCII2INT BS_Schedule_Str_R[25]
GT 23
JMPCN ODK_SKIP_00000000000000F_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OnH4th
JMP ODK_END_IF_00000000000000F
(* else *)
ODK_SKIP_00000000000000F_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[24]
BS_ASCII2INT BS_Schedule_Str_R[25]
ST OnH4th
(* if - End *)
ODK_END_IF_00000000000000F:
(** if BS_ASCII2INT(BS_Schedule_Str_R[26],BS_Schedule_Str_R[27])<0 then OnM4th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[26],BS_Schedule_Str_R[27])>59 then OnM4th:=59; else OnM4th:=BS_ASCII2INT(BS_Schedule_Str_R[26],BS_Schedule_Str_R[27]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[26]
BS_ASCII2INT BS_Schedule_Str_R[27]
LT 0
JMPCN ODK_SKIP_00000000000000G_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OnM4th
JMP ODK_END_IF_00000000000000G
(* elseif - Cond *)
ODK_SKIP_00000000000000G_000000000000001:
LD BS_Schedule_Str_R[26]
BS_ASCII2INT BS_Schedule_Str_R[27]
GT 59
JMPCN ODK_SKIP_00000000000000G_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OnM4th
JMP ODK_END_IF_00000000000000G
(* else *)
ODK_SKIP_00000000000000G_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[26]
BS_ASCII2INT BS_Schedule_Str_R[27]
ST OnM4th
(* if - End *)
ODK_END_IF_00000000000000G:
(** if BS_ASCII2INT(BS_Schedule_Str_R[28],BS_Schedule_Str_R[29])<0 then OffH4th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[28],BS_Schedule_Str_R[29])>23 then OffH4th:=23; else OffH4th:=BS_ASCII2INT(BS_Schedule_Str_R[28],BS_Schedule_Str_R[29]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[28]
BS_ASCII2INT BS_Schedule_Str_R[29]
LT 0
JMPCN ODK_SKIP_00000000000000H_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffH4th
JMP ODK_END_IF_00000000000000H
(* elseif - Cond *)
ODK_SKIP_00000000000000H_000000000000001:
LD BS_Schedule_Str_R[28]
BS_ASCII2INT BS_Schedule_Str_R[29]
GT 23
JMPCN ODK_SKIP_00000000000000H_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 23
ST OffH4th
JMP ODK_END_IF_00000000000000H
(* else *)
ODK_SKIP_00000000000000H_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[28]
BS_ASCII2INT BS_Schedule_Str_R[29]
ST OffH4th
(* if - End *)
ODK_END_IF_00000000000000H:
(** if BS_ASCII2INT(BS_Schedule_Str_R[30],BS_Schedule_Str_R[31])<0 then OffM4th:=0; elsif BS_ASCII2INT(BS_Schedule_Str_R[30],BS_Schedule_Str_R[31])>59 then OffM4th:=59; else OffM4th:=BS_ASCII2INT(BS_Schedule_Str_R[30],BS_Schedule_Str_R[31]); end_if; **)
(* if - Cond *)
LD BS_Schedule_Str_R[30]
BS_ASCII2INT BS_Schedule_Str_R[31]
LT 0
JMPCN ODK_SKIP_00000000000000I_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 0
ST OffM4th
JMP ODK_END_IF_00000000000000I
(* elseif - Cond *)
ODK_SKIP_00000000000000I_000000000000001:
LD BS_Schedule_Str_R[30]
BS_ASCII2INT BS_Schedule_Str_R[31]
GT 59
JMPCN ODK_SKIP_00000000000000I_000000000000002
(* elsif - Stmts *)
(* assign - Stmt *)
LD 59
ST OffM4th
JMP ODK_END_IF_00000000000000I
(* else *)
ODK_SKIP_00000000000000I_000000000000002:
(* else - Stmts *)
(* assign - Stmt *)
LD BS_Schedule_Str_R[30]
BS_ASCII2INT BS_Schedule_Str_R[31]
ST OffM4th
(* if - End *)
ODK_END_IF_00000000000000I:
JMP ODK_END_IF_000000000000002
(** **)
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000002_000000000000001:
ODK_END_IF_000000000000002:
(** {* ��Чʱ�䷶Χ�ڳ���ִ��*} **)
(** if EnableNum =1 then Enable1th :=1; Enable2th :=0; Enable3th :=0; Enable4th :=0; end_if; **)
(* if - Cond *)
LD EnableNum
EQ 1
JMPCN ODK_SKIP_00000000000000J_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 1
ST Enable1th
(* assign - Stmt *)
LD 0
ST Enable2th
(* assign - Stmt *)
LD 0
ST Enable3th
(* assign - Stmt *)
LD 0
ST Enable4th
JMP ODK_END_IF_00000000000000J
(* if - End *)
ODK_SKIP_00000000000000J_000000000000001:
ODK_END_IF_00000000000000J:
(** if EnableNum =2 then Enable1th :=1; Enable2th :=1; Enable3th :=0; Enable4th :=0; end_if; **)
(* if - Cond *)
LD EnableNum
EQ 2
JMPCN ODK_SKIP_00000000000000K_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 1
ST Enable1th
(* assign - Stmt *)
LD 1
ST Enable2th
(* assign - Stmt *)
LD 0
ST Enable3th
(* assign - Stmt *)
LD 0
ST Enable4th
JMP ODK_END_IF_00000000000000K
(* if - End *)
ODK_SKIP_00000000000000K_000000000000001:
ODK_END_IF_00000000000000K:
(** if EnableNum =3 then Enable1th :=1; Enable2th :=1; Enable3th :=1; Enable4th :=0; end_if; **)
(* if - Cond *)
LD EnableNum
EQ 3
JMPCN ODK_SKIP_00000000000000L_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 1
ST Enable1th
(* assign - Stmt *)
LD 1
ST Enable2th
(* assign - Stmt *)
LD 1
ST Enable3th
(* assign - Stmt *)
LD 0
ST Enable4th
JMP ODK_END_IF_00000000000000L
(* if - End *)
ODK_SKIP_00000000000000L_000000000000001:
ODK_END_IF_00000000000000L:
(** if EnableNum =4 then Enable1th :=1; Enable2th :=1; Enable3th :=1; Enable4th :=1; end_if; **)
(* if - Cond *)
LD EnableNum
EQ 4
JMPCN ODK_SKIP_00000000000000M_000000000000001
(* then - Stmts *)
(* assign - Stmt *)
LD 1
ST Enable1th
(* assign - Stmt *)
LD 1
ST Enable2th
(* assign - Stmt *)
LD 1
ST Enable3th
(* assign - Stmt *)
LD 1
ST Enable4th
JMP ODK_END_IF_00000000000000M
(* if - End *)
ODK_SKIP_00000000000000M_000000000000001:
ODK_END_IF_00000000000000M:
(** **)
(** if ALLDAY=0 then **)
(* if - Cond *)
LD ALLDAY
EQ 0
JMPCN ODK_SKIP_00000000000000N_000000000000001
(* then - Stmts *)
(** {*��ʱ���������� 4���ų�*} **)
(** Clock( EN:=1 , B_TWELVE_HOUR:=0 | YEAR:= W_YEAR, MON:= BY_MONTH, DAY:= BY_DAY, HOUR:= BY_HOUR,MI := BY_MIN, SEC:= BY_SEC,WEEK := BY_WDAY ); **)
(* call - Stmt *)
CAL Clock (
EN := 1,
B_TWELVE_HOUR := 0
|
YEAR := W_YEAR,
MON := BY_MONTH,
DAY := BY_DAY,
HOUR := BY_HOUR,
MI := BY_MIN,
SEC := BY_SEC,
WEEK := BY_WDAY
)
(** **)
(** WD_HOUR:=BYTE_TO_int(HOUR); **)
(* assign - Stmt *)
LD HOUR
BYTE_TO_int
ST WD_HOUR
(** WD_MI:=BYTE_TO_int(MI); **)
(* assign - Stmt *)
LD MI
BYTE_TO_int
ST WD_MI
(** **)
(** if Enable1th=TRUE and (not(OnH1th=OffH1th and OnM1th=OffM1th)) then{*����ʱ��һ������Ч*} **)
(* if - Cond *)
LD Enable1th
EQ TRUE
AND ( OnH1th
EQ OffH1th
AND ( OnM1th
EQ OffM1th
)
NOT
)
JMPCN ODK_SKIP_00000000000000O_000000000000001
(* then - Stmts *)
(** {*1�жϿ����趨ʱ��֮���Ĵ�С*} **)
(** if OnH1th>OffH1th then **)
(* if - Cond *)
LD OnH1th
GT OffH1th
JMPCN ODK_SKIP_00000000000000P_000000000000001
(* then - Stmts *)
(** SetCompare1th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare1th
JMP ODK_END_IF_00000000000000P
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000P_000000000000001:
ODK_END_IF_00000000000000P:
(** if OnH1th<OffH1th then **)
(* if - Cond *)
LD OnH1th
LT OffH1th
JMPCN ODK_SKIP_00000000000000Q_000000000000001
(* then - Stmts *)
(** SetCompare1th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare1th
JMP ODK_END_IF_00000000000000Q
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000Q_000000000000001:
ODK_END_IF_00000000000000Q:
(** if OnH1th=OffH1th then **)
(* if - Cond *)
LD OnH1th
EQ OffH1th
JMPCN ODK_SKIP_00000000000000R_000000000000001
(* then - Stmts *)
(** if OnM1th>OffM1th then **)
(* if - Cond *)
LD OnM1th
GT OffM1th
JMPCN ODK_SKIP_00000000000000S_000000000000001
(* then - Stmts *)
(** SetCompare1th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare1th
JMP ODK_END_IF_00000000000000S
(** else **)
(* else *)
ODK_SKIP_00000000000000S_000000000000001:
(* else - Stmts *)
(** SetCompare1th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare1th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000S:
JMP ODK_END_IF_00000000000000R
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000R_000000000000001:
ODK_END_IF_00000000000000R:
(** **)
(** {*1�жϿ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OnH1th>WD_HOUR then **)
(* if - Cond *)
LD OnH1th
GT WD_HOUR
JMPCN ODK_SKIP_00000000000000T_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare1th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare1th
JMP ODK_END_IF_00000000000000T
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000T_000000000000001:
ODK_END_IF_00000000000000T:
(** if OnH1th<WD_HOUR then **)
(* if - Cond *)
LD OnH1th
LT WD_HOUR
JMPCN ODK_SKIP_00000000000000U_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare1th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare1th
JMP ODK_END_IF_00000000000000U
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000U_000000000000001:
ODK_END_IF_00000000000000U:
(** if OnH1th=WD_HOUR then **)
(* if - Cond *)
LD OnH1th
EQ WD_HOUR
JMPCN ODK_SKIP_00000000000000V_000000000000001
(* then - Stmts *)
(** if OnM1th>=WD_MI then **)
(* if - Cond *)
LD OnM1th
GE WD_MI
JMPCN ODK_SKIP_00000000000000W_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare1th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare1th
JMP ODK_END_IF_00000000000000W
(** else **)
(* else *)
ODK_SKIP_00000000000000W_000000000000001:
(* else - Stmts *)
(** TrueSetOpenCompare1th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare1th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000W:
JMP ODK_END_IF_00000000000000V
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000V_000000000000001:
ODK_END_IF_00000000000000V:
(** **)
(** {*1�жϹ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OffH1th>WD_HOUR then **)
(* if - Cond *)
LD OffH1th
GT WD_HOUR
JMPCN ODK_SKIP_00000000000000X_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare1th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare1th
JMP ODK_END_IF_00000000000000X
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000X_000000000000001:
ODK_END_IF_00000000000000X:
(** if OffH1th<WD_HOUR then **)
(* if - Cond *)
LD OffH1th
LT WD_HOUR
JMPCN ODK_SKIP_00000000000000Y_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare1th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare1th
JMP ODK_END_IF_00000000000000Y
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000Y_000000000000001:
ODK_END_IF_00000000000000Y:
(** if OffH1th=WD_HOUR then **)
(* if - Cond *)
LD OffH1th
EQ WD_HOUR
JMPCN ODK_SKIP_00000000000000Z_000000000000001
(* then - Stmts *)
(** if OffM1th>=WD_MI then **)
(* if - Cond *)
LD OffM1th
GE WD_MI
JMPCN ODK_SKIP_000000000000010_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare1th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare1th
JMP ODK_END_IF_000000000000010
(** else **)
(* else *)
ODK_SKIP_000000000000010_000000000000001:
(* else - Stmts *)
(** TrueSetCloseCompare1th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare1th
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000010:
JMP ODK_END_IF_00000000000000Z
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000Z_000000000000001:
ODK_END_IF_00000000000000Z:
(** **)
(** {*1��������*} **)
(** if SetCompare1th then{*�����趨ʱ�����ڹر��趨ʱ��Ϊ1*} **)
(* if - Cond *)
LD SetCompare1th
JMPCN ODK_SKIP_000000000000011_000000000000001
(* then - Stmts *)
(** if TrueSetOpenCompare1th and not (TrueSetCloseCompare1th) then **)
(* if - Cond *)
LD TrueSetOpenCompare1th
AND ( TrueSetCloseCompare1th
NOT
)
JMPCN ODK_SKIP_000000000000012_000000000000001
(* then - Stmts *)
(** TimeSw1:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw1
JMP ODK_END_IF_000000000000012
(** else **)
(* else *)
ODK_SKIP_000000000000012_000000000000001:
(* else - Stmts *)
(** TimeSw1:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw1
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000012:
JMP ODK_END_IF_000000000000011
(** else **)
(* else *)
ODK_SKIP_000000000000011_000000000000001:
(* else - Stmts *)
(** **)
(** if TrueSetCloseCompare1th and not (TrueSetOpenCompare1th) then **)
(* if - Cond *)
LD TrueSetCloseCompare1th
AND ( TrueSetOpenCompare1th
NOT
)
JMPCN ODK_SKIP_000000000000013_000000000000001
(* then - Stmts *)
(** TimeSw1:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw1
JMP ODK_END_IF_000000000000013
(** else **)
(* else *)
ODK_SKIP_000000000000013_000000000000001:
(* else - Stmts *)
(** TimeSw1:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw1
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000013:
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000011:
JMP ODK_END_IF_00000000000000O
(** **)
(** else **)
(* else *)
ODK_SKIP_00000000000000O_000000000000001:
(* else - Stmts *)
(** TimeSw1:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw1
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000O:
(** **)
(** **)
(** if Enable2th=TRUE and (not(OnH2th=OffH2th and OnM2th=OffM2th)) then{*����ʱ��һ������Ч*} **)
(* if - Cond *)
LD Enable2th
EQ TRUE
AND ( OnH2th
EQ OffH2th
AND ( OnM2th
EQ OffM2th
)
NOT
)
JMPCN ODK_SKIP_000000000000014_000000000000001
(* then - Stmts *)
(** {*2�жϿ����趨ʱ��֮���Ĵ�С*} **)
(** if OnH2th>OffH2th then **)
(* if - Cond *)
LD OnH2th
GT OffH2th
JMPCN ODK_SKIP_000000000000015_000000000000001
(* then - Stmts *)
(** SetCompare2th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare2th
JMP ODK_END_IF_000000000000015
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000015_000000000000001:
ODK_END_IF_000000000000015:
(** if OnH2th<OffH2th then **)
(* if - Cond *)
LD OnH2th
LT OffH2th
JMPCN ODK_SKIP_000000000000016_000000000000001
(* then - Stmts *)
(** SetCompare2th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare2th
JMP ODK_END_IF_000000000000016
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000016_000000000000001:
ODK_END_IF_000000000000016:
(** if OnH2th=OffH2th then **)
(* if - Cond *)
LD OnH2th
EQ OffH2th
JMPCN ODK_SKIP_000000000000017_000000000000001
(* then - Stmts *)
(** if OnM2th>OffM2th then **)
(* if - Cond *)
LD OnM2th
GT OffM2th
JMPCN ODK_SKIP_000000000000018_000000000000001
(* then - Stmts *)
(** SetCompare2th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare2th
JMP ODK_END_IF_000000000000018
(** else **)
(* else *)
ODK_SKIP_000000000000018_000000000000001:
(* else - Stmts *)
(** SetCompare2th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare2th
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000018:
JMP ODK_END_IF_000000000000017
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000017_000000000000001:
ODK_END_IF_000000000000017:
(** **)
(** {*2�жϿ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OnH2th>WD_HOUR then **)
(* if - Cond *)
LD OnH2th
GT WD_HOUR
JMPCN ODK_SKIP_000000000000019_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare2th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare2th
JMP ODK_END_IF_000000000000019
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000019_000000000000001:
ODK_END_IF_000000000000019:
(** if OnH2th<WD_HOUR then **)
(* if - Cond *)
LD OnH2th
LT WD_HOUR
JMPCN ODK_SKIP_00000000000001A_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare2th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare2th
JMP ODK_END_IF_00000000000001A
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001A_000000000000001:
ODK_END_IF_00000000000001A:
(** if OnH2th=WD_HOUR then **)
(* if - Cond *)
LD OnH2th
EQ WD_HOUR
JMPCN ODK_SKIP_00000000000001B_000000000000001
(* then - Stmts *)
(** if OnM2th>=WD_MI then **)
(* if - Cond *)
LD OnM2th
GE WD_MI
JMPCN ODK_SKIP_00000000000001C_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare2th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare2th
JMP ODK_END_IF_00000000000001C
(** else **)
(* else *)
ODK_SKIP_00000000000001C_000000000000001:
(* else - Stmts *)
(** TrueSetOpenCompare2th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare2th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001C:
JMP ODK_END_IF_00000000000001B
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001B_000000000000001:
ODK_END_IF_00000000000001B:
(** **)
(** {*2�жϹ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OffH2th>WD_HOUR then **)
(* if - Cond *)
LD OffH2th
GT WD_HOUR
JMPCN ODK_SKIP_00000000000001D_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare2th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare2th
JMP ODK_END_IF_00000000000001D
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001D_000000000000001:
ODK_END_IF_00000000000001D:
(** if OffH2th<WD_HOUR then **)
(* if - Cond *)
LD OffH2th
LT WD_HOUR
JMPCN ODK_SKIP_00000000000001E_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare2th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare2th
JMP ODK_END_IF_00000000000001E
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001E_000000000000001:
ODK_END_IF_00000000000001E:
(** if OffH2th=WD_HOUR then **)
(* if - Cond *)
LD OffH2th
EQ WD_HOUR
JMPCN ODK_SKIP_00000000000001F_000000000000001
(* then - Stmts *)
(** if OffM2th>=WD_MI then **)
(* if - Cond *)
LD OffM2th
GE WD_MI
JMPCN ODK_SKIP_00000000000001G_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare2th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare2th
JMP ODK_END_IF_00000000000001G
(** else **)
(* else *)
ODK_SKIP_00000000000001G_000000000000001:
(* else - Stmts *)
(** TrueSetCloseCompare2th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare2th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001G:
JMP ODK_END_IF_00000000000001F
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001F_000000000000001:
ODK_END_IF_00000000000001F:
(** **)
(** {*2��������*} **)
(** if SetCompare2th then{*�����趨ʱ�����ڹر��趨ʱ��Ϊ1*} **)
(* if - Cond *)
LD SetCompare2th
JMPCN ODK_SKIP_00000000000001H_000000000000001
(* then - Stmts *)
(** if TrueSetOpenCompare2th and not (TrueSetCloseCompare2th) then **)
(* if - Cond *)
LD TrueSetOpenCompare2th
AND ( TrueSetCloseCompare2th
NOT
)
JMPCN ODK_SKIP_00000000000001I_000000000000001
(* then - Stmts *)
(** TimeSw2:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw2
JMP ODK_END_IF_00000000000001I
(** else **)
(* else *)
ODK_SKIP_00000000000001I_000000000000001:
(* else - Stmts *)
(** TimeSw2:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw2
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001I:
JMP ODK_END_IF_00000000000001H
(** else **)
(* else *)
ODK_SKIP_00000000000001H_000000000000001:
(* else - Stmts *)
(** **)
(** if TrueSetCloseCompare2th and not (TrueSetOpenCompare2th) then **)
(* if - Cond *)
LD TrueSetCloseCompare2th
AND ( TrueSetOpenCompare2th
NOT
)
JMPCN ODK_SKIP_00000000000001J_000000000000001
(* then - Stmts *)
(** TimeSw2:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw2
JMP ODK_END_IF_00000000000001J
(** else **)
(* else *)
ODK_SKIP_00000000000001J_000000000000001:
(* else - Stmts *)
(** TimeSw2:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw2
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001J:
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001H:
JMP ODK_END_IF_000000000000014
(** **)
(** else **)
(* else *)
ODK_SKIP_000000000000014_000000000000001:
(* else - Stmts *)
(** TimeSw2:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw2
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000014:
(** **)
(** **)
(** **)
(** if Enable3th=TRUE and (not(OnH3th=OffH3th and OnM3th=OffM3th)) then{*����ʱ��һ������Ч*} **)
(* if - Cond *)
LD Enable3th
EQ TRUE
AND ( OnH3th
EQ OffH3th
AND ( OnM3th
EQ OffM3th
)
NOT
)
JMPCN ODK_SKIP_00000000000001K_000000000000001
(* then - Stmts *)
(** {*3�жϿ����趨ʱ��֮���Ĵ�С*} **)
(** if OnH3th>OffH3th then **)
(* if - Cond *)
LD OnH3th
GT OffH3th
JMPCN ODK_SKIP_00000000000001L_000000000000001
(* then - Stmts *)
(** SetCompare3th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare3th
JMP ODK_END_IF_00000000000001L
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001L_000000000000001:
ODK_END_IF_00000000000001L:
(** if OnH3th<OffH3th then **)
(* if - Cond *)
LD OnH3th
LT OffH3th
JMPCN ODK_SKIP_00000000000001M_000000000000001
(* then - Stmts *)
(** SetCompare3th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare3th
JMP ODK_END_IF_00000000000001M
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001M_000000000000001:
ODK_END_IF_00000000000001M:
(** if OnH3th=OffH3th then **)
(* if - Cond *)
LD OnH3th
EQ OffH3th
JMPCN ODK_SKIP_00000000000001N_000000000000001
(* then - Stmts *)
(** if OnM3th>OffM3th then **)
(* if - Cond *)
LD OnM3th
GT OffM3th
JMPCN ODK_SKIP_00000000000001O_000000000000001
(* then - Stmts *)
(** SetCompare3th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare3th
JMP ODK_END_IF_00000000000001O
(** else **)
(* else *)
ODK_SKIP_00000000000001O_000000000000001:
(* else - Stmts *)
(** SetCompare3th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare3th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001O:
JMP ODK_END_IF_00000000000001N
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001N_000000000000001:
ODK_END_IF_00000000000001N:
(** **)
(** {*3�жϿ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OnH3th>WD_HOUR then **)
(* if - Cond *)
LD OnH3th
GT WD_HOUR
JMPCN ODK_SKIP_00000000000001P_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare3th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare3th
JMP ODK_END_IF_00000000000001P
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001P_000000000000001:
ODK_END_IF_00000000000001P:
(** if OnH3th<WD_HOUR then **)
(* if - Cond *)
LD OnH3th
LT WD_HOUR
JMPCN ODK_SKIP_00000000000001Q_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare3th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare3th
JMP ODK_END_IF_00000000000001Q
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001Q_000000000000001:
ODK_END_IF_00000000000001Q:
(** if OnH3th=WD_HOUR then **)
(* if - Cond *)
LD OnH3th
EQ WD_HOUR
JMPCN ODK_SKIP_00000000000001R_000000000000001
(* then - Stmts *)
(** if OnM3th>=WD_MI then **)
(* if - Cond *)
LD OnM3th
GE WD_MI
JMPCN ODK_SKIP_00000000000001S_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare3th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare3th
JMP ODK_END_IF_00000000000001S
(** else **)
(* else *)
ODK_SKIP_00000000000001S_000000000000001:
(* else - Stmts *)
(** TrueSetOpenCompare3th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare3th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001S:
JMP ODK_END_IF_00000000000001R
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001R_000000000000001:
ODK_END_IF_00000000000001R:
(** **)
(** {*3�жϹ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OffH3th>WD_HOUR then **)
(* if - Cond *)
LD OffH3th
GT WD_HOUR
JMPCN ODK_SKIP_00000000000001T_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare3th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare3th
JMP ODK_END_IF_00000000000001T
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001T_000000000000001:
ODK_END_IF_00000000000001T:
(** if OffH3th<WD_HOUR then **)
(* if - Cond *)
LD OffH3th
LT WD_HOUR
JMPCN ODK_SKIP_00000000000001U_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare3th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare3th
JMP ODK_END_IF_00000000000001U
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001U_000000000000001:
ODK_END_IF_00000000000001U:
(** if OffH3th=WD_HOUR then **)
(* if - Cond *)
LD OffH3th
EQ WD_HOUR
JMPCN ODK_SKIP_00000000000001V_000000000000001
(* then - Stmts *)
(** if OffM3th>=WD_MI then **)
(* if - Cond *)
LD OffM3th
GE WD_MI
JMPCN ODK_SKIP_00000000000001W_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare3th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare3th
JMP ODK_END_IF_00000000000001W
(** else **)
(* else *)
ODK_SKIP_00000000000001W_000000000000001:
(* else - Stmts *)
(** TrueSetCloseCompare3th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare3th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001W:
JMP ODK_END_IF_00000000000001V
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000001V_000000000000001:
ODK_END_IF_00000000000001V:
(** **)
(** {*3��������*} **)
(** if SetCompare3th then{*�����趨ʱ�����ڹر��趨ʱ��Ϊ1*} **)
(* if - Cond *)
LD SetCompare3th
JMPCN ODK_SKIP_00000000000001X_000000000000001
(* then - Stmts *)
(** if TrueSetOpenCompare3th and not (TrueSetCloseCompare3th) then **)
(* if - Cond *)
LD TrueSetOpenCompare3th
AND ( TrueSetCloseCompare3th
NOT
)
JMPCN ODK_SKIP_00000000000001Y_000000000000001
(* then - Stmts *)
(** TimeSw3:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw3
JMP ODK_END_IF_00000000000001Y
(** else **)
(* else *)
ODK_SKIP_00000000000001Y_000000000000001:
(* else - Stmts *)
(** TimeSw3:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw3
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001Y:
JMP ODK_END_IF_00000000000001X
(** else **)
(* else *)
ODK_SKIP_00000000000001X_000000000000001:
(* else - Stmts *)
(** **)
(** if TrueSetCloseCompare3th and not (TrueSetOpenCompare3th) then **)
(* if - Cond *)
LD TrueSetCloseCompare3th
AND ( TrueSetOpenCompare3th
NOT
)
JMPCN ODK_SKIP_00000000000001Z_000000000000001
(* then - Stmts *)
(** TimeSw3:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw3
JMP ODK_END_IF_00000000000001Z
(** else **)
(* else *)
ODK_SKIP_00000000000001Z_000000000000001:
(* else - Stmts *)
(** TimeSw3:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw3
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001Z:
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001X:
JMP ODK_END_IF_00000000000001K
(** **)
(** else **)
(* else *)
ODK_SKIP_00000000000001K_000000000000001:
(* else - Stmts *)
(** TimeSw3:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw3
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000001K:
(** **)
(** **)
(** **)
(** if Enable4th=TRUE and (not(OnH4th=OffH4th and OnM4th=OffM4th)) then{*����ʱ��һ������Ч*} **)
(* if - Cond *)
LD Enable4th
EQ TRUE
AND ( OnH4th
EQ OffH4th
AND ( OnM4th
EQ OffM4th
)
NOT
)
JMPCN ODK_SKIP_000000000000020_000000000000001
(* then - Stmts *)
(** {*4�жϿ����趨ʱ��֮���Ĵ�С*} **)
(** if OnH4th>OffH4th then **)
(* if - Cond *)
LD OnH4th
GT OffH4th
JMPCN ODK_SKIP_000000000000021_000000000000001
(* then - Stmts *)
(** SetCompare4th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare4th
JMP ODK_END_IF_000000000000021
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000021_000000000000001:
ODK_END_IF_000000000000021:
(** if OnH4th<OffH4th then **)
(* if - Cond *)
LD OnH4th
LT OffH4th
JMPCN ODK_SKIP_000000000000022_000000000000001
(* then - Stmts *)
(** SetCompare4th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare4th
JMP ODK_END_IF_000000000000022
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000022_000000000000001:
ODK_END_IF_000000000000022:
(** if OnH4th=OffH4th then **)
(* if - Cond *)
LD OnH4th
EQ OffH4th
JMPCN ODK_SKIP_000000000000023_000000000000001
(* then - Stmts *)
(** if OnM4th>OffM4th then **)
(* if - Cond *)
LD OnM4th
GT OffM4th
JMPCN ODK_SKIP_000000000000024_000000000000001
(* then - Stmts *)
(** SetCompare4th := 1; **)
(* assign - Stmt *)
LD 1
ST SetCompare4th
JMP ODK_END_IF_000000000000024
(** else **)
(* else *)
ODK_SKIP_000000000000024_000000000000001:
(* else - Stmts *)
(** SetCompare4th := 0; **)
(* assign - Stmt *)
LD 0
ST SetCompare4th
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000024:
JMP ODK_END_IF_000000000000023
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000023_000000000000001:
ODK_END_IF_000000000000023:
(** **)
(** {*4�жϿ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OnH4th>WD_HOUR then **)
(* if - Cond *)
LD OnH4th
GT WD_HOUR
JMPCN ODK_SKIP_000000000000025_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare4th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare4th
JMP ODK_END_IF_000000000000025
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000025_000000000000001:
ODK_END_IF_000000000000025:
(** if OnH4th<WD_HOUR then **)
(* if - Cond *)
LD OnH4th
LT WD_HOUR
JMPCN ODK_SKIP_000000000000026_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare4th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare4th
JMP ODK_END_IF_000000000000026
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000026_000000000000001:
ODK_END_IF_000000000000026:
(** if OnH4th=WD_HOUR then **)
(* if - Cond *)
LD OnH4th
EQ WD_HOUR
JMPCN ODK_SKIP_000000000000027_000000000000001
(* then - Stmts *)
(** if OnM4th>=WD_MI then **)
(* if - Cond *)
LD OnM4th
GE WD_MI
JMPCN ODK_SKIP_000000000000028_000000000000001
(* then - Stmts *)
(** TrueSetOpenCompare4th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetOpenCompare4th
JMP ODK_END_IF_000000000000028
(** else **)
(* else *)
ODK_SKIP_000000000000028_000000000000001:
(* else - Stmts *)
(** TrueSetOpenCompare4th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetOpenCompare4th
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000028:
JMP ODK_END_IF_000000000000027
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000027_000000000000001:
ODK_END_IF_000000000000027:
(** **)
(** {*4�жϹ��趨ʱ����ʵ��ʱ��֮���Ĵ�С*} **)
(** if OffH4th>WD_HOUR then **)
(* if - Cond *)
LD OffH4th
GT WD_HOUR
JMPCN ODK_SKIP_000000000000029_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare4th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare4th
JMP ODK_END_IF_000000000000029
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000029_000000000000001:
ODK_END_IF_000000000000029:
(** if OffH4th<WD_HOUR then **)
(* if - Cond *)
LD OffH4th
LT WD_HOUR
JMPCN ODK_SKIP_00000000000002A_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare4th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare4th
JMP ODK_END_IF_00000000000002A
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002A_000000000000001:
ODK_END_IF_00000000000002A:
(** if OffH4th=WD_HOUR then **)
(* if - Cond *)
LD OffH4th
EQ WD_HOUR
JMPCN ODK_SKIP_00000000000002B_000000000000001
(* then - Stmts *)
(** if OffM4th>=WD_MI then **)
(* if - Cond *)
LD OffM4th
GE WD_MI
JMPCN ODK_SKIP_00000000000002C_000000000000001
(* then - Stmts *)
(** TrueSetCloseCompare4th := 1; **)
(* assign - Stmt *)
LD 1
ST TrueSetCloseCompare4th
JMP ODK_END_IF_00000000000002C
(** else **)
(* else *)
ODK_SKIP_00000000000002C_000000000000001:
(* else - Stmts *)
(** TrueSetCloseCompare4th := 0; **)
(* assign - Stmt *)
LD 0
ST TrueSetCloseCompare4th
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002C:
JMP ODK_END_IF_00000000000002B
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002B_000000000000001:
ODK_END_IF_00000000000002B:
(** **)
(** {*4��������*} **)
(** if SetCompare4th then{*�����趨ʱ�����ڹر��趨ʱ��Ϊ1*} **)
(* if - Cond *)
LD SetCompare4th
JMPCN ODK_SKIP_00000000000002D_000000000000001
(* then - Stmts *)
(** if TrueSetOpenCompare4th and not (TrueSetCloseCompare4th) then **)
(* if - Cond *)
LD TrueSetOpenCompare4th
AND ( TrueSetCloseCompare4th
NOT
)
JMPCN ODK_SKIP_00000000000002E_000000000000001
(* then - Stmts *)
(** TimeSw4:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw4
JMP ODK_END_IF_00000000000002E
(** else **)
(* else *)
ODK_SKIP_00000000000002E_000000000000001:
(* else - Stmts *)
(** TimeSw4:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw4
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002E:
JMP ODK_END_IF_00000000000002D
(** else **)
(* else *)
ODK_SKIP_00000000000002D_000000000000001:
(* else - Stmts *)
(** **)
(** if TrueSetCloseCompare4th and not (TrueSetOpenCompare4th) then **)
(* if - Cond *)
LD TrueSetCloseCompare4th
AND ( TrueSetOpenCompare4th
NOT
)
JMPCN ODK_SKIP_00000000000002F_000000000000001
(* then - Stmts *)
(** TimeSw4:=1; **)
(* assign - Stmt *)
LD 1
ST TimeSw4
JMP ODK_END_IF_00000000000002F
(** else **)
(* else *)
ODK_SKIP_00000000000002F_000000000000001:
(* else - Stmts *)
(** TimeSw4:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw4
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002F:
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002D:
JMP ODK_END_IF_000000000000020
(** **)
(** else **)
(* else *)
ODK_SKIP_000000000000020_000000000000001:
(* else - Stmts *)
(** TimeSw4:=0; **)
(* assign - Stmt *)
LD 0
ST TimeSw4
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000020:
(** if TimeSw1 or TimeSw2 or TimeSw3 or TimeSw4 then **)
(* if - Cond *)
LD TimeSw1
OR TimeSw2
OR TimeSw3
OR TimeSw4
JMPCN ODK_SKIP_00000000000002G_000000000000001
(* then - Stmts *)
(** OUT_Z:=1; **)
(* assign - Stmt *)
LD 1
ST OUT_Z
JMP ODK_END_IF_00000000000002G
(** else **)
(* else *)
ODK_SKIP_00000000000002G_000000000000001:
(* else - Stmts *)
(** OUT_Z:=0; **)
(* assign - Stmt *)
LD 0
ST OUT_Z
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002G:
(** if OUT_Z=0 and ALLDAY =0 then **)
(* if - Cond *)
LD OUT_Z
EQ 0
AND ( ALLDAY
EQ 0
)
JMPCN ODK_SKIP_00000000000002H_000000000000001
(* then - Stmts *)
(** LinkageEN:=0; **)
(* assign - Stmt *)
LD 0
ST LinkageEN
JMP ODK_END_IF_00000000000002H
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002H_000000000000001:
ODK_END_IF_00000000000002H:
JMP ODK_END_IF_00000000000000N
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000N_000000000000001:
ODK_END_IF_00000000000000N:
(** **)
(** {* ��ʱ��Χ�ڶ��� *} **)
(** if OUT_Z=1 or ALLDAY =1 then **)
(* if - Cond *)
LD OUT_Z
EQ 1
OR ( ALLDAY
EQ 1
)
JMPCN ODK_SKIP_00000000000002I_000000000000001
(* then - Stmts *)
(** {* �������������豸 *} **)
(** {*���ݴ��� ���˳���max��min��Χ��ֵ��������Ч���ݣ�����ƽ��ֵ, ȡ�ܺ�*} **)
(** **)
(** for i:= 0 to 9 by 1 do **)
(* for - Init *)
LD 0
ST i
EQ 9
JMPC ODK_FOR_STMTS_00000000000002J
(* for - Cond *)
ODK_FOR_00000000000002J:
LD 0
GT 9
JMPC ODK_FOR_DOWN_00000000000002J
LD 0
GT 1
JMPC ODK_END_FOR_00000000000002J
LD 9
LT i
JMPC ODK_END_FOR_00000000000002J
JMP ODK_FOR_STMTS_00000000000002J
ODK_FOR_DOWN_00000000000002J:
LD 9
GT i
JMPC ODK_END_FOR_00000000000002J
LD 0
LT 1
JMPC ODK_END_FOR_00000000000002J
(* for - Stmts *)
ODK_FOR_STMTS_00000000000002J:
(** if LinkageValue[i]>=MinRange and LinkageValue[i]<=MaxRange then **)
(* if - Cond *)
LD LinkageValue[i]
GE MinRange
AND ( LinkageValue[i]
LE MaxRange
)
JMPCN ODK_SKIP_00000000000002K_000000000000001
(* then - Stmts *)
(** TempSum:=LinkageValue[i]+TempSum; **)
(* assign - Stmt *)
LD LinkageValue[i]
ADD TempSum
ST TempSum
JMP ODK_END_IF_00000000000002K
(** else **)
(* else *)
ODK_SKIP_00000000000002K_000000000000001:
(* else - Stmts *)
(** TempCount:=TempCount+1; **)
(* assign - Stmt *)
LD TempCount
ADD 1
ST TempCount
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002K:
(* for - By *)
LD 1
ADD i
ST i
(** end_for; **)
JMP ODK_FOR_00000000000002J
(* for - End *)
ODK_END_FOR_00000000000002J:
(** if i>=9 then **)
(* if - Cond *)
LD i
GE 9
JMPCN ODK_SKIP_00000000000002L_000000000000001
(* then - Stmts *)
(** i:=0; **)
(* assign - Stmt *)
LD 0
ST i
(** ValueCount:=10-TempCount; **)
(* assign - Stmt *)
LD 10
SUB TempCount
ST ValueCount
(** TempCount :=0; **)
(* assign - Stmt *)
LD 0
ST TempCount
(** ValueSum :=TempSum; **)
(* assign - Stmt *)
LD TempSum
ST ValueSum
(** TempSum :=0.0; **)
(* assign - Stmt *)
LD 0.0
ST TempSum
JMP ODK_END_IF_00000000000002L
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002L_000000000000001:
ODK_END_IF_00000000000002L:
(** **)
(** if ValueCount<>0 then **)
(* if - Cond *)
LD ValueCount
NE 0
JMPCN ODK_SKIP_00000000000002M_000000000000001
(* then - Stmts *)
(** ValueAverage:=ValueSum/int_to_real(ValueCount); **)
(* assign - Stmt *)
LD ValueSum
DIV ( ValueCount
int_to_real
)
ST ValueAverage
JMP ODK_END_IF_00000000000002M
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002M_000000000000001:
ODK_END_IF_00000000000002M:
(** **)
(** {*�Ƚ��趨ֵ���ȶ���Чʱ��������*} **)
(** **)
(** ton1(pt:=HoldDelay); **)
(* call - Stmt *)
CAL ton1 (
pt := HoldDelay
)
(** ton2(pt:=HoldDelay); **)
(* call - Stmt *)
CAL ton2 (
pt := HoldDelay
)
(** if ValueAverage<>0.0 then **)
(* if - Cond *)
LD ValueAverage
NE 0.0
JMPCN ODK_SKIP_00000000000002N_000000000000001
(* then - Stmts *)
(** if (LinkageSet-Dead_Band)-ValueAverage>=0.0 then **)
(* if - Cond *)
LD LinkageSet
SUB Dead_Band
SUB ValueAverage
GE 0.0
JMPCN ODK_SKIP_00000000000002O_000000000000001
(* then - Stmts *)
(** ton1.in:=1; **)
(* assign - Stmt *)
LD 1
ST ton1.in
JMP ODK_END_IF_00000000000002O
(** else **)
(* else *)
ODK_SKIP_00000000000002O_000000000000001:
(* else - Stmts *)
(** ton1.in:=0; **)
(* assign - Stmt *)
LD 0
ST ton1.in
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002O:
(** if ton1.q=1 then **)
(* if - Cond *)
LD ton1.q
EQ 1
JMPCN ODK_SKIP_00000000000002P_000000000000001
(* then - Stmts *)
(** LinkageEN:=0; **)
(* assign - Stmt *)
LD 0
ST LinkageEN
JMP ODK_END_IF_00000000000002P
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002P_000000000000001:
ODK_END_IF_00000000000002P:
(** if (LinkageSet+Dead_Band)-ValueAverage<0.0 then **)
(* if - Cond *)
LD LinkageSet
ADD Dead_Band
SUB ValueAverage
LT 0.0
JMPCN ODK_SKIP_00000000000002Q_000000000000001
(* then - Stmts *)
(** ton2.in:=1; **)
(* assign - Stmt *)
LD 1
ST ton2.in
JMP ODK_END_IF_00000000000002Q
(** else **)
(* else *)
ODK_SKIP_00000000000002Q_000000000000001:
(* else - Stmts *)
(** ton2.in:=0; **)
(* assign - Stmt *)
LD 0
ST ton2.in
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002Q:
(** if ton2.q=1 then **)
(* if - Cond *)
LD ton2.q
EQ 1
JMPCN ODK_SKIP_00000000000002R_000000000000001
(* then - Stmts *)
(** LinkageEN:=1; **)
(* assign - Stmt *)
LD 1
ST LinkageEN
JMP ODK_END_IF_00000000000002R
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002R_000000000000001:
ODK_END_IF_00000000000002R:
JMP ODK_END_IF_00000000000002N
(** else **)
(* else *)
ODK_SKIP_00000000000002N_000000000000001:
(* else - Stmts *)
(** LinkageEN:=0; **)
(* assign - Stmt *)
LD 0
ST LinkageEN
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000002N:
JMP ODK_END_IF_00000000000002I
(** **)
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000002I_000000000000001:
ODK_END_IF_00000000000002I:
(** {*�����󶨷���*} **)
(** **)
(** for j:= 0 to 9 by 1 do **)
(* for - Init *)
LD 0
ST j
EQ 9
JMPC ODK_FOR_STMTS_00000000000002S
(* for - Cond *)
ODK_FOR_00000000000002S:
LD 0
GT 9
JMPC ODK_FOR_DOWN_00000000000002S
LD 0
GT 1
JMPC ODK_END_FOR_00000000000002S
LD 9
LT j
JMPC ODK_END_FOR_00000000000002S
JMP ODK_FOR_STMTS_00000000000002S
ODK_FOR_DOWN_00000000000002S:
LD 9
GT j
JMPC ODK_END_FOR_00000000000002S
LD 0
LT 1
JMPC ODK_END_FOR_00000000000002S
(* for - Stmts *)
ODK_FOR_STMTS_00000000000002S:
(** LinkageOut[j]:=LinkageEN; **)
(* assign - Stmt *)
LD LinkageEN
ST LinkageOut[j]
(* for - By *)
LD 1
ADD j
ST j
(** end_for; **)
JMP ODK_FOR_00000000000002S
(* for - End *)
ODK_END_FOR_00000000000002S:
JMP ODK_END_IF_000000000000001
(** **)
(** **)
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000001_000000000000001:
ODK_END_IF_000000000000001:
(** **)
(** **)
(** **)
(** **)
END_FUNCTION_BLOCK