DS2408/DS2408.c

   1 \r
   2 // Copyright (c) 2018, Tobias Mueller tm(at)tm3d.de\r
   3 // All rights reserved.\r
   4 //\r
   5 // Redistribution and use in source and binary forms, with or without\r
   6 // modification, are permitted provided that the following conditions are\r
   7 // met:\r
   8 //\r
   9 //  * Redistributions of source code must retain the above copyright\r
  10 //    notice, this list of conditions and the following disclaimer.\r
  11 //  * Redistributions in binary form must reproduce the above copyright\r
  12 //    notice, this list of conditions and the following disclaimer in the\r
  13 //    documentation and/or other materials provided with the\r
  14 //    distribution.\r
  15 //  * All advertising materials mentioning features or use of this\r
  16 //    software must display the following acknowledgement: This product\r
  17 //    includes software developed by tm3d.de and its contributors.\r
  18 //  * Neither the name of tm3d.de nor the names of its contributors may\r
  19 //    be used to endorse or promote products derived from this software\r
  20 //    without specific prior written permission.\r
  21 //\r
  22 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\r
  23 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\r
  24 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR\r
  25 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT\r
  26 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,\r
  27 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT\r
  28 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\r
  29 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\r
  30 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\r
  31 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE\r
  32 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\r
  33 \r
  34 #define F_CPU 8000000UL\r
  35 #include <avr/io.h>\r
  36 #include <avr/interrupt.h>\r
  37 #include <util/delay.h>\r
  38 #include <avr/wdt.h>\r
  39 #include <avr/sleep.h>\r
  40 #include <avr/pgmspace.h>\r
  41 #include "../common/I2C/TWI_Master.h"\r
  42 #include "../common/owSlave_tools.h"\r
  43 #include "../common/I2C/SHT3x.h"\r
  44 #include "../common/calibr.h"\r
  45 \r
  46 \r
  47 #include <math.h>\r
  48 \r
  49 extern void OWINIT();\r
  50 extern void EXTERN_SLEEP();\r
  51 extern uint8_t stat_to_sample;\r
  52 \r
  53 uint8_t owid[8]={0x29, 0xA2, 0xD9, 0x84, 0x00, 0x16, 0x01, 0x73};/**/\r
  54 uint8_t config_info[26]={0x06,0x09,0x06,0x09,0x06,0x09,0x06,0x09,0x02,20,20,20,20,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};\r
  55 \r
  56 OWST_EXTERN_VARS\r
  57 \r
  58 OWST_WDT_ISR\r
  59 \r
  60 typedef union {\r
  61         volatile uint8_t bytes[0x20];\r
  62         struct {\r
  63                 uint8_t PIO_Logic_State;     //         0088h\r
  64                 uint8_t PIO_Output_Latch_State;\r
  65                 uint8_t PIO_Activity_Latch_State;\r
  66                 uint8_t Conditional_Search_Channel_Selection_Mask;\r
  67                 uint8_t Conditional_Search_Channel_Polarity_Selection;\r
  68                 uint8_t Status; //008D\r
  69                 uint8_t FF1;\r
  70                 uint8_t FF2;\r
  71                 \r
  72         };\r
  73 } pack_t;\r
  74 volatile pack_t pack;\r
  75 \r
  76 uint8_t values[10];\r
  77 uint8_t ap=1;\r
  78 \r
  79 uint8_t crc8() {\r
  80         uint8_t lscrc=0x0;\r
  81         for(uint8_t i=0;i<5;i++) {\r
  82                 uint8_t v=values[i];\r
  83                 //if (v==0) v=0xFF;\r
  84                 uint8_t bit=1;\r
  85                 uint8_t lb;\r
  86                 for(uint8_t j=0;j<8;j++) {\r
  87                         if ((v&bit)==bit) lb=1; else lb=0;\r
  88                         if ((lscrc&1)!=lb)      lscrc=(lscrc>>1)^0x8c; else     lscrc=(lscrc>>1);\r
  89                         bit=bit*2;\r
  90                 \r
  91                 \r
  92                 }\r
  93         }\r
  94         return lscrc;\r
  95 }\r
  96 \r
  97 //Umstellung\r
  98 \r
  99 //rh=(T-25)*(0,01+0,00008*x)-2,0468+0,0367*x-0,0000015955*x*x\r
 100 //d1 for 3V\r
 101 #define d1 -39.7  \r
 102 #define d2 0.01\r
 103 inline uint16_t calcSHT75_T(double real_t) {\r
 104         return (real_t-d1)/d2;\r
 105 }\r
 106 \r
 107 inline uint16_t calcSHT75RH_lin(double real_RHlin) {\r
 108         return 11501.1-0.280297*sqrt(1667284153.0-7977500.0*real_RHlin);\r
 109 }\r
 110 \r
 111 inline double calcSHT75H_tcorr(double real_t,double real_RHtrue) {\r
 112         return real_RHtrue-(real_t-25)*(0.01+0.00008*calcSHT75RH_lin(real_RHtrue));\r
 113 \r
 114 }\r
 115 \r
 116 \r
 117 double T=20.0;\r
 118 double RH=60;\r
 119 \r
 120 int main(void){\r
 121         OWST_INIT_USI_ON;\r
 122         pack.FF1=0xFF;\r
 123         pack.FF2=0xFF;\r
 124          //0x0E 0x19 0x48 0x00\r
 125          if (RH<8) RH=8;\r
 126          uint16_t lt=calcSHT75_T(T);\r
 127                 double lfc=calcSHT75H_tcorr(T,RH);\r
 128          uint16_t lf=calcSHT75RH_lin(lfc);\r
 129         values[0]=0x00;\r
 130         values[1]=lt&0xFF; if (values[1]==0) values[1]=1;\r
 131         values[2]=lt>>8; if (values[2]==0) values[2]=1;\r
 132         values[3]=lf&0xFF; if (values[3]==0) values[3]=1;\r
 133         values[4]=lf>>8; if (values[4]==0) values[4]=1;\r
 134         values[5]=0x5D; \r
 135                 values[1]=8;\r
 136                 values[2]=26;\r
 137                 values[3]=0;\r
 138                 values[4]=5;\r
 139                 values[5]=0x5D;\r
 140         values[6]=0x00;\r
 141         values[7]=0x00;\r
 142         values[5]=crc8();       \r
 143         OWINIT();\r
 144 \r
 145         TWI_Master_Initialise();\r
 146         initSHT3x(0);\r
 147         _delay_ms(100);\r
 148 \r
 149 \r
 150         getSHT3xHumTemp(0,&T,&RH);\r
 151         OWST_WDR_CONFIG8;\r
 152         sei();\r
 153         stat_to_sample=0x55;\r
 154         while (1) {\r
 155                 //stat_to_sample=0;\r
 156                 if (reset_indicator) {\r
 157                 //      ap=0;\r
 158                 //      stat_to_sample=0;\r
 159                 //      reset_indicator=0;\r
 160                 }\r
 161                 if (wdcounter>3) {\r
 162                         \r
 163                         wdcounter=0;\r
 164                         RH=RH+0.2;\r
 165                         getSHT3xHumTemp(0,&T,&RH);\r
 166                         lt=calcSHT75_T(T);\r
 167                         lfc=calcSHT75H_tcorr(T,RH);\r
 168                         lf=calcSHT75RH_lin(lfc);\r
 169                 values[0]=0x00;\r
 170                 values[1]=lt&0xFF; if (values[1]==0) values[1]=1;\r
 171                 values[2]=lt>>8; if (values[2]==0) values[2]=1;\r
 172                 values[3]=lf&0xFF; if (values[3]==0) values[3]=1;\r
 173                 values[4]=lf>>8; if (values[4]==0) values[4]=1;\r
 174                 values[1]=8;\r
 175                 values[2]=26;\r
 176                 values[3]=0;\r
 177                 values[4]=5;\r
 178                 values[5]=0x5D;\r
 179                  values[5]=crc8();\r
 180                 }\r
 181                 pack.Status|=0x80;\r
 182                 if (gcontrol&1) {\r
 183                         uint8_t bb=1;\r
 184                         for(uint8_t i=0;i<8;i++) {\r
 185                                 if ((pack.PIO_Logic_State&bb)!=(pack.PIO_Output_Latch_State&bb)) pack.PIO_Activity_Latch_State|=bb;\r
 186                                 bb=bb*2;\r
 187                         }\r
 188             pack.PIO_Logic_State=pack.PIO_Output_Latch_State;\r
 189                         gcontrol&=~0x01;\r
 190                 }\r
 191                 if (gcontrol&2) {\r
 192                         pack.PIO_Activity_Latch_State=0;\r
 193             gcontrol&=~0x02;\r
 194                 }\r
 195                 if (gcontrol&4) {\r
 196                         stat_to_sample=values[ap];\r
 197                         ap++;           \r
 198                         if (ap>5) {\r
 199                                         ap=0;\r
 200                         }\r
 201                         gcontrol&=~0x04;\r
 202                 }               \r
 203                 if (gcontrol&8) {\r
 204                         ap=1;\r
 205                         stat_to_sample=values[ap];\r
 206                         ap++;\r
 207                         //if (ap>5) ap=1;\r
 208                         gcontrol&=~0x08;\r
 209                 } \r
 210 \r
 211                 OWST_MAIN_END\r
 212         }\r
 213 \r
 214 \r
 215 \r
 216 }\r