// 赤外線4ch送信機
//　　0822k26ir4tx.c PIC12F683用

#include<12f683.h>
#DEVICE ADC=10　//ADコンバータを10bitで使用

#fuses INTRC_IO,NOWDT,PUT,NOPROTECT,NOMCLR
//ウオッチドックタイマ無し、パワーアップタイマ使用
//プロテクト無し、MCLRなし

#use delay(CLOCK=8000000)  //8MHz駆動
#byte GP=5
 #bit IROUT=GP.5

#define ON 1
#define OFF 0
#define HI 1
#define LOW 0

long th_adc,al_adc,el_adc,rud_adc;

// 38kHz変調出力関数
// 13μS On、13μS OFFを19回繰り返して500μSのONを作る
// その後、VRのADコンバータの値により、OFFタイム設定する。
//0・・1.000ms、512・・1.522ms、1024・・2.035ms
void ir_mod(long pulse){
  int dummy;
  long i;
  for(i=0;i<19;i++){//38kHz変調になるように調整済み
      IROUT=ON;
      delay_us(13);
      IROUT=OFF;
      delay_us(6);
  }
  IROUT=OFF;
  delay_us(325);
  pulse=pulse/10;
  for(i=0;i<pulse;i++){//1ループ10μSに調整済み
    dummy=ON;
    delay_us(2);
  }
}

//VR入力をADコンバータより読み出し、各変数にセットする。
void adc_in(void)
{
  set_adc_channel(0);
    delay_us(20);
    th_adc=read_adc();
    
  set_adc_channel(1);
    delay_us(20);
    al_adc=read_adc();
    
  set_adc_channel(2);
    delay_us(20);
    rud_adc=read_adc();
    
  set_adc_channel(3);
    delay_us(20);
    el_adc=read_adc();
}

//メインルーチン

void main()
{
  int i;
  set_tris_a(0x1f);

/*
  GP  5  4  3  2  1  0
  AD     3     2  1  0
  io  0  1  1  1  1  1
*/  
  setup_adc_ports(sAN0 | sAN1 | sAN2 | sAN3 | VSS_VDD);   //ADコンバータ使用宣言
  setup_adc(ADC_CLOCK_DIV_32);              //ADコンバータクロック
  setup_oscillator(OSC_8MHz);
  
  while(1){
    adc_in();
    IROUT=OFF;

    //1chエルロン
    ir_mod(al_adc);

    //2chエレベータ
    ir_mod(el_adc);

    //3chスロットル
    ir_mod(th_adc);

    //4chラダー
    ir_mod(rud_adc);

    //チャンネルエンド
    ir_mod(512);

    delay_ms(10);

  }
}