/*  IRF TX for OLYMPUS-CAMERA  2012/10/1      By@M.K
    Target     : PIC12F1822  16MHz
    CONFIG     : 0x3F84  : 0x3213      mikroC Pro V5.61
    Move 121.3mSec	Power-SW
    Last Modify    12/12      Used ROM 161
    PORTA0.1.2=IFR-LED
*/

static char  it,l1,l2,Tmp;
static char   OP_data[] = {
                  0b01100001,     // Olympus Camera
                  0b11011100,
                  0b10000000,
                  0b01111111,
              };

void Inf_PS(char pd){             //1=26.61*
//
     for (it=0;it<pd;it++){       // 24=638.75us 25=665.25
        PORTA=7;                  // 2ck
        Delay_us(12);
        PORTA=0;                  // 1ck
        Delay_us(12);
     }
}

void Inf_9000(){                  // 8990
      Inf_PS(169);                // 1=26.61*
      Inf_PS(170);
}

void Inf_one(){                   // 2240us
     Inf_PS(25);                  // 670uS=25
     Delay_us(1574);
}

void Inf_zero(){                  // 1120uS
     Inf_PS(25);                  // 670uS=25
     Delay_us(450);
}

void main() {
     //
     OSCCON=0b01111010;           // 16MHz   Internal
     TRISA =0b00011000;           // I/O set
     ANSELA=0;
     PORTA =0;
//
         Inf_9000 ();
         Delay_us(4400);
// 32bit shutter[]
         for (l1=0;l1<4;l1++){
              Tmp=OP_data[l1];
              for (l2=0;l2<8;l2++){
                   if ((Tmp & 0x80)==0x80)
                       Inf_one();
                   else
                       Inf_zero();
                   Tmp <<=1;
              }
         }
         Inf_zero();              // Stop
// Stop bit
         Delay_ms(39);
         Inf_9000();
         Inf_PS(7);               // 200uS=7
         Delay_us(2000);          //
         Inf_PS(25);              // 670uS=25
//
         while(1);
}