#define ODPOCET_SEKUND sys[64]
#define DOMA sys[311]
#define KOTEL sys[312]
#define STOUPACKA sys[313]
#define AKUM1 sys[315]
#define ZPATECKA sys[319]
#define WEB_TERMOSTAT sys[140]
#define SERVO sys[141]
#define HYSTEREZE sys[142]
#define POKOJ_TERMOSTAT sys[151]
#define PWM_CYKLE sys[192]
#define CERPADLO_1 sys[231]
#define CERPADLO_2 sys[232]

var pwm, old_pwm;

zapni_cerpadlo_2 //cerpadlo topneho okruhu zapnuto
{
 CERPADLO_2 = 1;
 echo(sys[5]'-'sys[6]'-'sys[7]' 'sys[8]':'sys[9]':'sys[10]' ''cerpadlo 2 zapnuto');
 pwmregulace:
 if (POKOJ_TERMOSTAT != 0 && CERPADLO_2 == 1) return; // vyp. cerp. topneho okruhu, pokud vypne pokoj. termostat
 if (WEB_TERMOSTAT + HYSTEREZE < DOMA && CERPADLO_2 == 1) return; // vyp. cerp. topneho okruhu, pokud vypne web. termostat
 if (KOTEL < 7000 && AKUM1 < 4000 && CERPADLO_2 == 1) return; // vyp. cerp. topneho okruhu, pokud nehori kotel a jsou vybite nadrze
 if (KOTEL >= 9800 && CERPADLO_2 == 0) return; //prehrati kotle
 if (STOUPACKA < SERVO && pwm > 1100) { pwm--; };  //pokud je chladnejsi, otvirame
 if (STOUPACKA > SERVO && pwm < 7000) { pwm++; };  //pokud je teplejsi, zavirame
 if (pwm != old_pwm) { PWM_CYKLE = pwm; }; //pri rozdilu nastavit novou hodnotu
 wait(1); //pockame 1000 msec, protoze teplota se meni jen pomalu, tak at se projevi vliv zmeny pwm
 goto pwmregulace;
}

init
{
//inicializace - co je zde je provedeno jen jednou po resetu
  HYSTEREZE = 50;
  WEB_TERMOSTAT = 2100;
  SERVO = 6000;
  sys[191] = 7000; //frekvence PWM
  PWM_CYKLE = 7000; //PWM-duty-cycle
  pwm = 7000;
  old_pwm = 7000;
}