procedure Default_CFG;
begin
   //word pole
    rv_w[rGen_off].r0     := 1;         //defaultne menic rozbiham
    rv_w[rIsolmax].r0     := 5000;      //maximalni proud z panelu - mA
    rv_w[rOffsetMppt].r0  := 500;       //OffsetMppt - mV offset regulace mppt - EEPROM E-F
    rv_w[rUchargOn].r0    := 11000;     //UchargOn - mV napeti pri kterem zapinam dobijeni - EEPROM 12-13
    rv_w[rUchargOff].r0   := 14200;     //UchargOff - mV napeti pri kterem vypinam dobijeni - EEPROM 14-15
    rv_w[rUzatezOn].r0    := 12000;     //UzatezOn - mV napeti pri kterem zapinam zatez - EEPROM 16-17
    rv_w[rUzatezOff].r0   := 10800;     //UzatezOff - mV napeti pri kterem vypinam zatez - EEPROM 18-19
    rv_w[rPWMjump].r0     := 500;       //Upanic - napeti pri kterem se vse zastavi - bitove rozliseni - EEPROM 20-21
    rv_w[rTMR0H].r0       := 146;
    rv_w[rTMR0L].r0       := 32;
    rv_w[rDifSolBat].r0   := 700;       //DifSolBat - mV rozdil mezi panelem a baterii pro start menice - EEPROM 10-11
    rv_w[rUtopeniOn].r0   := 13650;     //UtopeniOn - mV napeti pri kterem zapinam externi zatez - EEPROM 1A-1B
    rv_w[rUtopeniOff].r0  := 13600;     //UtopeniOff - mV napeti pri kterem vypinam externi zatez - EEPROM 1C-1D
    rv_w[rUnoc].r0        := 4000;      //mV napeti na vstupu znamenajici noc - EEPROM 2E-2F
    rv_w[rUden].r0        := 6000;      //mV napeti na vstupu znamenajici den - EEPROM 30-31
 
    rv_w[rIsol_zero].r0   := 420;      //hodnota prevodniku pri Isol=0 krat 4 - bitove rozliseni - EEPROM 22-23
    rv_w[rIbat_zero].r0   := 2048;     //hodnota prevodniku pri Ibat=0 krat 4 - bitove rozliseni - EEPROM 24-25
    rv_w[rAD_Isol].r0     := 350;       //kalibracni konstanta 10 230 000 /20 000mA = 511,5
    rv_w[rAD_Usol].r0     := 186;       //kalibracni konstanta 10 230 000 /55 000mV = 186
    rv_w[rAD_Ubat].r0     := 186;       //kalibracni konstanta 10 230 000 /55 000mV = 186
    rv_w[rAD_Ibat].r0     := 90;       //kalibracni konstanta 10 230 000 /100 000mA = 102,3

    rv_w[rUbatmax].r0     := 13800;    //aktualni nastaveni konecneho dobijeciho napeti
    rv_w[RunDay].r0       := 0;         //pocet dnu od zapnuti}
    rv_w[rCfgEEPROM].r0   := 16;
    rv_w[rDataEEPROM].r0  := 512;
    rv_w[rIBatMax].r0     := 12000;     //mA maximalni nabijeci proud
    rv_w[rChargTime].r0   := 60;        //maximalni doba nabijeni minutove tiky ( 60 odpovida 60 minutam)
    rv_w[rSendRS].r0      := 0;         //vypnuty vypis
    rv_w[rUmppt].r0       := 28000;    //Umppt panelu v mV

//dword pole
    rWh            = 0;     //vyrobene Wh - EEPROM 0-3
    ruWh           = 1;     //vyrobene desetiny Wh - EEPROM 4-7
    rWhtoBat       = 2;     //dodane Wh do baterie
    ruWhtoBat      = 3;     //dodane uWh do baterie
    rWhfromBat     = 4;     //vybite Wh z baterie
    ruWhfromBat    = 5;     //vybite uWh z baterie
    rWhNabijec     = 6;     //nabite Wh z externiho nabijece
    ruWhNabijec    = 7;     //nabite uWh z externiho nabijece
    RunRele        = 8;     //pocet sepnuti rele
    UpTime         = 9;     //pocet minutovych ticku
    rv_d_max       = 9;     //max index