LED color guardrail tube program---1 IO port to get it done!

MCU: STC12C56 Crystal: 12MHZ
*************************************/
#include
#include
#define uchar unsigned char
#define uint  unsigned int

#define RGB_count  20
#define RGB_speed  30

sbit DIN=P1^2;
/*************0 code***********************/
void DIN_bit_0()
{
 flying i;
 DIN=1;
 for(i=1;i>0;i--); //Low speed mode 1+3+4*3+1
 _nop_();
 DIN=0; //1+3+4*7
 for(i=3;i>0;i--); 
}
/*************1 code********************/
void DIN_bit_1()
{
 flying i;
 DIN=1; //1+3+4*7+1
 for(i=3;i>0;i--);
 _nop_();
 DIN=0;
 for(i=1;i>0;i--);   //1+3+4*3
  
}
/*************reset code***********************/
void reset()
{
 uint i;
 DIN=0;
 for(i=250;i>0;i--);   
}
/*************data transmission******************/
void send_dat(uchar dat) //high bit first
{
    flying i;
    for(i=8;i>0;i--)
    {
        if(dat & 0x80)  DIN_bit_1();
            else DIN_bit_0();
        dat <<=1;
    }
}
/***************Delay******************/
void delay(uchar t)
{
 unsigned long j;
    while(t--)   for(j=0;j<1000;j++);
}
/*************Main program******************/
void main()
{
 uchar i,n,num,t;
 while(1)
 {
 /*************R gradually brightens********************/
  for(i=0;i<255;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(i);
    send_dat(0);
    send_dat(0);
   }
   reset();
   delay(1);
  }
  /*************R gradually disappears***********************/
  for(i=255;i>0;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(i);
    send_dat(0);
    send_dat(0);
   }
   reset();
   delay(1);
  }
  /****************G gradually brightens********************/
  for(i=0;i<255;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(0);
    send_dat(i);
    send_dat(0);
   }
   reset();
   delay(1);
  }
  /****************G gradually disappears********************/
  for(i=255;i>0;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(0);
    send_dat(i);
    send_dat(0);
   }
   reset();
   delay(1);
  }
  /****************B gradually brightens********************/
  for(i=0;i<255;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(0);
    send_dat(0);
    send_dat(i);
   }
   reset();
   delay(1);
  }
  /************B gradually disappears********************/
  for(i=255;i>0;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(0);
    send_dat(0);
    send_dat(i);
   }
   reset();
   delay(1);
  }
  /*************RG gradually brightens********************/
  for(i=0;i<255;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(i);
    send_dat(i);
    send_dat(0);
   }
   reset();
   delay(1);
  }
  /*************RG gradually disappears***********************/
  for(i=255;i>0;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(i);
    send_dat(i);
    send_dat(0);
   }
   reset();
   delay(1);
  }
  /*************GB gradually brightens***********************/
  for(i=0;i<255;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(0);
    send_dat(i);
    send_dat(i);
   }
   reset();
   delay(1);
  }
  /*************GB gradually disappears*******************/
  for(i=255;i>0;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(0);
    send_dat(i);
    send_dat(i);
   }
   reset();
   delay(1);
  }
  /*************RB gradually brightens***********************/
  for(i=0;i<255;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(i);
    send_dat(0);
    send_dat(i);
   }
   reset();
   delay(1);
  }
  /*************RB gradually disappears*******************/
  for(i=255;i>0;i++)
  {
   for(n=RGB_count;n>0;n--)
   {
    send_dat(i);
    send_dat(0);
    send_dat(i);
   }
   reset();
   delay(1);
  }
  /*************RGB all destroyed***********************/
  for(num=RGB_count;num>0;num--)
        {
            send_dat(0);
            send_dat(0);
            send_dat(0);
        }
        reset();
  /****************B Marquee Added********************/
  for(i=0;i0;t--)  delay(1);
        }
  /****************B Marquee reduction********************/
        for(i=RGB_count;i>0;i--) 
        {
            for(num=0;num0;t--)  delay(1);
   /*************RGB all destroyed***********************/
   for(num=RGB_count;num>0;num--)
            {
                send_dat(0);
                send_dat(0);
                send_dat(0);
            }
            reset();
  }
  /****************G Marquee added********************/
  for(i=0;i0;t--)  delay(1);
        }
        /****************G Marquee reduction********************/           
        for(i=RGB_count;i>0;i--)
        {
            for(num=0;num0;t--)  delay(1);
   /*************RGB all destroyed***********************/
   for(num=RGB_count;num>0;num--)
            {
                send_dat(0);
                send_dat(0);
                send_dat(0);
            }
            reset();
  }
  /*************R Marquee added***********************/
  for(i=0;i0;t--)  delay(1);
        }
  /*************R Marquee reduction********************/
        for(i=RGB_count;i>0;i--)
        {
            for(num=0;num0;t--)  delay(1);
    /*************RGB all destroyed***********************/
            for(num=RGB_count;num>0;num--)
            {
                send_dat(0);
                send_dat(0);
                send_dat(0);
            }
            reset();
        }
  /*************RG Marquee Added***********************/
  for(i=0;i0;t--)  delay(1);
        }
        /*************RG Marquee Reduction***********************/           
        for(i=RGB_count;i>0;i--)
        {
            for(num=0;num0;t--)  delay(1);
   /*************RGB all destroyed***********************/
   for(num=RGB_count;num>0;num--)
            {
                send_dat(0);
                send_dat(0);
                send_dat(0);
            }
            reset();
  }
  /*************GB Marquee Added***********************/
  for(i=0;i0;t--)  delay(1);
        }
        /*************GB Marquee Reduce********************/           
        for(i=RGB_count;i>0;i--) 
        {
            for(num=0;num0;t--)  delay(1);
   /*************RGB all destroyed***********************/
   for(num=RGB_count;num>0;num--)
            {
                send_dat(0);
                send_dat(0);
                send_dat(0);
            }
            reset();
  }
  /*************RB marquee added*******************/
  for(i=0;i0;t--)  delay(1);
        }
        /*************RB Marquee Reduce***********************/           
        for(i=RGB_count;i>0;i--)
        {
            for(num=0;num0;t--)  delay(1);
   /*************RGB all destroyed***********************/
   for(num=RGB_count;num>0;num--)
            {
                send_dat(0);
                send_dat(0);
                send_dat(0);
            }
            reset();
  }
     /*************RGB marquee added*******************/
  for(i=0;i0;t--)  delay(1);
        }
  /*************RGB marquee reduction***********************/
        for(i=RGB_count;i>0;i--)
        {
            for(num=0;num0;t--)  delay(1);
   /*************RGB all destroyed***********************/
            for(num=RGB_count;num>0;num--)
            {
                send_dat(0);
                send_dat(0);
                send_dat(0);
            }
            reset();
        }  
 }
}