| 1,72 → 1,212 |
|---|
| #define VERSION "0.1" |
| #define ID "$Id: main.c 2916 2013-04-14 17:42:03Z kaklik $" |
| |
| #include "main.h" |
| #use i2c(Slave,Fast,sda=PIN_C4,scl=PIN_C3,force_hw,address=0xA2) // Motor 2 |
| #use i2c(SLAVE,Fast,sda=PIN_C4,scl=PIN_C3,force_hw,address=0xA2) // Motor 2 |
| |
| #define H1 PIN_A1 |
| #define L1 PIN_A2 |
| #define H2 PIN_A3 |
| #define L2 PIN_A4 |
| #include <time.h> //standard C time library |
| #include <rtctimer.c> //library for time.h that uses timer2 as time base |
| |
| signed int8 command; // rozsah +-127 |
| #include <stdlib.h> |
| #include <input.c> //needed for the rs232 input routines |
| |
| |
| int16 count=0xA5A5; |
| const int8 buf_len=8; |
| |
| int8 buffer[buf_len]; // I2C buffer |
| |
| int8 address=0; |
| |
| #include "..\common\dbloader.h" |
| |
| unsigned int16 timer0_overflow_count; |
| float anemo=0; |
| unsigned int8 rain; |
| |
| //we are using the rtctimer.c library, in which a counter is incremented |
| //every time the timer2 interrupt occurs (timer2 overflow). the time math |
| //needs to know what rate the timer2 interrupt occurs. this definition |
| //must match the rate the timer2 is configured for. |
| #define CLOCKS_PER_SECOND 1000 |
| |
| #INT_SSP |
| void ssp_interupt () |
| { |
| BYTE incoming, state; |
| BYTE incoming, state; |
| |
| output_a(0); // vypnuti vsech budicu |
| |
| state = i2c_isr_state(); |
| |
| if(state < 0x80) //Master is sending data |
| { |
| command = i2c_read(); |
| incoming = i2c_read(); |
| if(state == 1) //First received byte is address |
| { |
| address = incoming; |
| if (incoming == 2) |
| { |
| buffer[0]=make8(count,0); |
| buffer[1]=make8(count,1); |
| } |
| } |
| if(state == 2) //Second received byte is data |
| buffer[address] = incoming; |
| } |
| |
| if(state == 0x80) //Master is requesting data |
| { |
| i2c_write(command); |
| if(address <= buf_len) i2c_write(buffer[address]); |
| else i2c_write(ID[address - buf_len]); |
| } |
| } |
| |
| #int_TIMER1 |
| void TIMER1_isr(void) |
| { |
| // 32.768 kHz krystal pro timer1 oscilátor |
| anemo = ((timer0_overflow_count * 0xFF) + get_timer0())/(0xFFFF/32768.0); // pocet pulzu za 1s |
| |
| timer0_overflow_count=0; //nulovani |
| set_timer0(0); |
| set_timer1(0); |
| output_toggle(PIN_E0); |
| } |
| |
| #int_TIMER0 //pro preteceni \u010díta\u010de p\u016flz\u016f od anemometru (RA4) |
| void TIMER0_isr(void) |
| { |
| timer0_overflow_count++; |
| } |
| |
| #INT_EXT |
| void EXT_isr() //interrup from rain sensor clip. |
| { |
| rain++; |
| // if (input(PIN_B0)) ext_int_edge( H_TO_L ); osetreni pro pripad, ze by bylo treba cist obe hrany impulzu |
| // if (!input(PIN_B0)) ext_int_edge( L_TO_H ); |
| } |
| |
| |
| void welcome(void) // uvodni zprava |
| { |
| printf("\r\n\r\n# Meteorologicka stanice %s (C) 2013 www.mlab.cz \r\n",VERSION); |
| printf("\r\n %s \r\n",ID);// Welcome message |
| printf("# ver poradi "); |
| printf("check\r\n\r\n"); |
| } |
| |
| void InitTime(void) |
| { |
| struct_tm t; |
| |
| //tm_year is years since 1900. |
| printf("\r\nYear (0-99): "); |
| t.tm_year = (int16)get_int() + (int16)100; //add 100 to put is into 2000 |
| |
| printf("\r\nMonth (1-12): "); |
| t.tm_mon = get_int() - 1; |
| |
| printf("\r\nDay (1-31): "); |
| t.tm_mday = get_int() - 1; |
| |
| printf("\r\nHour (0-23): "); |
| t.tm_hour = get_int(); |
| |
| printf("\r\nMinute (0-59): "); |
| t.tm_min = get_int(); |
| |
| SetTime(&t); |
| |
| printf("\r\n\n"); |
| } |
| |
| |
| void main() |
| { |
| int8 speed; |
| |
| char tString[32]; |
| unsigned int32 t; |
| time_t tTime = 0; |
| |
| |
| setup_adc_ports(NO_ANALOGS|VSS_VDD); |
| // setup_adc(ADC_CLOCK_DIV_2); |
| setup_adc(ADC_OFF); |
| setup_timer_0(RTCC_INTERNAL);setup_wdt(WDT_144MS); |
| setup_timer_1(T1_DISABLED); |
| setup_timer_2(T2_DISABLED,0,1); |
| // setup_spi(SPI_SS_DISABLED); //must not be set if I2C are in use! |
| setup_timer_0(RTCC_EXT_L_TO_H|RTCC_DIV_1); |
| // setup_timer_0(RTCC_INTERNAL);setup_wdt(WDT_144MS); |
| setup_timer_1(T1_EXTERNAL|T1_DIV_BY_1|T1_CLK_OUT); |
| // setup_timer_2(T2_DISABLED,0,1); |
| setup_comparator(NC_NC_NC_NC); |
| setup_vref(FALSE); |
| setup_oscillator(OSC_8MHZ|OSC_INTRC); |
| // setup_oscillator(OSC_8MHZ|OSC_INTRC); |
| |
| |
| InitTime(); |
| |
| /* Setup timer 2 |
| * On a 4 Mhz clock, this will trigger a timer2 interrupt every 1.0 ms |
| * For time.h to work properly, Timer2 must overflow every millisecond |
| * OverflowTime = 4 * (1/OscFrequency) * Prescale * Period * Postscale |
| * For 4 Mhz: .001 seconds = 4 * (1/4000000 seconds) * 4 * 250 * 1 |
| */ |
| #if getenv("CLOCK")==4000000) |
| setup_timer_2(T2_DIV_BY_1,250,4); |
| #elif getenv("CLOCK")==20000000) |
| setup_timer_2(T2_DIV_BY_4,250,5); |
| #else |
| #error Configure TIMER2 so it interrupts at a rate defined by CLOCKS_PER_SECOND |
| #endif |
| |
| /* Enable the timer 2 interrupt, or it will not fire */ |
| enable_interrupts(INT_TIMER2); |
| /* Enable interrupts globally too, otherwise no interrupt will fire */ |
| |
| |
| |
| enable_interrupts(INT_SSP); |
| // enable_interrupts(INT_TIMER2); |
| enable_interrupts(INT_TIMER1); |
| enable_interrupts(INT_TIMER0); |
| enable_interrupts(INT_EXT); |
| enable_interrupts(GLOBAL); |
| enable_interrupts(INT_SSP); |
| |
| command=-128; // zastaveni po resetu |
| |
| set_timer0(0); |
| set_timer1(0); |
| timer0_overflow_count=0; |
| rain=0; |
| |
| buffer[2]=0; |
| buffer[3]=0; |
| buffer[4]=0; |
| buffer[5]=0; |
| |
| |
| welcome(); |
| |
| set_timer1(0); |
| |
| while(true) |
| { |
| |
| set_timer1(0); |
| delay_ms(999); |
| delay_us(966); |
| // count=get_timer1(); |
| // Get the time |
| tTime = time(NULL); |
| // Get the string representation of the time */ |
| |
| if (command==-128) // prikaz na odpojeni mustku nebo chybna hodnota |
| { |
| output_a(0); // volnobeh |
| continue; |
| }; |
| ctime(&tTime, tString); |
| |
| speed=command+127; // posunuti 0 pro zaporna cisla |
| |
| /* Print the time to RS-232 */ |
| printf("Time: %s\n\r", tString); |
| |
| output_a(0b10010); // vpred |
| delay_us(speed); |
| output_a(0); // vypnuti vsech budicu |
| delay_us(1); |
| restart_wdt(); |
| output_a(0b01100); // vzad |
| delay_us(254-speed); |
| output_a(0); // vypnuti vsech budicu |
| delay_us(1); |
| printf("count: %Lu %X %X %X %X\r\n",count, buffer[0],buffer[1],buffer[2],buffer[3]); |
| printf("%6.1f %u \n\r", anemo, rain); |
| |
| delay_ms(1000); |
| |
| } |
| } |
| |