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  
3462 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  
3462 kaklik 10 //#include <stdlib.h>
11 //#include <input.c> //needed for the rs232 input routines
3379 kaklik 12  
3458 kaklik 13 const int8 buf_len=8;
14  
15 int8 buffer[buf_len]; // I2C buffer
16  
17 int8 address=0;
18  
19 #include "..\common\dbloader.h"
20  
21 unsigned int16 timer0_overflow_count;
3463 kaklik 22 unsigned int16 anemo=0;
23 unsigned int16 rain=0;
3458 kaklik 24  
25 //we are using the rtctimer.c library, in which a counter is incremented
26 //every time the timer2 interrupt occurs (timer2 overflow). the time math
27 //needs to know what rate the timer2 interrupt occurs. this definition
28 //must match the rate the timer2 is configured for.
29 #define CLOCKS_PER_SECOND 1000
30  
3379 kaklik 31 #INT_SSP
32 void ssp_interupt ()
33 {
3458 kaklik 34 BYTE incoming, state;
3379 kaklik 35  
3380 kaklik 36 state = i2c_isr_state();
37 if(state < 0x80) //Master is sending data
38 {
3458 kaklik 39 incoming = i2c_read();
40 if(state == 1) //First received byte is address
41 {
42 address = incoming;
43 if (incoming == 2)
44 {
3463 kaklik 45 buffer[0]=make8(anemo,0);
46 buffer[1]=make8(anemo,1);
47 buffer[2]=make8(rain,0);
48 buffer[3]=make8(rain,1);
3458 kaklik 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
3463 kaklik 65 anemo = ((timer0_overflow_count * 0xFF) + get_timer0()); // 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  
3462 kaklik 73 #int_TIMER0 //osetruje preteceni citace od anemometru (RA4)
3458 kaklik 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  
3462 kaklik 96 /*void InitTime(void)
3458 kaklik 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 }
3462 kaklik 120 */
3458 kaklik 121  
3379 kaklik 122 void main()
123 {
124  
3462 kaklik 125 // char tString[32];
126 // unsigned int32 t;
127 // time_t tTime = 0;
3458 kaklik 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  
3462 kaklik 143 // InitTime();
3458 kaklik 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 */
3462 kaklik 151 /* #if getenv("CLOCK")==4000000)
3458 kaklik 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 */
3462 kaklik 160 // enable_interrupts(INT_TIMER2);
3458 kaklik 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  
177 buffer[2]=0;
178 buffer[3]=0;
179 buffer[4]=0;
180 buffer[5]=0;
181  
182 welcome();
183  
3379 kaklik 184 while(true)
3462 kaklik 185 {
186 printf("count: %X %X %X %X\r\n", buffer[0],buffer[1],buffer[2],buffer[3]);
3463 kaklik 187 printf("%Lu %Lu \n\r", anemo, rain);
3458 kaklik 188  
189 delay_ms(1000);
190  
3379 kaklik 191 }
192 }
193  
194  
195