ROUTINE FIRE
ALIAS
      brandspjallDrift = CHANNEL[17]; % Spjäll öppet
brandspjallUtlost = CHANNEL[18]; % Spjäll stängt
aktiveringSpjallTest= CHANNEL[35]; % Spjäll manöver
brandLarm = ALARM[13]; % Brand
larmKanal = CHANNEL[80]; % Larm spjäll i fel läge
brandSpjallKal = CALENDAR[4]; % TSCH Motion
VAR
      lastCal;
      shortCounter;
BEGIN
      % Brandspjälls funktionen körs separat från regulatorn.
      
IF brandLarm = 1 THEN
aktiveringSpjallTest <- 0;        % släpp spjället
shortCounter := 0;
larmKanal <- 0;
ELSE
IF brandSpjallKal = 1 THEN
aktiveringSpjallTest <- 0;      % släpp spjället
shortCounter := shortCounter + 1;
IF (shortCounter > 20) AND (brandspjallUtlost = 1) THEN
larmKanal <- 1;
ELSE
larmKanal <- 0;
ENDIF;
ELSE
aktiveringSpjallTest <- 1;      % stäng spjället
shortCounter := 0;
larmKanal <- 0;
ENDIF;
ENDIF;
END;