リスト CLOCK
/*************************************** ***** main.c (ADK-F1710076Rasp1-2) ***** RaspBerry Pi と共同動作の時計ほか ****************************************/ #include <16f1938.h> #include <stdio.h> #fuses INTRC_IO,PLL,NOWDT,NOBROWNOUT,NOPROTECT,PUT,MCLR,NOLVP,BORV25 #use delay(CLOCK = 32000000) //クロック周波数指定 #use rs232(baud=115200,parity=N,xmit=PIN_C6,rcv=PIN_C7,bits=8,stream=PORT1) #use fast_io(A) #use fast_io(B) #use fast_io(C) //======== 入出力のポート定義 ======== #define L_2 PIN_C5 #define L_3 PIN_C4 #define S_1 PIN_A5 #define S_2 PIN_A7 const char verStr[] = "ADK-F1710076Rasp1-2 Taking Clock P140"; //======== Declaration MAIN Valuable ======== int32 Cnt100ms = 0; // 100ms Counter int1 PlayF = 0; int1 PlayFS = 0; int8 num1 = 0; int8 num2 = 0; int8 num3 = 0; char Index, digit; char Buffer[32] = { '1','2',0,'3','4',0,0,1,0,0, 0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0 }; // 数字とセグメント表示データの変換テーブル char Seg[11] = {0x3F, 0x06, 0x5B, 0x4F, 0x66, 0x6D, 0x7D, 0x07, 0x7F, 0x67, 0x40}; //======== USART Valuable ======== int8 Rnum = 0; // Receive Number char Rbuf[32]; // Receuve Buffer //======== USART receive Interrupt Process ======== #int_rda void isr_rcv() { char data; int i; data = getc(); // Get RCV char if (data == 0x0d || data == 0x0A) // CRorLF? { Rbuf[Rnum] = 0; // String tarminator //Rcmflg = TRUE; // RCV CMD Flag On for(i=0; i < 30; i++) Buffer[i] = Rbuf[i]; // 受信データをBufferへ Rnum = 0; } else { Rbuf[Rnum] = data; // To buffer Rnum++; // Increment Index if (Rnum > 30) Rnum = 0; // Check Upper Limit } } //======== Timer Interrupt Process ======== ///// TIMER Constants ///// TIMER Constants #define T1PS 15536 // 65536(0x10000)-15536 = 50000 //Actual measurement -> 50ms // Fosc(32MHz)/4 -> 8MHz (Timer1 IN) // DIV:1/8 -> 1.0MHz(T:1.0uS) // 50000 x 1.0us = 50ms #int_timer1 void isr1() // 50ms Interrupt OK { static int8 n = 0; set_timer1(T1PS); if (n++ == 1) { //100msに変更 n = 0; ++Cnt100ms; if ((input(PIN_C0) == 1) && (PlayFS == 0)) { if (num1++ > 100) { PlayF = 1; PlayFS = 1; } //検知10秒連続で音声出力 } else num1 = 0; if (PlayF == 1) { if (num2++ > 1) { PlayF = 0; num2 = 0; } // PlayF は 0.1秒で OFF } if (PlayFS == 1) { if (num3++ > 200) { PlayFS = 0; num3 = 0; } // PlayFS は 20秒で OFF } //for Test output_toggle(L_2); } } #define T2PR 250 // Period:0~255 #define T2PO 1 // Postsscale:1~16 for INT times of OV // Fosc(32MHz)/4 -> 8MHz (Timer2 IN) // DIV:1/64 -> 125KHz(T:8.00uS) DIV=Prescaler // 8.0us x 250 x 1 = 2000us //Actual measurement -> 2.0ms #int_timer2 void isr2() // 2.0ms Interrupt OK { output_a(0); // 全消去 /** 桁制御 ***/ switch(digit){ case 0x08: output_b(Seg[Buffer[4] - 0x30]); // 1分 break; case 0x04: output_b(Seg[Buffer[3] - 0x30]); // 10分 break; case 0x02: output_b(Seg[Buffer[1] - 0x30]); // 1時 output_bit(PIN_B7, Buffer[7] % 2); // 秒の交互表示 break; case 0x01: output_b(Seg[Buffer[0] - 0x30]); // 10時 break; default: break; } /** 桁の表示 **/ output_a(digit); // 桁の制御 digit = digit >> 1; // 次の桁へ if(digit == 0x00) // 4桁目終了の場合 digit = 0x08; // 1桁目に戻す // for Test //output_toggle(L_3); } void main() { setup_oscillator(OSC_8MHZ|OSC_PLL_ON); //内部クロック設定 8 * 4 = 32Mhz set_tris_a(0b11100000); // Port_A Mode Set output_a(0b00000000); set_tris_b(0b00000000); // Port_B Mode Set set_tris_c(0b10000001); // Port_C Mode Set output_c(0b00000000); //port_b_pullups(0b11111111); setup_timer_1(T1_INTERNAL|T1_DIV_BY_8); // 50ms setup_timer_2(T2_DIV_BY_64,T2PR,T2PO); // 2.0ms enable_interrupts(INT_RDA); enable_interrupts(INT_TIMER1); enable_interrupts(INT_TIMER2); enable_interrupts(GLOBAL); while(True) { /*** シャットダウンスイッチのチェック ***/ if((input(PIN_A5) == 0) && (input(PIN_A7) == 0)){ output_high(PIN_C1); // GPIO4 delay_ms(100); // 0，1秒だけ出力High output_low(PIN_C1); } /** ドップラの検出 **/ if(PlayF){ // 接近した場合 output_high(PIN_C3); // しゃべり開始トリガ } else{ output_low(PIN_C3); // トリガ解除 } } }

