1 // Copyright (c) 2017, Tobias Mueller tm(at)tm3d.de
\r
2 // All rights reserved.
\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
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
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
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
33 //!!!!!Max Program size 7551 Byte
\r
35 #define F_CPU 8000000UL
\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 #include "../common/owSlave_tools.h"
\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
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
58 #error "Variable not correct"
\r
61 extern uint8_t cpsp;
\r
69 volatile uint8_t bytes[8];
\r
80 volatile pack1_t pack1;
\r
85 #if defined(__AVR_ATtiny25__)
\r
86 volatile uint8_t bytes[16];
\r
88 volatile uint8_t bytes[64];
\r
93 uint16_t voltage; //4
\r
94 int16_t current; //6
\r
95 uint8_t threshold; //8
\r
97 uint8_t page1[8]; //9
\r
98 #if defined(__AVR_ATtiny25__)
\r
100 uint8_t page2[8]; //17
\r
102 uint8_t page3[8]; //25
\r
113 uint8_t page4[8]; //33
\r
117 uint16_t r_day_max;
\r
118 uint16_t r_week_max;
\r
122 uint8_t page5[8]; //41
\r
124 uint8_t codeVOC; // immer 0x37 nach Neustart
\r
125 uint8_t days_of_r0; //Anzahl der Tage fuer die r0 ermittelt wird
\r
126 int8_t corr_VOC_mult; //r0 corr
\r
127 int8_t corr_VOC_div;
\r
129 uint8_t time_corr; //Wiregate;
\r
130 uint8_t reset_code;
\r
132 uint16_t page5d[4];
\r
134 uint8_t page6[8]; //49
\r
135 uint8_t page7[8]; //57
\r
140 volatile pack2_t pack2;
\r
145 volatile int16_t DS2438_2_TEMP;
\r
146 volatile uint16_t DS2438_2_VAD;
\r
147 volatile uint16_t DS2438_2_VDD=0x01F4;
\r
152 double temperatureC,humidityRH,hhum;
\r
156 uint16_t weekmaxarr[33];
\r
158 //Kompensieren der Abhänigkeit von RS/RO von Temperatur und Luftfeuchte
\r
159 inline double interp(double t, double h) {
\r
164 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
169 uint8_t startup=10;
\r
176 #define EEPROM_R0 0
\r
177 #define EEPROM_R0d 2
\r
178 #define EEPROM_R0w 4
\r
179 #define EEPROM_dol 6
\r
180 #define EEPROM_CODE_DAYOFR0 8
\r
181 #define EEPROM_CORR 10
\r
182 #define EEPROM_FREE 12
\r
183 #define EEPROM_TCORR_RESET 14
\r
185 uint16_t readEEPROM(uint8_t addr,uint16_t def) {
\r
187 while(EECR & (1<<EEPE));
\r
193 while(EECR & (1<<EEPE));
\r
202 void writeEEPROM(uint8_t addr,uint16_t val) {
\r
203 while(EECR & (1<<EEPE));
\r
204 EECR = (0<<EEPM1)|(0<<EEPM0);
\r
207 EECR |= (1<<EEMPE);
\r
209 while(EECR & (1<<EEPE));
\r
210 EECR = (0<<EEPM1)|(0<<EEPM0);
\r
213 EECR |= (1<<EEMPE);
\r
218 PORTA=0xFF-(1<<PINA1);
\r
219 PORTB=0xFF-(1<<PORTB0); //Schalter kann gegen Masse sein und zieht dann immer Strom
\r
220 DDRB|=(1<<PORTB0); //Als Ausgang und 0
\r
222 DDRB|=(1<<PINB1);//Ausgang und 1
\r
225 WDTCSR |= ((1<<WDCE) ); // Enable the WD Change Bit//| (1<<WDE)
\r
226 WDTCSR |= (1<<WDIE) | // Enable WDT Interrupt
\r
227 //(1<<WDP0) |(1<<WDP2) | (1<<WDP1); // Set Timeout to ~2 seconds
\r
228 (1<<WDP3) | (1<<WDP0); // Set Timeout to ~8 seconds
\r
232 //ADMUX=0b00001110; //ADC1 + ADC3 -
\r
233 ADMUX=0x01 ; //PA3 single and 3V
\r
234 ADCSRA = (1<<ADEN)|(1<<ADPS1)|(1<<ADPS0);//|
\r
243 pack2.page3[0]=0xF1;
\r
245 pack2.R0=readEEPROM(EEPROM_R0,1);
\r
248 pack2.r_day_max=readEEPROM(EEPROM_R0d,1);
\r
249 pack2.r_week_max=readEEPROM(EEPROM_R0w,1);
\r
250 pack2.tol_d=readEEPROM(EEPROM_dol,0);
\r
251 pack2.tol_s8=0; //Tag faengt mit Einschalten an
\r
253 pack2.page5d[0]=readEEPROM(EEPROM_CODE_DAYOFR0,0x0437);
\r
254 pack2.page5d[1]=readEEPROM(EEPROM_CORR,0x0101);
\r
255 pack2.page5d[2]=readEEPROM(EEPROM_FREE,0x0);
\r
256 pack2.page5d[3]=readEEPROM( EEPROM_TCORR_RESET,0x0005);
\r
258 for(uint8_t i=0;i<pack2.days_of_r0;i++) {
\r
259 weekmaxarr[i]=pack2.r_week_max;
\r
262 for(uint8_t i=0;i<8;i++) pack2.page6[i]=owid1[i];
\r
264 config_info2[5]=12;
\r
269 USI_TWI_Master_Initialise();
\r
277 if ((cpsp&0x80)!=0) {
\r
278 if ((cpsp&0x0F)==5) {
\r
279 if (pack2.reset_code==0x01) {
\r
282 writeEEPROM(EEPROM_R0,0);
\r
283 } else if (pack2.reset_code==0x05) {
\r
285 pack2.r_week_max=1;
\r
287 pack2.tol_s8=0; //Tag faengt mit Einschalten an
\r
289 writeEEPROM(EEPROM_R0,0xFF);
\r
290 writeEEPROM(EEPROM_R0d,0xFF); //Maximum des Tages
\r
291 writeEEPROM(EEPROM_R0w,0xFF); //Maximum der Letzten 7 Tage
\r
292 writeEEPROM(EEPROM_dol,0xFF); //Anzahl der Betriebstage
\r
293 for(uint8_t i=0;i<7;i++) {
\r
297 writeEEPROM(EEPROM_CODE_DAYOFR0,0x0037|(pack2.days_of_r0<<8));
\r
298 writeEEPROM(EEPROM_CORR,pack2.page5d[1]);
\r
299 writeEEPROM(EEPROM_FREE,pack2.page5d[2]);
\r
300 writeEEPROM(EEPROM_TCORR_RESET,pack2.time_corr);
\r
305 if (wdcounter>0) { //8s
\r
307 if (pack2.tol_s8>(10000)) {//10800 ist theortisch der Tag aber meistens zu lang
\r
309 pack2.tol_d++; //rund 180 Jahre :-)
\r
310 pack2.r_week_max=0;
\r
311 weekmaxarr[pack2.days_of_r0]=pack2.r_day_max;
\r
312 for(uint8_t i=0;i<pack2.days_of_r0;i++) {
\r
313 weekmaxarr[i]=weekmaxarr[i+1];
\r
315 if (weekmaxarr[i]>pack2.r_week_max) pack2.r_week_max=weekmaxarr[i];
\r
317 if (pack2.tol_d>7) {
\r
318 pack2.R0=pack2.r_week_max;
\r
320 pack2.R0=pack2.r_day_max;
\r
322 //R0=//R0-0.5*(pack2.R0/100-R0);
\r
323 R0=R0-(R0-pack2.R0/100.0)*0.5 ;
\r
325 writeEEPROM(EEPROM_R0,pack2.R0);
\r
326 writeEEPROM(EEPROM_R0d,pack2.r_day_max); //Maximum des Tages
\r
327 writeEEPROM(EEPROM_R0w,pack2.r_week_max); //Maximum der Letzten 7 Tage
\r
328 writeEEPROM(EEPROM_dol,pack2.tol_d); //Anzahl der Betriebstage
\r
331 if (startup!=0) startup--;
\r
332 getSHT2xHumTemp(&temperatureC,&humidityRH);
\r
333 ip=interp(temperatureC,humidityRH);
\r
335 //double RH=calibr_hum(temperatureC,-0.2,humidityRH)*10.0;
\r
336 //double TC =temperatureC *10.0-2;
\r
337 double RH=humidityRH*10.0;
\r
338 double TC=temperatureC*10.0;
\r
343 DS2438_2_TEMP=TC*25.6;
\r
344 config_info2[5]=12; //10V = 100%
\r
346 hhum=(1.0546-0.000216*TC)*(RH);
\r
347 DS2438_2_VAD=0.31*hhum +80;
\r
348 DS2438_2_TEMP=TC*25.6;
\r
352 //Kritische Sektion !___Ein Breakpoint in dieser Section kann den TGS8100 zerstoeren!___________________________
\r
353 PORTB&=~(1<<PINB1); //Auf 0 Ziehen
\r
355 for(uint8_t i=0;i<32;i++) {
\r
357 while ((ADCSRA&(1<<ADSC)));
\r
361 //ENDE Kritische Sektion !______________________________
\r
363 pack2.VS=mr*3/128; //VS in Volt = VS/256
\r
364 l=mr*3.0/32768.0; //Spannung in v
\r
365 l=( 3/l- 1) *30; //l is resistance
\r
367 la[0]=la[1]=la[2]=la[3]=l; //smaller code
\r
375 double lasum=la[0]+la[1]+la[2]+la[3];
\r
378 pack2.current=l*100;
\r
386 writeEEPROM(EEPROM_R0,pack2.R0);
\r
389 if (l*100>pack2.r_day_max) {
\r
390 pack2.r_day_max=l*100;
\r
392 } else if (l<R0) l=R0; //negative Werte am Anfang verhintern
\r
393 //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
394 //l=pow(R0/l,1.8)*3-3;
\r
398 l=exp((1-(1/l))*6.05)-1;
\r
399 l=l*(double)pack2.corr_VOC_mult/(double)pack2.corr_VOC_div;
\r
400 l=l*8.0; //fuer DS18B20*/
\r
407 if ((gcontrol&1)==1) {
\r
411 if (t8>pack1.TH) af=1;
\r
412 if (t8<=pack1.TL) af=1;
\r