#include <htc.h>
#include <pic16f627a.h>

/***** CONFIGURATION *****/
// ext reset, no code or data protect, no brownout detect,
// no watchdog, power-up timer enabled, 4MHz int clock

#ifndef _XTAL_FREQ
// Unless already defined assume 4MHz system frequency
// This definition is required to calibrate __delay_us() and __delay_ms()
#define _XTAL_FREQ 4000000
#endif

// Pin assignments
#define rele 7 // releto na  RA7

#define pinR RB2
#define pinR2 RA3
#define pinB RB1
#define pinB2 RA2
#define pinG RB3
#define pinG2 RB0

/***** GLOBAL VARIABLES *****/
unsigned char sGPB; // shadow copy of GPIO
volatile unsigned char flag=0;
volatile unsigned char but=0;
volatile unsigned char mode=0;

volatile unsigned char R=0;
volatile unsigned char B=0;
volatile unsigned char G=0;
volatile unsigned char Rmax=0;
volatile unsigned char Bmax=0;
volatile unsigned char Gmax=0;
volatile unsigned char end=0;

//*** MAIN PROGRAM *****/

void setcolor(int rR,int gG,int bB)
{
GIE=0;
  pinR=pinG=pinB=pinR2=pinG2=pinB2=0;
  R=Rmax=rR;
  G=Gmax=gG;
  B=Bmax=bB;
  end=0;
   pinR=pinG=pinB=pinR2=pinG2=pinB2=1;
GIE=1;
 
}

void efekt()
{
int _r,_g,_b;
_r=_g=_b=255;
for(_r=255;_r>=1;_r--)
{
setcolor(_r,_g,_b);
__delay_ms(1);
}
for(_b=255;_b>=1;_b--)
{
setcolor(_r,_g,_b);
__delay_ms(1);
}
for(_r=1;_r>=255;_r++)
{
setcolor(_r,_g,_b);
__delay_ms(1);
}
for(_g=255;_g>=1;_g--)
{
setcolor(_r,_g,_b);
__delay_ms(1);
}
for(_b=1;_b>=255;_b++)
{
setcolor(_r,_g,_b);
__delay_ms(1);
}
for(_g=1;_g>=255;_g++)
{
setcolor(_r,_g,_b);
__delay_ms(1);
}
}

void main()
{
// Initialisation
// setup ports
PORTA = 0;
PORTB = 0; // start with LED off
sGPB = 1; // update shadow
TRISB = 0b11110000; // configure LED pin (only) as an output
TRISA = 0b00000000;
CMCON =7;
mode=3;
but=1;


OPTION_REG = 0b11010010;
//T1CON=0b00110000;
// configure Timer0:
//--0----- timer mode (T0CS = 0)
//----0--- prescaler assigned to Timer0 (PSA = 0)
//-----111 prescale = 256 (PS = 111)
// -> increment every 256 us
// configure interrupts
T0IE = 1; // enable Timer0 interrupt
ei(); // enable global interrupts
// Main loop
for (;;) {
// continually copy shadow GPB to port
RA7 = sGPB;
if (mode==1){                   
  switch(but)
  {

    case 1:// бяло
   RB1=1;
   RB2=1;
   RB3=1;
   break;

   case 2:// лилаво
   RB1=0;
   RB2=1;
    RB3=1;
   break;

   case 3:// циян
   RB1=1;
   RB2=0;
    RB3=1;
   break;
   case 4:// жълто
   RB1=1;
   RB2=1;
    RB3=0;
   break;
   case 5:// синьо
   RB1=1;
   RB2=0;
    RB3=0;
   break;
   case 6:// червено
   RB1=0;
   RB2=1;
    RB3=0;
   break;
   case 7:// зелено
   RB1=0;
   RB2=0;
    RB3=1;
   break;
    case 8:// ресет
   but=1;
   break;

  }
   }
  if (mode==2){                   
  switch(but)
  {

   case 1:// бяло
   RA2=1;
   RA3=1;
   RB0=1;
   break;

   case 2:// лилаво
   RA2=0;
   RA3=1;
    RB0=1;
   break;

   case 3:// циян
   RA2=1;
   RA3=0;
    RB0=1;
   break;
   case 4:// жълто
   RA2=1;
   RA3=1;
    RB0=0;
   break;
   case 5:// синьо
   RA2=1;
   RA3=0;
    RB0=0;
   break;
   case 6:// червено
   RA2=0;
   RA3=1;
    RB0=0;
   break;
   case 7:// зелено
   RA2=0;
   RA3=0;
    RB0=1;
   break;
    case 8:// ресет
   but=1;
   break;

  }
   }
efekt();    

} // repeat forever
}


/***** INTERRUPT SERVICE ROUTINE *****/
void interrupt isr(void)
{
static unsigned int t0_cnt=0;
static unsigned int db_cnt=0;
static unsigned int dc_cnt=0;

// handle Timer0 interrupt

T0IF = 0;
dc_cnt++;
if(dc_cnt==32*32){dc_cnt=31*32;}
if (RB5==0)
   {
   t0_cnt++;

   }
else if (RB5==1)
   {
    if(t0_cnt>=20*32)
      {
      flag=0;
      sGPB ^= 1;
      t0_cnt=dc_cnt=0;
      }   

   else if(t0_cnt>=2*32 && flag==1 && dc_cnt<10*32)
      {
      flag=0;
      t0_cnt=dc_cnt=0;
      if(mode==1){mode=2;}
      else {mode=1;}
      }
   else if(t0_cnt>=2*32&&dc_cnt>10*32)
      {
      flag=1;
      t0_cnt=dc_cnt=0;
      }
   else if (flag==1&&dc_cnt>10*32)
      {
      flag=0;
      but++;
      t0_cnt=dc_cnt=0;
      }
   else
      {

      t0_cnt=0;
      }
   }


if (mode==3)
{

if(R>0)R--;
   if(G>0) G--;
   if(B>0) B--;
    end++;
if(end==255)
{
   pinR=pinG=pinB=0;
     R=Rmax;
     G=Gmax;
     B=Bmax;
     pinR=pinG=pinB=1;
}else
{
   if(R==0){pinR=0; pinR2=0; }
   if(G==0){pinG=0; pinG2=0; }
   if(B==0){pinB=0;  pinB2=0;}
}

}
}