さて、MPLAB-IDEを起動してプロジェクト「Clock2_Rasp1」を作成して下さい。
下図のようにプロジェクトを作成してください。Header に16F1938.h を入れていますが、ここに入れなくてもコンパイルできるし、ここになくとも問題ないです。ただこのファイルはディバッグ中に見ることが多いので、いれておくと便利です。
このファイルは、C:\Program Files (x86)\PICC\Devices (32bitOS, C:\Program Files\PICC\Devices) にあります。
プロジェクトの作成法については以前に演習でやりました chap1 をご参照ください。



写真では、既に書込器は取り外していますが、CN-PRG に書込器・PICkit3 を接続しラズパイの電源を入れておきます。コンパイルを実行し、HEX ファイルのダウンロードが完了すると、CN-PRGから書込器を取り外してください。PICの書込ピンを LED-DSP の制御ピンと共用しているからです。RESETボタンを押して、PICを再起動してください。
書籍のラズパイ側の設定が完了していれば、全体として既に動作をしています。LED-DSP の初期値は "12.34" ですが、今の時刻が表示されるとラズパイからのUART受信ができていることになります。



やや見にくいですが(スモークアクリルを付けるとよく見える)、この場合時刻は、"08.29" と表示しています。接近するとL1が点灯し、点灯が 10秒以上継続すると、音声で時刻と天気予報を発声します。音量は VR1 です。

上図は、動作基板の回路図です。元の回路図のドップラーセンサー(U1)は、良い製品(NJR4265)ですが値段が高額(秋月:3,800円)なので、中国製のドップラーセンサー(RCWL-0516、Amazon:120円)にしました。ただしこれは、接近・離反は区別しません。対象物が動いている限り検知します。それで、ソフトを改変し、10秒以上の検知を継続しないと検出フラグ(PlayF)をONしないようにし、また一旦、検出フラグ(PlayF)をONしたら、20秒は無視するようにしました。その部分の変更は、timer1の割り込みルーチン(void isr1())内を参照してください。

回路図の U2 は、DC-DC コンバータで、ドップラーセンサーの検出距離を伸ばすため +12V を供給するために使いましたが、実際のところ +5V で十分なので、 U2 は取り付けず J-PWR の 1番ピンを +5Vに接続してください。
また、ラズパイのGPIOに接続するコネクタ(CN-RASP)は、書籍の回路図とは異なり、ラズパイのコネクタ番号と同じ並びをにしているので、接続には注意してください。電源も含まれているので慎重に願います。コネクタ付きフラットケーブルで、合うものを探せなかったので、両端メスの単線コネクタを複数本使って接続しています。

