%För pump motionering och tvilling pump växling
%
ROUTINE PUMP
  ALIAS
    REGPUMP = CHANNEL[100]; %Startsignal Pumpar
    DO1 = CHANNEL[21]; %Manöver pump 1
    DO2 = CHANNEL[34]; %Manöver pump 2
    pumpExcercise = CALENDAR[1]; %Pumpmotionerings kalender
    shiftCal = CALENDAR[2];   %Pumpskiftes kalender
  VAR
  lastCall;
    currentPump;
  BEGIN
   IF (lastCall = 0) AND (shiftCal = 1) THEN 
      currentPump := (NOT currentPump); 
    ENDIF; 
    lastCall := shiftCal; 
    DO1 <- (currentPump AND REGPUMP) OR pumpExcercise; 
    DO2 <- ((NOT currentPump) AND REGPUMP) OR pumpExcercise; 
  END;