5b3461c4da69598b4b4cfa6f92ff60b2657401ef
[owSlave2.git] / DS18B20_VOC_DS2438_SHT direct / DS18B20_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/SHT2xV2.h"\r
44 #include "../common/calibr.h"\r
45 \r
46 extern void OWINIT(void);\r
47 extern void EXTERN_SLEEP(void);\r
48 \r
49 \r
50 \r
51 volatile uint8_t owid1[8]={0x28, 0xA3, 0xD9, 0x84, 0x00, 0x16, 0x05, 0x18};/**/\r
52 volatile uint8_t owid2[8]={0x26, 0xA3, 0xD9, 0x84, 0x00, 0x16, 0x05, 0x67};/**/\r
53                                         //18\r
54 volatile uint8_t config_info1[26]={0x08,18, 0x00,0x00, 0x00,0x00, 0x00,0x00, 0x02,17,0x00,0x00,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 extern uint8_t cpsp;\r
67 \r
68 \r
69 #if  defined(__AVR_ATtiny24__)||defined(__AVR_ATtiny44__)  || defined(__AVR_ATtiny84__) || defined(__AVR_ATtiny24A__)||defined(__AVR_ATtiny44A__)  || defined(__AVR_ATtiny84A__)\r
70 ISR(WATCHDOG_vect) {\r
71         #else\r
72         ISR(WDT_vect) {\r
73                 #endif\r
74                 wdcounter++;\r
75                 if (reset_indicator==1) reset_indicator++;\r
76                 else if (reset_indicator==2) mode=0;\r
77 \r
78 }\r
79 \r
80 \r
81         typedef union {\r
82                 volatile uint8_t bytes[8];\r
83                 struct {\r
84                         uint16_t temp;  //0\r
85                         uint8_t TH;  //2\r
86                         uint8_t TL;  //3\r
87                         uint8_t config;  //4\r
88                         uint8_t rrFF; //5\r
89                         uint8_t rr00; //6\r
90                         uint8_t rr10; //7\r
91                 };\r
92         } pack1_t;\r
93         volatile pack1_t pack1;\r
94 \r
95 \r
96 \r
97         typedef union {\r
98                 #if  defined(__AVR_ATtiny25__)\r
99                 volatile uint8_t bytes[16];\r
100                 #else\r
101                 volatile uint8_t bytes[64];\r
102                 #endif\r
103                 struct {\r
104                         uint8_t status;  //1\r
105                         int16_t temp;  //2\r
106                         uint16_t voltage;  //4\r
107                         int16_t current;  //6\r
108                         uint8_t threshold; //8\r
109                         \r
110                         uint8_t page1[8]; //9\r
111                         #if  defined(__AVR_ATtiny25__)\r
112                         #else\r
113                         uint8_t page2[8]; //17\r
114                         union{\r
115                                 uint8_t page3[8]; //25\r
116                                 struct {\r
117                                         uint8_t free;\r
118                                         uint16_t R0;\r
119                                         uint16_t VS;\r
120                                         uint8_t cmode;\r
121                                         int16_t ip;\r
122                                         \r
123                                 };\r
124                         };\r
125                         union{\r
126                                 uint8_t page4[8];  //33\r
127                                 struct {\r
128                                         uint16_t tol_s8;\r
129                                         uint16_t tol_d;\r
130                                         uint16_t r_day_max;\r
131                                         uint16_t r_week_max;\r
132                                 };\r
133                         };\r
134                         union{\r
135                                 uint8_t page5[8];  //41\r
136                                 struct {\r
137                                         uint8_t codeVOC; // immer 0x37 nach Neustart\r
138                                         uint8_t days_of_r0; //Anzahl der Tage fuer die r0 ermittelt wird\r
139                                         int8_t corr_VOC_mult; //r0 corr\r
140                                         int8_t corr_VOC_div;\r
141                                         uint16_t vv3;\r
142                                         uint8_t time_corr; //Wiregate;\r
143                                         uint8_t reset_code;\r
144                                 };\r
145                                 uint16_t page5d[4];\r
146                         };\r
147                         uint8_t page6[8];  //49\r
148                         uint8_t page7[8];  //57\r
149                         \r
150                         #endif\r
151                 };\r
152         } pack2_t;\r
153         volatile pack2_t pack2;\r
154 \r
155 \r
156 \r
157 \r
158         volatile int16_t am2302_temp;\r
159         volatile uint16_t am2302_hum;\r
160 \r
161 \r
162         uint8_t userRegister[1];\r
163         int16_t sRH,sT;\r
164         double temperatureC,humidityRH,hhum;\r
165         volatile double l;\r
166 \r
167 \r
168         uint16_t weekmaxarr[33];\r
169 \r
170         //Kompensieren der Abhänigkeit von RS/RO von Temperatur und Luftfeuchte\r
171         inline double interp(double t, double h) {\r
172                 double h2;\r
173                 double t2;\r
174                 h2=h*h;\r
175                 t2=t*t;\r
176                 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
177         }\r
178 \r
179         double R0;\r
180         uint16_t mr;\r
181         uint8_t startup=10;\r
182         double ip;\r
183         double la[4];\r
184         uint8_t lainit=1;\r
185 \r
186         int testSW(void) {\r
187                 uint8_t r;\r
188                 DDRB&=~(1<<PORTB0);  //Eingang\r
189                 __asm__ __volatile__ ("nop");\r
190                 PORTB|=(1<<PORTB0); //Pullup\r
191                 __asm__ __volatile__ ("nop");\r
192                 __asm__ __volatile__ ("nop");\r
193                 __asm__ __volatile__ ("nop");\r
194                 __asm__ __volatile__ ("nop");\r
195                 __asm__ __volatile__ ("nop");\r
196                 r=PINB&(1<<PORTB0);\r
197                 __asm__ __volatile__ ("nop");\r
198                 PORTB&=~(1<<PORTB0);\r
199                 __asm__ __volatile__ ("nop");\r
200                 DDRB|=(1<<PORTB0);  //Eingang\r
201                 return (r==0);  //Offen mal HIH4030\r
202                 \r
203                 \r
204         }\r
205 \r
206         \r
207         #define EEPROM_R0 0\r
208         #define EEPROM_R0d 2\r
209         #define EEPROM_R0w 4\r
210         #define EEPROM_dol 6\r
211         #define EEPROM_CODE_DAYOFR0 8\r
212         #define EEPROM_CORR 10\r
213         #define EEPROM_FREE 12\r
214         #define EEPROM_TCORR_RESET 14\r
215 \r
216         uint16_t readEEPROM(uint8_t addr,uint16_t def) {\r
217                 uint16_t hr;\r
218                 while(EECR & (1<<EEPE));\r
219                 EEARL=addr+1;\r
220                 EECR |= (1<<EERE);\r
221                 hr=EEDR;\r
222                 if (hr!=0xFF) {\r
223                         hr=hr<<8;\r
224                         while(EECR & (1<<EEPE));\r
225                         EEARL=addr;\r
226                         EECR |= (1<<EERE);\r
227                         hr|=EEDR;\r
228                         return hr;\r
229                 }\r
230                 return def;\r
231         }\r
232 \r
233         void writeEEPROM(uint8_t addr,uint16_t val) {\r
234                 while(EECR & (1<<EEPE));\r
235                 EECR = (0<<EEPM1)|(0<<EEPM0);\r
236                 EEARL = addr;\r
237                 EEDR = val&0xFF;\r
238                 EECR |= (1<<EEMPE);\r
239                 EECR |= (1<<EEPE);\r
240                 while(EECR & (1<<EEPE));\r
241                 EECR = (0<<EEPM1)|(0<<EEPM0);\r
242                 EEARL = addr+1;\r
243                 EEDR = val>>8;\r
244                 EECR |= (1<<EEMPE);\r
245                 EECR |= (1<<EEPE);\r
246         }\r
247 \r
248         int main(void){\r
249                 PORTA=0xFF-(1<<PINA1);\r
250                 PORTB=0xFF-(1<<PORTB0); //Schalter kann gegen Masse sein und zieht dann immer Strom\r
251                 DDRB|=(1<<PORTB0); //Als Ausgang und 0\r
252                 OWINIT();\r
253                 DDRB|=(1<<PINB1);//Ausgang und 1\r
254                 DDRA|=(1<<PINA0);\r
255                 \r
256                 WDTCSR |= ((1<<WDCE) );   // Enable the WD Change Bit//| (1<<WDE)\r
257                 WDTCSR |=   (1<<WDIE) |              // Enable WDT Interrupt\r
258                 //(1<<WDP0) |(1<<WDP2) | (1<<WDP1);    // Set Timeout to ~2 seconds\r
259                 (1<<WDP3) | (1<<WDP0);    // Set Timeout to ~8 seconds\r
260 \r
261                 MCUSR=0;\r
262 \r
263                 //ADMUX=0b00001110; //ADC1 +   ADC3 -\r
264                 ADMUX=0x01 ; //PA3 single and  3V\r
265                 ADCSRA = (1<<ADEN)|(1<<ADPS1)|(1<<ADPS0);//|\r
266                 pack1.temp=0x0550;\r
267                 pack1.config=0x7F;\r
268                 pack1.TH=75;\r
269                 pack1.TL=70;\r
270                 pack1.rrFF=0xFF;\r
271                 pack1.rr00=0;\r
272                 pack1.rr10=0x10;\r
273 \r
274                 pack2.page3[0]=0xF1;\r
275                 pack2.cmode=0;\r
276                 pack2.R0=readEEPROM(EEPROM_R0,1);\r
277                 R0=pack2.R0/100.0;\r
278                 \r
279                 pack2.r_day_max=readEEPROM(EEPROM_R0d,1);\r
280                 pack2.r_week_max=readEEPROM(EEPROM_R0w,1);\r
281                 pack2.tol_d=readEEPROM(EEPROM_dol,0);\r
282                 pack2.tol_s8=0;  //Tag faengt mit Einschalten an\r
283 \r
284                 pack2.page5d[0]=readEEPROM(EEPROM_CODE_DAYOFR0,0x0437);\r
285                 pack2.page5d[1]=readEEPROM(EEPROM_CORR,0x0101);\r
286                 pack2.page5d[2]=readEEPROM(EEPROM_FREE,0x0);\r
287                 pack2.page5d[3]=readEEPROM( EEPROM_TCORR_RESET,0x0005);\r
288 \r
289                 for(uint8_t i=0;i<pack2.days_of_r0;i++) {\r
290                         weekmaxarr[i]=pack2.r_week_max;\r
291                 }\r
292 \r
293 \r
294                 if (testSW()) {\r
295                         config_info2[5]=12;\r
296                         }else{\r
297                         config_info2[5]=7;\r
298                 }\r
299 \r
300                 USI_TWI_Master_Initialise();\r
301                 \r
302                 initSHT2x();\r
303                 _delay_ms(100);\r
304                 gcontrol=1;\r
305                 sei();\r
306                 while(1)   {\r
307                         /*if (pack1.config==0x1F) {  //Reset R0\r
308                                 pack1.config=0x7F;\r
309                                 R0=1;\r
310                                 pack2.R0=0;\r
311                                 writeEEPROM(EEPROM_R0,0);\r
312                         }\r
313                         if (pack1.config==0x05) {  //Reset all Data\r
314                                 pack1.config=0x7F;\r
315                                 pack2.r_day_max=1;\r
316                                 pack2.r_week_max=1;\r
317                                 pack2.tol_d=0;\r
318                                 pack2.tol_s8=0;  //Tag faengt mit Einschalten an\r
319                                 R0=1;\r
320                                 writeEEPROM(EEPROM_R0,0xFF);\r
321                                 writeEEPROM(EEPROM_R0d,0xFF);  //Maximum des Tages\r
322                                 writeEEPROM(EEPROM_R0w,0xFF); //Maximum der Letzten 7 Tage\r
323                                 writeEEPROM(EEPROM_dol,0xFF); //Anzahl der Betriebstage\r
324                                 for(uint8_t i=0;i<7;i++) {\r
325                                         weekmaxarr[i]=1;\r
326                                 }\r
327                         }*/\r
328                         if ((cpsp&0x80)!=0) {\r
329                                 if ((cpsp&0x0F)==5) {\r
330                                         if (pack2.reset_code==0x01) {\r
331                                                 R0=1;\r
332                                                 pack2.R0=0;\r
333                                                 writeEEPROM(EEPROM_R0,0);\r
334                                         } else if (pack2.reset_code==0x05) {\r
335                                                 pack2.r_day_max=1;\r
336                                                 pack2.r_week_max=1;\r
337                                                 pack2.tol_d=0;\r
338                                                 pack2.tol_s8=0;  //Tag faengt mit Einschalten an\r
339                                                 R0=1;\r
340                                                 writeEEPROM(EEPROM_R0,0xFF);\r
341                                                 writeEEPROM(EEPROM_R0d,0xFF);  //Maximum des Tages\r
342                                                 writeEEPROM(EEPROM_R0w,0xFF); //Maximum der Letzten 7 Tage\r
343                                                 writeEEPROM(EEPROM_dol,0xFF); //Anzahl der Betriebstage\r
344                                                 for(uint8_t i=0;i<7;i++) {\r
345                                                         weekmaxarr[i]=1;\r
346                                                 }\r
347                                         } else {\r
348                                                 writeEEPROM(EEPROM_CODE_DAYOFR0,0x0037|(pack2.days_of_r0<<8));\r
349                                                 writeEEPROM(EEPROM_CORR,pack2.page5d[1]);\r
350                                                 writeEEPROM(EEPROM_FREE,pack2.page5d[2]);\r
351                                                 writeEEPROM(EEPROM_TCORR_RESET,pack2.time_corr);\r
352                                         }\r
353                                 }\r
354                                 cpsp=0;\r
355                         }\r
356                         if (wdcounter>0) {  //8s\r
357                                 pack2.tol_s8++;\r
358                                 if (pack2.tol_s8>(10000))  {//10800 ist theortisch der Tag aber meistens zu lang\r
359                                         pack2.tol_s8=0;\r
360                                         pack2.tol_d++;  //rund 180 Jahre :-)\r
361                                         pack2.r_week_max=0;\r
362                                         weekmaxarr[pack2.days_of_r0]=pack2.r_day_max;\r
363                                         for(uint8_t i=0;i<pack2.days_of_r0;i++) {\r
364                                                 weekmaxarr[i]=weekmaxarr[i+1];\r
365                                                 //maximum of week\r
366                                                 if (weekmaxarr[i]>pack2.r_week_max) pack2.r_week_max=weekmaxarr[i];\r
367                                         }\r
368                                         if (pack2.tol_d>7) {\r
369                                                 pack2.R0=pack2.r_week_max;\r
370                                         } else {\r
371                                                 pack2.R0=pack2.r_day_max;\r
372                                         }\r
373                                         //R0=//R0-0.5*(pack2.R0/100-R0);\r
374                                         R0=R0-(R0-pack2.R0/100.0)*0.5   ;\r
375                                         pack2.R0=R0*100;\r
376                                         writeEEPROM(EEPROM_R0,pack2.R0);\r
377                                         writeEEPROM(EEPROM_R0d,pack2.r_day_max);  //Maximum des Tages\r
378                                         writeEEPROM(EEPROM_R0w,pack2.r_week_max); //Maximum der Letzten 7 Tage\r
379                                         writeEEPROM(EEPROM_dol,pack2.tol_d); //Anzahl der Betriebstage\r
380                                         pack2.r_day_max=0;\r
381                                 }\r
382                                 if (startup!=0) startup--;\r
383                                 getSHT2xHumTemp(&temperatureC,&humidityRH);\r
384                                 ip=interp(temperatureC,humidityRH);\r
385                                 pack2.ip=ip*1000;\r
386                                 //double RH=calibr_hum(temperatureC,-0.2,humidityRH)*10.0;\r
387                                 //double TC =temperatureC *10.0-2;\r
388                                 double RH=humidityRH*10.0;\r
389                                 double TC=temperatureC*10.0;\r
390 \r
391 \r
392                                 if (testSW()) {\r
393                                         am2302_hum=RH;\r
394                                         am2302_temp=TC*25.6;\r
395                                         config_info2[5]=12;     //10V = 100%\r
396                                 }else{\r
397                                         hhum=(1.0546-0.000216*TC)*(RH);\r
398                                         //am2302_hum=0.318*hhum +76.0;\r
399                                         am2302_hum=0.31*hhum +80;\r
400                                         am2302_temp=TC*25.6;\r
401                                         config_info2[5]=7;\r
402                                 }\r
403                                 mr=0;\r
404                                 //Kritische Sektion !___Ein Breakpoint in dieser Section kann den TGS8100 zerstoeren!___________________________\r
405                                 PORTB&=~(1<<PINB1); //Auf 0 Ziehen\r
406                                 _delay_us(500);\r
407                                 for(uint8_t i=0;i<32;i++) {\r
408                                         ADCSRA|=(1<<ADSC);\r
409                                         while ((ADCSRA&(1<<ADSC)));\r
410                                         mr+=ADC;\r
411                                  }\r
412                                 PORTB|=(1<<PINB1);\r
413                                 //ENDE Kritische Sektion !______________________________\r
414 \r
415                                 pack2.VS=mr*3/128;  //VS in Volt = VS/256\r
416                                 l=mr*3.0/32768.0;  //Spannung in v\r
417                                 l=( 3/l- 1) *30; //l is resistance\r
418                                 if (lainit) {\r
419                                         la[0]=la[1]=la[2]=la[3]=l;  //smaller code\r
420                                         lainit=0;\r
421                                 } else {\r
422                                         la[0]=la[1];\r
423                                         la[1]=la[2];\r
424                                         la[2]=la[3];\r
425                                         la[3]=l;\r
426                                 }\r
427                                 double lasum=la[0]+la[1]+la[2]+la[3];\r
428                                 l=lasum/4.0;\r
429                                 \r
430                                 pack2.current=l*100;\r
431                                 \r
432                                 l=l/ip;\r
433                                 \r
434                                 if (startup==0){\r
435                                         if (l>R0) {\r
436                                                 R0=l;\r
437                                                 pack2.R0=R0*100;\r
438                                                 writeEEPROM(EEPROM_R0,pack2.R0);\r
439 \r
440                                         }\r
441                                         if (l*100>pack2.r_day_max) {\r
442                                                 pack2.r_day_max=l*100;\r
443                                         }\r
444                                 } else if (l<R0) l=R0; //negative Werte am Anfang verhintern\r
445                                 //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
446                                 //l=pow(R0/l,1.8)*3-3; \r
447                                 if (l!=0) {\r
448                                         l=R0/l;\r
449                                         //l=l*l*12-12;\r
450                                         l=exp((1-(1/l))*6.05)-1;\r
451                                         l=l*(double)pack2.corr_VOC_mult/(double)pack2.corr_VOC_div;\r
452                                         l=l*8.0; //fuer DS18B20*/\r
453                                 }       \r
454                                 wdcounter=0;\r
455 \r
456                                 \r
457                         }\r
458                         \r
459                         if (gcontrol==1) {\r
460                                 uint16_t w=l;\r
461                                 uint8_t t8=w>>4;\r
462                                 uint8_t af=0;\r
463                                 if (t8>pack1.TH) af=1;\r
464                                 if (t8<=pack1.TL) af=1;\r
465                                 cli();\r
466                                 pack1.temp=w;\r
467                                 //pack.temp++;\r
468                                 alarmflag=af;\r
469                                 sei();\r
470                                 EXTERN_SLEEP();\r
471                         }\r
472                         if ((gcontrol==2)||(gcontrol==3)) {\r
473                                 gcontrol=0;\r
474                                 \r
475                         }\r
476 \r
477                         \r
478                         #if  defined(__AVR_ATtiny25__)||defined(__AVR_ATtiny45__)  || defined(__AVR_ATtiny85__)\r
479                         if (((TIMSK & (1<<TOIE0))==0)&& (mode==0))\r
480                         #endif\r
481                         #if  defined(__AVR_ATtiny24__)||defined(__AVR_ATtiny44__)  || defined(__AVR_ATtiny84__) ||defined(__AVR_ATtiny24A__)||defined(__AVR_ATtiny44A__)  || defined(__AVR_ATtiny84A__)\r
482                         if (((TIMSK0 & (1<<TOIE0))==0)&& (mode==0))\r
483                         #endif\r
484                         {\r
485 \r
486                                 MCUCR|=(1<<SE)|(1<<SM1);\r
487                                 MCUCR&=~(1<<ISC01);\r
488                         } else {\r
489                                 MCUCR|=(1<<SE);\r
490                                 MCUCR&=~(1<<SM1);\r
491                         }\r
492                         asm("SLEEP");\r
493                 }\r
494 \r
495 \r
496         }\r