в модем
241 1 COMPILER V9.50a STARTUP 12/27/2012 1:05:46 PAGE 5
1 WDTPRG = 7;// 2.09 секунд при 12 MHz watch dogs timer
1
1//////// АЦП
1 while (1)
1 {P1 = 0xF0;// DCLK = 0; DIN = 0; CS = 0; BUSY = 0; DOUT = 1;
2 KOD_ADC [x] = 0;
2
2 DIN = 1;// start
2 DCLK = 1;
2 DCLK = 0;//
2 DIN = A2;// A2
253 2 DCLK = 1;
2 DCLK = 0;
2 DIN = A1;// A1
2 DCLK = 1;
2 DCLK = 0;
2 DIN = A0;// A0
2 DCLK = 1;
2 DCLK = 0;
2 DIN = 0;// MODE
2 DCLK = 1;
2 DCLK = 0;
2 DIN = 1;// SGL см TABLE1
2 DCLK = 1;
2 DCLK = 0;
2 DIN = 1;// PD1 см TABLE5
2 DCLK = 1;
2 DCLK = 0;
2 DIN = 1;// PD0
2 DCLK = 1;
2 DCLK = 0;
2 DIN = 0;
2 BUSY = 1;
2 DCLK = 1;
2 DCLK = 0;
2 BUSY = 0;
2
2 while (B> 0)
2 {KOD_ADC [x] = KOD_ADC [x] <<1;
3 KOD_ADC [x] | = DOUT;
282 3 DCLK = 1;
3 DCLK = 0;
3 B -;
3}
2 B = 12;
2 DCLK = 1;
2 DCLK = 0;
2 DCLK = 1;
2 DCLK = 0;
2 DCLK = 1;
2 DCLK = 0;
2
2 CS = 1;
2 BUSY = 1;
2 DOUT = 1;
2
2 U [x] = Razreshenie_ADC * KOD_ADC [x];// напруга на датчику
2
2 if (x == 0) {
3 I [x] = (U [x] -2.5) * 15;// ACS712ELCTR-30A-T для 5В
3}
2 else {COMPILER V9.50a STARTUP 12/27/2012 1:05:46 PAGE 6
3 I [x] = (U [x] -2.5) * 5;// ACS712ELCTR-05B-T
3}
2
2 x + +;
2 if (x == 1)
2 {A2 = 1; A1 = 0; A0 = 1;}
310 2
2 if (x == 2)
<...