リスト RADIO
/********************************************** ***** main.c (project: Radio3_CCS-C_Rasp3) ***** 赤外線リモコン(M-07245)及びＬＣＤ(20文 ***** 字・4行)表示付きインターネットラジオ ***********************************************/ #include <16F1716.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include "HardProfile.h" #FUSES INTRC_IO, PLLEN, NOWDT, PUT, NOBROWNOUT, NOLVP #use delay(clock=32000000, internal) #pin_select U1TX = PIN_C5 // Use this, to be hardware UART #pin_select U1RX = PIN_C4 // Use this, to be hardware UART #use rs232(baud=115200,parity=N,bits=8,UART1) const char verStr[] = "Radio3_CCS-C_Rasp3"; // 関数プロトタイピング void RemoconProcess(); // リモコン受信処理(Mainでループ) void ContactRaspPi(unsigned int data); // リモコン受信データをRasPiに伝える void EditStation(void); // 局名等をLCDに表示する // グローバル変数定義 unsigned int16 LowWidth, HighWidth; volatile unsigned int8 State, MainState, RptFlag, Logic; unsigned int8 BitFlag, BitCount; unsigned int16 MakerCode, DataCode, temp; unsigned char StMsg[] = "Start Internet Radio"; unsigned char DnMsg[] = "*** Shutdown ***"; int8 Rnum = 0; // Receive Number char Rbuf[128]; // Receuve Buffer int1 Rcmflg = FALSE; // Command Receive Flag #include "lcd_lib_SC2004.c" /********************************************* * ラズパイより送らてくる局名、演奏者、曲名 *　を UARTで割込受信して LCD に表示する *********************************************/ #int_rda void isr_rcv() { unsigned char dumy; if((RC1OERR) || (RC1FERR)){ // エラー発生した場合 RC1STA = 0; // USART無効化、エラーフラグクリア RC1STA = 0x90; // USART再有効化(Serial port enabled, Enables receiver) } else{ // 正常受信の場合 if(Rnum < 80){ Rbuf[Rnum] = getc(); // 受信データをバッファに保存 if(Rbuf[Rnum++] == 0x0A){ // 行末まで完了した場合 Rcmflg = 1; // 完了フラグセット Rnum = 0; // インデックスリセット } } else{ // 80文字以上の場合 dumy = getc(); // 読み飛ばし if(dumy == 0x0A){ Rcmflg = 1; Rnum = 0; } } } } // 局名LCD表示 void EditStation(void){ unsigned char rcv, clm; if(Rcmflg == 0) return; // 局情報受信完了か？ Rcmflg = 0; lcd_clear(); clm = 0; // カラムカウンタリセット while((Rbuf[clm] != 0x0A)&&(clm < 80)){ // 行末まで繰り返し // 表示行指定処理 if(clm == 0) lcd_cmd(0x80); // 1行目に移動 if(clm == 20) lcd_cmd(0xC0); // 2行目に移動 if(clm == 40) lcd_cmd(0x94); // 3行目に移動 if(clm == 60) lcd_cmd(0xD4); // 4行目に移動 // 文字表示 lcd_data(Rbuf[clm++]); // 文字表示 } } /************************************ * 赤外線リモコン((13-Key) M-07245 *　受信処理をして、ラズパイを制御する *　信号を送出する *　Timer0(0.1ms)とMainループによる *　ステートマシンによる信号受信 ************************************/ //======== Timer Interrupt Process ======== ///// TIMER Constants #define T0PS 66 // 66:実測 0.1ms、56: 0.1054ms // 256 - 56 = 200 //Actual measurement -> 0.1ms // Fosc(32MHz)/4 -> 8MHz (Timer0 IN) // DIV:1/4 -> 2.0MHz(T:0.5uS) DIV=(1/1,2,4,8,16,32,64,128,256) // 200 x 0.5us = 100us #int_timer0 void isr0() // 0.1ms Interrupt リモコン(M-07245)受信ステートマシン１ { set_timer0(T0PS); switch(State){ // Stateが0の場合 case 0: // リーダコード発見処理 if(IFRCV == 0){ // 入力Lowの場合 LowWidth++; // Low幅カウンタアップ } else{ // 入力Highの場合 if(LowWidth > 80){ // リーダコードの場合 LowWidth = 0; // 幅カウンタリセット HighWidth = 0; State = 1; //ステートアップ } } break; case 1: // リーダコード後半の処理 if(IFRCV == 1){ // 入力Highの場合 HighWidth++; // High幅カウンタアップ } else{ // 入力Lowの場合 if(HighWidth > 40){ // 通常フレームの場合 RptFlag = 0; // リピートフラグリセット State = 3; // データ受信処理へ MainState = 1; // メインステートアップ } else if(HighWidth > 20){ // リピートフレームの場合 RptFlag = 1; // リピートフラグセット State = 2; // ストップビットスキップへ MainState = 1; // メインステートアップ } else{ // どちらでもない場合 RptFlag = 0; // フラグクリア State = 0; // ステート初期化 } LowWidth = 0; // パルス幅カウンタリセット HighWidth = 0; } break; case 2: // リピートのストップビットスキップ if(IFRCV == 0) // 入力Lowの場合 LowWidth++; // Low幅カウンタアップ else{ LowWidth = 0; // ストップビットスキップ HighWidth = 0; State = 0; // 初期ステートへ } break; case 3: // ビットデータの最初のLowの確認 if(IFRCV == 0){ // 入力Lowの場合 LowWidth++; // ビット最初のLowを入力 } else{ // 入力Highの場合 if(LowWidth > 3) // Lowビット幅確認できた場合 State = 4; // 0,1判定処理へ else // Low幅不足の場合 State = 0; // エラーとして初期化 LowWidth = 0; HighWidth = 0; } break; case 4: // データビットの0,1判定 if(IFRCV == 1){ // 入力Highの場合 HighWidth++; } else{ // 入力Lowの場合 if(HighWidth > 12) // High幅が長い場合 Logic = 1; // 論理「1」とする else // High幅が短い場合 Logic = 0; // 論理「0」とする HighWidth = 0; // ビット幅カウントリセット LowWidth = 0; BitFlag = 1; // ビット受信完了フラグセット State = 3; // 前のステートへ } break; } //LED1 ^= 1; } // リモコン受信処理 (Main内で無限ループ処理する) void RemoconProcess() // リモコン(M-07245)受信ステートマシン２ { switch(MainState){ case 1: // メインステート1の場合 LED1 ^= 1; // 目印LED PORTC =0; // 全ての制御出力リセット if(RptFlag == 1){ // リピートフラグオンの場合 MainState = 0; // 初期ステートに戻す } else{ // 通常フレームの場合 MainState = 2; // 次のステートへ BitCount = 0; // ビットカウンタリセット MakerCode = 0; } break; case 2: // メーカコード受信処理 if(BitFlag == 1){ // ビット受信完了している場合 BitFlag = 0; // 完了フラグクリア MakerCode = MakerCode << 1; // メーカコードをシフトして格納 MakerCode += (unsigned int)Logic; BitCount++; // ビットカウンタ更新 if(BitCount >= 16){ // 16ビット受信完了の場合 if(MakerCode == 0x08F7){ // 照合一致した場合 MainState = 3; // 次のステートへ } else{ // 照合不一致の場合 MainState = 0; // エラー、初期状態へ State = 0; } BitCount = 0; DataCode = 0; } } break; case 3: // データコード受信処理 if(BitFlag == 1){ // ビット受信完了している場合 BitFlag = 0; // 完了フラグクリア DataCode = DataCode << 1; // メーカコードをシフトして格納 DataCode += (unsigned int)Logic; BitCount++; // ビットカウンタ更新 if(BitCount >= 16){ // 16ビット受信完了の場合 temp = ~DataCode; // 反転2連送照合 temp = temp & DataCode; if(temp == 0){ // === 照合一致した === ContactRaspPi(DataCode); // 受信データ処理 MainState = 0; // ステートを最初に戻す State = 0; } else{ // 照合不一致の場合 MainState = 0; // エラー、初期状態へ State = 0; } } } break; default : break; } } // リモコンの受信したデータに従ってラズパイを制御する void ContactRaspPi(unsigned int data){ switch(data){ case 0x1BE4: // Power LED2 = 1; // Red LED On テスト用 lcd_clear(); lcd_str(DnMsg); // メッセージ出力 puts("SHUT Down"); SHUTDW = 1; // シャットダウン出力 delay_ms(100); SHUTDW = 0; //while(TRUE); break; case 0x05FA: // ↑ VOLUP = 1; // 音量アップ Rnum = 0; puts("VOL UP"); break; case 0x00FF: // ↓ VOLDW = 1; // 音量ダウン Rnum = 0; puts("VOL DW"); break; case 0x08F7: // ← PREV = 1; // 前の局へ Rnum = 0; puts("PREV"); break; case 0x01FE: // → NEXT = 1; // 次の局へ Rnum = 0; puts("NEXT"); break; case 0x04FB: // Sapce LED2 = 0; // Red LED Off　テスト用 puts("Test"); break; case 0x847B: // 右上矢印 puts("R_UP"); break; case 0x8D72: // 左上矢印 puts("L_UP"); break; case 0x1FE0: // A puts(" -A-"); break; case 0x1EE1: // B puts(" -B-"); break; case 0x1AE5: // C puts(" -C-"); break; default: break; } } void main() { setup_oscillator(OSC_8MHZ|OSC_PLL_ON); //内部クロック設定 8 * 4 = 32Mhz State = 0; MainState = 0; output_a(0x00); output_b(0x00); output_c(0x00); set_tris_a(0b00001101); // Port_A Mode Set set_tris_b(0b11000000); // Port_B Mode Set set_tris_c(0b00010000); // Port_C Mode Set port_a_pullups(0b00001101); setup_timer_0(RTCC_INTERNAL|RTCC_DIV_4); // for 0.1ms enable_interrupts(INT_TIMER0); enable_interrupts(INT_RDA); enable_interrupts(GLOBAL); // 液晶表示器の初期化 lcd_init(); lcd_clear(); lcd_str(StMsg); printf("Hello!\r\n"); // 受信はラズパイのみ、送信はモニターへ while(TRUE) { EditStation(); // 局情報の液晶表示処理 RemoconProcess(); // リモコン受信処理 } } //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /////////////////////////////////////////////// // 液晶表示器制御ライブラリ // 内蔵関数は以下 // lcd_init() ----- 初期化 // lcd_cmd(cmd) ----- コマンド出力 // lcd_data(chr) ----- １文字表示出力 // lcd_str(ptr) ----- 文字列表示出力 // lcd_clear() ----- 全消去 ////////////////////////////////////////////// #include "lcd_lib_SC2004.h" //////// データ出力サブ関数 void lcd_out(char code, int flag) { DB7 = (code & 0x80) != 0 ? 1 : 0; DB6 = (code & 0x40) != 0 ? 1 : 0; DB5 = (code & 0x20) != 0 ? 1 : 0; DB4 = (code & 0x10) != 0 ? 1 : 0; RS = flag == 0 ? 1 : 0; STB = 1; delay_us(1); STB = 0; } //////// １文字表示関数 void lcd_data(char asci) { lcd_out(asci, 0); //上位４ビット出力 lcd_out(asci<<4, 0); //下位４ビット出力 delay_us(50); //50μsec待ち } /////// 文字列表示関数 void lcd_str(char* ptr) { while(*ptr != 0) lcd_data(*ptr++); } /////// コマンド出力関数 void lcd_cmd(char cmd) { lcd_out(cmd, 1); //上位４ビット出力 lcd_out(cmd<<4, 1); //下位４ビット出力 delay_ms(2); //2msec待ち } /////// 全消去関数 void lcd_clear() { lcd_cmd(0x01); //初期化コマンド出力 delay_ms(15); //15msec待ち } /////// 初期化関数 void lcd_init() { delay_ms(100); lcd_out(0x30, 1); //8bit mode set delay_ms(5); lcd_out(0x30, 1); //8bit mode set delay_ms(1); lcd_out(0x30, 1); //8bit mode set delay_ms(1); lcd_out(0x20, 1); //4bit mode set delay_ms(1); lcd_cmd(0x2E); //DL=0 4bit mode lcd_cmd(0x08); //display off C=D=B=0 lcd_cmd(0x0D); //display on C=D=1 B=0 lcd_cmd(0x06); //entry I/D=1 S=0 lcd_cmd(0x02); //cursor home } //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /************************************** * SC2004　20文字×4行液晶表示器 * 　ヘッダファイル **************************************/ #include "HardProfile.h" //*** 液晶表示用設定 ***** #bit DB7 = LATB.5 #bit DB6 = LATB.4 #bit DB5 = LATB.3 #bit DB4 = LATB.2 #bit STB = LATB.1 #bit RS = LATB.0 //*** 関数プロトタイピング ***** void lcd_out(char code, int flag); void lcd_data(char asci); void lcd_str(char* ptr); void lcd_cmd(char cmd); void lcd_clear(); void lcd_init(); //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /* * File: HardPrpfile.h */ #ifndef HARD_RPFILE_H #define HARD_RPFILE_H #byte PORTA = 0x00C //Manual P23 #byte PORTB = 0x00D #byte PORTC = 0x00E #byte LATA = 0x10C #byte LATB = 0x10D #byte LATC = 0x10E #byte RC1REG = 0x199 #byte RC1STA = 0x19D #bit RC1OERR = RC1STA.1 // Overrun Error bit #bit RC1FERR = RC1STA.2 // Framing Error bit #bit IFRCV = PORTA.0 // 赤外線受光モジュール入力 #bit LED1 = LATA.6 // 緑 #bit LED2 = LATC.0 // 赤 #bit S1 = PORTA.2 // S1 #bit S2 = PORTA.3 // S2 #bit SHUTDW = PORTC.1 // Shut Down 指示ビット #bit PREV = PORTC.2 // 前の局へ #bit NEXT = PORTC.3 // 次の局へ #bit VOLDW = PORTC.6 // 音量ダウン #bit VOLUP = PORTC.7 // 音量アップ #endif /* HARD_RPFILE_H */

