Subversion Repositories svnkaklik

//----------------------------
// Sagitta - 9. 9. 2005
//----------------------------

#include ".\menic.h"

#define RAZENI    55    // Po kolika ms se bude menit rychlost pri rozjizdeni
#define REFSTART  120   // Hodnota komparatoru odpovidajici 1,7V pri
                        // nezatizenych solarnich clancich
#define DUTY1     2     // Delka sepnuti PWM v us pro sero
#define DUTY2     20    // Delka sepnuti PWM v us pro jednu zarovku 500W

// Tabulka napeti vuci referencni LED (cca 1,7V)
// hodnota prevodniku / napeti na clancich
// 250   1,6V
// 200   2,1V
// 150   2,8V
// 145   2,9V
// 120   3,6V
// 110   4,0V

#define MENIC  PIN_B3   // Spinani tranzistoru menice
#define REFPWR PIN_B1   // Napajeni zdroje referencniho napeti
#define MOTOR  PIN_B2   // Spinani tranzistoru motoru

#byte SSPBUF   = 0x13   // Registry jednotky SSP
#byte SSPCON1  = 0x14
#byte SSPSTAT  = 0x94

// Vzorky pro generovani PWM pomoci SSP
unsigned int8 const Pattern[8] = {0x02,0x06,0x0e,0x1e,0x3e,0x7e,0xfe,0xff};
unsigned int8 MotorPattern;

#INT_SSP
void IntSSP()     // Vyvola se po odeslani znaku pres SSP
{
   SSPBUF=MotorPattern;       // znovu vysli stejnou hodnotu
}

void main()
{
   int8 n;
   int8 cekej;
   int8 perioda;
   int8 rozjezd;

   // Inicializace casovacu a prevodniku
   setup_timer_0(RTCC_INTERNAL);setup_wdt(WDT_1152MS);
   setup_adc_ports(ADC_CLOCK_INTERNAL|sAN1|sAN4|VSS_VDD);
   setup_adc(ADC_CLOCK_INTERNAL);
   setup_spi(FALSE);
   setup_timer_1(T1_DISABLED);
   setup_comparator(NC_NC_NC_NC);
   setup_vref(FALSE);

   output_low(MENIC);      // Vsechno zastav
   output_low(MOTOR);
   output_low(REFPWR);

   set_adc_channel(4);     // Vyber AD kanal pro pomerne mereni napeti
   set_pwm1_duty(0);       // Spust PWM, ale zatim s trvalou 0 na vystupu
   setup_ccp1(CCP_PWM);             // PWM pro zatizeni clanku v seru
   setup_timer_2(T2_DIV_BY_1,100,1); // perioda PWM

   setup_oscillator(OSC_4MHZ|OSC_INTRC); // rozjed PIC (zvysi se odber)

// jsme v depu?
   set_pwm1_duty(DUTY1);                     // delka sepnuti
   do
   {
      output_low(REFPWR);
      delay_ms(100);
      output_high(REFPWR);          // zapni napajeni napetove reference (LED)
      delay_ms(20);
   } while (read_adc()>REFSTART);   // Odkryl starter clanky?
   output_low(REFPWR);

   // Precti trimr
   set_adc_channel(1);           // Zjisteni nastaveni trimru PWM
   delay_us(100);                // Pockej na prepnuti kanalu A/D prevodniku
   perioda=(read_adc()>>1)+40;   // rozsah: 40 az 167
   set_pwm1_duty(0);       // Zastav PWM, aby slo zmenit periodu
   setup_timer_2(T2_DIV_BY_1,perioda,1); // Zapis nastavenou periodu

// nabíjíme
   set_pwm1_duty(DUTY2);            // delka sepnuti PWM
   delay_ms(12500);

// rozjezd
   SSPSTAT = 0;                  // inicializace SPI jednotky
   SSPCON1 = 0x22;               // SPI OSC/64
   MotorPattern=Pattern[0];
   SSPBUF=MotorPattern;          // 1. data pro vyslani
   enable_interrupts(global);
   enable_interrupts(INT_SSP);   // az budou vyslana, prijde preruseni

   for(n=0; n<=7; n++)     // razeni osmi rychlostnich stupnu
   {
      MotorPattern=Pattern[n];
      delay_ms(RAZENI);             // Pockej na dalsi razeni
   };
   SSPSTAT = 0;
   SSPCON1 = 0;                     // SPI stop
   disable_interrupts(INT_SSP);     // zastav preruseni od SSP

// jedem co to da
   output_high(MOTOR);
   delay_ms(1300);         // dyl jak 1,3s bysme nemeli jet :)
   output_low(MOTOR);      // zastav motor
                           // Menic je stale zapnut a zatezuje clanky

   while(TRUE);            // Cekej, dokud se neztrati svetlo,
                           // nebo prijde WatchDog
}