FUNCTION "PNIO_DIAG" : VOID
TITLE =Analyse PNIO Data PROFINET
AUTHOR : Gerry
VERSION : 0.1
BEGIN
NETWORK
TITLE =PROFINET Network Status
OPN #iDBnr_Instance_FB126;
LAR1 P##System_Bits;
L DBW 1642;
CAW ;
T W [AR1,P#0.0];
A #System_Bits.Bit_0_OK;
= #PN_SLAVES_OK;
NETWORK
TITLE =PROFINET Slave 1 Status
L #PN_Slv_Adr_1;
L 0;
==I ;
JC nex1;
OPN #DBnr_GlobalDB;
L #PN_Slv_Adr_1;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #PN_SLV_1_OK;
nex1: NOP 0;
NETWORK
TITLE =PROFINET Slave 2 Status
L #PN_Slv_Adr_2;
L 0;
==I ;
JC nex2;
OPN #DBnr_GlobalDB;
L #PN_Slv_Adr_2;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #PN_SLV_2_OK;
nex2: NOP 0;
NETWORK
TITLE =PROFINET Slave 3 Status
L #PN_Slv_Adr_3;
L 0;
==I ;
JC nex3;
OPN #DBnr_GlobalDB;
L #PN_Slv_Adr_3;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #PN_SLV_3_OK;
nex3: NOP 0;
NETWORK
TITLE =PROFINET Slave 4 Status
L #PN_Slv_Adr_4;
L 0;
==I ;
JC nex4;
OPN #DBnr_GlobalDB;
L #PN_Slv_Adr_4;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #PN_SLV_4_OK;
nex4: NOP 0;
NETWORK
TITLE =PROFINET Slave 5 Status
L #PN_Slv_Adr_5;
L 0;
==I ;
JC nex5;
OPN #DBnr_GlobalDB;
L #PN_Slv_Adr_5;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #PN_SLV_5_OK;
nex5: NOP 0;
NETWORK
TITLE =PROFIBUS Network Status
OPN #iDBnr_Instance_FB126;
LAR1 P##System_Bits;
L DBW 1578;
CAW ;
T W [AR1,P#0.0];
A #System_Bits.Bit_0_OK;
= #DP_SLAVES_OK;
NETWORK
TITLE =PROFIBUS Slave 1 Status
L #DP_Slv_Adr_1;
L 0;
==I ;
JC nex6;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_1;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_1_OK;
nex6: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 2 Status
L #DP_Slv_Adr_2;
L 0;
==I ;
JC nex7;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_2;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_2_OK;
nex7: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 3 Status
L #DP_Slv_Adr_3;
L 0;
==I ;
JC nex8;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_3;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_3_OK;
nex8: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 4 Status
L #DP_Slv_Adr_4;
L 0;
==I ;
JC nex9;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_4;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_4_OK;
nex9: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 5 Status
L #DP_Slv_Adr_5;
L 0;
==I ;
JC ne10;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_1;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_5_OK;
ne10: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 6 Status
L #DP_Slv_Adr_6;
L 0;
==I ;
JC ne11;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_6;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_6_OK;
ne11: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 7 Status
L #DP_Slv_Adr_7;
L 0;
==I ;
JC ne12;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_7;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_7_OK;
ne12: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 8 Status
L #DP_Slv_Adr_8;
L 0;
==I ;
JC ne13;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_8;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_8_OK;
ne13: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 9 Status
L #DP_Slv_Adr_9;
L 0;
==I ;
JC ne14;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_9;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_9_OK;
ne14: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 10 Status
L #DP_Slv_Adr_10;
L 0;
==I ;
JC ne15;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_10;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_10_OK;
ne15: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 11 Status
L #DP_Slv_Adr_11;
L 0;
==I ;
JC ne16;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_11;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_11_OK;
ne16: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 12 Status
L #DP_Slv_Adr_12;
L 0;
==I ;
JC ne17;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_12;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_12_OK;
ne17: NOP 0;
NETWORK
TITLE =PROFIBUS Slave 13 Status
L #DP_Slv_Adr_13;
L 0;
==I ;
JC ne18;
OPN #DBnr_GlobalDB;
L #DP_Slv_Adr_13;
L 1;
-I ;
L 2;
*I ;
SLD 3;
LAR1 ;
L DBW [AR1,P#0.0];
CAW ;
LAR1 P##Slave_Bits;
T W [AR1,P#0.0];
A #Slave_Bits.Bit_0_OK;
= #DP_SLV_13_OK;
ne18: NOP 0;
END_FUNCTION