o: ActiveSupport::Cache::Entry :@compressedF: @value"t–"n–
main.c
1
#define VERSION "0.1"
2
#define ID "$Id: main.c 2916 2013-04-14 17:42:03Z kaklik $"
3

  
1 4
#include "main.h"
2
#use i2c(Slave,Fast,sda=PIN_C4,scl=PIN_C3,force_hw,address=0xA2) // Motor 2
5
#use i2c(SLAVE,Fast,sda=PIN_C4,scl=PIN_C3,force_hw,address=0xA2) // Motor 2
3 6

  
4
#define H1 PIN_A1
5
#define L1 PIN_A2
6
#define H2 PIN_A3
7
#define L2 PIN_A4
7
#include <time.h>       //standard C time library
8
#include <rtctimer.c>   //library for time.h that uses timer2 as time base
8 9

  
9
signed int8 command;  // rozsah +-127
10
#include <stdlib.h>
11
#include <input.c>      //needed for the rs232 input routines
10 12

  
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

  
11 33
#INT_SSP
12 34
void ssp_interupt ()
13 35
{
14
   BYTE incoming, state;
36
BYTE incoming, state;
15 37

  
16
   output_a(0);         // vypnuti vsech budicu
17

  
18 38
   state = i2c_isr_state();
19

  
20 39
   if(state < 0x80)                     //Master is sending data
21 40
   {
22
      command = i2c_read();
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;
23 53
   }
24

  
25 54
   if(state == 0x80)                     //Master is requesting data
26 55
   {
27
      i2c_write(command);
56
      if(address <= buf_len) i2c_write(buffer[address]);
57
      else i2c_write(ID[address - buf_len]);
28 58
   }
29 59
}
30 60

  
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
31 66

  
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

  
32 122
void main()
33 123
{
34
   int8 speed;
35 124

  
125
   char tString[32];
126
   unsigned int32 t;
127
   time_t tTime = 0;
128

  
129

  
36 130
   setup_adc_ports(NO_ANALOGS|VSS_VDD);
131
//   setup_adc(ADC_CLOCK_DIV_2);
37 132
   setup_adc(ADC_OFF);
38
   setup_timer_0(RTCC_INTERNAL);setup_wdt(WDT_144MS);
39
   setup_timer_1(T1_DISABLED);
40
   setup_timer_2(T2_DISABLED,0,1);
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);
41 138
   setup_comparator(NC_NC_NC_NC);
42 139
   setup_vref(FALSE);
43
   setup_oscillator(OSC_8MHZ|OSC_INTRC);
140
//   setup_oscillator(OSC_8MHZ|OSC_INTRC);
44 141

  
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);
45 170
   enable_interrupts(GLOBAL);
46
   enable_interrupts(INT_SSP);
47 171

  
48
   command=-128;  // zastaveni po resetu
49 172

  
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

  
50 188
   while(true)
51 189
   {
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 */
52 198

  
53
      if (command==-128) // prikaz na odpojeni mustku nebo chybna hodnota
54
      {
55
         output_a(0);   // volnobeh
56
         continue;
57
      };
199
      ctime(&tTime, tString);
58 200

  
59
      speed=command+127;   // posunuti 0 pro zaporna cisla
201
      
202
      /* Print the time to RS-232 */
203
      printf("Time: %s\n\r",  tString);   
60 204

  
61
      output_a(0b10010);   // vpred
62
      delay_us(speed);
63
      output_a(0);         // vypnuti vsech budicu
64
      delay_us(1);
65
      restart_wdt();
66
      output_a(0b01100);   // vzad
67
      delay_us(254-speed);
68
      output_a(0);         // vypnuti vsech budicu
69
      delay_us(1);
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

  
70 210
   }
71 211
}
72 212

  
:@created_atf1420108458.3698511«¤:@expires_in0