#AlarmCount := 0;
FOR #i := 0 TO "FC_DB_SIZE"(dbNO := 2) / 2 BY 1 DO
#Alarm := PEEK_BOOL(area := 16#84, dbNumber := #dbNo, byteOffset := #startByte, bitOffset := #startAlarmBit);
#AlarmType := PEEK_BOOL(area := 16#84, dbNumber := #dbNo, byteOffset := #startByte, bitOffset := #startTypeBit);
IF #Alarm AND #AlarmType THEN
#AlarmCount := #AlarmCount + 1;
#AlarmNumber[#AlarmCount] := #i +1 ;
END_IF;
#startByte := #startByte + 2;
END_FOR;