DS2438_VOC_DS2438_SHT_Wiregate/DS2438_DS2438.c

   1 // Copyright (c) 2017, Tobias Mueller tm(at)tm3d.de\r
   2 // All rights reserved.\r
   3 //\r
   4 // Redistribution and use in source and binary forms, with or without\r
   5 // modification, are permitted provided that the following conditions are\r
   6 // met:\r
   7 //\r
   8 //  * Redistributions of source code must retain the above copyright\r
   9 //    notice, this list of conditions and the following disclaimer.\r
  10 //  * Redistributions in binary form must reproduce the above copyright\r
  11 //    notice, this list of conditions and the following disclaimer in the\r
  12 //    documentation and/or other materials provided with the\r
  13 //    distribution.\r
  14 //  * All advertising materials mentioning features or use of this\r
  15 //    software must display the following acknowledgement: This product\r
  16 //    includes software developed by tm3d.de and its contributors.\r
  17 //  * Neither the name of tm3d.de nor the names of its contributors may\r
  18 //    be used to endorse or promote products derived from this software\r
  19 //    without specific prior written permission.\r
  20 //\r
  21 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\r
  22 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\r
  23 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\r
  24 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT\r
  25 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,\r
  26 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT\r
  27 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\r
  28 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\r
  29 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\r
  30 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE\r
  31 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\r
  32 \r
  33 //!!!!!Max Program size 7551 Byte\r
  34 \r
  35 #define F_CPU 8000000UL\r
  36 #include <avr/io.h>\r
  37 #include <avr/interrupt.h>\r
  38 #include <util/delay.h>  \r
  39 #include <avr/wdt.h>\r
  40 #include <avr/sleep.h>\r
  41 #include <avr/pgmspace.h>\r
  42 #include "../common/I2C/USI_TWI_Master.h"\r
  43 #include "../common/I2C/MAX1164x.h"\r
  44 #include "../common/I2C/SHT2xV2.h"\r
  45 #include "../common/calibr.h"\r
  46 \r
  47 extern void OWINIT(void);\r
  48 extern void EXTERN_SLEEP(void);\r
  49 \r
  50 \r
  51 \r
  52 volatile uint8_t owid1[8]={0x26, 0x3B, 0xDA, 0x84, 0x00, 0x00, 0x03, 0xA2};/**/\r
  53 volatile uint8_t owid2[8]={0x26, 0x3C, 0xDA, 0x84, 0x00, 0x00, 0x03, 0x27};/**/\r
  54 volatile uint8_t config_info1[26]={0x01,0x06, 0x05,0x08, 0x8,19, 0x00,0x00, 0x02,7,0x00,17,0x00,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};     \r
  55 volatile uint8_t config_info2[26]={0x01,0x06, 0x05,0x08, 0x04,0x07, 11,0x08, 0x02,0x07,0x00,0x07,17,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00}; \r
  56         \r
  57 #if (owid>128) \r
  58 #error "Variable not correct"\r
  59 #endif\r
  60 \r
  61 extern uint8_t mode;\r
  62 extern uint8_t gcontrol;\r
  63 extern uint8_t reset_indicator;\r
  64 extern uint8_t alarmflag;\r
  65 volatile uint8_t wdcounter=1;\r
  66 \r
  67 \r
  68 typedef union {\r
  69         #if  defined(__AVR_ATtiny25__)\r
  70         volatile uint8_t bytes[16];\r
  71         #else\r
  72         volatile uint8_t bytes[64];\r
  73         #endif\r
  74         struct {\r
  75                 uint8_t status;  //1\r
  76                 int16_t temp;  //2\r
  77                 uint16_t voltage;  //4\r
  78                 int16_t current;  //6\r
  79                 uint8_t threshold; //8\r
  80                 union {\r
  81                 uint8_t page1[8]; //9\r
  82                 struct {\r
  83                         uint32_t etm;\r
  84                         uint8_t ica;\r
  85                         uint16_t offset;\r
  86                         uint8_t f1;\r
  87                 };\r
  88                 };\r
  89                 #if  defined(__AVR_ATtiny25__)\r
  90                 #else\r
  91                 union {\r
  92                                 uint8_t page2[8]; //17\r
  93                                 struct  {\r
  94                                 uint32_t dis; \r
  95                                 uint32_t eoc;\r
  96                                 };\r
  97                                 };\r
  98                         \r
  99                 uint8_t page3[8]; //25\r
 100                 \r
 101                 uint8_t page4[8];  //33\r
 102                 uint8_t page5[8];  //41\r
 103                 uint8_t page6[8];  //49\r
 104                 uint8_t page7[8];  //57\r
 105                 \r
 106                 #endif\r
 107         };\r
 108 } pack1_t;\r
 109 volatile pack1_t pack1;\r
 110 \r
 111 \r
 112 \r
 113 \r
 114 typedef union {\r
 115         #if  defined(__AVR_ATtiny25__)\r
 116         volatile uint8_t bytes[16];\r
 117         #else\r
 118         volatile uint8_t bytes[64];\r
 119         #endif\r
 120         struct {\r
 121                 uint8_t status;  //1\r
 122                 int16_t temp;  //2\r
 123                 uint16_t voltage;  //4\r
 124                 int16_t current;  //6\r
 125                 uint8_t threshold; //8\r
 126                 \r
 127                 uint8_t page1[8]; //9\r
 128                 #if  defined(__AVR_ATtiny25__)\r
 129                 #else\r
 130                 uint8_t page2[8]; //17\r
 131                 uint8_t page3[8]; //25\r
 132                 \r
 133                 uint8_t page4[8];  //33\r
 134                 uint8_t page5[8];  //41\r
 135                 uint8_t page6[8];  //49\r
 136                 uint8_t page7[8];  //57\r
 137                 \r
 138                 #endif\r
 139         };\r
 140 } pack2_t;\r
 141 volatile pack2_t pack2;\r
 142 \r
 143 #define TIME_CORR 5\r
 144 volatile int8_t time_corr_count=TIME_CORR;\r
 145 \r
 146 #if  defined(__AVR_ATtiny24__)||defined(__AVR_ATtiny44__)  || defined(__AVR_ATtiny84__) || defined(__AVR_ATtiny24A__)||defined(__AVR_ATtiny44A__)  || defined(__AVR_ATtiny84A__)\r
 147 ISR(WATCHDOG_vect) {\r
 148         #else\r
 149         ISR(WDT_vect) {\r
 150                 #endif\r
 151                 pack1.etm++;\r
 152                 time_corr_count--;\r
 153                 if ((pack1.page1[0]&0x7)==0) {\r
 154                          wdcounter++;\r
 155                         } \r
 156                         if (time_corr_count<=0) {\r
 157                                 //wdcounter++;\r
 158                                 pack1.etm+=1;\r
 159                                 time_corr_count=TIME_CORR;\r
 160                         }\r
 161         /*      if ((pack1.page1[0]&0x0F)==0) {\r
 162                          pack1.etm+=2;\r
 163 \r
 164                 }*/\r
 165 /*              if ((pack1.page1[0]&0x1F)==0) {\r
 166                         pack1.etm--;\r
 167                 }*/\r
 168 \r
 169                 if (reset_indicator==1) reset_indicator++;\r
 170                 else if (reset_indicator==2) mode=0;\r
 171 \r
 172 \r
 173         }\r
 174 \r
 175 \r
 176 \r
 177 uint16_t pR0;\r
 178 uint16_t pVS;\r
 179 uint8_t pcmode;\r
 180 int16_t pip;\r
 181 \r
 182 uint16_t ptol_s8;\r
 183 uint16_t ptol_d;\r
 184 uint16_t pr_day_max;\r
 185 uint16_t pr_week_max;\r
 186 \r
 187 \r
 188 volatile int16_t DS2438_1_TEMP;\r
 189 volatile uint16_t DS2438_1_VAD;\r
 190 volatile int16_t DS2438_2_TEMP;\r
 191 volatile uint16_t DS2438_2_VAD;\r
 192 \r
 193 \r
 194 uint8_t userRegister[1];\r
 195 int16_t sRH,sT;\r
 196 double temperatureC,humidityRH,hhum;\r
 197 double l;\r
 198 \r
 199 uint8_t max_adr=0;\r
 200 #define CH0_M MAX1164x_C_SCAN0|MAX1164x_C_SGL\r
 201 #define CH1_M MAX1164x_C_SCAN0|MAX1164x_C_SGL|MAX1164x_C_CS0\r
 202 #define CH0_CH1 MAX1164x_C_SCAN0\r
 203 //|MAX1164x_C_CS0\r
 204 \r
 205 uint16_t weekmaxarr[8];\r
 206 \r
 207 //Kompensieren der Abhänigkeit von RS/RO von Temperatur und Luftfeuchte\r
 208 inline double interp(double t, double h) {\r
 209         double h2;\r
 210          double t2;\r
 211         h2=h*h;\r
 212         t2=t*t;\r
 213         return 4.76111e-9*h2*t2-3.96956e-7*h2*t+0.0000408889*h2-1.07132e-6*h*t2+0.000115968*h*t-0.0101333*h+0.000163806*t2-0.0241179*t+1.80591;\r
 214 }\r
 215 \r
 216 double R0;\r
 217 uint16_t mr;\r
 218 uint8_t startup=10;\r
 219 double ip;\r
 220 \r
 221 \r
 222 int testSW(void) {\r
 223         uint8_t r;\r
 224         DDRB&=~(1<<PORTB0);  //Eingang\r
 225          __asm__ __volatile__ ("nop"); \r
 226          PORTB|=(1<<PORTB0); //Pullup\r
 227          __asm__ __volatile__ ("nop"); \r
 228          __asm__ __volatile__ ("nop"); \r
 229          __asm__ __volatile__ ("nop"); \r
 230          __asm__ __volatile__ ("nop"); \r
 231          __asm__ __volatile__ ("nop"); \r
 232          r=PINB&(1<<PORTB0);\r
 233          __asm__ __volatile__ ("nop"); \r
 234          PORTB&=~(1<<PORTB0); \r
 235          __asm__ __volatile__ ("nop"); \r
 236         DDRB|=(1<<PORTB0);  //Eingang\r
 237         return (r==0);  //Offen mal HIH4030\r
 238          \r
 239          \r
 240 }\r
 241 \r
 242 #define EEPROM_R0 0\r
 243 #define EEPROM_R0d 2\r
 244 #define EEPROM_R0w 4\r
 245 #define EEPROM_dol 6\r
 246 \r
 247 \r
 248 uint16_t readEEPROM(uint8_t addr,uint16_t def) {\r
 249         uint16_t hr;\r
 250         while(EECR & (1<<EEPE));\r
 251         EEARL=addr+1;\r
 252         EECR |= (1<<EERE);\r
 253         hr=EEDR;\r
 254         if (hr!=0xFF) {\r
 255                 hr=hr<<8;\r
 256                 while(EECR & (1<<EEPE));\r
 257                 EEARL=addr;\r
 258                 EECR |= (1<<EERE);\r
 259                 hr|=EEDR;\r
 260                 return hr;\r
 261         }\r
 262         return def;\r
 263 }\r
 264 \r
 265 void writeEEPROM(uint8_t addr,uint16_t val) {\r
 266         while(EECR & (1<<EEPE));\r
 267         EECR = (0<<EEPM1)|(0<<EEPM0);\r
 268         EEARL = addr;\r
 269         EEDR = val&0xFF;\r
 270         EECR |= (1<<EEMPE);\r
 271         EECR |= (1<<EEPE);\r
 272         while(EECR & (1<<EEPE));\r
 273         EECR = (0<<EEPM1)|(0<<EEPM0);\r
 274         EEARL = addr+1;\r
 275         EEDR = val>>8;\r
 276         EECR |= (1<<EEMPE);\r
 277         EECR |= (1<<EEPE);\r
 278 }\r
 279 \r
 280 int main(void){\r
 281     PRR|=(1<<PRADC);  // adc for save Power\r
 282         PORTA=0xFF;\r
 283         PORTB=0xFF-(1<<PORTB0); //Schalter kann gegen Masse sein und zieht dann immer Strom\r
 284         DDRB|=(1<<PORTB0); //Als Ausgang und 0\r
 285         OWINIT();\r
 286         DDRB|=(1<<PINB1);//Ausgang und 1\r
 287         DDRA|=(1<<PINA0);\r
 288         \r
 289         WDTCSR |= ((1<<WDCE) );   // Enable the WD Change Bit//| (1<<WDE)\r
 290         WDTCSR |=   (1<<WDIE) |              // Enable WDT Interrupt\r
 291         //(1<<WDP0) |(1<<WDP2) | (1<<WDP1);    // Set Timeout to ~2 seconds\r
 292         (1<<WDP2) | (1<<WDP1);    // Set Timeout to ~1 seconds\r
 293 \r
 294         MCUSR=0;\r
 295 \r
 296         pack1.temp=0x0550;\r
 297         pack2.page3[0]=0xF1;\r
 298         pcmode=0;\r
 299         pR0=readEEPROM(EEPROM_R0,1);\r
 300         R0=pR0/100.0;\r
 301                 \r
 302         pr_day_max=readEEPROM(EEPROM_R0d,1);\r
 303         pr_week_max=readEEPROM(EEPROM_R0w,1);\r
 304         ptol_d=readEEPROM(EEPROM_dol,0); \r
 305         ptol_s8=0;  //Tag faengt mit Einschalten an\r
 306         for(uint8_t i=0;i<7;i++) {\r
 307                 weekmaxarr[i]=pr_week_max;\r
 308         }\r
 309 \r
 310         if (testSW()) {\r
 311                 config_info2[5]=12;\r
 312         }else{\r
 313                 config_info2[5]=7;\r
 314         }\r
 315 \r
 316         USI_TWI_Master_Initialise();\r
 317         initSHT2x();\r
 318         _delay_ms(100);\r
 319         MAX1164x_config(MAX1164x_S_SEL2|MAX1164x_S_SEL0,CH0_M);//#define MAX1164x_C_CS0\r
 320         _delay_ms(30); //Internal Referenz start\r
 321         //2970 -> 1,5V  \r
 322         gcontrol=1;\r
 323         sei();\r
 324         //DDRB|=(1<<PINB1);\r
 325     while(1)   {\r
 326 /*              if (pack1.config==0x1F) {  //Reset R0\r
 327                         pack1.config=0x7F;\r
 328                         R0=1;\r
 329                         pR0=0;\r
 330                         writeEEPROM(EEPROM_R0,0);\r
 331                 } \r
 332                 if (pack1.config==0x05) {  //Reset all Data\r
 333                         pack1.config=0x7F;                              \r
 334                         pr_day_max=1;\r
 335                         pr_week_max=1;\r
 336                         ptol_d=0;\r
 337                         ptol_s8=0;  //Tag faengt mit Einschalten an     \r
 338                         R0=1;   \r
 339                         writeEEPROM(EEPROM_R0,0xFF);\r
 340                         writeEEPROM(EEPROM_R0d,0xFF);  //Maximum des Tages\r
 341                         writeEEPROM(EEPROM_R0w,0xFF); //Maximum der Letzten 7 Tage\r
 342                         writeEEPROM(EEPROM_dol,0xFF); //Anzahl der Betriebstage         \r
 343                         for(uint8_t i=0;i<7;i++) {\r
 344                                 weekmaxarr[i]=1;\r
 345                         }                               \r
 346                 } */\r
 347                 if (wdcounter>0) {  //8s\r
 348                         ptol_s8++;\r
 349                         \r
 350                         //pack1.dis+=8;\r
 351                         //pack1.eoc+=8;\r
 352                         if (ptol_s8>(10000))  {//10800 ist theortisch der Tag aber meistens zu lang\r
 353                                 ptol_s8=0;\r
 354                                 ptol_d++;  //rund 180 Jahre :-)\r
 355                                 pr_week_max=0;\r
 356                                 weekmaxarr[7]=pr_day_max;\r
 357                                 for(uint8_t i=0;i<7;i++) {\r
 358                                         weekmaxarr[i]=weekmaxarr[i+1];\r
 359                                         //maximum of week\r
 360                                         if (weekmaxarr[i]>pr_week_max) pr_week_max=weekmaxarr[i];\r
 361                                 }\r
 362                                 if (ptol_d>7) {\r
 363                                         pR0=pr_week_max;\r
 364                                 } else {\r
 365                                         pR0=pr_day_max;\r
 366                                 }\r
 367                                 //R0=//R0-0.5*(pack2.R0/100-R0);\r
 368                                 R0=R0-(R0-pR0/100.0)*0.5        ;\r
 369                                 pR0=R0*100;\r
 370                                 writeEEPROM(EEPROM_R0,pR0);\r
 371                                 writeEEPROM(EEPROM_R0d,pr_day_max);  //Maximum des Tages\r
 372                                 writeEEPROM(EEPROM_R0w,pr_week_max); //Maximum der Letzten 7 Tage\r
 373                                 writeEEPROM(EEPROM_dol,ptol_d); //Anzahl der Betriebstage\r
 374                                 pr_day_max=0;\r
 375                         }\r
 376                         if (startup!=0) startup--;\r
 377                         getSHT2xHumTemp(&temperatureC,&humidityRH);\r
 378                         ip=interp(temperatureC,humidityRH);\r
 379                         pip=ip*1000;\r
 380                         double RH=calibr_hum(temperatureC,-0.2,humidityRH)*10.0;\r
 381                         double TC =temperatureC *10.0-2;\r
 382 \r
 383 \r
 384                         if (testSW()) {\r
 385                                  DS2438_2_VAD=RH;\r
 386                                  DS2438_2_TEMP=TC*25.6;\r
 387                                  \r
 388                                  config_info2[5]=12;    //10V = 100%\r
 389                         }else{\r
 390                                 hhum=(1.0546-0.000216*TC)*(RH);\r
 391                                 //am2302_hum=0.318*hhum +76.0;\r
 392                                 DS2438_2_VAD=0.31*hhum +80;\r
 393                                 DS2438_2_TEMP=TC*25.6;\r
 394                                 config_info2[5]=7;\r
 395                         }\r
 396                         DS2438_1_TEMP=DS2438_2_TEMP;\r
 397                         mr=0;\r
 398 //Kritische Sektion !___Ein Breakpoint in dieser Section kann den TGS8100 zerstoeren!___________________________\r
 399                         PORTB&=~(1<<PINB1); //Auf 0 Ziehen\r
 400                         _delay_us(150);\r
 401                         mr+=MAX1164x_read();\r
 402                         _delay_us(150);\r
 403                         mr+=MAX1164x_read();\r
 404                         PORTB|=(1<<PINB1);\r
 405 //ENDE Kritische Sektion !______________________________\r
 406                         //l=mr/2.0*2.048/4096; \r
 407                         // l maximal 2  mr max 4096  //mr 2V=8000 \r
 408                         \r
 409                         if (pcmode) { //cmode=0 V 0..2 V cmode=1 V 1.5..3.5V\r
 410                                 //l+=1.5; //Spannung real\r
 411                                 mr+=6000;\r
 412                         } \r
 413                         //if (l>1.8) {\r
 414                         if (mr>7200) {                          \r
 415                                 if (pcmode==0) {\r
 416                                         MAX1164x_config(MAX1164x_S_SEL2|MAX1164x_S_SEL0,CH0_CH1);\r
 417                                         pcmode=1;\r
 418                                 }\r
 419                         }\r
 420                         //if (l<1.6) {\r
 421                         if (mr<6400) {  \r
 422                                 if (pcmode==1) {\r
 423                                         MAX1164x_config(MAX1164x_S_SEL2|MAX1164x_S_SEL0,CH0_M);\r
 424                                         pcmode=0;\r
 425                                 }\r
 426                                 \r
 427                                 \r
 428                         }\r
 429                         pVS=mr*5/2;\r
 430                         l=mr/4000.0;\r
 431                         l=( 3/l- 1) *30;\r
 432                         pack2.current=l*100;\r
 433                         \r
 434                         l=l/ip;\r
 435                         \r
 436                         if (startup==0){\r
 437                                 if (l>R0) {\r
 438                                         R0=l;\r
 439                                         pR0=R0*100;\r
 440                                         writeEEPROM(EEPROM_R0,pR0);\r
 441 \r
 442                                 }\r
 443                                 if (l*100>pr_day_max) {\r
 444                                         pr_day_max=l*100;\r
 445                                 }\r
 446                         } else if (l<R0) l=R0; //negative Werte am Anfang verhintern\r
 447                         l=exp((1-(l/R0))*6.05)-1;// exp((1-($val)/55)*5.75);  (5.75 geht über 125 6.05 geht bis 240... mittlere Linie im Datenblatt)\r
 448                         //l=(l/R0*100.0);\r
 449                         l=l*0.5*35; //fuer DS2438\r
 450                         if (l==0) l=1;\r
 451                         gcontrol=1;\r
 452                         wdcounter=0;\r
 453                         \r
 454                 }\r
 455         \r
 456                 if (gcontrol==1) {\r
 457                         uint16_t w=l;\r
 458                         DS2438_1_VAD=w;\r
 459                         \r
 460                         gcontrol=0;\r
 461                 }\r
 462                 if ((gcontrol==2)||(gcontrol==3)) {\r
 463                         gcontrol=0;\r
 464                         \r
 465                 }\r
 466 \r
 467                 \r
 468 #if  defined(__AVR_ATtiny25__)||defined(__AVR_ATtiny45__)  || defined(__AVR_ATtiny85__)\r
 469                         if (((TIMSK & (1<<TOIE0))==0)&& (mode==0))\r
 470 #endif                  \r
 471 #if  defined(__AVR_ATtiny24__)||defined(__AVR_ATtiny44__)  || defined(__AVR_ATtiny84__) ||defined(__AVR_ATtiny24A__)||defined(__AVR_ATtiny44A__)  || defined(__AVR_ATtiny84A__)\r
 472                         if (((TIMSK0 & (1<<TOIE0))==0)&& (mode==0))\r
 473 #endif\r
 474                           {\r
 475 \r
 476                         MCUCR|=(1<<SE)|(1<<SM1);\r
 477                         MCUCR&=~(1<<ISC01);\r
 478                 } else {\r
 479                         MCUCR|=(1<<SE);\r
 480                         MCUCR&=~(1<<SM1);\r
 481                 }\r
 482                 asm("SLEEP");\r
 483    }\r
 484 \r
 485 \r
 486 }\r