Rev Author Line No. Line
919 kakl 1 /**** IR Mrakomer3 ****/
985 kakl 2 #define VERSION "3.1"
919 kakl 3 #define ID "$Id: irmrak3.c 1138 2008-05-19 14:50:14Z kakl $"
4 #include "irmrak3.h"
5  
6 #define SA 0x00 // Slave Address (0 for single slave / 0x5A<<1 default)
7 #define RAM_Access 0x00 // RAM access command
8 #define RAM_Tobj1 0x07 // To1 address in the eeprom
9 #define RAM_Tamb 0x06 // Ta address in the eeprom
10 #define HEATING PIN_A2 // Heating for defrosting
11 #define MAXHEAT 60 // Number of cycles for heating
12  
931 kakl 13 char VER[4]=VERSION;
14 char REV[50]=ID;
919 kakl 15  
931 kakl 16 int8 heat;
985 kakl 17 int1 flag;
931 kakl 18  
19 #INT_RDA
20 rs232_handler()
21 {
22 char ch;
23  
24 if (getc()=='h')
25 {
26 heat=0; // Need warmer
27 }
28 else
29 {
30 heat=MAXHEAT; // Stop heating
985 kakl 31 };
32  
33 flag=TRUE;
931 kakl 34 }
35  
36  
919 kakl 37 unsigned char PEC_calculation(unsigned char pec[]) // CRC calculation
38 {
39 unsigned char crc[6];
40 unsigned char BitPosition=47;
41 unsigned char shift;
42 unsigned char i;
43 unsigned char j;
44 unsigned char temp;
45  
46 do
47 {
48 crc[5]=0; /* Load CRC value 0x000000000107 */
49 crc[4]=0;
50 crc[3]=0;
51 crc[2]=0;
52 crc[1]=0x01;
53 crc[0]=0x07;
54 BitPosition=47; /* Set maximum bit position at 47 */
55 shift=0;
56  
57 //Find first 1 in the transmited message
58 i=5; /* Set highest index */
59 j=0;
60 while((pec[i]&(0x80>>j))==0 && i>0)
61 {
62 BitPosition--;
63 if(j<7)
64 {
65 j++;
66 }
67 else
68 {
69 j=0x00;
70 i--;
71 }
72 }/*End of while */
73  
74 shift=BitPosition-8; /*Get shift value for crc value*/
75  
76  
77 //Shift crc value
78 while(shift)
79 {
80 for(i=5; i<0xFF; i--)
81 {
82 if((crc[i-1]&0x80) && (i>0))
83 {
84 temp=1;
85 }
86 else
87 {
88 temp=0;
89 }
90 crc[i]<<=1;
91 crc[i]+=temp;
92 }/*End of for*/
93 shift--;
94 }/*End of while*/
95  
96 //Exclusive OR between pec and crc
97 for(i=0; i<=5; i++)
98 {
99 pec[i] ^=crc[i];
100 }/*End of for*/
101 } while(BitPosition>8);/*End of do-while*/
102  
103 return pec[0];
104 }/*End of PEC_calculation*/
105  
106  
107 int16 ReadTemp(int8 addr, int8 select) // Read sensor RAM
108 {
109 unsigned char arr[6]; // Buffer for the sent bytes
110 int8 crc; // Readed CRC
111 int16 temp; // Readed temperature
112  
931 kakl 113 disable_interrupts(GLOBAL);
919 kakl 114 i2c_stop();
115 i2c_start();
116 i2c_write(addr);
117 i2c_write(RAM_Access|select); // Select the teperature sensor in device
118 i2c_start();
119 i2c_write(addr);
120 arr[2]=i2c_read(1); // lo
121 arr[1]=i2c_read(1); // hi
122 temp=MAKE16(arr[1],arr[2]);
123 crc=i2c_read(0); //crc
124 i2c_stop();
931 kakl 125 enable_interrupts(GLOBAL);
919 kakl 126  
127 arr[5]=addr;
128 arr[4]=RAM_Access|select;
129 arr[3]=addr;
130 arr[0]=0;
131 if (crc != PEC_calculation(arr)) temp=0; // Calculate and check CRC
132  
133 return temp;
134 }
135  
136 void main()
137 {
138 unsigned int16 n, temp, tempa;
139 signed int16 ta, to;
140  
141 output_low(HEATING); // Heating off
142 setup_wdt(WDT_2304MS); // Setup Watch Dog
143 setup_adc_ports(NO_ANALOGS);
144 setup_adc(ADC_OFF);
145 setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
146 setup_timer_1(T1_DISABLED);
147 setup_timer_2(T2_DISABLED,0,1);
148 setup_comparator(NC_NC_NC_NC);
149 setup_vref(FALSE);
1138 kakl 150 // setup_oscillator(OSC_4MHZ|OSC_INTRC,+2); // Pokud je nutna kalibrace RCosc
151 setup_oscillator(OSC_4MHZ|OSC_INTRC);
919 kakl 152  
153 delay_ms(1000);
154 printf("\n\r* Mrakomer %s (C) 2007 KAKL *\n\r",VER); // Welcome message
985 kakl 155 printf("* %s *\n\r",REV);
156 printf("<#seq.> <ambient temp.> <space temp.> <status>\n\r\n\r");
919 kakl 157 tempa=ReadTemp(SA, RAM_Tamb); // Dummy read
158 temp=ReadTemp(SA, RAM_Tobj1);
159  
160 n=0;
931 kakl 161 heat=MAXHEAT;
985 kakl 162 flag=FALSE;
163  
931 kakl 164 enable_interrupts(GLOBAL);
165 enable_interrupts(INT_RDA);
919 kakl 166  
167 while(TRUE)
168 {
169  
985 kakl 170 if (flag)
919 kakl 171 {
985 kakl 172 n++; // Increment the number of measurement
919 kakl 173  
985 kakl 174 tempa=ReadTemp(SA, RAM_Tamb); // Read temperatures from sensor
175 temp=ReadTemp(SA, RAM_Tobj1);
176  
177 to=(signed int16)(temp*2-27315);
178 ta=(signed int16)(tempa*2-27315);
179  
180 printf("%Lu %.1g %.1g ",n,(float)ta/100,(float)to/100);
181  
182 if((0==tempa)||(0==temp)) // Transfer error?
919 kakl 183 {
985 kakl 184 printf("-1\n\r");
185 heat=MAXHEAT;
919 kakl 186 }
187 else
188 {
985 kakl 189 if (heat>=MAXHEAT) // Active heating?
190 {
191 printf("0\n\r");
192 }
193 else
194 {
195 printf("1\n\r");
196 }
919 kakl 197 }
985 kakl 198  
199 flag=FALSE;
919 kakl 200 };
985 kakl 201  
202 if (heat>=MAXHEAT) // Continue heating?
203 {
204 output_low(HEATING);
205 }
206 else
207 {
208 output_high(HEATING);
209 heat++;
210 }
919 kakl 211 restart_wdt();
985 kakl 212 delay_ms(1000);
919 kakl 213 }
214 }
215