发布于 2008-12-29 20:10:48
0楼
FUNCTION FC 1 : VOID
TITLE =manu
VERSION : 0.1
BEGIN
NETWORK
TITLE =
A( ;
O M 0.0;
O M 0.2;
) ;
AN M 0.1;
AN M 1.2;
= M 0.2;
NETWORK
TITLE =
A( ;
O M 1.0;
O M 1.2;
) ;
AN M 0.1;
AN M 0.2;
= M 1.2;
END_FUNCTION
FUNCTION FC 2 : VOID
TITLE =auto
VERSION : 0.1
BEGIN
NETWORK
TITLE =
A( ;
O M 2.0;
O M 2.2;
) ;
AN M 2.1;
= M 2.2;
NETWORK
TITLE =
A M 2.2;
= L 0.0;
A L 0.0;
AN T 2;
L S5T#2H;
SD T 1;
A L 0.0;
A T 1;
L S5T#2H;
SD T 2;
NETWORK
TITLE =
O T 2;
ON M 2.2;
R T 1;
R T 2;
NETWORK
TITLE =
A M 2.2;
= L 0.0;
A L 0.0;
AN T 1;
AN M 2.4;
= M 2.3;
A L 0.0;
A T 1;
= M 2.4;
END_FUNCTION
ORGANIZATION_BLOCK OB 1
TITLE = "Main Program Sweep (Cycle)"
VERSION : 0.1
VAR_TEMP
OB1_EV_CLASS : BYTE ; //Bits 0-3 = 1 (Coming event), Bits 4-7 = 1 (Event class 1)
OB1_SCAN_1 : BYTE ; //1 (Cold restart scan 1 of OB 1), 3 (Scan 2-n of OB 1)
OB1_PRIORITY : BYTE ; //Priority of OB Execution
OB1_OB_NUMBR : BYTE ; //1 (Organization block 1, OB1)
OB1_RESERVED_1 : BYTE ; //Reserved for system
OB1_RESERVED_2 : BYTE ; //Reserved for system
OB1_PREV_CYCLE : INT ; //Cycle time of previous OB1 scan (milliseconds)
OB1_MIN_CYCLE : INT ; //Minimum cycle time of OB1 (milliseconds)
OB1_MAX_CYCLE : INT ; //Maximum cycle time of OB1 (milliseconds)
OB1_DATE_TIME : DATE_AND_TIME ; //Date and time OB1 started
END_VAR
BEGIN
NETWORK
TITLE =manu
A M 10.3;
JNB _001;
CALL FC 1 ;
_001: NOP 0;
NETWORK
TITLE =auto
A M 10.4;
JNB _002;
CALL FC 2 ;
_002: NOP 0;
NETWORK
TITLE =
AN M 10.3;
= M 10.4;
NETWORK
TITLE =
A( ;
O M 0.2;
O M 2.3;
) ;
AN Q 0.1;
= Q 0.0;
NETWORK
TITLE =
NETWORK
TITLE =
A( ;
O M 1.2;
O M 2.4;
) ;
AN Q 0.0;
= Q 0.1;
END_ORGANIZATION_BLOCK