[SIZE=2]
FUNCTION_BLOCK "LENZE_PKW"
TITLE =LENZE
VERSION : 0.1
VAR
READ_REQ : BOOL ;
WRITE_REQ : BOOL ;
MEMBIT_1 : BOOL ;
END_VAR
BEGIN
NETWORK
TITLE =LENZE PKW READ
A "DB M201 PKW".WRITE.REQ;
ON "DB M201 PKW".READ.REQ;
JC NEX1;
A "DB M201 PKW".READ.REQ;
A "Puls_Clk";
= #READ_REQ;
CALL "LENZE_PKW_READ" , "IDB_LENZE_PKW_READ" (
READ_REQ := #READ_REQ,
PAR := "DB M201 PKW".PARAMETER,
IND := "DB M201 PKW".INDEX,
Byte_1_Status := PIB 304,
Byte_5_6_7_8 := PID 308,
Byte_1 := PQB 304,
Byte_2 := PQB 305,
Byte_3_4 := PQW 306,
READ_VALID := "DB M201 PKW".READ.VALID,
READ_VALUE := "DB M201 PKW".READ.VALUE);
NEX1: NOP 0;
NETWORK
TITLE =LENZE PKW WRITE
A "DB M201 PKW".READ.REQ;
ON "DB M201 PKW".WRITE.REQ;
JC NEX2;
A "DB M201 PKW".WRITE.REQ;
A "Puls_Clk";
= #WRITE_REQ;
CALL "LENZE_PKW_WRITE" , "IDB_LENZE_PKW_WRITE" (
WRITE_REQ := #WRITE_REQ,
PAR := "DB M201 PKW".PARAMETER,
IND := "DB M201 PKW".INDEX,
Byte_1_Status := PIB 288,
WRITE_VALUE := "DB M201 PKW".WRITE.VALUE,
Byte_1 := PQB 304,
Byte_2 := PQB 305,
Byte_3_4 := PQW 306,
Byte_5_6_7_8 := PQD 308,
WRITE_VALID := "DB M201 PKW".WRITE.VALID);
NEX2: NOP 0;
NETWORK
TITLE =PROGRESS READ / WRITE
A "DB M201 PKW".READ.REQ;
A "DB M201 PKW".WRITE.REQ;
JC NEX4;
A "DB M201 PKW".READ.REQ;
A "DB M201 PKW".READ.VALID;
O ;
A "DB M201 PKW".WRITE.REQ;
A "DB M201 PKW".WRITE.VALID;
JCN NEX3;
A "Puls_Clk";
FP #MEMBIT_1;
JCN NEX3;
L "DB M201 PKW".PROGRESS_BAR;
L 10;
+I ;
T "DB M201 PKW".PROGRESS_BAR;
NEX3: L "DB M201 PKW".PROGRESS_BAR;
L 100;
>I ;
JCN NEX4;
L 0;
T "DB M201 PKW".PROGRESS_BAR;
NEX4: A "DB M201 PKW".READ.REQ;
O "DB M201 PKW".WRITE.REQ;
BEC ;
L 0;
T "DB M201 PKW".PROGRESS_BAR;
END_FUNCTION_BLOCK
[/SIZE]