OPN #PropertyDB
L DBW [ AR1 , P#0.0 ]
T "MW110"
OPN #AlarmDB
A(
L #T_Count
L 0
>=D
)
A(
L #T_Count
L 608
<D
)
= #AlarmArea_1
// Check, if alarm active 1
A DBX [ AR2 , P#0.0 ]
A #AlarmArea_1
S #AlarmActive_1
// Check, if alarm active 2
A DBX [ AR2 , P#0.0 ]
AN #AlarmArea_1
S #AlarmActive_2
NOP 0
// Check, if critical alarm active 1
A DBX [ AR2 , P#0.0 ]
A "Critical_Mask"
A #AlarmArea_1
S #CriticalAlarm_1
// Check, if critical alarm active 2
A DBX [ AR2 , P#0.0 ]
A "Critical_Mask"
AN #AlarmArea_1
S #CriticalAlarm_2
// Reset, if disabled
A "SelfReset_Mask"
R DBX [ AR2 , P#0.0 ]
// Reset, if reset button and not critical
A #Reset_1
A #AlarmArea_1 //Check Left Side
AN "Critical_Mask"
R DBX [ AR2 , P#0.0 ]
// Reset, if reset button and not critical Right Side
A #Reset_2
AN #AlarmArea_1 //Check Right Side
AN "Critical_Mask"
R DBX [ AR2 , P#0.0 ]
// Reset critical alarms left side
A #ResetCritical_1
A "Critical_Mask"
A #AlarmArea_1
R DBX [ AR2 , P#0.0 ]
// Reset critical alarms right
A #ResetCritical_2
A "Critical_Mask"
AN #AlarmArea_1
R DBX [ AR2 , P#0.0 ]
+AR1 P#2.0
+AR2 P#0.1
L #T_Count
L DINT#1
+D
T #T_Count
L #T_MaxCount
<D
JC loop