#include <16F628.h>
#use delay(clock=4000000)
#fuses XT,PUT,BROWNOUT,MCLR,NOWDT,NOPROTECT,NOLVP
//Describtion: Pulse Generate 40KHz of SONY Remote Control

//*** PIC16F628 ***
#byte	PORTB   = 0x06 
#byte	TRISB   = 0x86 
#byte	PR2     = 0x92
#byte	TMR2	= 0x11
#byte	T2CON	= 0x12
#byte	CCPR1L	= 0x15
#byte	CCP1CON	= 0x17

#define IRX 600
#define IRY 1200

#define PINCCP1ON()   set_tris_b(0B00000000)  
#define PINCCP1OFF()  set_tris_b(0B00001000)
#define TIMER2START() T2CON=0B01111100;         //Bit3=1
#define TIMER2STOP()  T2CON=0B01111000;         //Bit3=0

char IRCode[]={"101010010000"}; //Power NO/OFF

//40KHz OSC
void InitPWM(void)
{
    PR2     = 24;           //Set TIMER2 frequency
    CCPR1L  = 0B00001100;   //Set TIMER2 duty cycle
    CCP1CON = 0B00101111;   //Set x,y CCP1CON<5:4> any CCP1CON<3:0> = 11xx = PWM mode
    TMR2    = 0;            //Clear TMR2 first
    T2CON   = 0B01111000;   //Set prescaler Bit3=0 stop CCP1

}
void Tx1(void)
{
    delay_us(IRX);
    PINCCP1ON();
    delay_us(IRY);
    PINCCP1OFF();   
}
void Tx0(void)
{
    delay_us(IRX);
    PINCCP1ON();
    delay_us(IRX);
    PINCCP1OFF();

}
void PowerOn(char *Code)
{
int i;

    TIMER2START();
    PINCCP1ON();
    delay_us(2400);
    PINCCP1OFF();
    for(i=0;i<12;i++)
    {
     if(Code[i]=='0')
        Tx0();
     if(Code[i]=='1')
        Tx1();
    }
    delay_ms(26);               //Start frame
    TIMER2STOP();

}
void main(void) 
{
    set_tris_b(0B00000000);     //RB is Output
    InitPWM();    

    PowerOn(IRCode);            //PowerOn

    while(1);                   //Loop
   
}