Rev Author Line No. Line
3458 kaklik 1 #define VERSION "0.1"
2 #define ID "$Id: main.c 2916 2013-04-14 17:42:03Z kaklik $"
3  
3379 kaklik 4 #include "main.h"
3458 kaklik 5 #use i2c(SLAVE,Fast,sda=PIN_C4,scl=PIN_C3,force_hw,address=0xA2) // Motor 2
3379 kaklik 6  
3458 kaklik 7 #include <time.h> //standard C time library
8 #include <rtctimer.c> //library for time.h that uses timer2 as time base
3379 kaklik 9  
3458 kaklik 10 #include <stdlib.h>
11 #include <input.c> //needed for the rs232 input routines
3379 kaklik 12  
3458 kaklik 13  
14 int16 count=0xA5A5;
15 const int8 buf_len=8;
16  
17 int8 buffer[buf_len]; // I2C buffer
18  
19 int8 address=0;
20  
21 #include "..\common\dbloader.h"
22  
23 unsigned int16 timer0_overflow_count;
24 float anemo=0;
25 unsigned int8 rain;
26  
27 //we are using the rtctimer.c library, in which a counter is incremented
28 //every time the timer2 interrupt occurs (timer2 overflow). the time math
29 //needs to know what rate the timer2 interrupt occurs. this definition
30 //must match the rate the timer2 is configured for.
31 #define CLOCKS_PER_SECOND 1000
32  
3379 kaklik 33 #INT_SSP
34 void ssp_interupt ()
35 {
3458 kaklik 36 BYTE incoming, state;
3379 kaklik 37  
3380 kaklik 38 state = i2c_isr_state();
39 if(state < 0x80) //Master is sending data
40 {
3458 kaklik 41 incoming = i2c_read();
42 if(state == 1) //First received byte is address
43 {
44 address = incoming;
45 if (incoming == 2)
46 {
47 buffer[0]=make8(count,0);
48 buffer[1]=make8(count,1);
49 }
50 }
51 if(state == 2) //Second received byte is data
52 buffer[address] = incoming;
3380 kaklik 53 }
54 if(state == 0x80) //Master is requesting data
55 {
3458 kaklik 56 if(address <= buf_len) i2c_write(buffer[address]);
57 else i2c_write(ID[address - buf_len]);
3380 kaklik 58 }
3379 kaklik 59 }
60  
3458 kaklik 61 #int_TIMER1
62 void TIMER1_isr(void)
63 {
64 // 32.768 kHz krystal pro timer1 oscilátor
65 anemo = ((timer0_overflow_count * 0xFF) + get_timer0())/(0xFFFF/32768.0); // pocet pulzu za 1s
3379 kaklik 66  
3458 kaklik 67 timer0_overflow_count=0; //nulovani
68 set_timer0(0);
69 set_timer1(0);
70 output_toggle(PIN_E0);
71 }
72  
73 #int_TIMER0 //pro preteceni \u010díta\u010de p\u016flz\u016f od anemometru (RA4)
74 void TIMER0_isr(void)
75 {
76 timer0_overflow_count++;
77 }
78  
79 #INT_EXT
80 void EXT_isr() //interrup from rain sensor clip.
81 {
82 rain++;
83 // if (input(PIN_B0)) ext_int_edge( H_TO_L ); osetreni pro pripad, ze by bylo treba cist obe hrany impulzu
84 // if (!input(PIN_B0)) ext_int_edge( L_TO_H );
85 }
86  
87  
88 void welcome(void) // uvodni zprava
89 {
90 printf("\r\n\r\n# Meteorologicka stanice %s (C) 2013 www.mlab.cz \r\n",VERSION);
91 printf("\r\n %s \r\n",ID);// Welcome message
92 printf("# ver poradi ");
93 printf("check\r\n\r\n");
94 }
95  
96 void InitTime(void)
97 {
98 struct_tm t;
99  
100 //tm_year is years since 1900.
101 printf("\r\nYear (0-99): ");
102 t.tm_year = (int16)get_int() + (int16)100; //add 100 to put is into 2000
103  
104 printf("\r\nMonth (1-12): ");
105 t.tm_mon = get_int() - 1;
106  
107 printf("\r\nDay (1-31): ");
108 t.tm_mday = get_int() - 1;
109  
110 printf("\r\nHour (0-23): ");
111 t.tm_hour = get_int();
112  
113 printf("\r\nMinute (0-59): ");
114 t.tm_min = get_int();
115  
116 SetTime(&t);
117  
118 printf("\r\n\n");
119 }
120  
121  
3379 kaklik 122 void main()
123 {
124  
3458 kaklik 125 char tString[32];
126 unsigned int32 t;
127 time_t tTime = 0;
128  
129  
3379 kaklik 130 setup_adc_ports(NO_ANALOGS|VSS_VDD);
3458 kaklik 131 // setup_adc(ADC_CLOCK_DIV_2);
3379 kaklik 132 setup_adc(ADC_OFF);
3458 kaklik 133 // setup_spi(SPI_SS_DISABLED); //must not be set if I2C are in use!
134 setup_timer_0(RTCC_EXT_L_TO_H|RTCC_DIV_1);
135 // setup_timer_0(RTCC_INTERNAL);setup_wdt(WDT_144MS);
136 setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1|T1_CLK_OUT);
137 // setup_timer_2(T2_DISABLED,0,1);
3379 kaklik 138 setup_comparator(NC_NC_NC_NC);
139 setup_vref(FALSE);
3458 kaklik 140 // setup_oscillator(OSC_8MHZ|OSC_INTRC);
3379 kaklik 141  
3458 kaklik 142  
143 InitTime();
144  
145 /* Setup timer 2
146 * On a 4 Mhz clock, this will trigger a timer2 interrupt every 1.0 ms
147 * For time.h to work properly, Timer2 must overflow every millisecond
148 * OverflowTime = 4 * (1/OscFrequency) * Prescale * Period * Postscale
149 * For 4 Mhz: .001 seconds = 4 * (1/4000000 seconds) * 4 * 250 * 1
150 */
151 #if getenv("CLOCK")==4000000)
152 setup_timer_2(T2_DIV_BY_1,250,4);
153 #elif getenv("CLOCK")==20000000)
154 setup_timer_2(T2_DIV_BY_4,250,5);
155 #else
156 #error Configure TIMER2 so it interrupts at a rate defined by CLOCKS_PER_SECOND
157 #endif
158  
159 /* Enable the timer 2 interrupt, or it will not fire */
160 enable_interrupts(INT_TIMER2);
161 /* Enable interrupts globally too, otherwise no interrupt will fire */
162  
163  
164  
165 enable_interrupts(INT_SSP);
166 // enable_interrupts(INT_TIMER2);
167 enable_interrupts(INT_TIMER1);
168 enable_interrupts(INT_TIMER0);
169 enable_interrupts(INT_EXT);
3379 kaklik 170 enable_interrupts(GLOBAL);
171  
172  
3458 kaklik 173 set_timer0(0);
174 set_timer1(0);
175 timer0_overflow_count=0;
176 rain=0;
177  
178 buffer[2]=0;
179 buffer[3]=0;
180 buffer[4]=0;
181 buffer[5]=0;
182  
183  
184 welcome();
185  
186 set_timer1(0);
187  
3379 kaklik 188 while(true)
189 {
3458 kaklik 190  
191 set_timer1(0);
192 delay_ms(999);
193 delay_us(966);
194 // count=get_timer1();
195 // Get the time
196 tTime = time(NULL);
197 // Get the string representation of the time */
3379 kaklik 198  
3458 kaklik 199 ctime(&tTime, tString);
3379 kaklik 200  
3458 kaklik 201  
202 /* Print the time to RS-232 */
203 printf("Time: %s\n\r", tString);
3379 kaklik 204  
3458 kaklik 205 printf("count: %Lu %X %X %X %X\r\n",count, buffer[0],buffer[1],buffer[2],buffer[3]);
206 printf("%6.1f %u \n\r", anemo, rain);
207  
208 delay_ms(1000);
209  
3379 kaklik 210 }
211 }
212  
213  
214