プロジェクト作成の結果が下図のようになるようにしてください。lcd_lib_SC2004.c は、Important Files に入れていることにご注意ください。lcd_lib_SC2004.c は、main.c ファイルの中で、#include されています。Header に16F1716.h を入れていますが、ここに入れなくてもコンパイルできるし、ここになくとも問題ないです。ただこのファイルはディバッグ中に見ることが多いので、いれておくと便利です。
次に金槌マークのコンパイルを実行し、「BUILD SUCCESSFUL」が出ればＯＫです。




先に、書籍のラズパイ側の設定をしておいてください(自動起動: P169の設定)。
次に、下矢印マークのダウンロードを実行してください。ダウンロードが終了すると既に動作を開始していますが、初回は音声が出ない場合があるのでリモコンの選局操作(←,→)をしてください。テラタームを起動し、115200bpsで開くと、下図の右図のようにリモコンを操作した時の該当ボタンの表示をしますのでリモコンが受け付けられていることを確認できます。これの表示は追加で、void ContactRaspPi() 関数の中の puts() 関数で行っており、使っていないボタンも表示しています。リモコンの電池の接触不良の場合がママ有るので、動作確認には便利です。



回路図は、生基板(初期基板)から赤マークの部分を改造しています。



CN-RASPは、ラズパイの GPIO の 40ピンと同じサイズ・配列で用意していますが、ここでは、写真のように必要なところだけを接続しています。
ＬＣＤのコネクタは、CN-LCD と CN-LCD-CABLE の２つを用意しています。CN-LCD は LCD を直付けするためのもの(書籍通り)で、CN-LCD-CABLE は、写真で行っているようにケーブルを延長するためのものです。ピン番の奇遇が逆になります。どちらも使えます。
この「赤外線リモコン付きインターネットラジオ」を作ってから、もっと手軽な「インターネットラジオ」が欲しくなり、小さな Raspberry Pi Zero WH で作ってみました。それを ラズパイ Zero によるインターネット・ラジオ として掲載しましたので見てみてください。

１. おしゃべり時計の製作
２. 赤外線リモコン付きインターネットラジオ
・・・の生基板(要・修正改造)をお譲りします。(各1,200円・〒税込み)
必要な方は、汎用製品価格表のトップからご連絡ください。
「ＰＩＣと楽しむRaspberry Pi 活用ガイドブック」のオリジナルの回路図とは異なっているところ、特に CN-RASP には電源が含まれますので、それだけは十分に注意して接続してください。また、おしゃべり時計の U1 と U2 のピン径は細ピンになっています(ノーマルピンにするつもりでしたが、ミスです)。
これらの基板は、書籍の XC8 コードでも動かしていますから、XC8 で動かす方も、もちろん使えます。

;=========================================================================================================
（１）おしゃべり時計の生基板の回路図

（２）赤外線リモコン付きインターネットラジオの生基板の回路図


（３）PIC書き込みとRS232Cモニター通信基板


Reported by TokioYamada@ADK