Wataru Kunino
ZB Coord API for XBee: This XBee library drives Digi XBee ZB Modules in API Operation mode. Most commands include remote communication's are supported by the functions of this library. You can control XBee devices through the API software modules in this, without using any AT commands. Please refer to the following page and some of sample codes:
Dependents: sample02_sw xbee_aging sample01_led sample04_sens
XBee library 'ZB Coord API'
Nucleo Board + Arduino Wireless Shield + XBee ZB Module + LCD
This XBee liblary is developed for Digi XBee ZB Modules on Nucleo F401RE Micro Computer Board through Arduino Wireless Shield.
Quote:
When you will use this liblary for anything other than Nucleo microcomputer board, please change the 4th line of xbee/xbee.cpp. The above code is only for STM32 Nucleo board.
- RawSerial _xbee_serial(SERIAL_TX, SERIAL_RX);
Hardware Jumper Settings
The hardware soldering jumper setting for the serial ports is necessary for Nucleo board.
- Set OPEN for SB14(TX)
- Set SHORT jumper for SB62
- Set SHORT jumper for SB63
Examples
Sample Code 01 LED
An XBee ZB Coordinator on a Nucleo Board controls LEDs on the other XBee ZB device.
#include "xbee.h"
DigitalOut myled(LED1);
int main(){
// Please set MAC Address to access your remote XBee device.
byte dev_gpio[] = {0x00,0x13,0xA2,0x00,0x40,0x30,0xC1,0x6F};
myled = 1; // set Higher Level(3.3V) for LED port on NUCLEO
xbee_init( 0 ); // Initialize XBee COM Port Settings
xbee_atnj( 0xFF ); // Enable Network Join
myled = 0; // set Lower Level(0.0V) for LED port on NUCLEO
while(1){
myled = 1; // set Higher Level(3.3V) for LED port on NUCLEO
xbee_gpo(dev_gpio,11,1); // set H Level for GPO port 11 on remote xbee
xbee_gpo(dev_gpio,12,1); // set H Level for GPO port 12 on remote xbee
wait(1);
myled = 0; // set Lower Level(0.0V) for LED port on NUCLEO
xbee_gpo(dev_gpio,11,0); // set L Level for GPO port 11 on remote xbee
xbee_gpo(dev_gpio,12,0); // set L Level for GPO port 12 on remote xbee
wait(1);
}
}
http://mbed.org/users/bokunimowakaru/code/sample01_led/
Sample Code 02 Switch
To push buttons (or switches) on an XBee ZB device report the conditions of input ports on it to a Nucleo board, and display them on a LCD.
#include "xbee.h"
#include "TextLCD.h"
TextLCD lcd(PA_9, PC_7, PB_5, PB_4, PB_10, PA_8); // rs, e, d4-d7
int main(){
byte data;
int i;
XBEE_RESULT xbee_result;
byte dev_gpio[] = {0x00,0x13,0xA2,0x00,0x40,0x30,0xC1,0x6F};
lcd.cls(); lcd.printf("Sample 2 SW");
xbee_init( 0x00 );
lcd.cls(); lcd.printf("ATNJ");
xbee_atnj( 0xFF );
lcd.cls(); lcd.printf("gpio init");
xbee_gpio_init(dev_gpio); // Send GPIO mode settings to remote device.
lcd.cls(); lcd.printf("DONE");
while(1){
data = xbee_rx_call( &xbee_result );
if( xbee_result.MODE == MODE_GPIN){ // When a GPIO packet is recieved,
lcd.cls();
for( i=7; i>=0 ; i--) lcd.printf( "%c",(char)( (int)'0' + ((data>>i) & 0x01) ) );
// Display the recieved data.
}
}
}
http://mbed.org/users/bokunimowakaru/code/sample02_sw/
Sample Code 04 Sensor
Measured results of an XBee wireless sensor device are displayed a LCD on Nucleo board with an XBee coordinator which is in API mode.
#include <xbee.h>
#include "TextLCD.h"
#define FORCE_INTERVAL 100
TextLCD lcd(PA_9, PC_7, PB_5, PB_4, PB_10, PA_8); // rs, e, d4-d7
byte dev_sens[8]; // IEEE Address
int main(){
int i;
int dev_en = 0; // Device Detection Flag
XBEE_RESULT xbee_result; // Stracture for recieved data
int trig=0;
float value;
lcd.cls(); lcd.printf("Sample 4 SENS");
xbee_init( 0x00 );
lcd.cls(); lcd.printf("Searching:SENSOR");
if( xbee_atnj(10) ){ // Enable Network Join during 10 seconds.
lcd.cls(); lcd.printf("Found a device");
xbee_from( dev_sens ); // Get address of remote device.
dev_en = 1;
xbee_gpio_config( dev_sens, 1 , AIN ); // Analog Input mode to port 1 on remote device
xbee_gpio_config( dev_sens, 2 , AIN ); // Analog Input mode to port 2 on remote device
}else{
lcd.cls(); lcd.printf("Failed:no dev.");
}
wait(1);
lcd.cls();
while(1){
if(dev_en){
if(trig<=0){
lcd.locate(12,0); lcd.printf("Trig"); wait(0.1);
xbee_force(dev_sens); // Send a request command to remote device.
trig = FORCE_INTERVAL;
lcd.locate(12,0); lcd.printf(" ");
}
}else{
lcd.cls(); lcd.printf("Waiting for XBee");
wait(0.5);
lcd.cls();
}
trig--;
xbee_rx_call( &xbee_result ); // Check a recieved packet.
switch( xbee_result.MODE ){ // Check the packet type.
case MODE_RESP: // the responce for the request in xbee_force().
case MODE_GPIN: // Report data from remote xbee device.
if( bytecmp( dev_sens , &(xbee_result.FROM[0]) ,8 ) == 0 && xbee_result.STATUS == STATUS_OK ){
value = xbee_sensor_result( &xbee_result, LIGHT);
lcd.locate(0,0); lcd.printf( "%.1f Lux ",value);
value = xbee_sensor_result( &xbee_result, TEMP);
lcd.locate(0,1); lcd.printf( "%.1f C ",value);
}
break;
case MODE_IDNT: // Commissioning Button Report is recieved.
lcd.cls(); lcd.printf("found a new dev");
for( i=0;i<8;i++ ) dev_sens[i]=xbee_result.FROM[i];
// Save MAC address of reported device.
dev_en = 1; // Flag on (A sensor is detected.)
trig = 0;
xbee_gpio_config( dev_sens, 1 , AIN ); // Set Analog Mode to port 1 on remote XBee
xbee_gpio_config( dev_sens, 2 , AIN ); // Set Analog Mode to port 2 on remote XBee
lcd.cls();
break;
default:
break;
}
}
}
http://mbed.org/users/bokunimowakaru/code/sample04_sens/
Diff: xbee.cpp
- Revision:
- 0:d72830877d98
- Child:
- 1:ffa16e9131c6
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/xbee.cpp Tue Sep 23 13:09:41 2014 +0000
@@ -0,0 +1,5372 @@
+#define ARM_MBED
+//#define DEBUG // D8(PA_9)からログをUART(38400baud)出力します
+//#define DEBUG_RX
+/*********************************************************************
+本ソースリストおよびソフトウェアは、ライセンスフリーです。(詳細は別記)
+利用、編集、再配布等が自由に行えますが、著作権表示の改変は禁止します。
+
+ Copyright (c) 2010-2014 Wataru KUNINO
+ http://www.geocities.jp/bokunimowakaru/
+*********************************************************************/
+/*
+既知のバグ
+ [PC用/H8用/Arduino共通]
+ ・xbee_force／ATISでERRORもしくは正しい値が得られない場合がある。
+ 一度、xbee_gpo／ATP104などで子機のGPIOなどに出力すると治る。
+ (XBeeモジュールの不具合と思われる)
+ ・XBee Smart Plug/XBee Sensor等でネットワーク参加直後、
+ 正しい値を応答しない場合がある。上記と似た症状かもしれない。
+ 一度、XBee Smart PlugのACコンセントを抜いて挿しなおせば治る。
+ (Smart Plug側のファームウェア「XBP24-ZB_2264」の問題と思われる)
+ ・Ver 1.90でLITEモードの仕様を変更。（濱崎氏によるBeeBee Lite）
+
+ ★XBee Wi-FiでのRAT実行時にXBeeから応答のパケットが無い場合がある。
+ IP_PINGは通る。
+ 再現方法、動作中にXBeeをリセットし、その後にArduinoをリセット。
+ XBeeモジュールをリセットすると治る。
+ Arduino版で発覚。PC版は未確認。
+
+ [パソコン用]
+ ・おかげさまで特記事項なし。安定して動作します。
+
+ [Arduino用]
+ ・標準SDライブラリ使用時にメモリ不足になる場合があります。
+ そのような場合はxbee_liteをincludeし、LITEモードにしてください。
+
+ [ARM mbed用]
+ ・試作品です。バグ多数かもしれません。
+ ・STマイクロ製 Nucleo Board STM32F401で動作確認しています。
+ ・XBeeとの接続にはArduino用Wireless SD Shieldを使用します。
+ ※Nucleoボードの裏側のジャンパー抵抗の変更が必要です。
+ 「SB14」をオープンにします（抵抗を取り外します。）
+ 「SB62」をショートします。（半田で接続します。）
+ 「SB63」をショートします。（半田で接続します。）
+ ・液晶はDF ROBOT製 LCD Keypad Shieldで動作確認しています。
+
+ [H8マイコン用]
+ ・Ver1.52以降は動作確認をしておらず、動作しない恐れがあります。
+ お使いになる方は連絡ください。動作確認版を個別リリースいたします。
+
+制限事項
+ ・ソースはPC/H8/Arduino/ARM mbed用で共通ですが拡張子が異なります。
+ PC/H8「xbee.c」をArduino用は「xbee_arduino」フォルダ内のライブラリ
+ 「xbee.h」をincludeしてください。
+ ・xbee_forceで指示を出してxbee_rx_callで待ち受ける用法を推奨します。
+ ・受信パケットの最大APIフレーム長は255Bytes等に制限されます。(64KB)
+ ・複数のXBeeデバイスの選択はアプリでIEEEアドレスを指定してください。
+ ・ショートアドレスは使っていません(IEEEアドレスで指定してください)
+ ・温度測定を行う場合は内部発熱分を補正(減算)する必要があります。
+ Digi純正のWall RouterやSmart Plugの場合は内部発熱の４℃を考慮して
+ 測定値から減算必要があります。
+ ・送信者アドレスを得る関数xbee_fromは、xbee_rx_callで受信した場合に
+ 正しく得られない場合があります。(受信キャッシュが保持されている時)
+ xbee_rx_callに渡したxbee_result.FROM[8]から送信者を得てください。
+
+アプリ向け提供関数
+
+ byte xbee_myaddress( byte *address );
+ void xbee_address( const byte *address );
+ byte xbee_atd( const byte *address );
+ byte xbee_ratd(const byte *dev_address, const byte *set_address );
+ byte xbee_ratd_myaddress(const byte *address);
+ void xbee_from( byte *address );
+ byte xbee_at(const char *in);
+ byte xbee_rat(const byte *address, const char *in);
+ byte xbee_rat_force(const byte *address, const char *in);
+ byte xbee_uart(const byte *address, const char *in);
+ byte xbee_bytes(const byte *address, const byte *in, byte len);
+ byte xbee_atvr( void );
+ byte xbee_atai( void );
+ byte xbee_atcb( byte cb );
+ unsigned short xbee_atop(byte *pan_id);
+ byte xbee_atee_on(const char *key );
+ byte xbee_atee_off( void );
+ byte xbee_atnc( void );
+ byte xbee_ratnc( const byte *address );
+ byte xbee_atnj( const byte timeout );
+ byte xbee_ratnj( const byte *address, const byte timeout );
+ byte xbee_ping( const byte *address );
+ int xbee_batt(const byte *address );
+ byte xbee_batt_force(const byte *address );
+ byte xbee_gpio_config(const byte *address, const byte port, const enum xbee_port_type type ); //(PC/H8)
+ byte xbee_gpio_config(const byte *address, const byte port, const byte type ); //(arduino)
+ byte xbee_gpio_init( const byte *address );
+ byte xbee_gpo( const byte *address, const byte port,const byte out );
+ byte xbee_gpi(const byte *address, const byte port); //(EASY)
+ unsigned int xbee_adc(const byte *address, const byte port); //(EASY)
+ byte xbee_force( const byte *address );
+ float xbee_sensor_result( XBEE_RESULT *xbee_result, const enum xbee_sensor_type type ); //(PC/H8)
+ float xbee_sensor_result( XBEE_RESULT *xbee_result, const byte type); //(arduino)
+ byte xbee_rx_call( XBEE_RESULT *xbee_result );
+ void xbee_clear_cache(void);
+ xbee_sensor(const byte *address, const enum xbee_sensor_type type ); //(EASY)
+ byte xbee_init( const byte port );
+ byte xbee_reset( void );
+ byte xbee_end_device(const byte *address, byte sp, byte ir, const byte pin);
+ byte xbee_i2c_read(const byte *address, byte adr, byte *rx, byte len);
+ byte xbee_i2c_write(const byte *address, byte adr, byte *rx, byte len);
+ byte xbee_delay(unsigned int ms);
+ void lcd_disp( char *s );
+
+主要な変更履歴
+ 2010/08/15 0.10 - 初回の公開版をリリース 基本動作部分の実験用
+ 2011/08/14 0.30 - ライブラリ化のためにAPI関数の内容を全面見直し
+ 2012/04/07 0.80 - 総合試験の実施とバグ修正、仕様見直しなど
+ 2012/04/22 0.91 - パソコン(cygwin)への移植
+ 2012/07/15 1.00 - 基本機能(sample1～8)のデバッグ完了。正式版
+ 2012/08/25 1.15 - Arduino用へ移植
+ - enum xbee_port_typeのADCをAINに変更
+ - 起動時にシリアル速度が設定されない不具合を修正
+ 2012/11/25 1.20 - 電池電圧確認用コマンドを非同期型に変更
+ xbee_batt⇒xbee_batt_force。応答はxbee_rx_call
+ 2012/12/09 1.30 - 液晶なしオプション(#define LCD_H)の追加
+ - Liteモード(#define LITE)の追加。ARDUINO版のみ
+ - PC版シリアルポートをcom1～com10に拡張
+ - グローバル変数アドレスのADR_MYとSADR_MYを廃止
+ 2012/12/16 1.50 - Arduino版のライブラリ化
+ - コマンド応答待ち時に他のパケットをキャッシュ
+ (#define CACHE_RES 10でキャッシュが有効になる)
+ 2012/12/17 1.51 - リモートATの応答確認にAT値からMODE値に変更
+ - H8のバグ対応(lcd_h8.cの2重呼び出し対策等)
+ 2012/12/18 1.52 - [重要] 関数lcd()をlcd_disp()に変更。
+ - Arduino版ライブラリ側ハードLCD,LED,SWの無効化
+ 2012/12/22 1.53 - [重要] atnjとratnjの戻り値を失敗時255に変更
+ - ATコマンドを送信する関数を追加
+ 2012/12/23 1.54 - 1.53のエンバグの修正(テスト用printfの残留)
+ 2012/12/30 1.55 - Arduino LEONARDOへの対応
+ - Arduino標準LCDの配線変更(DF ROBOT互換に)
+ 2013/01/12 1.56 - xbee_result.GPI[0]とGPI[1]の戻り値を入れ替え
+ 2013/01/14 1.57 - xbee_gpio_configでアドレス取得失敗時のバグ修正
+ 2013/01/20 1.58 - xbee状態取得 xbee_ataiとxbee_atopコマンド追加
+ 2013/04/03 1.60 - xbee_initによるXBeeリセット時の応答の廃棄処理
+ - エラー出力を stderrに変更PC用(のみ)
+ - xbee_result.GPI.PORT.Dnのエンバグ(1.56～)修正
+ 2013/04/08 1.71 - [重要] Arduino xbee_rx_callを構造体受取に変更
+ - [重要] Arduino xbee_sensor_resultの引数の同上
+ - [重要] xbee_rx_callパケット選択受信機能を削除
+ - [重要] PC/H8 xbee_result.ADCをADCINに変更
+ - xbee_atに16進数のテキスト引数の処理のバグ修正
+ - xbee_atnjでjoin後にatnj=5を設定(5秒Join有効)
+ - PC/H8/Arduinoでライブラリを共通ソースに統合
+ 2013/04/21 1.72 - コマンド応答をxbee_rx_callで得るxbee_rat_force
+ - テキストをシリアル送信するxbee_uartの追加
+ - ZigBeeデバイスタイプを取得するxbee_atvrの追加
+ - ネットワーク参加状況を確認するxbee_ataiの追加
+ - コミッショニング操作を行うxbee_atcbの追加
+ - ネットワークIDを取得するxbee_atopの追加
+ - 暗号化xbee_atee_onと解除xbee_atee_offの追加
+ 2013/04/30 1.73 - PC版＆Arduino版リリース
+ - 受信キャッシュオーバー時パケット廃棄(仕様変更)
+ 2013/05/09 1.74 - 初期化時にAPモード1の設定を追加
+ - #define LCD_H有効時以外のログ呼び出し停止
+ - 子機に本機アドレスを設定するxbee_set_myaddress
+ 2013/05/10 1.75 - End Deviceにスリープを設定するxbee_end_device
+ 2013/05/18 1.76 - [重要] 戻り値を送信パケット番号PACKET_IDに変更
+ xbee_gpo,同_force,同_batt,同_rat_force,同_uart
+ - [重要] Arduino xbee_resultにxbee_result.ID追加
+ 2013/05/25 1.77 - XBee Wi-Fi XBee IPによるリモートAT制御に対応
+ 2013/06/30 1.78 - 全マスクGPIO入力時xbee_result.GPI.BYTEを0xFFFF
+ - GPIO出力(xbee_gpo)の利用可能ポート範囲を拡大
+ 2013/08/28 1.79 - XBee Sensorのデバイス名(define)の追加
+ - xbee_end_deviceの親機のSP値を28秒固定に変更
+ 2013/09/28 1.80 - xbee_end_device Router時の自動送信設定を可能に
+ - xbee_resultのGPINに電池電圧ADC[0]にmV値を応答
+ - xbee_atnjでjoin後のatnj=5設定をatnj=0に変更
+ - リモートAT応答の送信元が取得できないバグ修正
+ - XBee Wi-Fi xbee_gpoを送信時の応答バグ修正
+ 2013/10/14 1.81 - Arduino版XBee Wi-Fi対応。XBee ZBは未テスト
+ - xbee_atd追加(End Device時に宛先アドレスを保存)
+ - xbee_ratd追加(親機アドレス以外も設定可能に)
+ - xbee_set_myaddress⇒xbee_ratd_myaddress名変更
+ - XBee Wi-Fi 3バイト以下UART受信不具合の修正
+ - XBee Wi-Fi ATDDで不適切な値を応答するバグ対策
+ - XBee Wi-Fiのフレーム受信でメモリーリーク対策
+ 2014/01/14 1.82 - ATmega32U4が使われている時はLEONARDOを自動定義
+ - シリアルポート異常時のSegFault不具合の修正
+ - 日時付エラーログ出力(PC用XBEE_ERROR_TIME定義)
+ 2014/02/17 1.83 - XBee Wi-Fi サンプルの各種不具合修正
+ - XBee Wi-Fi S2B対応(机上検討による実装)
+ - バイナリデータを子機UARTへ送信するxbee_bytes
+ - I2Cインタフェースを読み取るxbee_i2c_readの追加
+ - I2Cインタフェースで書き込むxbee_i2c_write追加
+ - 受信キャッシュをクリアするxbee_clear_cache追加
+ - 特定者向けリリース(I2C接続LCD,XBee Wi-Fi S2B)
+ 2014/02/23 1.84 - 無駄使いメモリの修正、表示の調整、累積バグ修正
+ - ATコマンド解析ツールxbee_test.cのhelpコマンド
+ - README内のバージョン齟齬に関する修正
+ 2014/03/01 1.85 - XBee WiFi S6B Ver.20xx対応(Ver.10xxと自動切替)
+ 対応モジュール XBee WiFi S6 Ver.102D
+ XBee WiFi S6B Ver.2021
+ 2014/03/17 1.86 - CQ出版様向けサンプルソフトウェアの正式リリース
+ 2014/06/21 1.87 - ARM mbed対応(試作品)
+ 2014/08/02 1.88 - シリアルCOMポート拡張(ポート番号1～64に対応)
+ - Arduino xbee_initでリトライ回数指定に。0で永久
+ - xbee_initに戻り値。異常時0。正常時リトライ数
+ - 受信しながら時間待ちするxbee_delay関数の追加
+ - 宛先ショートアドレス指定関数xbee_short_address
+ - ZigBee ZCL使用時(PC用)に関するバグ修正
+ 2014/08/24 1.89 - 内部関数xbee_resetの公開(ヘッダファイルへ追加)
+ - xbee_init 失敗時の戻り値の不具合を修正
+ - PC版 GCC Ver 4.7対応,最適化オプション-O1の付与
+ - 戻り値が不定になる内部関数の不具合修正
+ 2014/09/15 1.90 - 有志によるライブラリBeeBee Liteの一部機能採用
+ ・試験ツールxbee_agingを通過しない項目の調整
+ ・効果はArduino上でSD使用時のメモリ確保など
+ - xbee_bytesで規定サイズを超えた場合のリーク対策
+ - 下位マスク0x00のGPIN受信時にエラー出力バグ修正
+ 2014/10/00 1.91 - ARM mbedを用いた時の送信タイミング調整
+
+*********************************************************************/
+/*
+本ライブラリのバージョン
+*/
+#ifndef VERSION
+
+ #define VERSION "1.91" // 1.XX 4バイト形式 XXは半角文字
+
+#endif
+/*
+参考文献
+
+ (1) Digi International Inc.
+ XBee ZB RF Modules 90000976_D 8/18/2009
+ XBee Wi-Fi RF Module 90002124_F 2011
+ (2) Massimo Banzi著 船田功訳
+ Arduinoをはじめよう (オライリージャパン)
+ (3) BestTechnology CO.,LTD.
+ H8/3664F I/O address definition Release 3.5 2005-11-08 (3694.h)
+ (4) 粕谷友章
+ PC-UNIX関連ドキュメント「シリアルポートプログラミング」
+ www006.upp.so-net.ne.jp/kasuya/linux/serial_io_programing.html
+ (5) JM Project Linux Programmer's Manual
+ Linux man-pages プロジェクト リリース 3.52 (GPL V2)
+ linuxjm.sourceforge.jp/html/LDP_man-pages/man2/select.2.html
+ (6) mbed Handbook
+ mbed.org/handbook/Homepage
+
+ライセンスについて
+
+ 本ソースコードはライセンスフリーですが、参考文献の情報については
+ それぞれの権利者にお問い合わせください。
+
+注意点
+ 本ソフトの利用による損害について当方は一切の補償をいたしません。
+ 全て自己責任で利用ください。
+*/
+
+/*********************************************************************
+ライブラリ使用説明書
+
+ハードウェア
+
+ PC用 以下のハードが必要です。
+ ・USBを搭載したIBM PC/AT互換機(通常のWindows PC)
+ ・XBee USBエクスプローラ、XBee-Fly USB または 純正XBIB-U-DEVなど
+ (http://www.geocities.jp/bokunimowakaru/diy/xbee/xbee-usb.html)
+ ・XBee Series 2 (ZB) モジュール
+
+ Arduino 以下のハードが必要です。
+ ・Arduinoマイコンボード Arduino UNO Arduino Leonardo等
+ ・XBee Shield (Arduino Wireless SD Shieldなど)
+ ・XBee Series 2 (ZB) モジュール
+ ・LCDキャラクタディスプレイモジュール[20×4行] SC2004CS-B
+
+ キャラクタ液晶は以下のように接続する
+
+ rs rw en d0 d1 d2 d3
+ // LiquidCrystal xbee_ardlcd( 8, 7, 6, 5, 4, 3, 2)
+
+ ARM mbed用
+ ・STマイクロ製 Nucleo Board STM32F401で動作確認しています。
+ ・XBeeとの接続にはArduino用Wireless SD Shieldを使用します。
+ ※Nucleoボードの裏側のジャンパー抵抗の変更が必要です。
+ 「SB14」をオープンにします（抵抗を取り外します。）
+ 「SB62」をショートします。（半田で接続します。）
+ 「SB63」をショートします。（半田で接続します。）
+ ・液晶を使用したサンプルはDF ROBOT製 LCD Keypad Shieldで
+ 動作確認しています。
+
+ H3694用 秋月電子通商で販売されている以下のハードウェアが必要です。
+ ・AKI-H8/3694F(QFP) タイニーマイコンキット
+ ・Ｈ８タイニーＩ／Ｏ（アイ・オー）ボード
+ ・小型スライドスイッチ 1回路2接点 SS12D01G4
+ ・LCDキャラクタディスプレイモジュール[20×4行] SC2004CS-B
+ ・XBeeモジュールをRS-232Cに接続する基板(純正XBIB-R-DEVなど)
+ (http://www.geocities.jp/bokunimowakaru/pict/xbee-cord_sch.gif)
+ ・RS-232Cケーブル
+ ・XBee Series 2 (ZB) モジュール
+
+ キャラクタ液晶はH8/3694のCN1の14～19ピンの各出力と電源、
+ GNDを液晶モジュールのDB4～7およびE、RSの各入力、および
+ 電源に接続して製作します(下図参照)。
+
+ AKI-H8 液晶モジュール
+ (CN1) (HD44780搭載)
+ ━━┓ ┏━━━━━┓ ┯ 5V
+ ┃P50 ┃ ┃ ｜
+ 14┠──────┨DB4 Vdd┠───●┘
+ ┃P51 ┃ ┃ ｜
+ 15┠──────┨DB5 ┃ ＜
+ ┃P52 ┃ ┃ ┌→＞
+ 16┠──────┨DB6 VLC┠─┘ ＜ 10k
+ ┃P53 ┃ ┃ ｜
+ 17┠──────┨DB7 DB0-3┠─┐ ｜
+ ┃P54 ┃ ┃ ｜ ｜
+ 18┠──────┨E R/W┠─● ｜
+ ┃P55 ┃ ┃ ｜ ｜
+ 19┠──────┨RS Vss┠─●─●┐
+ ┃ ┗━━━━━┛ ┯┿┯
+
+
+ port: port指定 IO名 ピン番号 共用 主な用途
+ port= 0 DIO0 XBee_pin 20 (Cms) Commision コミッションボタン
+ port= 1 DIO1 XBee_pin 19 (AD1) 汎用入力用(DIN or AIN)
+ port= 2 DIO2 XBee_pin 18 (AD2) 汎用入力用(DIN or AIN)
+ port= 3 DIO3 XBee_pin 17 (AD3) 汎用入力用(DIN or AIN)
+ port= 4 DIO4 XBee_pin 11 汎用出力用
+ port= 5 DIO5 XBee_pin 15 (Ass) ASSOSIATE indication
+ port= 6 DIO6 XBee_pin 16 (RTS) 汎用出力用
+ port=10 DIO10 XBee_pin 6 (RSSI) RSSI indication (PWM)
+ port=11 DIO11 XBee_pin 7 汎用出力用
+ port=12 DIO12 XBee_pin 4 汎用出力用
+
+ソフト開発環境
+
+ 共通
+ ・X-CTU (Digi社)
+ PCもしくはH3694、Arduinoに接続する親機側のXBeeモジュールへ
+ Coordinatorのファームウェアを書き込むのに必要です。
+
+ Device Type XBee Firmware Ver. ハードウェア
+ -----------------------------------------------------
+ Coordinator COORDINATOR API 2141 パソコンのシリアル端子
+ または秋月H8Tiny IO BOARD
+ またはArduino側に接続
+ End Device END DEVICE AT 2841 単体で駆動
+
+ Arduino用
+ ・Arduino IDE
+
+ ARM mbed用
+ ・https://mbed.org/compiler/
+
+ PC用
+ ・cygwin (http://www.cygwin.com/)
+ ・インストール時にdevl内のgcc coreとmakeを選択すること
+
+ H3694用
+ ・GCC Developer Lite(株式会社ベストテクノロジー)
+ http://www.besttechnology.co.jp/modules/knowledge/
+
+ 上記ホームページの「ナレッジベース」より、技術情報／ソフト
+ ウェア／GCC Developer Liteからダウンロードできます。
+ この開発環境に含まれるH3694用のターゲットファイルを使用し
+ ていますので、他の環境で開発する場合は注意が必要です。
+*/
+
+/*********************************************************************
+インポート処理
+*********************************************************************/
+
+#ifndef LCD_TYPE_H
+ #define LCD_TYPE_H
+ #ifdef ARDUINO
+ #if defined(__AVR_ATmega32U4__)
+ #define LEONARDO // Arduino LEONARDを使用する場合に自動的に定義されます。
+ #endif
+ // #define LCD_H // 本ライブラリ動作を液晶表示する場合に定義する
+ // #define ADAFRUIT // 使用する液晶が Adafruit LCD Sheild の時に定義する
+ #else // H8 or ARM or PC
+ #ifndef ARM_MBED // H8 or PC
+ #define LCD_H
+ #endif
+ #endif
+// #define XBEE_WIFI // XBee Wi-Fiを使用するときに定義する
+// #define XBEE_WIFI_DEBUG
+// #define LITE // ライトモード(メモリ節約・機能制限)の時に定義する
+ #define EASY_GPI // xbee_gpi関数(リモートGPIO)を使用するときに定義する
+ #define EASY_ADC // xbee_adc関数(リモートADC)を使用するときに定義する
+// ##define EASY_SENSOR
+#endif
+
+#ifndef XB_IMPORT_H
+ #ifdef H3694
+ #ifndef __3694_H__
+ #include <3694.h>
+ #endif
+ #ifdef LCD_H
+ #ifndef LCD_ROW_1
+ #include "lcd_h8.c"
+ #endif
+ #endif
+ /* // lcd_h8ライブラリの関数
+ void lcd_delay(unsigned int data);
+ void lcd_toggle_E(void);
+ void lcd_cls(void);
+ void lcd_home(void);
+ void lcd_control(unsigned char disonoff, unsigned char curonoff, unsigned char curblink);
+ void lcd_goto(unsigned char mesto);
+ void lcd_shift(unsigned char data);
+ void lcd_putch(char data);
+ void lcd_putstr(const char *data);
+ void lcd_disp_bin(unsigned char x);
+ void lcd_disp_hex(unsigned char i);
+ void lcd_disp_1(unsigned int x);
+ void lcd_disp_2(unsigned int x);
+ void lcd_disp_3(unsigned int x);
+ void lcd_disp_5(unsigned int x);
+ void lcd_init(void);
+ */
+ #elif ARDUINO
+ // #include <inttypes.h>
+ #include "Arduino.h"
+ // #include "WProgram.h" // #if ARDUINO < 100
+ #ifdef LCD_H
+ #ifndef ADAFRUIT
+ // 通常のキャラクタLCDの場合
+ #include <LiquidCrystal.h>
+ #else
+ // Adafruit I2C接続LCDの場合(Adafruit_RGBLCDShieldライブラリが必要)
+ #include <Wire.h>
+ #include <Adafruit_MCP23017.h>
+ #include <Adafruit_RGBLCDShield.h>
+ #endif
+ #endif
+ #ifdef XBEE_WIFI
+ #include <SPI.h>
+ #include <Ethernet.h>
+ #include <EthernetUdp.h>
+ #endif
+ #ifndef LCD_ROW_1
+ #define LCD_ROW_1 0x00 //１行目先頭アドレス
+ #define LCD_ROW_2 0x40 //２行目先頭アドレス
+ #define LCD_ROW_3 0x14 //３行目先頭アドレス
+ #define LCD_ROW_4 0x54 //４行目先頭アドレス
+ #endif
+ #else
+ #ifdef ARM_MBED // ARM
+ #include "mbed.h"
+ #ifdef DEBUG
+ #define LCD_H
+ #define ERRLOG
+ #define LCD_ROW_1 0x00 //１行目先頭アドレス
+ #define LCD_ROW_2 0x40 //２行目先頭アドレス
+ #define LCD_ROW_3 0x14 //３行目先頭アドレス
+ #define LCD_ROW_4 0x54 //４行目先頭アドレス
+ #endif
+ #else // PC
+ #include <stdio.h>
+ #include <stdlib.h>
+ #include <string.h>
+ #include <termios.h>
+ #include <sys/signal.h>
+ #include <sys/time.h>
+ #include <fcntl.h>
+ #include <unistd.h>
+ #include <arpa/inet.h>
+ #ifdef XBEE_WIFI
+ #include <sys/types.h>
+ #include <sys/socket.h>
+ #include <netinet/in.h>
+ #include <ctype.h>
+ #include <sys/ioctl.h>
+ #include <string.h>
+ #endif
+ #define BAUDRATE B9600
+ #ifndef LCD_ROW_1
+ #include "lcd_pc.c"
+ #endif
+ #include <time.h> // クロックタイマー用
+ #endif
+ #endif
+ #define xbee_set_myaddress(adr) xbee_ratd_myaddress(adr)
+#endif
+
+/*********************************************************************
+定数の設定
+*********************************************************************/
+#ifndef XB_DEFINE_H
+ #define XB_DEFINE_H
+ #ifndef NAME
+ #ifdef LITE // BeeBee Lite by 蘭
+ #define NAME "BeeBee Lite"
+ #define COPYRIGHT "by Wataru & Ran"
+ #else
+ #define NAME "ZB Coord"
+ #define COPYRIGHT "by Wataru KUNINO"
+ #endif
+ #endif
+
+ #ifdef H3694
+ #define ERRLOG
+ #define LED1_OUT IO.PDR8.BIT.B0 // LED赤の接続ポート(エラー用)
+ #define LED2_OUT IO.PDR8.BIT.B1 // LED緑の接続ポート(動作確認用)
+ #define LCD_EN IO.PDR8.BIT.B6 // 液晶用電源
+ #define BUTN IO.PDR8.BIT.B2 // ボタンの接続ポート
+ #define SCI_SIZE 256 // シリアルデータ長(大きすぎるとRAMが不足する)
+ #define API_SIZE 128 // 受信用APIデータ長(32～255)
+ #define API_TXSIZE 64 // 送信用APIデータ長(32～255) シリアル送信最大長=API_TXSIZE-18バイト
+ #define CALL_SIZE 32 // xbee_rx_call用戻りデータ(10～256)
+ #define XB_AT_SIZE 32 // ATコマンドの最大長
+ #elif ARDUINO
+ // #define LED1_OUT 15 // 赤色ＬＥＤ(エラー用)用デジタルポート(15=analog 1)
+ // #define LED2_OUT 16 // 緑色ＬＥＤ(動作確認用)用デジタルポート(16=analog 2)
+ // #define LCD_EN 6 // 液晶用電源デジタルポート
+ // #define BUTN 14 // ボタンの接続ポート(14 = analog 0)
+ #ifdef LITE // BeeBee Lite by 蘭
+ #define API_SIZE 48 // 受信用APIデータ長(32～255)
+ #define API_TXSIZE 34 // 送信用APIデータ長(32～255) シリアル送信最大長=API_TXSIZE-18バイト
+ #define CALL_SIZE 16 // xbee_rx_call用戻りデータ(10～256)
+ #define XB_AT_SIZE 16 // ATコマンドの最大長
+ #else
+ #define CACHE_RES 2 // 応答時のキャッシュ数（無効にするには定義を消す）
+ #define API_SIZE 64 // 受信用APIデータ長(32～255)
+ #define API_TXSIZE 64 // 送信用APIデータ長(32～255)
+ #define CALL_SIZE 32 // xbee_rx_call用戻りデータ(10～256)
+ #define XB_AT_SIZE 32 // ATコマンドの最大長
+ #endif
+ #define LIGHT 1
+ #define TEMP 2
+ #define HUMIDITY 3
+ #define WATT 4
+ #define BATT 5
+ #define DISABLE 0
+ #define VENDER 1
+ #define AIN 2
+ #define DIN 3
+ #define DOUT_L 4
+ #define DOUT_H 5
+ #else
+ #ifdef ARM_MBED // ARM ＜条件は調整していない。ほぼArduinoのまま＞
+ #define CACHE_RES 3 // 応答時のキャッシュ数（無効にするには定義を消す）
+ #define API_SIZE 64 // 受信用APIデータ長(32～255)
+ #define API_TXSIZE 64 // 送信用APIデータ長(32～255)
+ #define CALL_SIZE 32 // xbee_rx_call用戻りデータ(10～256)
+ #define XB_AT_SIZE 32 // ATコマンドの最大長
+ #define delay(ms) wait_millisec(ms) // 関数名の複製
+ #define LIGHT 1
+ #define TEMP 2
+ #define HUMIDITY 3
+ #define WATT 4
+ #define BATT 5
+ #define DISABLE 0
+ #define VENDER 1
+ #define AIN 2
+ #define DIN 3
+ #define DOUT_L 4
+ #define DOUT_H 5
+ #else // PC
+ // #define DEBUG // デバッグモード
+ // #define DEBUG_TX // 送信パケットの表示
+ // #define DEBUG_RX // 受信パケットの表示
+ #define ERRLOG // エラー時にログを出力
+ // #define XBEE_ERROR_TIME // エラー時のログに日時を付与
+ #ifdef LITE // BeeBee Lite by 蘭
+ #define API_SIZE 48 // 受信用APIデータ長(32～255)
+ #define API_TXSIZE 34 // 送信用APIデータ長(32～255)
+ #define CALL_SIZE 16 // xbee_rx_call用戻りデータ(10～256)
+ #define XB_AT_SIZE 16 // ATコマンドの最大長
+ #else
+ #define CACHE_RES 5 // 応答時のキャッシュ数（無効にするには定義を消す）
+ #define API_SIZE 128 // 受信用APIデータ長(32～255)
+ #define API_TXSIZE 64 // 送信用APIデータ長(32～255)
+ #define CALL_SIZE 64 // xbee_rx_call用戻りデータ(10～256)
+ #define XB_AT_SIZE 32 // ATコマンドの最大長
+ #define delay(ms) wait_millisec(ms) // 関数名の複製
+ #endif
+ #endif
+ #endif
+ #define TIME_DEL 3 // デリミタ検出のタイムアウト時間(秒)
+ #define MODE_AUTO 0x00 // 自動受信モード
+ #define MODE_GPIN 0x92 // GPI data を受信するモード
+ #define MODE_UART 0x90 // UART data を受信するモード
+ #define MODE_UAR2 0x91 // UART data を受信するモード２(AO=1)
+ #define MODE_SENS 0x94 // XB Sensorを受信するモード(1wire専用→通常のSensorはATISを使用)
+ #define MODE_IDNT 0x95 // Node Identifyを受信するモード
+ #define MODE_RES 0x88 // ローカルATコマンドの結果を受信
+ #define MODE_RESP 0x97 // リモートATコマンドの結果を受信(仕様書はATNDで説明ATISもこれ)
+ #define MODE_MODM 0x8A // Modem Statusを受信
+ #define MODE_TXST 0x8B // UART Transmit Status を受信
+ #define MODE_BATT 0xE1 // (独自定義)バッテリステータス RAT%Vの応答時
+ // XBeeのFrame Typeに準拠する。
+ // 注意：モードを増やしたときはxbee_from_acumとxbee_rx_call内の対応を追加すること
+ // 独自定義の時はxbee_rx_call内のみ。
+ // MODE値はenum定義にしない。
+
+ #define STATUS_OK 0x00 // ATコマンドの結果がOK
+ #define STATUS_ERR 0x01 // ATコマンドの結果がERROR
+ #define STATUS_ERR_AT 0x02 // 指定されたATコマンドに誤りがある
+ #define STATUS_ERR_PARM 0x03 // 指定されたパラメータに誤りがある
+ #define STATUS_ERR_AIR 0x04 // リモートATコマンドの送信の失敗(相手が応答しない)
+
+ #define MODM_RESET 0x01 // ローカルのXBeeがリセットした
+ #define MODM_WATCHDOG 0x02 // ローカルのXBeeがWatch dogタイマーによってリセットした
+ #define MODM_JOINED 0x03 // (RouterまたはEnd Deviceで使用しているときに)ネットワークJoinした
+ #define MODM_LEFT 0x04 // ネットワークからdis_assosiateした
+ #define MODM_STARTED 0x06 // (coordinatorで使用しているときに)Coordinatorを開始した
+
+ #define DEV_TYPE_XBEE 0x00 // XBeeモジュール
+ #define DEV_TYPE_RS232 0x05 // RS-232Cアダプタ
+ #define DEV_TYPE_SENS 0x07 // Sensor (1wire専用)
+ #define DEV_TYPE_WALL 0x08 // Wall Router
+ #define DEV_TYPE_SEN_LT 0x0E // Sensor (照度・温度)
+ #define DEV_TYPE_SEN_LTH 0x0D // Sensor (照度・温度・湿度)
+ #define DEV_TYPE_PLUG 0x0F // Smart Plug
+
+ #define ZB_TYPE_COORD 0x21 // ZigBee Coordinator
+ #define ZB_TYPE_ROUTER 0x23 // ZigBee Router
+ #define ZB_TYPE_ENDDEV 0x29 // ZigBee End Device
+ #define XB_TYPE_NULL 0x00 // XBee Wi-Fi バージョン未取得
+ #define XB_TYPE_WIFI10 0x10 // XBee Wi-Fi Ver. 10xx
+ #define XB_TYPE_WIFI20 0x20 // XBee Wi-Fi Ver. 20xx
+
+ #define NET_ADR FFFE // ネットワークアドレス
+#endif
+
+/*********************************************************************
+型の定義とグローバル変数の宣言
+*********************************************************************/
+#ifndef XB_GLOBAL_H
+ #define XB_GLOBAL_H
+ typedef unsigned char byte; // Arduinoでも必要
+ #ifdef H3694
+ byte TIMER_SEC = 0 ; //ＲＴＣカウント用１秒単位
+ char sci_tx[SCI_SIZE]; // シリアル用
+ char sci_rx[SCI_SIZE];
+ #elif ARDUINO
+ #define TIMER_SEC time1s256()
+ #else
+ #ifdef ARM_MBED
+ #define TIMER_SEC time1s256()
+ #else // PC
+ #define TIMER_SEC time1s256() // TIMER_SECのカウントアップの代わり
+ volatile byte LED1_OUT;
+ volatile byte LED2_OUT;
+ volatile byte LCD_EN;
+ #endif
+ #endif
+
+ #ifdef ARDUINO
+ #ifdef LCD_H
+ #ifndef ADAFRUIT
+ // 通常のキャラクタLCDの場合
+ LiquidCrystal xbee_ardlcd(8, 9, 4, 5, 6, 7);
+ //LCD設定 rs en d0 d1 d2 d3
+ #else
+ // Adafruit I2C接続LCDの場合(Adafruit_RGBLCDShieldライブラリが必要)
+ Adafruit_RGBLCDShield xbee_ardlcd = Adafruit_RGBLCDShield();
+ #endif
+ #endif
+
+ // 構造体の宣言
+ typedef struct{
+ byte MODE; // 受信モード(Frame Type)
+ byte FROM[8]; // 送信元IEEEアドレス
+ byte AT[2]; // ATコマンド
+ byte ID; // 応答パケットID(Frame ID)
+ byte STATUS; // 応答結果(0:OK 1:ERROR)／AT結果／UART状態
+ union { // GPIOデータ
+ byte BYTE[2];
+ struct { // バイト毎に下位ビットから代入(リトルエンディアン)
+ byte D0 :1; byte D1 :1; byte D2 :1; byte D3 :1; // BYTE[1]
+ byte D4 :1; byte D5 :1; byte D6 :1; byte D7 :1;
+ byte :1; byte :1; byte D10:1; byte D11:1; // BYTE[0]
+ byte D12:1; byte :1; byte :1; byte :1;
+ } PORT;
+ } GPI;
+ // byte GPI[2]; // GPIOデータ
+ unsigned int ADCIN[4]; // ADCデータ
+ byte DATA[CALL_SIZE]; // 受信データ
+ } XBEE_RESULT; // 構造体の型名
+ #else
+ #ifdef ARM_MBED // ARM
+ // 構造体の宣言
+ typedef struct{
+ byte MODE; // 受信モード(Frame Type)
+ byte FROM[8]; // 送信元IEEEアドレス
+ byte AT[2]; // ATコマンド
+ byte ID; // 応答パケットID(Frame ID)
+ byte STATUS; // 応答結果(0:OK 1:ERROR)／AT結果／UART状態
+ union { // GPIOデータ
+ byte BYTE[2];
+ struct { // バイト毎に下位ビットから代入(リトルエンディアン)
+ byte D0 :1; byte D1 :1; byte D2 :1; byte D3 :1; // BYTE[1]
+ byte D4 :1; byte D5 :1; byte D6 :1; byte D7 :1;
+ byte :1; byte :1; byte D10:1; byte D11:1; // BYTE[0]
+ byte D12:1; byte :1; byte :1; byte :1;
+ } PORT;
+ } GPI;
+ // byte GPI[2]; // GPIOデータ
+ unsigned int ADCIN[4]; // ADCデータ
+ byte DATA[CALL_SIZE]; // 受信データ
+ } XBEE_RESULT; // 構造体の型名
+ #else // PC
+ enum xbee_sensor_type{ LIGHT,TEMP,HUMIDITY,WATT,BATT,PRESS,VALUE,TIMES,NA }; // センサタイプの型
+ enum xbee_port_type{ DISABLE=0, VENDER=1, AIN=2, DIN=3, DOUT_L=4, DOUT_H=5 };
+ // GPIOの設定の型
+ typedef struct{
+ byte MODE; // 受信モード(Frame Type)
+ byte FROM[8]; // 送信元IEEEアドレス
+ byte SHORT[2]; // 送信元ショートアドレス
+ byte AT[2]; // ATコマンド
+ byte ID; // 応答パケットID(Frame ID)
+ byte STATUS; // 応答結果(0:OK 1:ERROR)／AT結果／UART状態
+ union { // GPIOデータ
+ byte BYTE[2];
+ struct {
+ #ifdef H3694 // H8ではバイト毎に上位ビットから代入(ビッグエンディアン)
+ byte D7 :1; byte D6 :1; byte D5 :1; byte D4 :1; // BYTE[1]
+ byte D3 :1; byte D2 :1; byte D1 :1; byte D0 :1;
+ byte :1; byte :1; byte :1; byte D12:1; // BYTE[0]
+ byte D11:1; byte D10:1; byte :1; byte :1;
+ #else // PCではバイト毎に下位ビットから代入(リトルエンディアン)
+ byte D0 :1; byte D1 :1; byte D2 :1; byte D3 :1; // BYTE[1]
+ byte D4 :1; byte D5 :1; byte D6 :1; byte D7 :1;
+ byte :1; byte :1; byte D10:1; byte D11:1; // BYTE[0]
+ byte D12:1; byte :1; byte :1; byte :1;
+ #endif
+ } PORT;
+ } GPI;
+ unsigned int ADCIN[4]; // ADCデータ
+ byte ZCL[6]; // [0]送信元EndPoint, [1]宛先EndPoint, [2-3]クラスタID, [4-5]プロファイルID
+ byte DATA[CALL_SIZE]; // ペイロードデータ／ZCLヘッダ＋受信データ
+ } XBEE_RESULT;
+ #endif
+ #endif
+ #ifdef CACHE_RES
+ byte CACHE_MEM[CACHE_RES][API_SIZE];
+ byte CACHE_COUNTER = 0;
+ #endif
+#endif
+
+#ifdef XBEE_WIFI
+byte ADR_MY[] = {0xFF,0xFF,0xFF,0xFF};
+ #ifdef ARDUINO
+ extern byte mac[6];
+ EthernetUDP UdpXBeeR;
+ EthernetUDP UdpXBeeT;
+ EthernetUDP UdpXBeeU;
+ #endif
+#endif
+
+/*********************************************************************
+スタティック変数の宣言
+*********************************************************************/
+
+/* エラーログ用 */
+#ifdef ERRLOG
+static byte TIMER_ERR = 0 ; //エラー経過時間１秒単位
+static char ERR_LOG[API_TXSIZE-18];
+static byte ERR_CODE=0x00;
+#endif
+
+/* IEEEアドレス(最小限の通信対象をライブラリ側で保持する)／複数のデバイスへの対応はアプリ側で行う*/
+static byte ADR_FROM[]= {0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF}; //差出人のIEEEアドレス(変更可)
+
+// 以下にお手持ちのXBeeのアドレスを予め設定しておくと毎回の検索が不要です。
+static byte ADR_DEST[]= {0x00,0x13,0xA2,0x00,0x00,0x00,0x00,0x00}; //宛先のIEEEアドレス(変更可)
+
+/* ショートアドレス／本ライブラリでの宛先指定はIEEEのみを使う */
+static byte SADR_DEST[]= {0xFF,0xFE}; //ブロード(ショート)アドレス
+static byte PACKET_ID = 0; //送信パケット番号
+
+/* XBeeのデバイスタイプ ATVRの上２ケタ */
+static byte DEVICE_TYPE = ZB_TYPE_COORD; // Coord=0x21 Router=23 ED=29 Wi-Fi=10
+
+#ifndef H3694
+#ifndef ARDUINO
+#ifndef ARM_MBED // PC
+ #ifndef XBEE_WIFI
+ static byte xbee_com_port;
+ static int xbeeComFd;
+ static struct termios oldtio; /* current serial port settings (現在のシリアルポートの設定を待避)*/
+ // static byte *receive_buffer;
+ #else // XBEE_WIFI
+ int xbeeTSFd; // XBee Wi-Fi 送信ソケット用 ディスクリプタ
+ int xbeeRSFd; // XBee Wi-Fi 受信ソケット用 ディスクリプタ
+ int xbeeUSFd; // XBee Wi-Fi UARTソケット用 ディスクリプタ
+ struct sockaddr_in xbeeT_addr; // XBee Wi-Fi 送信アドレス構造体変数
+ struct sockaddr_in xbeeR_addr; // XBee Wi-Fi 受信アドレス構造体変数
+ struct sockaddr_in xbeeU_addr; // XBee Wi-Fi UARTアドレス構造体変数
+ #endif
+#endif
+#endif
+#endif
+
+/*********************************************************************
+ハードウェア
+*********************************************************************/
+
+/* H8タイニーマイコン H3694用のタイマー設定、GPIOポート設定 */
+#ifdef H3694
+ void port_init(void){
+
+ /*ポート1 76543210*/
+ IO.PMR1.BYTE = 0b00000000; // モード(P1,5) 入出力=0 その他=1
+ IO.PCR1 = 0b11110110; // 入出力設定 入力 =0 出力 =1 B3=リザーブ
+ IO.PUCR1.BYTE = 0b00000000; // プルアップ(P1,5) しない=0 する =1
+ IO.PDR1.BYTE = 0b00000000; // アクセス Ｌ出力=0 Ｈ出力=1
+
+ /*ポート8 76543210*/ // 秋月 H8 Tiny I/O BOARD TERA2 [K-00207]用
+ IO.PCR8 = 0b11111011; // 入出力設定 入力 =0 出力 =1
+ IO.PDR8.BYTE = 0b00000000; // アクセス Ｌ出力=0 Ｈ出力=1
+ }
+
+ /* タイマー初期化 */
+ void timer_sec_init(void){
+ DI;
+ TA.TMA.BYTE =0b00001000; /* 時計用クロック */
+ /* | |||-|__ 分周比 000～111(高速時) 000～011(低即時)
+ 固定値 ___|--|| 000:0.5120 sec. 000 1000 msec.
+ | 001:0.2560 sec. 001 500 msec.
+ 高速=0, 低速=1 _______| 100:0.0160 sec. 010 250 msec.
+ 111:0.0005 sec. 011 31.25 msec.*/
+
+ IRR1.BIT.IRRTA =0; /* タイマーＡ割込みフラグのリセット */
+ IENR1.BIT.IENTA =1; /* タイマーＡ割込みを利用可能にする */
+ EI;
+ }
+
+ /* AKI H8 TINY IO BOARD TERA2 用/PC用の接続デバイス設定*/
+ byte led_red( const byte in ){
+ if ( in == 0 ) LED1_OUT=0;
+ else if ( in == 1 ) LED1_OUT=1;
+ return( LED1_OUT );
+ }
+ byte led_green( const byte in ){
+ if ( in == 0 ) LED2_OUT=0;
+ else if ( in == 1 ) LED2_OUT=1;
+ return( LED2_OUT );
+ }
+ byte button( void ){
+ return( BUTN );
+ }
+ void lcd_enable( const byte in ){
+ LCD_EN = in;
+ }
+#endif
+
+/* ARM mbed 用 のタイマー設定 */
+#ifdef ARM_MBED // http://mbed.org/handbook/Timer
+ Timer _xbee_time; // http://mbed.org/teams/Aerodyne/code/Timer/file/1d3fd5616c0a/Timer.cpp
+ void _xbee_time_init(){
+ _xbee_time.start();
+ }
+#endif
+
+/* ＲＴＣ使用1秒カウント */
+byte time1s256(){
+ #ifdef H3694
+ return(0x00);
+ #elif ARDUINO
+ return( (byte)(millis()/1000) );
+ #else
+ #ifdef ARM_MBED
+ return( (byte)(_xbee_time.read()) );
+ // return(0);
+ #else //PC
+ // char c='\0';
+ // if (kbhit()) c = getch();
+ time_t sec;
+ time( &sec );
+ return( (byte)sec );
+ #endif
+ #endif
+}
+
+/* ＲＴＣによる割り込み処理（1秒毎） */
+#ifdef H3694
+ void int_timera(void){
+ led_green( TIMER_SEC & 0x01 ); // LEDの正常点滅
+ #ifdef ERRLOG
+ if( led_red( 0xFF ) == 1 ) TIMER_ERR++; // エラー秒数(LED_赤でエラー検出)
+ #endif
+ TIMER_SEC++; // タイマーのカウントアップ
+ IRR1.BIT.IRRTA=0; // タイマーA割込フラグのリセット
+ }
+#endif
+
+/* シリアル待ち時間の時間カウント用、ＲＴＣ使用1秒間に256カウント */
+byte timera(void){
+ #ifdef H3694
+ return( (byte)TA.TCA );
+ #elif ARDUINO
+ return( (byte)( (millis()/4)%256 ) );
+ #else
+ #ifdef ARM_MBED
+ return( (byte)(_xbee_time.read()*256) );
+ // return(0);
+ #else //PC
+ return( (byte)(clock()/(CLOCKS_PER_SEC/256)) );
+ #endif
+ #endif
+}
+
+/* ミリ秒待ち（250ms以下の高精度用） 入力範囲＝4～250 ms */
+#ifndef ARDUINO // BeeBee Lite by 蘭
+void wait_millisec_250( byte ms ){
+ #ifdef H3694
+ byte counter;
+
+ if( ms < 0x04 ) ms = 0x04;
+ counter = timera() + (byte)( ms>>2 );
+ if( counter == timera() ) counter++;
+ while( counter != timera() );
+ #elif ARDUINO
+ delay( (unsigned long) ms );
+ #else
+ #ifdef ARM_MBED
+ wait((float)ms/1000);
+ #endif
+ #endif
+}
+#endif
+
+/* ミリ秒待ち（30秒までの広範囲版） 入力範囲＝4～30,000 ms */
+void wait_millisec( const unsigned int ms ){
+ #ifdef H3694
+ byte loops;
+ if( ms < 250 ){
+ wait_millisec_250( (byte)ms );
+ }else{
+ loops = (byte)( ms / 250);
+ wait_millisec_250( (byte)(ms-loops*250) );
+ while( loops > 0x00 ){
+ wait_millisec_250( 0xFA );
+ loops--;
+ }
+ }
+ #elif ARDUINO
+ delay( (unsigned long) ms );
+ #else
+ #ifdef ARM_MBED
+ wait((float)ms/1000);
+ #else // PC
+ time_t target;
+
+ target = (time_t)(clock()/(CLOCKS_PER_SEC/1000)) + (time_t)ms;
+ if( target >= (time_t)ms ){
+ while( (time_t)(clock()/(CLOCKS_PER_SEC/1000)) <= target );
+ }else{
+ while( (time_t)(clock()/(CLOCKS_PER_SEC/1000)) > (time_t)ms ); // クロックがリセットされるまで待つ
+ while( (time_t)(clock()/(CLOCKS_PER_SEC/1000)) <= target );
+ }
+ #endif
+ #endif
+}
+
+/* 経過時間測定＝4～1000 ms 以内 単位は1/256秒毎 */
+byte past_time(const byte time_from){
+ return( timera() - time_from );
+}
+
+/* XBeeのADCの有効ポート数を調べる ADC1～3のみ 入力=バイトデータ 応答0～3個 */
+byte xbee_adc_count( byte d ){
+ return( ((d>>1)&0x01)+((d>>2)&0x01)+((d>>3)&0x01) );
+}
+
+/* XBee用シリアル通信ドライバ */
+#ifndef ARDUINO
+#ifndef H3694
+#ifndef ARM_MBED
+#ifndef XBEE_WIFI
+ int open_serial_port(char *modem_dev){
+ /*
+ PC-UNIX関連ドキュメント
+ 「シリアルポートプログラミング」
+ http://www006.upp.so-net.ne.jp/kasuya/linux/serial_io_programing.html
+ writer:粕谷友章 kasuya@pd5.so-net.ne.jp
+ */
+ struct termios newtio;
+ speed_t speed = B9600;
+ xbeeComFd=open(modem_dev,O_RDWR);
+ if(xbeeComFd < 0){
+ perror(modem_dev);
+ return -1;
+ }else{
+ tcgetattr(xbeeComFd,&oldtio);
+ newtio.c_iflag = 0;
+ newtio.c_oflag = 0;
+ newtio.c_cflag = 0;
+ newtio.c_lflag = 0;
+ newtio.c_line = 0;
+ bzero(newtio.c_cc,sizeof(newtio.c_cc));
+ cfsetispeed( &newtio, speed );
+ cfsetospeed( &newtio, speed );
+ newtio.c_cflag = BAUDRATE | CLOCAL | CREAD ;
+ newtio.c_cflag &= ~CSIZE;
+ newtio.c_cflag |= CS8;
+ newtio.c_oflag = 0;
+ newtio.c_lflag = 0;
+ newtio.c_cc[VMIN] = 0;
+ newtio.c_cc[VTIME] = 0;
+ tcflush(xbeeComFd,TCIFLUSH);
+ tcsetattr(xbeeComFd,TCSANOW,&newtio);
+ }
+ return 0;
+ }
+ void close_serial_port(void){
+ tcsetattr(xbeeComFd,TCSANOW,&oldtio);
+ close(xbeeComFd);
+ }
+#else // XBEE_WIFI（arduino除く）
+ int open_serial_port_tx(const byte *address){ // modem_dev＝IPアドレスのポインタ
+ byte i;
+ in_addr_t ip=0; // 送信アドレス
+
+ for(i=0;i<4;i++){
+ ip *= 256;
+ ip += (in_addr_t)(byte)address[3-i]; // アドレス順序は反転する
+ }
+ /* 送信アドレス設定 */
+ memset(&xbeeT_addr, 0, sizeof(xbeeT_addr)); // xbeeT_addrの初期化
+ xbeeT_addr.sin_family = AF_INET; // アドレスファミリー AF_INET
+ xbeeT_addr.sin_port = htons( 0xBEE ); // 送信ポート番号
+ xbeeT_addr.sin_addr.s_addr = ip; // 送信IPアドレス
+ /* ソケット生成 */
+ xbeeTSFd = socket(AF_INET, SOCK_DGRAM, 0); // 送信用ソケットの生成
+ #ifdef DEBUG
+ printf("IP(TX)=%s\n", inet_ntoa( xbeeT_addr.sin_addr ) );
+ #endif
+ return 0;
+ }
+ int open_serial_port_rx( void ){ // modem_dev＝IPアドレスのポインタ
+ /* 受信アドレス設定 */
+ memset(&xbeeR_addr, 0, sizeof(xbeeR_addr)); // xbeeR_addrの初期化
+ memset(&xbeeU_addr, 0, sizeof(xbeeU_addr)); // xbeeU_addrの初期化
+ xbeeR_addr.sin_family = AF_INET; // アドレスファミリー AF_INET
+ xbeeU_addr.sin_family = AF_INET; // アドレスファミリー AF_INET
+ xbeeR_addr.sin_port = htons( 0xBEE ); // 受信ポート番号(3054)
+ xbeeU_addr.sin_port = htons( 0x2616 ); // 受信ポート番号(9750 board-voip)
+ xbeeR_addr.sin_addr.s_addr = htonl(INADDR_ANY); // 受信IPアドレス(ANY)
+ xbeeU_addr.sin_addr.s_addr = htonl(INADDR_ANY); // 受信IPアドレス(ANY)
+ /* ソケット生成 */
+ xbeeRSFd = socket(AF_INET, SOCK_DGRAM, 0); // 受信用ソケットの生成
+ xbeeUSFd = socket(AF_INET, SOCK_DGRAM, 0); // 受信用ソケットの生成
+ /* バインド */
+ return(
+ bind(xbeeRSFd, (struct sockaddr *)&xbeeR_addr, sizeof(xbeeR_addr)) +
+ bind(xbeeUSFd, (struct sockaddr *)&xbeeU_addr, sizeof(xbeeU_addr))
+ );
+ }
+ int open_serial_port(const byte *modem_dev){ // modem_dev＝IPアドレスのポインタ
+ /* UDPソケットを生成する。戻り値：0＝成功、-1＝エラー
+ 入力はcharだけど中ではbyteとして扱う。byteアドレス→char入力→byte使用なので変換は不要 */
+ open_serial_port_tx( modem_dev );
+ return( open_serial_port_rx( ) );
+ }
+ void close_serial_port_tx(void){
+ close(xbeeTSFd);
+ #ifdef DEBUG
+ printf("DEBUG:close xbee tx sock\n");
+ #endif
+ }
+ void close_serial_port(void){
+ close(xbeeTSFd);
+ close(xbeeRSFd);
+ close(xbeeUSFd);
+ #ifdef DEBUG
+ printf("DEBUG:close xbee tx and rx sock\n");
+ #endif
+ }
+#endif
+#endif // not ARM
+#endif // not H3694
+#endif // not ARDUINO
+
+#ifdef ARDUINO
+#ifdef XBEE_WIFI
+int open_serial_port(void){
+ Ethernet.begin(mac);
+ delay(1000);
+ UdpXBeeU.begin(0x2616); // UART受信用のUDP開始
+ UdpXBeeR.begin(0xBEE); // URAT リモートATコマンド受信用のUDPの開始
+ UdpXBeeT.begin(0xBEE); // URAT リモートATコマンド送信用のUDPの開始
+ return( 0 );
+}
+#endif // XBEE_WIFI
+#endif // ARDUINO
+
+/* シリアルの初期化 */
+#ifdef ARM_MBED
+ Serial _xbee_serial(SERIAL_TX, SERIAL_RX); // USART2
+ // Serial _xbee_serial(D1, D0); //
+ #ifdef DEBUG
+ Serial _xbee_debug(PA_9, PA_10); // USART1
+ #endif
+#endif
+
+/* シリアル受信用コールバック(ARM専用) */
+ /* Serial.readableで確認してからSerial.getcする方法だと、連続した2バイト以上の
+ データ列を受信できなかった。STマイクロの問題なのかmbedの問題かは不明だが、
+ ハードウェアの受信バッファ内のデータをうまく読めないものと思う。
+ したがって、割込みで取り込んでソフト受信バッファを実装することにした。
+ バッファサイズはとりあえず128バイト */
+#ifdef ARM_MBED
+#define ARM_RX_BUFFER 64
+volatile byte _xbee_serial_buf[ARM_RX_BUFFER];
+volatile byte _xbee_serial_bp=0;
+volatile byte _xbee_serial_rp=0;
+void _xbee_serial_callback(){
+ _xbee_serial_buf[_xbee_serial_bp] = _xbee_serial.getc();
+ if(_xbee_serial_bp < (ARM_RX_BUFFER-1))_xbee_serial_bp++;
+ else{
+ #ifdef DEBUG
+ _xbee_debug.printf("ERR:Buffer Full(%d)\r\n",_xbee_serial_bp);
+ #endif
+ }
+}
+#endif
+
+/* シリアルの初期化 */
+byte sci_init( byte port ){
+ #ifdef H3694
+ SCI3_INIT(br9600, sci_tx, SCI_SIZE, sci_tx, SCI_SIZE);
+ EI; // 割り込み許可
+ return(1);
+ #elif ARDUINO
+ #ifndef XBEE_WIFI
+ #ifdef LEONARDO
+ Serial1.begin(9600);
+ #else
+ Serial.begin(9600);
+ #endif
+ return(1);
+ #else // Arduino XBee_WIFI
+ byte i;
+ #ifdef XBEE_WIFI_DEBUG
+ Serial.begin(9600); // TEST用
+ Serial.println("Hello!");
+ #endif
+ open_serial_port();
+ return(1);
+ #endif
+ #else
+ #ifdef ARM_MBED
+ _xbee_serial.baud(9600);
+ _xbee_serial.attach(&_xbee_serial_callback);
+ #ifdef DEBUG
+ _xbee_debug.baud(38400);
+ #endif
+ return(1);
+ #else // PC の時(ZigBeeシリアル or WiFi_LAN)
+ #ifndef XBEE_WIFI // ZigBeeシリアル
+ /* tasasaki様よりポート11～64の拡張対応方法を教えていただいて追加した。*/
+ char modem_dev[12] = "/dev/ttyS00";
+
+ if( port <= 10){
+ modem_dev[9] = (char)( port - 1 + (byte)'0' );
+ modem_dev[10]= '\0';
+ }else if( port <= 64 ){
+ snprintf(&modem_dev[9], 3, "%d", port - 1);
+ }else{
+ fprintf(stderr,"ERR:sci_init port=%d\n",port);
+ return(0);
+ }
+ if( open_serial_port( modem_dev ) ){
+ wait_millisec( 100 );
+ close_serial_port(); // open出来ていないが念のために閉じる
+ wait_millisec( 100 );
+ fprintf(stderr,"Failed serial COM%d (%s)\n",port,modem_dev);
+ port = 0;
+ }else{
+ fprintf(stderr,"Serial port = COM%d (%s)\n",port,modem_dev);
+ xbee_com_port = port;
+ }
+ return( port );
+ #else // XBEE_WIFI PC用
+ byte i,j;
+ for(i=0;i<3;i++){
+ if( open_serial_port( ADR_DEST ) < 0 ){
+ fprintf(stderr,"Failed UDP[%d/3]:",i+1);
+ for(j=0;j<4;j++) fprintf(stderr,"%d.",(int)ADR_DEST[j]);
+ fprintf(stderr,"\b\n");
+ wait_millisec( 100 );
+ close_serial_port(); // open出来ていないが念のために閉じる
+ wait_millisec( 900 );
+ }else break;
+ }
+ #ifdef DEBUG
+ printf("DEBUG:SCI init for WiFi done\n");
+ #endif
+ return( 3-i );
+ #endif // Wifi
+ #endif // ARM/PC
+ #endif
+}
+
+/* シリアル送受信バッファクリア */
+void sci_clear(void){
+ #ifdef H3694
+ SCI3_IN_DATA_CLEAR();
+ SCI3_OUT_DATA_CLEAR();
+ #elif ARDUINO
+ #ifndef XBEE_WIFI
+ #ifdef LEONARDO
+ Serial1.flush();
+ #else
+ Serial.flush();
+ #endif
+ #endif
+ #else
+ #ifdef ARM_MBED
+ while( _xbee_serial.readable() ) _xbee_serial.getc();
+ while( !_xbee_serial.writeable() ) wait(0.1);
+ #else //PC
+ #ifndef XBEE_WIFI // ZigBee
+ tcflush(xbeeComFd,TCIOFLUSH);
+ #else // XBEE_WIFI
+ close_serial_port();
+ sci_init( 0 );
+ #endif
+ #endif
+ #endif
+}
+
+/* シリアル受信(1バイト) */
+byte sci_read(byte timeout){
+ #ifdef H3694
+ byte timer;
+ byte ret=0;
+ timer = timera() + (timeout)+1; // timeout[ms] = timer/256*1000
+ while( timer != timera() && SCI3_IN_DATA_CHECK() < 1 );
+ if( SCI3_IN_DATA_CHECK() ) ret=(byte)SCI3_IN_DATA();
+ return( ret );
+ #elif ARDUINO // 蘭様による改良あり
+ #ifndef XBEE_WIFI
+ byte timer;
+ timer = timera() + (timeout)+1; // timeout[ms] = timer/256*1000
+ // led_green(0);
+ #ifdef LEONARDO
+ while( timer != timera() && Serial1.available() <= 0 );
+ // led_green(1);
+ if( Serial1.available() > 0 ) return( (byte)Serial1.read() );
+ #else
+ while( timer != timera() && Serial.available() <= 0 );
+ // led_green(1);
+ if( Serial.available() > 0 ) return( (byte)Serial.read() );
+ #endif
+ #else
+ return(0x00); // フレームで受信するのでバイト毎受信は不要
+ #endif
+ #else
+ #ifdef ARM_MBED
+ // http://mbed.org/users/mbed_official/code/mbed-src/docs/e8b66477f5bf/classmbed_1_1RawSerial.html
+ int value = 0,i=0;
+ volatile byte timer;
+
+ timer = timera() + (timeout)+1;
+
+ // while( timer != timera() && i == 0 ) i=_xbee_serial.readable();
+ while( timer != timera() && i == 0 ) i=_xbee_serial_bp;
+ if( i > 0 ){
+ // value = _xbee_serial.getc();
+ value = _xbee_serial_buf[_xbee_serial_rp];
+ if(_xbee_serial_rp < (ARM_RX_BUFFER-1))_xbee_serial_rp++;
+ if(_xbee_serial_bp <= _xbee_serial_rp ){
+ _xbee_serial_bp=0;
+ _xbee_serial_rp=0;
+ }
+ // #ifdef DEBUG_RX
+ // _xbee_debug.printf("%c(%02X) ",value,value);
+ // #endif
+ }
+ if(value<0 || value>255) value=0;
+ return( (byte)value );
+ #else // PC
+ /* 受信の有無の判断にFDの待ち受け関数selectを使用する。
+ 参考文献
+ http://linuxjm.sourceforge.jp/html/LDP_man-pages/man2/select.2.html
+ */
+ #ifndef XBEE_WIFI
+ byte c;
+ struct timeval tv;
+ fd_set readfds;
+
+ FD_ZERO(&readfds);
+ FD_SET( xbeeComFd , &readfds);
+ tv.tv_sec = 0;
+ #ifdef LITE // BeeBee Lite by 蘭
+ /*
+ if( timeout > 50 ){
+ tv.tv_usec = timeout*600;
+ }else if( timeout > 10 ){
+ tv.tv_usec = timeout*750;
+ }else{
+ tv.tv_usec = 0;
+ }
+ */
+ // 今回は見送ります(本関数を呼び出す前に調整しているので不要)
+ tv.tv_usec = timeout*1000;
+ #else
+ tv.tv_usec = timeout*1000;
+ #endif
+ if( select( (xbeeComFd+1), &readfds, NULL, NULL ,&tv ) ){
+ read(xbeeComFd,(char *)&c,1);
+ }else{
+ c = 0x00;
+ }
+ return( c );
+ #else // XBEE_WIFI
+ return(0); // フレームで受信するのでバイト毎受信は不要
+ #endif
+ #endif
+ #endif
+}
+
+#ifdef XBEE_WIFI
+/* シリアル受信(1フレーム) 始めの４バイトは送信元のアドレス */
+byte sci_read_frame(byte *data){
+ #ifndef H3694
+ #ifndef ARDUINO // XBEE_WIFI PC受信
+ byte i,ret;
+ int len=0;
+ struct sockaddr_in xbeeF_addr; // FROMアドレス入力用
+ struct timeval tv; // タイムアウト用
+ fd_set readfds;
+
+ /* 受信の有無の判断にFDの待ち受け関数selectを使用する。*/
+ FD_ZERO(&readfds); // FD初期化
+ FD_SET(xbeeRSFd, &readfds); // 待ちソケットの登録
+ tv.tv_sec = (long)0;
+ tv.tv_usec = (long)9000; // 9ms
+ /* データ受信 */
+ if( select( (xbeeRSFd+1), &readfds, NULL, NULL, &tv) > 0 ){
+ len = sizeof(xbeeF_addr);
+ len = recvfrom(xbeeRSFd, &(data[4]), (API_SIZE-14), 0, (struct sockaddr *)&xbeeF_addr, &len );
+ if( len > 0 ){
+ len += 4;
+ #ifdef DEBUG
+ printf("IP(RX)=%s\n", inet_ntoa( xbeeF_addr.sin_addr ) );
+ #endif
+ for(i=0;i<4;i++){
+ data[i]=(byte)(xbeeF_addr.sin_addr.s_addr % (long)256);
+ xbeeF_addr.sin_addr.s_addr /= (long)256;
+ }
+ }
+ }else{ // 受信データが無い時はUARTを受信する
+ FD_ZERO(&readfds); // FD初期化
+ FD_SET(xbeeUSFd, &readfds); // 待ちソケットの登録
+ tv.tv_usec = (long)1000; // 1ms
+ if( select( (xbeeUSFd+1), &readfds, NULL, NULL, &tv) > 0 ){
+ len = sizeof(xbeeU_addr);
+ len = recvfrom(xbeeUSFd, &(data[6]), (API_SIZE-16), 0, (struct sockaddr *)&xbeeU_addr, &len );
+ if( len > 0 ){ // データはdata[6]以降に入る
+ data[4] = 0x00; // UART受信を示す。
+ data[5] = len; // UART長を示す（data[]長では無い）。
+ len += 6;
+ #ifdef DEBUG
+ printf("IP(UART)=%s\n", inet_ntoa( xbeeU_addr.sin_addr ) );
+ #endif
+ for(i=0;i<4;i++){
+ data[i]=(byte)(xbeeU_addr.sin_addr.s_addr % (long)256);
+ xbeeU_addr.sin_addr.s_addr /= (long)256;
+ }
+ }
+ }
+ }
+ if( len < 0 ) ret = 0; else if( len>255 ) ret = 0xFF; else ret =(byte)len;
+ #ifdef DEBUG_RX
+ if( ret ){
+ printf("Recieved Packet rx[%3d]\nip0,ip1,ip2,ip3,urt,len,", len);
+ for(i=6;i<len;i++) printf("%3d,",i);
+ printf("\n");
+ for(i=0;i<len;i++) printf(" %02X,",data[i]); // dataはbyte型
+ printf("\n");
+ for(i=0;i<len;i++) if( isgraph(data[i]) ) printf("'%c',",data[i]); else printf("%3d,",(int)data[i]);
+ printf("\n");
+ }
+ #endif
+ return( ret );
+ #else // XBEE_WIFI ARDUINO受信
+ int packetSize;
+ IPAddress remote;
+ byte i;
+ byte ret=0;
+
+ /* UdpXBeeR受信 */
+ packetSize = UdpXBeeR.parsePacket();
+ if(packetSize){
+ remote = UdpXBeeR.remoteIP();
+ for(i=0;i<4;i++) data[i]=(byte)remote[i];
+ if( packetSize > (API_SIZE-14) ) ret = API_SIZE-14; //API_SIZEはIPのため-4で良いと思ったが、ZBフォーマット移行の-9-1-4が上限)
+ else ret = (byte)packetSize;
+ UdpXBeeR.read(&(data[4]), ret);
+ ret += 4;
+ }else{
+ /* UdpXBeeU受信 */
+ packetSize = UdpXBeeU.parsePacket();
+ if(packetSize){
+ remote = UdpXBeeU.remoteIP();
+ for(i=0;i<4;i++) data[i]=(byte)remote[i];
+ if( packetSize > (API_SIZE-16) ) ret = API_SIZE-16; //API_SIZEはIPのため-6で良いと思ったが、ZBフォーマット移行の-9-1-6が上限)
+ else ret = (byte)packetSize; // Ver 1.80で抜けていた(バグ)
+ data[4] = 0x00; // UART受信を示す。
+ data[5] = ret; // UART長を示す（data[]長では無い）。
+ UdpXBeeU.read(&(data[6]), ret);
+ ret += 6;
+ }
+ }
+ #ifdef XBEE_WIFI_DEBUG
+ Serial.print("RX udp size=");
+ Serial.print(ret);
+ Serial.print(", ");
+ for(i=0;i<ret;i++){
+ Serial.print(data[i],HEX);
+ Serial.print(" ");
+ }
+ Serial.println("");
+ #endif
+ return( ret );
+ #endif
+ #endif
+}
+#endif
+
+/* シリアル送信バッファが空になるのを待つ */
+#ifndef LITE
+byte sci_write_check(void){
+ #ifdef H3694
+ byte timer;
+ timer = timera() + 0x7F; // timeout = 500ms
+ while( (timer != timera()) && ( SCI3_OUT_DATA_CHECK() < 1 ) );
+ return( (byte)SCI3_OUT_DATA_CHECK() );
+ #elif ARDUINO
+ return( 1 ); // 関数があるかもしれないので、そのうち要調査＆確認
+ #else
+ #ifdef ARM_MBED
+ if( !_xbee_serial.writeable() ){
+ while( !_xbee_serial.writeable() );
+ wait(0.1);
+ }
+ return( 1 );
+ #else // PC
+ #ifndef XBEE_WIFI // ZigBee
+ tcdrain( xbeeComFd );
+ #endif
+ return( 1 );
+ #endif
+ #endif
+}
+#endif // LITE
+
+/* シリアル送信 */
+byte sci_write( char *data, byte len ){
+ byte ret=1; // 戻り値 0でエラー
+
+ #ifdef H3694
+ SCI3_OUT_STRINGB( data , (short)len ); // 戻り値なし
+ #elif ARDUINO
+ byte i;
+ #ifdef XBEE_WIFI
+ UdpXBeeT.beginPacket(ADR_DEST, 0xBEE );
+ #endif
+ for(i=0;i<len;i++){
+ #ifndef XBEE_WIFI
+ #ifdef LEONARDO
+ ret = Serial1.write( data[i] ); // 戻り値は書き込みバイト数
+ #else
+ ret = Serial.write( data[i] ); // 戻り値は書き込みバイト数
+ #endif
+ #else // XBEE_WIFI ARDUINO
+ ret = UdpXBeeT.write( data[i] ); // 戻り値は書き込みバイト数
+ /*
+ Serial.print("TX udp size=");
+ Serial.print(len,DEC);
+ Serial.print(", ");
+ for(i=0;i<len;i++){
+ Serial.print(data[i],HEX);
+ Serial.print(" ");
+ }
+ Serial.println("");
+ */
+ #endif
+ if( ret == 0 ){
+ i = len; // break;
+ }
+ }
+ #ifdef XBEE_WIFI
+ UdpXBeeT.endPacket();
+ #endif
+ #else
+ #ifdef ARM_MBED
+ byte i;
+ sci_write_check();
+ for(i=0;i<len;i++){
+ if( _xbee_serial.putc((int)data[i]) < 0 ) ret=0;
+ }
+ if(ret) ret=len;
+ #else // PC
+ #ifndef XBEE_WIFI
+ byte i;
+ for(i=0;i<len;i++){
+ if(write(xbeeComFd,&data[i],1) != 1){
+ fprintf(stderr,"sci_write ERR:d[%02d]=0x%02x\n",i,(byte)data[i]);
+ ret = 0;
+ }
+ }
+ #ifdef DEBUG_TX
+ printf("Transmitted Packet tx[%3d] to ", len);
+ for(i=0;i<4;i++) printf("%02X",ADR_DEST[i]);
+ printf(" ");
+ for(i=4;i<8;i++) printf("%02X",ADR_DEST[i]);
+ printf("\n");
+ for(i=0;i<len;i++) printf("%3d,",i);
+ printf("\n");
+ for(i=0;i<len;i++) printf(" %02X,",(byte)data[i]); // dataはchar型
+ printf("\n");
+ for(i=0;i<len;i++) if( (byte)data[i]>=0x20 ) printf("'%c',",data[i]); else printf("%3d,",(int)((byte)data[i]));
+ printf("\n");
+ #endif
+ #else // XBEE_WIFI
+ #ifdef DEBUG_TX
+ int i;
+ #endif
+ int ret_i; // 戻り値 0でエラー
+ ret_i = sendto(xbeeTSFd, data, len, 0, (struct sockaddr *)&xbeeT_addr, sizeof(xbeeT_addr));
+ if( ret_i<0 ) ret=0; else if( ret_i>255 ) ret = 0xFF; else ret = (byte)ret_i;
+ #ifdef DEBUG_TX
+ printf("Transmitted Packet tx[%3d] to ", len);
+ for(i=0;i<4;i++) printf("%d.",ADR_DEST[i]);
+ printf(":0xBEE\n");
+ for(i=0;i<len;i++) printf("%3d,",i);
+ printf("\n");
+ for(i=0;i<len;i++) printf(" %02X,",(byte)data[i]); // dataはchar型
+ printf("\n");
+ for(i=0;i<len;i++) if( isgraph((byte)data[i]) ) printf("'%c',",data[i]); else printf("%3d,",(int)((byte)data[i]));
+ printf("\n");
+ #endif
+ #endif
+ #endif // ARM/PC
+ #endif
+ #ifdef DEBUG
+ #ifdef ARM_MBED
+ _xbee_debug.printf("DEBUG:TX OUT DONE(%d)\r\n",ret);
+ #else
+ printf("DEBUG:TX OUT DONE(%d)\n",ret);
+ #endif
+ #endif
+ return( ret );
+}
+
+/* string byte操作 */
+void strcopy(char *s1, const char *s2){ // string.hのstrcpyの真似版
+ while( *s2 != 0x00 ) *s1++ = *s2++;
+ *s1 = 0x00;
+}
+void bytecpy(byte *s1, const byte *s2, byte size){ // strcpyのバイト長可変版
+ byte i;
+ for(i=0; i< size ;i++ ){
+ s1[i] = s2[i];
+ }
+}
+byte bytecmp(byte *s1, const byte *s2, byte size){ // strcmpの簡易版（大小比較なし）
+/*バイトデータの比較
+ 入力：byte *s1 = 比較データ1
+ 入力：byte *s2 = 比較データ2
+ 入力：byte size = 比較データ長
+ 出力：戻り値 = 0:一致 1:不一致
+*/
+ byte i=0; // 同一なら0を応答
+ for(i=0; i< size ;i++ ){
+ if( s1[i] != s2[i] ) return(1);
+ }
+ return(0);
+}
+
+/* LCD用関数 for ARDUINO */ // H8版とPC版は別ファイル lcd_h8.c lcd_pc.c
+#ifdef ARDUINO
+#ifdef LCD_H
+ void lcd_cls(void){
+ xbee_ardlcd.clear();
+ }
+ void lcd_home(void){
+ xbee_ardlcd.home();
+ }
+ void lcd_control(byte disonoff, byte curonoff, byte curblink){
+ }
+ void lcd_goto(const byte mesto){
+ byte row=0;
+
+ switch( mesto ){
+ case LCD_ROW_1: row=0; break;
+ case LCD_ROW_2: row=1; break;
+ case LCD_ROW_3: row=2; break;
+ case LCD_ROW_4: row=3; break;
+ }
+ xbee_ardlcd.setCursor(0,(int)row);
+ }
+ void lcd_shift(const byte data){
+ xbee_ardlcd.write(' ');
+ }
+ void lcd_putch(const char data){
+ xbee_ardlcd.write( data );
+ }
+ void lcd_putstr(const char *data){
+ while(*data != 0) {
+ xbee_ardlcd.write(*data);
+ data++;
+ }
+ }
+ void lcd_disp_bin(const byte x){
+ // xbee_ardlcd.print( x, BIN );
+ byte i;
+ for (i=128;i>0;i>>=1){
+ if ((x&i)==0){
+ lcd_putch('0');
+ }else{
+ lcd_putch('1');
+ }
+ }
+ }
+ void lcd_disp_hex(const byte i){
+ // xbee_ardlcd.print( i, HEX );
+ byte hi,lo;
+ hi=i&0xF0; // High nibble
+ hi=hi>>4;
+ hi=hi+'0';
+ if (hi>'9'){
+ hi=hi+7;
+ }
+ lo=(i&0x0F)+'0'; // Low nibble
+ if (lo>'9'){
+ lo=lo+7;
+ }
+ lcd_putch((char)hi);
+ lcd_putch((char)lo);
+ }
+ void lcd_disp_1(const unsigned int x){
+ if (x<10){
+ xbee_ardlcd.write((char)(x+0x30));
+ }else if (x<16){
+ xbee_ardlcd.write((char)(x-10+'A'));
+ }else{
+ xbee_ardlcd.write('X');
+ }
+ }
+ void lcd_disp_2(unsigned int x){
+ unsigned int y;
+ if (x<100){
+ y=x/10;
+ xbee_ardlcd.write((char)(y+0x30));
+ x-=(y*10);
+ xbee_ardlcd.write((char)(x+0x30));
+ }else{
+ xbee_ardlcd.print("XX");
+ }
+ }
+ void lcd_disp_3(unsigned int x){
+ unsigned int y;
+ if (x<1000){
+ y=x/100;
+ xbee_ardlcd.write((char)(y+0x30));
+ x-=(y*100);
+ y=x/10;
+ xbee_ardlcd.write((char)(y+0x30));
+ x-=(y*10);
+ xbee_ardlcd.write((char)(x+0x30));
+ }else{
+ xbee_ardlcd.print("XXX");
+ }
+ }
+ void lcd_disp_5(unsigned int x){
+ unsigned int y;
+ if (x<=65535){
+ y=x/10000;
+ xbee_ardlcd.write((char)(y+0x30));
+ x-=(y*10000);
+ y=x/1000;
+ xbee_ardlcd.write((char)(y+0x30));
+ x-=(y*1000);
+ y=x/100;
+ xbee_ardlcd.write((char)(y+0x30));
+ x-=(y*100);
+ y=x/10;
+ xbee_ardlcd.write((char)(y+0x30));
+ x-=(y*10);
+ xbee_ardlcd.write((char)(x+0x30));
+ }else{
+ xbee_ardlcd.print("XXXXX");
+ }
+ }
+ void lcd_init(void){
+ xbee_ardlcd.begin(20, 4); // 液晶の桁数×行数の設定
+ xbee_ardlcd.clear(); // 表示クリア
+ }
+#endif
+#endif
+
+/* LCD用関数 for ARM_MBED */ // 注意＝液晶では無くシリアルに出力する
+#ifdef ARM_MBED // D8(PA_9)からログをUART(38400baud)出力します
+#ifdef DEBUG
+ void lcd_cls(void){
+ _xbee_debug.printf("----------------\r\n");
+ }
+ void lcd_home(void){
+ _xbee_debug.printf("\r\n");
+ }
+ void lcd_control(byte disonoff, byte curonoff, byte curblink){
+ }
+ void lcd_goto(const byte mesto){
+ lcd_home();
+ }
+ void lcd_shift(const byte data){
+ _xbee_debug.putc(' ');
+ }
+ void lcd_putch(const char data){
+ _xbee_debug.putc( data );
+ }
+ void lcd_putstr(const char *data){
+ while(*data != 0) {
+ _xbee_debug.putc(*data);
+ data++;
+ }
+ }
+ void lcd_disp_bin(const byte x){
+ byte i;
+ for (i=128;i>0;i>>=1){
+ if ((x&i)==0){
+ lcd_putch('0');
+ }else{
+ lcd_putch('1');
+ }
+ }
+ }
+ void lcd_disp_hex(const byte i){
+ byte hi,lo;
+ hi=i&0xF0; // High nibble
+ hi=hi>>4;
+ hi=hi+'0';
+ if (hi>'9'){
+ hi=hi+7;
+ }
+ lo=(i&0x0F)+'0'; // Low nibble
+ if (lo>'9'){
+ lo=lo+7;
+ }
+ lcd_putch((char)hi);
+ lcd_putch((char)lo);
+ }
+ void lcd_disp_1(const unsigned int x){
+ if (x<10){
+ _xbee_debug.putc((char)(x+0x30));
+ }else if (x<16){
+ _xbee_debug.putc((char)(x-10+'A'));
+ }else{
+ _xbee_debug.putc('X');
+ }
+ }
+ void lcd_disp_2(unsigned int x){
+ unsigned int y;
+ if (x<100){
+ y=x/10;
+ _xbee_debug.putc((char)(y+0x30));
+ x-=(y*10);
+ _xbee_debug.putc((char)(x+0x30));
+ }else{
+ _xbee_debug.printf("XX");
+ }
+ }
+ void lcd_disp_3(unsigned int x){
+ unsigned int y;
+ if (x<1000){
+ y=x/100;
+ _xbee_debug.putc((char)(y+0x30));
+ x-=(y*100);
+ y=x/10;
+ _xbee_debug.putc((char)(y+0x30));
+ x-=(y*10);
+ _xbee_debug.putc((char)(x+0x30));
+ }else{
+ _xbee_debug.printf("XXX");
+ }
+ }
+ void lcd_disp_5(unsigned int x){
+ unsigned int y;
+ if (x<=65535){
+ y=x/10000;
+ _xbee_debug.putc((char)(y+0x30));
+ x-=(y*10000);
+ y=x/1000;
+ _xbee_debug.putc((char)(y+0x30));
+ x-=(y*1000);
+ y=x/100;
+ _xbee_debug.putc((char)(y+0x30));
+ x-=(y*100);
+ y=x/10;
+ _xbee_debug.putc((char)(y+0x30));
+ x-=(y*10);
+ _xbee_debug.putc((char)(x+0x30));
+ }else{
+ _xbee_debug.printf("XXXXX");
+ }
+ }
+ void lcd_init(void){
+ _xbee_debug.printf("-----\r\n");
+ }
+#endif
+#endif
+
+#ifdef LCD_H
+void lcd_disp(const char *s){
+ lcd_cls();
+ lcd_goto(LCD_ROW_1);
+ lcd_putstr( s );
+ #ifndef H3694
+ #ifndef ARDUINO
+ #ifdef ARM_MBED
+ _xbee_debug.printf("\r\n");
+ #else // PC
+ lcd_putch( '\n' );
+ #endif
+ #endif
+ #endif
+}
+#endif
+
+/*********************************************************************
+XBeeドライバ関数
+*********************************************************************/
+
+/*
+ 00 01 02 03 04 05 06 07 08....
+ ATNJ = 7E 00 05 08 01 4E 4A FF 5F
+ | | len |mo|FI| NJ=0xFF|CS|
+ | | |de| | |__|___ Check Sum
+ | | | | |________|______ AT コマンド
+ | | | |__|_______________ Frame ID
+ | | |__|__________________ AT=0x08 Remote=0x17
+ | |_____|_____________________ Data Lengrh (ATコマンド+2文字)
+ |__|___________________________ 固定値
+
+ char *at "AT" ATコマンド len=4バイト～最大255 (フレーム8バイト～)
+ "RAT" リモートATコマンド len=15バイト～最大255 (フレーム19バイト～)
+ "TX" データ送信コマンド len=15バイト～最大255 (フレーム19バイト～)
+ ※API_SIZE=32の時valueは12バイトまで
+*/
+
+/* (ドライバ)ATコマンド送信 */
+byte xbee_at_tx(const char *at, const byte *value, const byte value_len){
+/*
+ 処理：リモートＡＴコマンドの送信を行うXBeeドライバ部
+ 入力：ATコマンドat[] ＝ "AT**"はローカルATで、"RAT***"がリモートＡＴ
+ TXがデータ送信モード
+ データvalue[] ＝ 各ＡＴコマンドで引き渡すデータ値
+ value_len ＝ その長さ
+ 戻り値：送信したAPIサービス長。送信しなかった場合は0
+*/
+ char data_api[API_TXSIZE];
+ byte i;
+ byte len; // APIサービス長
+ #ifndef XBEE_WIFI
+ byte check=0xFF; // チェックサム
+ byte data_position=5; // 送信データdata_api[]の何処にvalue[]を入れるか
+ #endif
+ byte ret=0;
+
+ if( PACKET_ID == 0xFF ){
+ PACKET_ID=0x01;
+ }else{
+ PACKET_ID++;
+ }
+ len=0;
+ #ifndef XBEE_WIFI
+ switch( at[0] ){
+ case 'A':
+ case 'F':
+ if( at[1]=='T'){
+ data_api[3]=(char)0x08; // ATコマンドモード
+ if( at[0] == 'A') data_api[4]=(char)PACKET_ID; // フレームID (at="ATxx")
+ else data_api[4]=0x00; // IDなし（at="FTxx")
+ data_api[5]=(char)at[2]; // ATコマンド上位
+ data_api[6]=(char)at[3]; // ATコマンド下位
+ data_position=7;
+ len=4; // サービスデータにMD+FI+AT(2)バイトが入る
+ }
+ break;
+ case 'R':
+ case 'S':
+ if( at[1]=='A' && at[2]=='T'){
+ data_api[3]=(char)0x17; // リモートATコマンドモード
+ if( at[0] == 'R') data_api[4]=(char)PACKET_ID; // フレームID (at="RATxx")
+ else data_api[4]=0x00; // IDなし（at="SATxx")
+ for( i=5 ; i<=12 ; i++) data_api[i]=(char)ADR_DEST[i-5];
+ for( i=13 ; i<=14 ; i++) data_api[i]=(char)SADR_DEST[i-13];
+ data_api[15]=(char)0x02; // apply changes
+ data_api[16]=(char)at[3]; // ATコマンド上位
+ data_api[17]=(char)at[4]; // ATコマンド下位
+ data_position=18; // value[]を入れる場所
+ len=15; // サービスデータにMD+FI+ADR(8)+SAD(2)+OPT+AT(2)が入る
+ }
+ break;
+ case 'T':
+ if( at[1]=='X'){
+ data_api[3]=(char)0x10; // TXデータ送信モード
+ data_api[4]=(char)0x00; // フレームIDを使用しない(no responce)
+ for( i=5 ; i<=12 ; i++) data_api[i]=(char)ADR_DEST[i-5];
+ for( i=13 ; i<=14 ; i++) data_api[i]=(char)SADR_DEST[i-13];
+ data_api[15]=(char)0x00; // ZigBeeホップ数
+ data_api[16]=(char)0x00; // 暗号化＝しない
+ data_position=17;
+ len=14; // サービスデータにMD+FI+ADR(8)+SAD(2)+OPT(2)が入る
+ }
+ break;
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ case 'Z':
+ // [0]送信元EndPoint, [1]宛先EndPoint, [2-3]クラスタID, [4-5]プロファイルID
+ // [6]Radius=00 [7]Option=00 [8]Fram Ctrl [9]SeqNum [10]Command [11-12] Attribute
+ if( at[1]=='C' && value_len>12){
+ data_api[3]=(char)0x11; // ZCL送信モード
+ data_api[4]=(char)PACKET_ID; // フレームID
+ for( i=5 ; i<=12 ; i++) data_api[i]=(char)ADR_DEST[i-5];
+ for( i=13 ; i<=14 ; i++) data_api[i]=(char)SADR_DEST[i-13];
+ data_position=15;
+ len=12;
+ }
+ break;
+ #endif
+ #endif
+ default:
+ break;
+ }
+ if( len ){
+ data_api[0]=(char)0x7E; // デリミタ
+ data_api[1]=(char)0x00; // パケット長の上位(送らない前程)
+ for( i=3 ; i < data_position ; i++) check -= (byte)data_api[i];
+ if( value_len > 0 ){
+ for( i=0 ; i<value_len; i++){
+ data_api[data_position + i] = (char)value[i];
+ check -= (byte)data_api[data_position + i];
+ len++;
+ }
+ }
+ data_api[2] =(char)len;
+ data_api[len+3]=(char)check;
+ #ifdef LITE // BeeBee Lite by 蘭
+ sci_write( data_api, (byte)(len+4) );
+ ret=len+3;
+ #else
+ check = sci_write_check(); // 以降 checkはシリアルバッファ確認に使用する
+ /*シリアルデータ送信 */
+ if( check > 0 ){
+ if( sci_write( data_api, (byte)(len+4) ) == 0 ){
+ /* シリアルリセット */
+ #ifndef H3694
+ #ifndef ARDUINO
+ #ifndef ARM_MBED // PC
+ wait_millisec( 100 );
+ close_serial_port(); // シリアルを閉じる
+ wait_millisec( 300 );
+ printf("RESET serial\n");
+ while( sci_init( xbee_com_port )==0){ // 再度オープン
+ wait_millisec( 3000 );
+ close_serial_port(); // シリアルを閉じる
+ wait_millisec( 3000 );
+ printf("RESET serial\n");
+ }
+ wait_millisec( 300 );
+ sci_write( data_api, (byte)(len+4) ); // 再送信
+ #endif
+ #endif
+ #endif
+ }
+ ret=len+3;
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:TX Buffer Over" );
+ ERR_CODE = check;
+ #endif
+ ret=0;
+ }
+ #endif
+ }
+ #else // XBEE_WIFI
+ switch( at[0] ){
+ case 'A':
+ case 'F':
+ if( at[1]=='T' ){
+ data_api[0]=(char)0x02; // ATコマンドモード
+ data_api[1]=(char)0x00; // 固定
+ if( at[0] == 'A' ) data_api[2]=(char)PACKET_ID; // フレームID
+ data_api[3]=(char)0x02;
+ data_api[4]=(char)at[2]; // ATコマンド上位
+ data_api[5]=(char)at[3]; // ATコマンド下位
+ len=6;
+ }
+ break;
+ case 'R':
+ case 'S':
+ if( at[1]=='A' && at[2]=='T' ){
+ data_api[0]=(char)0x02; // ATコマンドモード
+ data_api[1]=(char)0x00; // 固定
+ if( at[0] == 'R'){
+ data_api[2]=(char)PACKET_ID; // フレームID
+ data_api[3]=(char)0x02;
+ }else{
+ data_api[2]=(char)0x00;
+ data_api[3]=(char)0x00;
+ }
+ data_api[4]=(char)at[3]; // ATコマンド上位
+ data_api[5]=(char)at[4]; // ATコマンド下位
+ len=6;
+ }
+ case 'T':
+ if( at[1]=='X'){
+ data_api[0]=(char)0x00; // シリアルデータモード
+ data_api[1]=(char)0x00; // ackが必要なときは01
+ len=2; // datasheetでは3だが誤り。実装は2
+ }
+ break;
+ default:
+ break;
+ }
+ if( len ){
+ if( value_len > 0 ){
+ for( i=0 ; i<value_len; i++){
+ data_api[len] = (char)value[i];
+ len++;
+ }
+ }
+ if(DEVICE_TYPE == XB_TYPE_WIFI20){
+ #ifdef DEBUG
+ printf("DEBUG:TX_10(%3d):",len);
+ for(i=0;i<len;i++) printf("%02X,",data_api[i]);
+ printf("\n");
+ #endif
+ len+=6;
+ if( len <= API_TXSIZE ){
+ for(i=len-6; i>0; i--){
+ data_api[i+5]=data_api[i-1];
+ }
+ data_api[0]=0x42;
+ data_api[1]=0x42;
+ data_api[2]=0x0;
+ data_api[3]=0x0;
+ data_api[4]=0x0;
+ data_api[5]=0x0;
+ }
+ #ifdef DEBUG
+ printf("DEBUG:TX_20(%3d):",len);
+ for(i=0;i<len;i++) printf("%02X,",data_api[i]);
+ printf("\n");
+ #endif
+ }
+ if( sci_write_check() > 0 ){ // XBEE_WIFIなのでifdef LITEは不要
+ #ifdef XBEE_WIFI_DEBUG
+ Serial.print("TX udp size=");
+ Serial.print(len);
+ Serial.print(", ");
+ for(i=0;i<len;i++){
+ Serial.print(data_api[i],HEX);
+ Serial.print(" ");
+ }
+ Serial.println("");
+ #endif
+ #ifdef DEBUG
+ printf("TX udp size=%d\n",len);
+ #endif
+ if( sci_write( data_api, len ) == 0 ){
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:TX Write Error" );
+ ERR_CODE = 0x00;
+ #endif
+ #ifdef XBEE_WIFI_DEBUG
+ Serial.println("ERR:TX Write Error" );
+ #endif
+ #ifdef DEBUG
+ printf("ERR:TX Write Error\n");
+ #endif
+ ret=0;
+ }else ret = len;
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:TX Buffer Over" );
+ ERR_CODE = 0x00;
+ #endif
+ #ifdef DEBUG
+ printf("ERR:TX Buffer Over\n");
+ #endif
+ ret=0;
+ }
+ }
+ #endif
+ return( ret );
+}
+
+/* (ドライバ)ATコマンド受信 */
+byte xbee_at_rx(byte *data){
+/*
+ リモートＡＴコマンドの応答を受信するXBeeドライバ部
+ 処理：XBeeからの受信データをdata[]へ代入(応答)する
+ 入出力：APIデータdata[] 前３バイトは'7E'+len(2) data[0]が0x00の場合はタイムアウト
+ リターン：APIサービス長、0はタイムアウト
+*/
+ byte i;
+ byte len; // APIサービス長－３ (APIフレームの前３バイトとチェックサム１バイトを除く)
+ #ifndef XBEE_WIFI
+ unsigned int leni; // 実際のAPIサービス長と使用するAPIサービス長の差(データ破棄用)
+ byte check = 0xFF; // チェックサム
+ #endif
+ byte ret=0;
+
+ /* 受信処理 */
+ #ifndef XBEE_WIFI // ZigBee
+ data[0] = sci_read( 1 ); // 1ms待ち受けで受信
+ if( data[0] == 0x7E ) { // 期待デリミタ0x7E時
+ for( i=1;i<=2;i++ ){
+ #ifdef LITE // BeeBee Lite by 蘭
+ data[i] = sci_read( 35 ); // 1割だけ緩和しました。sci_read 32⇒35(Wataru)
+ #else
+ data[i] = sci_read( 50 );
+ #endif
+ }
+ if(data[1] == 0x00) len = data[2];
+ else len = 0xFF - 4; // API長が255バイトまでの制約(本来は64KB)
+ if( len > (API_SIZE-4) ) len = API_SIZE-4;
+ leni = (unsigned int)data[1] * 256 + (unsigned int)data[2] - (unsigned int)len;
+ // 通常は0。lenが本来の容量よりも少ない場合に不足分が代入されれる
+ for( i=0 ; i <= len ; i++){ // i = lenはチェックサムを入力する
+ #ifdef LITE // BeeBee Lite by 蘭
+ data[i+3] = sci_read( 35 ); // 1割だけ緩和しました。sci_read 32⇒35(Wataru)
+ #else
+ data[i+3] = sci_read( 50 );
+ #endif
+ if( i != len) check -= data[i+3]; // チェックサムのカウント
+ }
+ while( leni > 0 ){
+ data[len+3] = sci_read( 50 ); // データの空読み(lenは固定)
+ if( leni != 1 ) {
+ check -= data[len+3]; // leni=0の時はCheck sumなので減算しない
+ }
+ leni--;
+ }
+ if( check == data[len+3] ) ret = len +3;
+ else ret = 0;
+ #ifdef DEBUG_RX
+ lcd_cls(); lcd_goto(LCD_ROW_1);
+ lcd_putstr("->");
+ for( i=0 ; i <= len+3 ; i++){
+ lcd_disp_hex( data[i] );
+ if( i == 8 ) lcd_goto(LCD_ROW_2);
+ if( i == 18 ) lcd_goto(LCD_ROW_3);
+ if( i == 28 ) lcd_goto(LCD_ROW_4);
+ if( i == 38 ) lcd_goto(LCD_ROW_1);
+ }
+ lcd_goto(LCD_ROW_4);
+ lcd_putstr("ID=");
+ lcd_disp_hex( PACKET_ID );
+ lcd_putstr(":");
+ lcd_disp_hex( data[4] );
+ if( check != data[len+3]){
+ lcd_putstr(" ER=");
+ }else{
+ lcd_putstr(" OK=");
+ }
+ lcd_disp_hex( check );
+ lcd_putstr(":");
+ lcd_disp_hex( data[len+3] );
+ #endif
+ }
+ #else // XBEE_WIFI
+ ret = sci_read_frame( data );
+
+ if( ret >= 7){ // もともと10バイト以上にしていたけどUARTは最低7バイトからなので変更
+ #ifdef XBEE_WIFI
+ if(DEVICE_TYPE == XB_TYPE_WIFI20 && data[4] != 0x00){ // UARTのときは処理不要
+ #ifdef DEBUG
+ printf("DEBUG:RX_10(%3d):",ret);
+ for(i=0;i<ret;i++) printf("%02X,",data[i]);
+ printf("\n");
+ #endif
+ if( ret > 10 ){
+ for(i=10; i<ret; i++)data[i-6]=data[i];
+ ret -=6;
+ }
+ #ifdef DEBUG
+ printf("DEBUG:RX_20(%3d):",ret);
+ for(i=0;i<ret;i++) printf("%02X,",data[i]);
+ printf("\n");
+ #endif
+ }
+ #endif
+ switch( data[4] ){
+ case 0x82: // Remote AT Resp. アドレス4バイト＋基本レスポンス6バイト＋オプション0バイト以上
+ if(ret >= 10){
+ for(i=ret;i>=10; i--){
+ data[i+8] = data[i]; // 破壊 18以降全て ※メモリリークするのでUdpXBeeR受信で制限している
+ }
+ data[17] = data[9]; // AT Command status
+ data[16] = data[8]; // AT Command LSB
+ data[15] = data[7]; // AT Command MSB
+ data[14] = 0xFE;
+ data[13] = 0xFF;
+ data[4]=data[6]; // Frame ID 破壊 4
+ for(i=0;i<4;i++){ // IPアドレス
+ data[5+i]=data[i]; // 破壊 5,6,7,8
+ data[9+i]=0x00; // 破壊 9,10,11,12
+ }
+ data[3]=0x97; // rat res
+ data[0]=0x7E; // 受信成功
+ ret += 9;
+ data[1]=0x00; // length上位
+ data[2]=ret-3; // length下位
+ }
+ break;
+ case 0x04: // IO RX Sample アドレス4バイト＋基本レスポンス6バイト＋オプション0バイト以上
+ if(ret >= 10){
+ for(i=ret;i>=6; i--){ // datasheetの誤り Number SamplesのOffsetはdatesheetでは3だが実際は2
+ // これにIPの4バイトが追加されるので6
+ data[i+9] = data[i]; // 破壊 15以降全て ※メモリリークするのでUdpXBeeR受信で制限している
+ }
+ data[14] = 0x02; // Packet was a broadcast
+ data[13] = 0xFE;
+ data[12] = 0xFF;
+ for(i=0;i<4;i++){ // IPアドレス
+ data[4+i]=data[i]; // 破壊 5,6,7,8
+ data[8+i]=0x00; // 破壊 9,10,11,12
+ }
+ data[3]=0x92; // io sample
+ data[0]=0x7E; // 受信成功
+ ret += 10;
+ data[1]=0x00; // length上位
+ data[2]=ret-3; // length下位
+ }
+ break;
+ case 0x00: // UART
+ len = data[5]; // 破壊されるのでUART長はバックアップ
+ for(i=ret;i>=6; i--){
+ data[i+9] = data[i]; // 破壊 15以降全て ※メモリリークするのでUdpXBeeU受信で制限している
+ }
+ data[14] = 0x02; // Packet was a broadcast
+ data[13] = 0xFE;
+ data[12] = 0xFF;
+ for(i=0;i<4;i++){ // IPアドレス
+ data[4+i]=data[i]; // 破壊 5,6,7,8
+ data[8+i]=0x00; // 破壊 9,10,11,12
+ }
+ data[1]=0x00; // 243バイトまでしか考慮しない
+ data[2]=len + 0x0C; // 243バイトまでしか考慮しない
+ data[3]=0x90; // UART
+ data[0]=0x7E; // 受信成功
+ ret += 10;
+ break;
+ default:
+ for(i=ret;i>=7; i--){
+ data[i+8] = data[i]; // 破壊 18以降全て ※メモリリークするのでUdpXBeeR受信で制限している
+ }
+ data[4]=data[6]; // Frame ID 破壊 4
+ for(i=0;i<4;i++){ // IPアドレス
+ data[5+i]=data[i]; // 破壊 5,6,7,8
+ data[9+i]=0x00; // 破壊 9,10,11,12
+ }
+ data[3]=data[4];
+ ret=0;
+ }
+ #ifdef DEBUG
+ printf("DEBUG:RX_ZB(%3d):",ret);
+ for(i=0;i<ret;i++) printf("%02X,",data[i]);
+ printf("\n");
+ #endif
+ }else ret=0;
+ #ifdef XBEE_WIFI_DEBUG
+ Serial.print("RX api size=");
+ Serial.print(ret);
+ Serial.print(", ");
+ for(i=0;i<ret;i++){
+ Serial.print(data[i],HEX);
+ Serial.print(" ");
+ }
+ Serial.println("");
+ #endif
+ #endif
+ return( ret );
+}
+
+/* (ドライバ)パケット差出人の抽出 */
+byte xbee_from_acum( const byte *data ){
+/*
+ 処理：受信データの差出人をグローバル変数へ登録 ※xbee_at_rxでは登録しない
+ 入力：data[] APIデータ
+ 出力：byte 受信データの種別mode値を戻り値に代入
+ 受信データの差出人をグローバル変数ADR_FROMに代入
+ 再起動で8Aのモード応答あり
+*/
+ byte i;
+ byte ret=0;
+
+ if( data[3]==MODE_UART // 0x90 UART Receive
+ || data[3]==MODE_UAR2 // 0x91 UART AO=0
+ || data[3]==MODE_GPIN // 0x92 GPI data
+ || data[3]==MODE_SENS // 0x94 XB Sensor
+ || data[3]==MODE_IDNT){ // 0x95 Node Identify
+ for(i=0;i<8;i++) ADR_FROM[i]=data[4+i];
+ ret = data[3]; // mode値
+ }else if(
+ data[3]==MODE_RESP){ // 0x97 リモートATコマンドの結果
+ for(i=0;i<8;i++) ADR_FROM[i]=data[5+i];
+ ret = data[3]; // mode値
+ }else if(
+ data[3]==MODE_RES // 0x88 ローカルATコマンドの結果
+ || data[3]==MODE_MODM){ // 0x8A Modem Statusを受信
+ ret = data[3]; // mode値
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:xbee_from" );
+ ERR_CODE = data[3];
+ #endif
+ ret = 0;
+ }
+ return( ret );
+}
+
+/* (ドライバ)GPIO入力データの計算部 */
+byte xbee_gpi_acum( byte *data ){
+/* リモート先(ADR_FROMに入力)のGPIOの入力値（下位バイト）を応答する。
+ リモート先は（こちらから呼ばなくても）GPIOの変化などで自動送信する設定にしておく必要がある。
+ 具体的にはリモート先をATIC設定するなど。本演算関数はxbee_rx_callから呼ばれる。
+ port: port指定 IO名 ピン番号 USB評価ボード(XBIB-U-Dev)
+ port= 1 DIO1 XBee_pin 19 (AD1) SW2
+ port= 2 DIO2 XBee_pin 18 (AD2) SW3
+ port= 3 DIO3 XBee_pin 17 (AD3) SW4
+ out: port 1～7の入力値をバイトで応答。
+ 上位バイトのポートには対応しない
+ DIOのport1～7がオフでかつADCが有効の場合は有効ADC(1～3の最も若い番号)のAD変換結果を応答する。
+ ADC結果は8ビットに間引かれる。電圧は0～1.2Vに対応する。以下でADC電圧を得ることが可能。
+ (unsigned int)xbee_gpi_acum(data)/255*1200 [mV]
+ 注意１：DIO/ADCの切り換え方法：DIOのport1～7が一つでも有効であればDIOとして動作します。
+ port1～7のDIOが全て無効でADCが有効であれば有効なADC(1～3の最も若い番号)が動作します。
+ port1～7のDIOとADC1～3が全て無効で電源電圧検出ADCが有効であれば電圧を応答します。(要確認)
+ 未対応：電源電圧ADCの範囲と単位を要確認。必要に応じて値を変換する必要がある。
+ mode = MODE_GPIN(0x92) GPI data
+
+ data[17]:mask(下位)
+*/
+ byte ret=0xFF;
+
+ if( data[3] == MODE_GPIN ){ // data[3]:MODE_GPIN(92)
+ if( xbee_from_acum( data ) > 0 ){ // 差出人をグローバル変数へ
+ if( (data[17]&0xFE) != 0x00 ){ // DIO(port 1～7)がある時
+ ret = (data[17] & data[20]); // 20:DIOデータ(下位バイト) 17:マスク
+ }else if( (data[18]&0x8E) != 0 ){ // ADCがあるとき
+ if( data[16] == 0x00 && data[17] == 0x00 ){ // DIOが全てマスクされているとき
+ ret = (data[19]<6) | (data[20]>2); // 19:ADCデータ(上位)、20:下位
+ }else{ //
+ ret = (data[21]<6) | (data[22]>2); // 21:ADCデータ(上位)、22:下位
+ }
+ }
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:xbee_gpi acum" );
+ ERR_CODE = xbee_from_acum( data );
+ #endif
+ }
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:xbee_gpi mode" );
+ ERR_CODE = data[3];
+ #endif
+ }
+ #ifdef DEBUG_RX
+ lcd_goto(LCD_ROW_2);
+ lcd_putstr(" M:"); // MASK表示
+ lcd_disp_hex( data[16] );
+ lcd_disp_hex( data[17] );
+ lcd_putstr(" D:"); // デジタルサンプル値
+ lcd_disp_hex( data[19] );
+ lcd_disp_hex( data[20] );
+ #endif
+ return(ret);
+}
+
+/* (ドライバ)UART入力データの計算部 */
+byte xbee_uart_acum( byte *data ){
+/*
+ mode =MODE_UART(0x90) UART Receive
+ mode =MODE_UAR2(0x91) UART AO=0
+*/
+ #ifdef DEBUG_RX
+ byte i; // DEGUG用
+ byte len;
+ #endif
+ byte ret=0;
+
+ if( data[3] == 0x90 ){ // data[3]:データ種別=ZigBee Recieve Packet
+ if( xbee_from_acum( data ) > 0 ){
+ ret = data[15]; // 15:データ１文字 ※Digi仕様書P100記載誤り
+ #ifdef DEBUG_RX
+ len = data[2]-0x0C; // 12バイト減算
+ #endif
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:xbee_uart from" );
+ ERR_CODE = xbee_from_acum( data );
+ #endif
+ }
+ }else if( data[3] == 0x91 ){ // data[3]:データ種別=ZigBee Explict Rx Indicator
+ if( xbee_from_acum( data ) > 0 ){
+ ret = data[21]; // 14:データ１文字
+ #ifdef DEBUG_RX
+ len = data[2]-0x12; // 18バイト減算
+ #endif
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:xbee_uart2 from" );
+ ERR_CODE = xbee_from_acum( data );
+ #endif
+ }
+ }else{
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ strcopy( ERR_LOG , "ERR:xbee_uart mode" );
+ ERR_CODE = data[3];
+ #endif
+ }
+ #ifdef DEBUG_RX
+ lcd_goto(LCD_ROW_3);
+ lcd_putstr("[");
+ if( data[3]==0x90 && len>1 ) for(i=0; i< len ; i++) lcd_putch( data[15+i] );
+ else if( data[3]==0x91 && len>1 ) for(i=0; i< len ; i++) lcd_putch( data[21+i] );
+ else lcd_putch( ret );
+ lcd_putstr( "](0x" );
+ lcd_disp_hex( ret );
+ lcd_putstr( ") l=" );
+ lcd_disp_hex( len );
+ if( data[3]==0x91 ){
+ lcd_putstr(" CI:");
+ lcd_disp_hex( data[16] );
+ lcd_disp_hex( data[17] );
+ lcd_putstr(".");
+ lcd_disp_hex( data[18] );
+ lcd_disp_hex( data[19] );
+ }
+ #endif
+ return(ret);
+}
+
+/* (ドライバ)ATコマンドの送信＋受信 */
+byte xbee_tx_rx(const char *at, byte *data, byte len){
+/*
+コマンド送信と受信がセットになったAPI(受信コマンドの簡単なチェックも実施)
+ at: ATコマンド(文字列)
+ data[API_SIZE]: 入力データ／出力データ(共用)
+ ※本コマンドの処理中に受信した他のパケット(送信IDとATコマンド名で判定)は破棄する。
+ (始めに受信キャッシュクリアしている)
+ 戻り値：エラー時 0x00
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+
+ byte err,retry;
+ byte r_dat = 10; // AT=0、RAT=10、TX=未定 リモートATと通常ATの応答値dataの代入位置の差
+ byte r_at = 1; // AT=0、RAT=1 リモートの可否
+ #ifndef XBEE_WIFI // ZigBee
+ unsigned int wait_add = 0;
+ #endif
+ #ifdef CACHE_RES
+ byte i;
+ #endif
+
+ #ifndef LITE // BeeBee Lite by 蘭
+ sci_write_check();
+ #endif
+ #ifdef H3694
+ sci_clear();
+ #endif
+
+ #ifndef XBEE_WIFI // ZigBee
+ if( at[0] == 'A' && at[1] == 'T' ){
+ r_dat = 0; r_at=0;
+ if( at[2] == 'W' && at[3] == 'R' ) wait_add = 100; // ATWR 110～1100ms
+ } else if ( at[0] == 'R' && at[1] == 'A' && at[2] == 'T' ){
+ r_dat = 10; r_at=1;
+ if( at[3] == 'W' && at[4] == 'R' ) wait_add = 100; // RATWR 120～1200ms
+ }
+ if( xbee_at_tx( at ,data ,len ) > 0){
+ err = 12; // 受信なしエラー
+ for( retry = 10 ; ( retry > 0 && err != 0 ) ; retry-- ){
+ wait_millisec( 10 + (unsigned int)r_dat ); // 応答時間待ち AT 10～100ms / RAT 20～200ms
+ if( wait_add != 0 ){
+ wait_millisec( wait_add ); // 追加ウェイト
+ }
+ if( xbee_at_rx( data ) > 0){
+ if( (
+ ( data[3] == MODE_RES && r_at == 0 ) || ( data[3] == MODE_RESP && r_at == 1 )
+ ) && (
+ data[4] == PACKET_ID
+ )
+ ){
+ /* ATコマンドが正しいかどうかの確認を削除(Ver 1.51)
+ ※MODE_RESPの条件を追加したので不要のはず。
+ && data[5+r_dat] == (byte)at[2+r_at] && data[6+r_dat] == (byte)at[3+r_at]
+ */
+ if( data[7+r_dat] == 0x00 ){
+ err=0;
+ }else err = data[7+r_dat]; // ATのERRORコード (AT:data[7] RAT:data[17])
+ }else{ // 受信したパケットIDまたはATコマンドが相違しているとき
+ #ifdef CACHE_RES
+ if( CACHE_COUNTER < CACHE_RES ){
+ for( i=0 ; i < API_SIZE ; i++) CACHE_MEM[CACHE_COUNTER][i] = data[i];
+ CACHE_COUNTER++;
+ #ifdef DEBUG
+ lcd_putstr("### CACHE_RES ### <- "); // DEBUG
+ lcd_disp_hex( CACHE_COUNTER );
+ lcd_putch('\n');
+ #endif
+ }
+ #endif
+ // キャッシュ容量が無い場合は受信データを保持せずにリトライする
+ }
+ }
+ }
+ //printf("\nretry=%d\n",retry);
+ }else err = 11; // 送信失敗
+ #else // XBEE_WIFI (PC + Arduino)
+ #ifdef XBEE_WIFI_DEBUG
+ for(i=0;i<(5+len);i++) Serial.print(at[i]);
+ Serial.print('(');
+ Serial.print(PACKET_ID,HEX);
+ Serial.println(')');
+ #endif
+
+ if(DEVICE_TYPE == XB_TYPE_NULL){
+ #ifdef DEBUG
+ printf("DEBUG:check DEVICE_TYPE = XB_TYPE_WIFI20\n");
+ #endif
+ DEVICE_TYPE = XB_TYPE_WIFI20;
+ if( xbee_tx_rx(at, data, len) > 0 ){
+ return(1);
+ }else{
+ #ifdef DEBUG
+ printf("DEBUG:check DEVICE_TYPE = XB_TYPE_WIFI10\n");
+ #endif
+ DEVICE_TYPE = XB_TYPE_WIFI10;
+ if( xbee_tx_rx(at, data, len) > 0 ) return(1);
+ else{
+ #ifdef DEBUG
+ printf("DEBUG:no Response at check DEVICE_TYPE\n");
+ #endif
+ DEVICE_TYPE = XB_TYPE_NULL;
+ #ifdef ERRLOG
+ ERR_CODE=12;
+ strcopy( ERR_LOG ,"ERR:tx_rx no Rx Res. wifi check");
+ #endif
+ return(0); // エラー終了
+ }
+ }
+ }
+ if( xbee_at_tx( at ,data ,len ) > 0){
+ err = 12; // 受信なしエラー
+ for( retry = 10 ; ( retry > 0 && err != 0 ) ; retry-- ){
+ if( xbee_at_rx( data ) > 0){
+ if( (
+ ( data[3] == MODE_RES && r_at == 0 ) || ( data[3] == MODE_RESP && r_at == 1 )
+ ) && (
+ data[4] == PACKET_ID
+ )
+ ){
+ /* ATコマンドが正しいかどうかの確認を削除(Ver 1.51)
+ ※MODE_RESPの条件を追加したので不要のはず。
+ && data[5+r_dat] == (byte)at[2+r_at] && data[6+r_dat] == (byte)at[3+r_at]
+ */
+ if( data[7+r_dat] == 0x00 ){
+ err=0;
+ }else err = data[7+r_dat]; // ATのERRORコード (AT:data[7] RAT:data[17])
+ }else{ // 受信したパケットIDまたはATコマンドが相違しているとき
+ #ifdef CACHE_RES
+ if( CACHE_COUNTER < CACHE_RES ){
+ for( i=0 ; i < API_SIZE ; i++) CACHE_MEM[CACHE_COUNTER][i] = data[i];
+ CACHE_COUNTER++;
+ #ifdef DEBUG
+ lcd_putstr("### CACHE_RES ### <- "); // DEBUG
+ lcd_disp_hex( CACHE_COUNTER );
+ lcd_putch('\n');
+ #endif
+ }
+ #endif
+ // キャッシュ容量が無い場合は受信データを保持せずにリトライする
+ }
+ }else{ // 受信データが無い時（リトライ前）
+ wait_millisec(50); // 50msの待ち時間
+ }
+ }
+ }else err = 11; // 送信失敗
+ delay(1); // 直前のコマンド応答がすぐに返った時にキャッシュに貯めれないことを防止する
+
+ #endif
+
+ if( err ){
+ wait_millisec( 1000 ); // 応答待ち状態で、次々にコマンドを送るとXBeeモジュールが非応答になる対策
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ #ifdef ERRLOG
+ ERR_CODE=err;
+ switch(err){
+ case 2: // 01234567890123456789
+ strcopy( ERR_LOG ,"ERR:tx_rx AT Command");
+ break;
+ case 3:
+ strcopy( ERR_LOG ,"ERR:tx_rx AT Param. ");
+ break;
+ case 4:
+ strcopy( ERR_LOG ,"ERR:tx_rx AT Commu. ");
+ break;
+ case 10:
+ strcopy( ERR_LOG ,"ERR:tx_rx not AT CMD");
+ break;
+ case 11:
+ strcopy( ERR_LOG ,"ERR:tx_rx TX Failed ");
+ break;
+ case 12:
+ strcopy( ERR_LOG ,"ERR:tx_rx no Rx Res.");
+ break;
+ case 13:
+ strcopy( ERR_LOG ,"ERR:tx_rx AT Pckt ID");
+ break;
+ case 14:
+ strcopy( ERR_LOG ,"ERR:tx_rx Diff.Adrs.");
+ break;
+ default:
+ strcopy( ERR_LOG ,"ERR:tx_rx AT unknown");
+ break;
+ }
+ ERR_LOG[20] = ':';
+ if( at[0] == 'A' ){
+ ERR_LOG[21] = at[2];
+ ERR_LOG[22] = at[3];
+ }else{
+ ERR_LOG[21] = at[3];
+ ERR_LOG[22] = at[4];
+ }
+ #endif
+ }
+ #ifdef XBEE_WIFI_DEBUG
+ if( err ){
+ Serial.print("ERR in tx_rx ");
+ Serial.println(err,DEC);
+ }
+ #endif
+ #ifdef DEBUG
+ #ifdef ARM_MBED
+ if( err ){
+ _xbee_debug.printf("DEBUG: %s ", ERR_LOG);
+ _xbee_debug.printf("(err=%d)\r\n", err);
+ }
+ #else
+ if( err ) fprintf(stderr,"DEBUG: %s (err=%d)\n", ERR_LOG,err);
+ #endif
+ #endif
+ return( !err );
+}
+
+/***********************************************************************
+XBee用 UART出力API
+byte xbee_putch( const char c );
+byte xbee_putstr( const char *s );
+void xbee_disp_hex( const unsigned char i );
+void xbee_disp_1( const unsigned int x );
+void xbee_disp_2( unsigned int x );
+void xbee_disp_3(unsigned int x);
+void xbee_disp_5(unsigned int x);
+void xbee_log( const byte level, const char *err , const byte x );
+***********************************************************************/
+
+#ifndef LITE // BeeBee Lite by 蘭
+byte xbee_putch( const char c ){
+ byte data[2];
+ byte len;
+ data[0] = (byte)c;
+ if( xbee_at_tx( "TX", data , 1) == 0 ) len=0; else len=1;
+ return( len );
+}
+#endif
+
+byte xbee_putstr( const char *s ){
+/*
+ 文字を送信する
+ 入力：char *s
+ 出力：送信データ長を応答。０の場合は異常
+*/
+ byte data[API_TXSIZE-17]; // 17バイトはAPIヘッダ+CRC1バイトなのでデータ長は[API_TXSIZE-18]+null文字で+1する-17
+ byte i;
+
+ for(i=0; (i< (API_TXSIZE-18) ) && (s[i] != 0x00) ; i++){ // データ長はAPI_TXSIZE-18
+ data[i] = (byte)s[i]; // テキストデータをバイナリデータ（バイト値）に変換する
+ }
+ data[i] = 0x00;
+ if( xbee_at_tx( "TX", data , i) == 0) i=0;
+ return( i );
+}
+
+#ifndef LITE // BeeBee Lite by 蘭
+void xbee_disp_hex( const byte i ){
+ byte data[3];
+ data[0] = i&0xF0;
+ data[0] = data[0]>>4;
+ data[0] += '0';
+ if (data[0]>'9') data[0] += 7;
+ data[1]=(i&0x0F)+'0';
+ if (data[1]>'9') data[1]+=7;
+ xbee_at_tx( "TX", data , 2);
+}
+
+void xbee_disp_1( const unsigned int x ){
+ if (x<10) xbee_putch((char)(x+0x30));
+ else if (x<16) xbee_putch((char)(x-10+'A'));
+ else xbee_putch('X');
+}
+
+void xbee_disp_2( unsigned int x ){
+ char s[3];
+ unsigned int y;
+ if (x<100){
+ y=x/10; s[0]=(char)(y+0x30); x-=(y*10);
+ s[1]=(char)(x+0x30);
+ s[2]='\0';
+ if( s[0]=='0' ){
+ s[0]=' ';
+ }
+ xbee_putstr( s );
+ }else xbee_putstr("XX");
+}
+
+void xbee_disp_3(unsigned int x){
+ char s[4];
+ unsigned int y;
+ if (x<1000){
+ y=x/100; s[0]=(char)(y+0x30); x-=(y*100);
+ y=x/10; s[1]=(char)(y+0x30); x-= (y*10);
+ s[2]=(char)(x+0x30);
+ s[3]='\0';
+ if( s[0]=='0' ){
+ s[0]=' ';
+ if( s[1]=='0' ){
+ s[1]=' ';
+ }
+ }
+ xbee_putstr( s );
+ }else xbee_putstr("XXX");
+}
+
+void xbee_disp_5(unsigned int x){
+ char s[6];
+ unsigned int y;
+ if (x<=65535){
+ y=x/10000; s[0]=(char)(y+0x30); x-=(y*10000);
+ y=x/1000; s[1]=(char)(y+0x30); x-= (y*1000);
+ y=x/100; s[2]=(char)(y+0x30); x-= (y*100);
+ y=x/10; s[3]=(char)(y+0x30); x-= (y*10);
+ s[4]=(char)(x+0x30);
+ s[5]='\0';
+ if( s[0]=='0' ){
+ s[0]=' ';
+ if( s[1]=='0' ){
+ s[1]=' ';
+ if( s[2]=='0' ){
+ s[2]=' ';
+ if( s[3]=='0' ){
+ s[3]=' ';
+ }
+ }
+ }
+ }
+ xbee_putstr( s );
+ }else xbee_putstr("XXXXX");
+}
+#endif // LITE
+
+void xbee_log(const byte level, const char *err, const byte x ){
+/*
+ エラーログ用レベルガイド
+ LEVEL 5 ERROR 致命的なエラー、バグ発生
+ LEVEL 4 ERR 通信エラー等のうち不具合動作を伴う懸念のあるもの。500ms待ち挿入
+ LEVEL 3 CAUTION 通信エラー、使い方の問題など
+ LEVEL 2 未定義
+ LEVEL 1 LOG 各関数の動作確認用
+*/
+ #ifdef ERRLOG
+ /* PCの場合 */
+ #ifndef ARDUINO
+ #ifndef H3694
+ #ifdef XBEE_ERROR_TIME
+ time_t error_time;
+ struct tm *error_time_st;
+
+ time(&error_time);
+ error_time_st = localtime(&error_time);
+ #endif
+ #endif
+ #endif
+
+ #ifdef DEBUG
+ if( level >= 1 ){
+ #else
+ if( level >= 3 ){
+ #endif
+ /* マイコンの場合 */
+ #ifdef ARDUINO
+ lcd_goto(LCD_ROW_4);
+ lcd_putch('[');
+ lcd_disp_hex( TIMER_SEC );
+ lcd_putch(':');
+ lcd_disp_hex( timera() );
+ lcd_putch(']');
+ lcd_putstr( err );
+ lcd_putch('(');
+ lcd_disp_hex( x );
+ lcd_putch(')');
+ #endif
+ #ifdef H3694
+ lcd_goto(LCD_ROW_4);
+ lcd_putch('[');
+ lcd_disp_hex( TIMER_SEC );
+ lcd_putch(':');
+ lcd_disp_hex( timera() );
+ lcd_putch(']');
+ lcd_putstr( err );
+ lcd_putch('(');
+ lcd_disp_hex( x );
+ lcd_putch(')');
+ #endif
+ #ifdef ARM_MBED
+ lcd_goto(LCD_ROW_4);
+ lcd_putch('[');
+ lcd_disp_hex( TIMER_SEC );
+ lcd_putch(':');
+ lcd_disp_hex( timera() );
+ lcd_putch(']');
+ lcd_putstr( err );
+ lcd_putch('(');
+ lcd_disp_hex( x );
+ lcd_putch(')');
+ lcd_putch( 0x0D ); // CR(\r)
+ lcd_putch( 0x0A ); // LF(\n)
+ #endif
+
+ /*
+ lcd_putch( 0x0D ); // CR(\r)
+ lcd_putch( 0x0A ); // LF(\n)
+ */
+ /* PCの場合 */
+ #ifndef ARDUINO
+ #ifndef H3694
+ #ifndef ARM_MBED
+ #ifdef XBEE_ERROR_TIME
+ fprintf(stderr,"%4d/%02d/%02d %02d:%02d:%02d[%02X:%02X]%s(%02X)\n",
+ error_time_st->tm_year+1900,
+ error_time_st->tm_mon+1,
+ error_time_st->tm_mday,
+ error_time_st->tm_hour,
+ error_time_st->tm_min,
+ error_time_st->tm_sec,
+ TIMER_SEC,
+ timera(),
+ err,
+ x);
+ #else
+ fprintf(stderr,"[%02X:%02X]%s(%02X)\n",
+ TIMER_SEC,
+ timera(),
+ err,
+ x);
+ #endif
+ #endif
+ #endif
+ #endif
+ }
+ if( level > 3 ) wait_millisec( 500 ); // LEVEL 4以上に対して待ち時間を設定
+ #endif
+}
+
+/***********************************************************************
+アプリ向け提供関数
+XBee用 各種制御 入出力定義を変更した場合は履歴に記載します
+***********************************************************************/
+
+byte xbee_reset( void ){
+/* XBeeモジュールのリセット
+ 戻り値：0＝エラー、強制終了あり(PC版)、無限定しあり(H8版)
+*/
+ #ifndef LITE // BeeBee Lite by 蘭
+ byte i;
+ #endif
+ byte ret=0; // 戻り値 0:異常終了
+ #ifndef XBEE_WIFI // ZigBee
+ byte value[API_SIZE];
+ value[0] = 0x00;
+ #endif
+
+ #ifndef XBEE_WIFI
+ #ifndef LITE // BeeBee Lite by 蘭
+ sci_write_check();
+ #endif
+ sci_clear(); // シリアル異常をクリア
+ DEVICE_TYPE = 0x20; // タイプ名を初期化
+ #endif
+
+ #ifdef LITE // BeeBee Lite by 蘭
+ ret = xbee_tx_rx( "ATVR", value ,0 ); // ZigBee 種類の取得
+ if( ret == 0 ){
+ #ifdef ARDUINO
+ return(0);
+ #else
+ exit(-1);
+ #endif
+ }else{
+ DEVICE_TYPE = value[8];
+ } // LITEはリセットしない
+ #else // normal
+ wait_millisec(100);
+ for( i=1 ; i< 4 ; i++){
+ #ifndef XBEE_WIFI // ZigBee
+ ret = xbee_tx_rx( "ATVR", value ,0 );
+ #else
+ ret = 1;
+ #endif
+ if( ret > 0){
+ #ifndef XBEE_WIFI
+ DEVICE_TYPE = value[8];
+ if( DEVICE_TYPE != ZB_TYPE_COORD &&
+ DEVICE_TYPE != ZB_TYPE_ROUTER &&
+ DEVICE_TYPE != ZB_TYPE_ENDDEV){ // VRの確認
+ #ifdef LCD_H
+ lcd_cls();
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ lcd_putstr( "EXIT:XBEE NOT IN API MODE" );
+ #endif
+ #ifdef H3694
+ return(0);
+ #elif ARDUINO
+ return(0);
+ #else
+ exit(-1);
+ #endif
+ }
+ #else // XBEE_WIFI
+ DEVICE_TYPE = XB_TYPE_NULL;
+ #endif
+ }else{
+ if( i == 3 ){
+ #ifdef LCD_H
+ lcd_cls();
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ lcd_putstr( "EXIT:NO RESPONCE FROM XBEE" );
+ #endif
+ #ifdef H3694
+ return(0);
+ #elif ARDUINO
+ return(0);
+ #else
+ exit(-1);
+ #endif
+ }
+ wait_millisec(1000);
+ }
+ }
+ #ifndef XBEE_WIFI // ZigBee
+ wait_millisec(100);
+ ret = xbee_tx_rx( "ATFR", value ,0 );
+ if( ret == 0){
+ #ifdef LCD_H
+ lcd_cls();
+ #ifdef H3694
+ led_red( 1 );
+ #endif
+ lcd_putstr( "EXIT:CANNOT RESET XBEE" );
+ #endif
+ #ifdef H3694
+ return(0);
+ #elif ARDUINO
+ return(0);
+ #else
+ exit(-1);
+ #endif
+ }
+ wait_millisec(3000); // リセット指示後3秒後に起動
+ sci_clear(); // 再起動のメッセージをクリア
+ // while( xbee_at_rx( value ) == 0 ); // パケットの破棄（永久ループの懸念がある）
+ value[0] = 0x01; // API MODE=1に設定
+ xbee_tx_rx("ATAP", value , 1 );
+ value[0] = 0x05; // RSSI LEDを点灯
+ xbee_tx_rx("ATP0", value , 1 );
+ wait_millisec(500);
+ value[0] = 0x01; // RSSI LEDを受信強度に戻す
+ xbee_tx_rx("ATP0", value , 1 );
+ #endif
+ #endif // LITE
+ return( ret );
+}
+
+byte xbee_myaddress( byte *address ){
+/*
+自分自身のIEEEアドレスを取得する ／ XBee Wifi(PC)の場合は設定する
+ byte *address : IEEEアドレスを代入する
+ 戻り値＝１で正常読み込み、２は書き込み。０は異常
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte i=0;
+ byte ret=0;
+
+ data[0]=0x00;
+ /* ショートアドレスの取得はしないことにする。(Coordinatorは常に00)
+ if( xbee_tx_rx( "ATMY",data,0) ){
+ for(i=0;i<2;i++){
+ SADR_MY[i]=data[8+i];
+ }
+ }
+ */
+ data[0]=0x00;
+ if( xbee_tx_rx( "ATSH",data,0) ){
+ for(i=0;i<4;i++){
+ address[i]=data[8+i];
+ }
+ data[0]=0x00;
+ if( xbee_tx_rx( "ATSL",data,0) ){
+ for(i=0;i<4;i++){
+ address[4+i]=data[8+i];
+ }
+ ret=1;
+ }
+ }
+ #ifdef LCD_H
+ if( ret==0 ) xbee_log( 5, "ERROR: at at_my" , 0 );
+ xbee_log( 1, "done:xbee_myaddress" , ret );
+ #endif
+ return( ret );
+ #else // XBEE_WIFI /******* ADR_MYに登録されているIPアドレスを設定する **********/
+ #ifdef ARDUINO
+ byte i=0;
+ IPAddress ip = Ethernet.localIP();
+ for(i=0;i<4;i++) ADR_MY[i] = ip[i];
+ for(i=0;i<4;i++) address[i] = ADR_MY[i];
+ return( 1 );
+ #else // PC
+ byte i;
+ byte ret=2;
+ for(i=0;i<4;i++) if( ADR_MY[i] != 0xFF ) ret=1;
+ if(ret==1) for(i=0;i<4;i++) address[i]=ADR_MY[i]; // ADR_MYが設定されているときは読み込む
+ else for(i=0;i<4;i++) ADR_MY[i]=address[i]; // ADR_MYが全てFFの時は入力addressを設定する。
+ #ifdef DEBUG
+ printf("ADR_MY=");
+ for(i=0;i<4;i++) printf("%d.",(int)ADR_MY[i]);
+ printf("\b\n");
+ #endif
+ return( ret );
+ #endif
+ #endif
+}
+
+void xbee_address(const byte *address){
+/*
+送信用の宛先アドレス設定用の関数
+ 入力：byte *address = 宛先(子機)アドレス
+*/
+ byte i;
+
+ #ifndef XBEE_WIFI // XBee ZB用
+ for(i=0; i< 8 ;i++ ) ADR_DEST[i] = address[i];
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ SADR_DEST[0] = 0xFF;
+ SADR_DEST[1] = 0xFE;
+ #endif
+ #endif
+ #else // XBEE_WIFI
+ #ifdef ARDUINO
+ for( i=0;i<4;i++) ADR_DEST[i] = address[i];
+ #else
+ if( bytecmp(ADR_DEST,address,4) != 0 ){
+ close_serial_port_tx();
+ open_serial_port_tx( address );
+ for( i=0;i<4;i++) ADR_DEST[i] = address[i];
+ }else{
+ #ifdef LCD_H
+ xbee_log( 2, "same address" , address[7] );
+ #endif
+ }
+ #endif
+ #endif
+
+ #ifdef DEBUG
+ #ifndef XBEE_WIFI
+ lcd_cls(); lcd_goto(LCD_ROW_1); lcd_putstr("DEST=");
+ for(i=4;i<8;i++){ lcd_disp_hex( ADR_DEST[i] ); lcd_putstr(" "); }
+ #else // XBEE_WIFI
+ printf("DEST=");
+ for(i=0;i<4;i++) printf("%d.",(int)ADR_DEST[i]);
+ printf("\b\n");
+ #endif
+ #endif
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_address" , address[7] );
+ #endif
+}
+
+#ifndef XBEE_WIFI
+#ifndef ARDUINO
+#ifndef ARM_MBED
+void xbee_short_address(const byte *address){
+ SADR_DEST[0] = address[0];
+ SADR_DEST[1] = address[1];
+}
+#endif
+#endif
+#endif
+
+byte xbee_atd( const byte *address ){
+/*
+送信用の宛先アドレス設定用の関数 XBeeへの設定
+ 入力：byte *address = 宛先(子機)アドレス
+ 戻り値：戻り値＝１で正常、０は異常
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte i;
+ byte ret=0;
+
+ for(i=0;i<4;i++)data[i]=address[i];
+ if( xbee_tx_rx( "ATDH",data,4) ){
+ for(i=0;i<4;i++)data[i]=address[i+4];
+ if( xbee_tx_rx( "ATDL",data,4) ){
+ ret=1;
+ }
+ }
+ return( ret );
+ #else // XBEE_WIFI
+ return( 0 );
+ #endif
+}
+
+byte xbee_ratd(const byte *dev_address, const byte *set_address ){
+/*
+指定したアドレスのXBee子機に任意のアドレスを（宛先として）設定する
+ byte *dev_address : 設定先のXBeeデバイスのアドレス
+ byte *set_address : 設定するアドレス
+ 戻り値＝XBeeデバイス名。0xFFは異常
+*/
+ byte i=0;
+ #ifdef XBEE_WIFI
+ byte len=0;
+ #endif
+ byte data[API_SIZE];
+ byte dd=0xFF; // デバイス名
+
+ xbee_address(dev_address); // 宛先のアドレスを設定
+ #ifndef XBEE_WIFI
+ for( i=0;i<4;i++) data[i]=set_address[i]; // 上位４バイトをdataに代入
+ if( xbee_tx_rx( "RATDH", data ,4 ) > 0 ){ // 上位４バイトを設定
+ for( i=0;i<4;i++) data[i]=set_address[i+4]; // 下位４バイトをdataに代入
+ if( xbee_tx_rx( "RATDL", data ,4 ) > 0 ){ // 下位４バイトを設定
+ if( xbee_tx_rx( "RATDD", data ,0 ) > 0 ){ // デバイス名を取得
+ if( data[18]==0x00 && data[19]==0x03 && data[20]==0x00 ){ // XBeeデバイス
+ dd=data[21]; // デバイス名をddに代入
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDD at ratd" , 1 );
+ #endif
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDL at ratd" , 1 );
+ #endif
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDH at ratd" , 1 );
+ #endif
+ }
+ #else // XBEE_WIFI
+ for( i=0;i<4;i++){
+ if(set_address[i] >= 100){
+ data[len] = (byte)(set_address[i]/100);
+ data[len+1] = (byte)(set_address[i]/10)-10*data[len]+(byte)'0';
+ data[len] += (byte)'0';
+ len += 2;
+ }else if(set_address[i] >= 10){
+ data[len] = (byte)(set_address[i]/10)+(byte)'0';
+ len += 1;
+ }
+ data[len] = (byte)(set_address[i]%10)+(byte)'0';
+ data[len+1] = (byte)'.'; // 最後のデータdata[len]に「.」が入るが
+ len += 2;
+ }
+ len--; // 最後の「.」は送信しない。
+ if( xbee_tx_rx( "RATDL", data ,len ) > 0 ){ // 下位４バイトを設定
+ dd = 0x00;
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDL at ratd" , 1 );
+ #endif
+ }
+ #endif
+ return(dd);
+}
+
+byte xbee_ratd_myaddress(const byte *address){
+/*
+指定したアドレスのXBee子機に本機のアドレスを（宛先として）設定する
+ byte *address : 設定先のXBeeデバイスのアドレス
+ 戻り値＝XBeeデバイス名。0xFFは異常
+
+*/
+ byte i=0;
+ #ifdef XBEE_WIFI
+ byte len=0;
+ #endif
+ byte data[API_SIZE];
+ byte adr_my[8];
+ byte dd=0xFF; // デバイス名
+
+ if( xbee_myaddress(adr_my) ){ // 自分のアドレスを取得
+ #ifdef DEBUG
+ #ifndef XBEE_WIFI
+ #ifdef ARM_MBED
+ _xbee_debug.printf("adr_my =");
+ for( i=0 ; i<8 ; i++) _xbee_debug.printf("%02x ",adr_my[i]);
+ _xbee_debug.printf("\b\n");
+ #else // PC
+ printf("adr_my =");
+ for( i=0 ; i<8 ; i++) printf("%02x ",adr_my[i]);
+ printf("\b\n");
+ #endif
+ #else // XBEE_WIFI
+ printf("adr_my =");
+ for( i=0 ; i<4 ; i++) printf("%d.",adr_my[i]);
+ printf("\b\n");
+ #endif
+ #endif
+ xbee_address(address); // 宛先のアドレスを設定
+ #ifndef XBEE_WIFI
+ for( i=0;i<4;i++) data[i]=adr_my[i]; // 上位４バイトをdataに代入
+ if( xbee_tx_rx( "RATDH", data ,4 ) > 0 ){ // 上位４バイトを設定
+ for( i=0;i<4;i++) data[i]=adr_my[i+4]; // 下位４バイトをdataに代入
+ if( xbee_tx_rx( "RATDL", data ,4 ) > 0 ){ // 下位４バイトを設定
+ if( xbee_tx_rx( "RATDD", data ,0 ) > 0 ){ // デバイス名を取得
+ if( data[18]==0x00 && data[19]==0x03 && data[20]==0x00 ){ // XBeeデバイス
+ dd=data[21]; // デバイス名をddに代入
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDD at set_myadd" , 1 );
+ #endif
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDL at set_myadd" , 1 );
+ #endif
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDH at set_myadd" , 1 );
+ #endif
+ }
+ #else // XBEE_WIFI
+ for( i=0;i<4;i++){
+ if(adr_my[i] >= 100){
+ data[len] = (byte)(adr_my[i]/100);
+ data[len+1] = (byte)(adr_my[i]/10)-10*data[len]+(byte)'0';
+ data[len] += (byte)'0';
+ len += 2;
+ }else if(adr_my[i] >= 10){
+ data[len] = (byte)(adr_my[i]/10)+(byte)'0';
+ len += 1;
+ }
+ data[len] = (byte)(adr_my[i]%10)+(byte)'0';
+ data[len+1] = (byte)'.'; // 最後のデータdata[len]に「.」が入るが
+ len += 2;
+ }
+ len--; // 最後の「.」は送信しない。
+ if( xbee_tx_rx( "RATDL", data ,len ) > 0 ){ // 下位４バイトを設定
+ dd = 0x00;
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx RATDL at set_myadd" , 1 );
+ #endif
+ }
+ // XBee Wi-Fi 2.0だと情報をクラウドに送信してしまう。LAN内に送信するように変更する
+ if(DEVICE_TYPE == XB_TYPE_WIFI20){
+ data[0]=0x00; xbee_tx_rx( "RATDO", data ,1 ); // DO: XBee WiFi 2.0用 Device Option=0
+ }
+ #endif
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:at_my at set_myadd" , 1 );
+ #endif
+ }
+ return(dd);
+}
+
+void xbee_from(byte *address){
+/*
+ 最後に受信したデバイスの送信元アドレスの読み込み。
+ 但し、xbee_rx_callで受信した場合の送信元アドレスは
+ 「構造体XBEE_RESULT変数.FROM」で読むこと。
+ （キャッシュ値での受信の場合があるので）
+ 出力：byte *address IEEEアドレス
+*/
+ byte i;
+
+ #ifndef XBEE_WIFI
+ for(i=0; i< 8 ;i++ ) address[i] = ADR_FROM[i];
+ #else // XBEE_WIFI
+ for(i=0; i< 4 ;i++ ) address[i] = ADR_FROM[i];
+ #endif
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_from" , 0 );
+ #endif
+}
+
+byte text2hex4data( byte *data, const char *in , const byte com_len){
+/*
+ data 出力：変換後の数値データ（バイナリデータ）
+ in 入力：文字としての16進数（テキストデータ）
+ com_len 入力：ATコマンドの文字数(ATを含む)。16進数に変換する部分以外の先頭文字数
+ 戻り値 出力：変換したバイト数
+*/
+ byte i, j, len, val;
+
+ /* ATコマンドに続く16進数の引数入力 */
+ for( len = 0 ; len < API_SIZE ; len++ ){
+ j = (byte)in[len * 2 + com_len];
+ i = (byte)in[len * 2 + com_len + 1];
+ if( j == (byte)'\0' || i == (byte)'\0' )break;
+ // 16進数の文字を数字にしてdataに代入。1桁は考慮。奇数桁は考慮せずに処理。
+ if( (j >= (byte)'0' && j <= (byte)'9') || (j >= (byte)'A' && j <= (byte)'F') ){
+ if( j > '9' ) data[len] = j - (byte)'A' + 10;
+ else data[len] = j - (byte)'0';
+ if( (i >= (byte)'0' && i <= (byte)'9') || (i >= (byte)'A' && i <= (byte)'F') ){
+ if( i > '9' ) val = i - (byte)'A' + 10;
+ else val = i - (byte)'0';
+ data[len] *= 16;
+ data[len] += val;
+ }
+ }else break;
+ }
+ return( len );
+}
+
+byte xbee_rat(const byte *address, const char *in){
+/*
+ リモートATコマンドを送信するユーザ提供関数
+ 入力：byte *address = 宛先(子機)アドレス
+ char *in = 入力するATコマンド 例： ATDL0000FFFF 最大文字数は XB_AT_SIZE-1
+ 出力：ATコマンドの結果 STATUS_OK / STATUS_ERR / STATUS_ERR_AT / STATUS_ERR_PARM / STATUS_ERR_AIR
+ 0xFFで送信失敗もしくはデータ異常
+*/
+ byte i;
+ char at[6];
+ byte data[API_SIZE];
+ byte len;
+ byte ret = 0xFF;
+ byte com_len =0;
+ byte null_adr[] = {0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff};
+
+ if( in[0]=='A' && in[1]=='T' ){
+ if( bytecmp(null_adr,address,8) == 0 ){
+ // xbee_atから呼ばれた場合 ATxx_;ローカルAT
+ com_len = 4; // 入力ATコマンド長 ATxx 4
+ at[0]='A'; at[1]='T';
+ if( in[2] == '\0' ){
+ at[2]='D'; at[3]='D';
+ }else{
+ at[2]=in[2]; at[3]=in[3];
+ }
+ at[4]='\0';
+ }else{
+ // リモートat(xbee_rat)指定で呼び出された場合 RATxx_；実際のリモートAT
+ com_len = 4; // 入力ATコマンド長 ATxx 4
+ at[0]='R'; at[1]='A'; at[2]='T';
+ // アプリ呼び出しにつき、ATの後に何もない場合が想定される。その時はATDDとみなす
+ if( in[2] == '\0' ){
+ at[3]='D'; at[4]='D';
+ }else{
+ at[3]=in[2]; at[4]=in[3];
+ }
+ at[5]='\0';
+ }
+ }else if( in[0]=='R' && in[1]=='A' && in[2]=='T' ){
+ com_len = 5; // 入力ATコマンド長 RATxx 5
+ at[0]='R'; at[1]='A'; at[2]='T';
+ at[3]=in[3]; at[4]=in[4];
+ at[5]='\0';
+ }else if( in[0]=='T' && in[1]=='X' ){
+ com_len = 2; // 入力ATコマンド長 TX 2
+ at[0]='T'; at[1]='X';
+ at[2]='\0';
+ }
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ else if(in[0]=='Z' && in[1]=='C'){
+ com_len = 2; // 入力ATコマンド長 TX 2
+ at[0]='Z'; at[1]='C';
+ at[2]='\0';
+ if( SADR_DEST[0]==0xFF && SADR_DEST[1] == 0xFE) xbee_address(address);
+ len = text2hex4data( data, in , com_len);
+ if( xbee_at_tx( at, data ,len ) > 0 ) ret=0;
+ com_len = 0;
+ }
+ #endif
+ #endif
+ if( com_len > 0 ){
+ if( at[0] != 'A' && SADR_DEST[0] == 0xFF && SADR_DEST[1] == 0xFE) xbee_address(address);
+ len = text2hex4data( data, in , com_len);
+ // test
+ // printf("xbee_tx_rx %s len=%d\n",at,len);
+ #ifdef LCD_H
+ xbee_log( 1, "started:xbee_rat" , len );
+ #endif
+ if( xbee_tx_rx( at, data ,len ) > 0 ){
+ #ifdef LCD_H
+ xbee_log( 1, "done:rat" , len );
+ #endif
+ if( data[3] == MODE_RES ){
+ ret = data[7];
+ }else if( data[3] == MODE_RESP ){
+ for(i=0;i<8;i++) ADR_FROM[i]=data[5+i]; // 2013.9.15 追加
+ ret = data[17];
+ }else{
+ ret = 0xFF;
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:tx_rx at xbee_rat" , 1 );
+ #endif
+ }
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_rat" , ret );
+ #endif
+ return( ret );
+}
+
+byte xbee_rat_force(const byte *address, const char *in){
+/*
+ リモートATコマンドを送信するユーザ提供関数。応答値をxbee_rx_callで得る。
+ 入力：byte *address = 宛先(子機)アドレス
+ char *in = 入力するATコマンド 例： ATDL0000FFFF 最大文字数は XB_AT_SIZE-1
+ 出力：0x00で送信失敗もしくはデータ異常
+*/
+ char at[6];
+ byte data[API_SIZE];
+ byte len;
+ byte ret = 0x00;
+
+ if( in[0]=='A' && in[1]=='T' ){
+ at[0]='S'; at[1]='A'; at[2]='T';
+ at[3]=in[3]; at[4]=in[4];
+ at[5]='\0';
+ xbee_address(address);
+ len = text2hex4data( data, in , 5 );
+ #ifdef LCD_H
+ xbee_log( 1, "started:xbee_ratf" , len );
+ #endif
+ if( xbee_at_tx( at, data ,len ) > 0 ){
+ #ifdef LCD_H
+ xbee_log( 1, "done:ratf" , len );
+ #endif
+ ret = PACKET_ID;
+ }
+ #ifdef XBEE_WIFI
+ if(ret){ // 送信データを即確定する
+ at[0]='S'; at[1]='A'; at[2]='T';
+ at[3]='A'; at[4]='C';
+ xbee_at_tx( at, data ,0 );
+ }
+ #endif
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_rat_force" , 1 );
+ #endif
+ return( ret );
+}
+
+byte xbee_at(const char *in){
+/*
+ ローカルATコマンドを送信するユーザ提供関数。
+ 入力：char *in = 入力するATコマンド 例： ATDL0000FFFF 最大文字数は XB_AT_SIZE-1
+ 出力：ATコマンドの結果 STATUS_OK / STATUS_ERR / STATUS_ERR_AT / STATUS_ERR_PARM / STATUS_ERR_AIR
+ 0xFFで送信失敗もしくはデータ異常
+ 別関数xbee_atnjとエラー時の戻り値が異なる。
+ atnjは正常が複数あるので異常時がNULL、atはエラーが複数あるので正常時がNULL
+*/
+ #ifndef XBEE_WIFI
+ byte address[] = {0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff};
+ byte ret;
+ ret = xbee_rat( address, in);
+ #else // XBEE_WIFI
+ byte ret;
+ ret = xbee_rat( ADR_DEST, in);
+ #endif
+
+ #ifdef LCD_H
+ if( ret == 0xFF ) xbee_log( 4, "ERR:tx_rx at xbee_at" , ret );
+ xbee_log( 1, "done:xbee_at" , 1 );
+ #endif
+ return( ret );
+}
+
+byte xbee_uart(const byte *address, const char *in){
+/*
+ 入力：byte *address = 宛先(子機)アドレス
+ char *in = 送信するテキスト文字。最大文字数はAPI_TXSIZE-1
+ 出力：戻り値 = 送信パケット番号PACKET_ID。0x00は失敗。
+*/
+ byte ret=0;
+
+ xbee_address( address ); // 宛先のアドレスを設定
+ if( xbee_putstr( in ) > 0 ) ret = PACKET_ID;
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_uart" , 1 );
+ #endif
+ return( ret );
+}
+
+byte xbee_bytes(const byte *address, const byte *in, byte len){
+/*
+ 入力：byte *address = 宛先(子機)アドレス
+ byte *in = 送信するバイナリ情報。最大文字数はAPI_TXSIZE-1
+ byte len = バイト数
+ 出力：戻り値 = 送信パケット番号PACKET_ID。0x00は失敗。
+*/
+ byte ret=0;
+
+ #ifdef LCD_H
+ xbee_log( 1, "started:xbee_bytes" , 1 );
+ #endif
+ xbee_address( address ); // 宛先のアドレスを設定
+ if(len > API_TXSIZE-18 ){
+ #ifdef LCD_H
+ xbee_log( 3, "CAUTION:xbee_bytes length" , len );
+ #endif
+ len = API_TXSIZE-18;
+ }
+ if( xbee_at_tx( "TX", in , len) > 0 ) ret = PACKET_ID;
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_bytes" , 1 );
+ #endif
+ return( ret );
+}
+
+byte xbee_atvr( void ){
+/*
+ XBeeのデバイスタイプを取得するコマンド
+ 出力：戻り値＝ define値 ZB_TYPE_COORD、ZB_TYPE_ROUTER、ZB_TYPE_ENDDEV、0xFF＝エラー
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte ret=0xFF;
+
+ if( xbee_tx_rx( "ATVR", data ,0 ) > 0){
+ DEVICE_TYPE = data[8];
+ if( DEVICE_TYPE != ZB_TYPE_COORD &&
+ DEVICE_TYPE != ZB_TYPE_ROUTER &&
+ DEVICE_TYPE != ZB_TYPE_ENDDEV) ret = 0xFF;
+ else ret = DEVICE_TYPE;
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_atvr" , ret );
+ #endif
+ return( ret );
+ #else
+ return( DEVICE_TYPE );
+ #endif
+}
+
+byte xbee_atcb( byte cb ){
+/*
+ XBeeのコミッション制御
+ 入力：コミッションボタンの押下数（1:ジョイン開始、2:ジョイン許可、4:初期化）
+ 出力：戻り値＝ 0xFF 異常終了、 0x00 指示成功
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte ret = 0xFF;
+
+ data[0] = cb;
+ if( cb == 1 || cb == 2 ){
+ if( xbee_tx_rx( "ATCB", data ,1 ) > 0) ret = 0x00;
+ }else if( cb == 4){
+ if( xbee_tx_rx( "ATCB", data ,1 ) > 0){
+ if( DEVICE_TYPE == ZB_TYPE_COORD ){
+ wait_millisec(1000);
+ sci_clear();
+ wait_millisec(5000);
+ xbee_at_rx( data );
+ if( data[3] == MODE_MODM && data[4] == MODM_STARTED ){
+ ret = 0x00;
+ }
+ }else ret = 0x00;
+ }
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_atcb" , ret );
+ #endif
+ return( ret );
+ #else
+ return( 0xFF );
+ #endif
+}
+
+byte xbee_atai(void){
+/*
+ XBeeモジュールの状態を確認するコマンド AT Association Indication
+ 出力：
+ 0x00 - Successfully formed or joined a network. (Coordinators form a network, routers
+ and end devices join a network.)
+ ※Routerに対して実行すると01が返ってくる場合があるが仕様書には記載なし。
+ 0x21 - Scan found no PANs
+ 0x22 - Scan found no valid PANs based on current SC and ID settings
+ 0x23 - Valid Coordinator or Routers found, but they are not allowing joining (NJ expired)
+ 0x24 - No joinable beacons were found
+ 0x25 - Unexpected state, node should not be attempting to join at this time
+ 0x27 - Node Joining attempt failed (typically due to incompatible security settings)
+ 0x2A - Coordinator Start attempt failed‘
+ 0x2B - Checking for an existing coordinator
+ 0x2C - Attempt to leave the network failed
+ 0xAB - Attempted to join a device that did not respond.
+ 0xAC - Secure join error - network security key received unsecured
+ 0xAD - Secure join error - network security key not received
+ 0xAF - Secure join error - joining device does not have the right preconfigured link key
+ 0xFF - Scanning for a ZigBee network (routers and end devices)
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+ 本コマンドをXBeeに送ると、XBeeからの応答用キャッシュがクリアされる場合があります。
+ 例えば、xbee_forceなどの応答を後から得るコマンドを実行後に本コマンドを実行すると
+ xbee_rx_callで応答が受け取れなくなる場合があります。
+ このような場合、xbee_ataiを実行してからxbee_forceを実行するような手順にしてください。
+*/
+ byte data[API_SIZE];
+ byte ret=0xFF;
+
+ #ifdef LCD_H
+ xbee_log( 1, "started:xbee_atai" , 0x00 );
+ #endif
+ if( xbee_tx_rx( "ATAI", data ,0 ) > 0 ){
+ // wait_millisec(100);
+ #ifndef XBEE_WIFI
+ if( data[7] == 0x00 ) ret = data[8];
+ #else
+ if( data[17] == 0x00 ) ret = data[18];
+ #endif
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_atai" , ret );
+ #endif
+ return( ret );
+}
+
+unsigned short xbee_atop(byte *pan_id){
+/*
+ PAN Idを求めるコマンド(書き込めないD
+ 出力：byte pan_id[8] PAN_ID 64bit (8bytes)
+ unsigned short 戻り値 = PAN_ID 16bit
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte i;
+ unsigned short pan_id_s=0xFFFF;
+
+ for( i=0 ; i<8 ; i++ ) pan_id[i] = 0x00;
+ #ifdef LCD_H
+ xbee_log( 1, "started:xbee_atop" , 0x00 );
+ #endif
+ if( xbee_tx_rx( "ATOP", data ,0 ) > 0 ){
+ wait_millisec(100);
+ if( data[7] == 0x00 ){
+ for( i=0 ; i<8 ; i++ ) pan_id[i] = data[8+i];
+ }
+ xbee_tx_rx( "ATOI", data ,0 );
+ if( data[7] == 0x00 ){
+ pan_id_s = (unsigned short)data[8] * 16 + (unsigned short)data[9];
+ }
+ // wait_millisec(100);
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_atop" , 0x00 );
+ #endif
+ return( pan_id_s );
+ #else
+ return( 0x00 );
+ #endif
+}
+
+byte xbee_atee_on(const char *key ){
+/*
+ 暗号化通信の設定(コーディネータ、ルータ共用)
+ 入力：const char *key セキュリティ共通キー16文字まで
+ 出力：byte 戻り値 = 0xFF失敗 0x00書き込み 0x01何もせず(設定されていた)
+*/
+ #ifndef XBEE_WIFI
+ byte i;
+ byte ret = 0xFF;
+ byte data[API_SIZE];
+
+ /* 現在のモードを確認(あとでATWRする。フラッシュ書き換え回数低減のため) */
+ // xbee_tx_rx( "ATVR", data ,0 );
+ // vr = data[8]; // xbee VRを取得
+ if( xbee_tx_rx( "ATEE", data ,0 ) > 0 ){
+ if( data[8] == 0x00 ){ // ATEEの応答が00の時
+ data[0] = 0x01; // ATEE = 0x01に設定
+ if( xbee_tx_rx( "ATEE", data ,1 ) > 0 ){
+ if( DEVICE_TYPE == ZB_TYPE_COORD ){
+ wait_millisec(1000);
+ sci_clear();
+ wait_millisec(5000);
+ xbee_at_rx( data );
+ if( data[3] == MODE_MODM && data[4] == MODM_STARTED ){
+ data[0] = 0x00; // ATNK = 0x00 random network key
+ ret = xbee_tx_rx( "ATNK", data ,1 );
+ }
+ }else ret = 0x01;
+ /* KY 設定 */
+ for(i=0;i<16;i++){
+ if( key[i] == '\0' ) break;
+ data[i] = (byte)key[i];
+ } // ここで使ったiはキーの文字数として使用する
+ if( i == 0 ){
+ #ifdef LCD_H
+ xbee_log( 3, "CAUTION:ATKY=" , 0 );
+ #endif
+ data[0] = 0x00;
+ i = 1;
+ }
+ if( xbee_tx_rx( "ATKY", data ,i ) > 0 ){
+ if( xbee_tx_rx( "ATWR", data ,0 ) > 0 ){
+ if( ret != 0xFF ) ret = 0x00;
+ }
+ }
+ }
+ }else ret = 0x01;
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_atee_on" , ret );
+ #endif
+ return(ret);
+ #else
+ return( 0x00 );
+ #endif
+}
+
+byte xbee_atee_off( void ){
+/*
+ 暗号化通信のオフ(コーディネータ、ルータ共用)
+ 出力：byte 戻り値 = 0xFF失敗 0x00書き込み 0x01何もせず(設定されていた)
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte ret = 0xFF;
+
+ if( xbee_tx_rx( "ATEE", data ,0 ) > 0 ){
+ if( data[8] == 0x01 ){ // ATEEの応答が01(enable)の時
+ data[0] = 0x00; // ATEE = 0x00に設定
+ if( xbee_tx_rx( "ATEE", data ,1 ) > 0 ){
+ if( DEVICE_TYPE == ZB_TYPE_COORD ){ // ZigBeeコーディネータの場合は再起動がある
+ wait_millisec(1000);
+ sci_clear();
+ wait_millisec(5000);
+ xbee_at_rx( data );
+ if( data[3] == MODE_MODM && data[4] == MODM_STARTED ){
+ data[0] = 0x00; // ATNK = 0x00 random network key
+ ret = xbee_tx_rx( "ATNK", data ,1 );
+ }
+ }else ret = 0x01;
+ if( xbee_tx_rx( "ATWR", data ,0 ) > 0 ){
+ if( ret != 0xFF ) ret = 0x00;
+ }
+ }
+ }else ret= 0x01;
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_atee_off" , ret );
+ #endif
+ return(ret);
+ #else
+ return( 0x00 );
+ #endif
+}
+
+byte xbee_atnc(void){
+/*
+ XBeeモジュールのEnd Device子機のジョイン可能な台数を取得するコマンドです。
+ 出力：ジョイン可能数(0～)、0xFFで取得エラー
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte ret=0xFF;
+ if( xbee_tx_rx( "ATNC", data ,0 ) > 0 ){
+ if( data[7] == 0x00 ) ret = data[8];
+ }
+ #ifdef LCD_H
+ if(ret<3) xbee_log( 3, "CAUTION:Many Children" , ret );
+ if(ret==0) xbee_log( 3, "CAUTION:Cannot Join More" , ret );
+ xbee_log( 1, "done:xbee_atnc" , ret );
+ #endif
+ return( ret );
+ #else
+ return( 0 );
+ #endif
+}
+
+byte xbee_ratnc( const byte *address ){
+/*
+ XBeeモジュールのEnd Device子機のジョイン可能な台数を取得するコマンドです。
+ 出力：ジョイン可能数(0～)、0xFFで取得エラー
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+ 本コマンドをXBeeに送ると、XBeeからの応答用キャッシュがクリアされる場合があります。
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte ret=0xFF;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if( xbee_tx_rx( "RATNC", data ,0 ) > 0 ){
+ if( data[17] == 0x00 ) ret = data[18];
+ }
+ #ifdef LCD_H
+ if(ret<3) xbee_log( 3, "CAUTION:Many Children" , ret );
+ xbee_log( 1, "done:xbee_ratnc" , ret );
+ #endif
+ return( ret );
+ #else
+ return( 0 );
+ #endif
+}
+
+byte xbee_atnj(const byte timeout){
+/*
+ 制限時間timeoutで設定した間にネットワークに参加したデバイスを通信相手に設定する関数
+ AT Node Join Time
+ 入力：timeout = 時間(6～254秒)、0x00で参加拒否、0xFFの場合は常に参加許可
+ 出力：byte 戻り値 = 0x00失敗、成功時はMODE_IDNT(0x95)が代入される
+ xbee_atとエラー時の戻り値が異なる。
+ atnjは正常が複数あるので異常時がNULL
+ また、atnjはfopenと似た記述になるので、特殊な応答でもない(と思う)
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte i=0, ret, timer;
+
+ #ifdef LCD_H
+ xbee_log( 1, "started:xbee_atnj" , timeout );
+ #endif
+ data[0]=timeout;
+ ret = xbee_tx_rx( "ATNJ", data ,1 );
+ if( ret > 0 ){
+ wait_millisec(100);
+ if( timeout == 0xFF ){
+ /*常に参加待ち受けするテスト専用(非実用)*/
+ ret=0xFF;
+ #ifdef LCD_H
+ xbee_log( 3, "CAUTION:ATNJ=" , timeout );
+ #endif
+ wait_millisec(1000); // NJ値の書込み時間待ち
+ }else{
+ if( timeout > 0x09 ){
+ /*参加待ち受けの開始*/
+ timer = TIMER_SEC + timeout + 0x01 ;
+ ret = 0x00;
+ while( timer != TIMER_SEC && ret != MODE_IDNT){ // MODE_IDNT(0x95)はネットワーク参加
+ #ifdef H3694
+ if( (timera()>>6)&0x01 ){
+ led_green( 0 ); // LEDのトグル1秒に4回
+ } else {
+ led_green( 1 );
+ }
+ #endif
+ if( xbee_at_rx( data ) > 0x00 ){ // データの受信(戻り値は受信種別mode値)
+ ret = xbee_from_acum(data);
+ if( ret == MODE_IDNT ){ // 受信モードがMODE_IDNT(0x95) Node Identifyの場合
+ #ifdef LCD_H
+ xbee_log( 1, "Found device " , ret );
+ #endif
+ for(i=0;i<8;i++) ADR_DEST[i]=ADR_FROM[i]; // 宛先を発見デバイスに設定
+ #ifndef LITE // BeeBee Lite by 蘭
+ sci_write_check();
+ #endif
+ sci_clear();
+ }else ret=0x00;
+ }
+ }
+ #ifdef LCD_H
+ if( ret == 0x00 ) xbee_log( 1, "no new device" , ret );
+ #endif
+ }
+ /*ジョイン拒否設定*/
+ data[0]=0x00;
+ xbee_tx_rx( "ATNJ", data ,1 );
+ #ifdef LCD_H
+ xbee_log( 1, "done:atnj=0x00" , 0x00 );
+ #endif
+ }
+ }else{
+ #ifdef LCD_H
+ xbee_log( 5, "ERROR:xbee_atnj" , ret );
+ #endif
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_atnj" , ret );
+ #endif
+ return( ret );
+ #else
+ return( 0x95 );
+ #endif
+}
+
+byte xbee_ratnj(const byte *address, const byte timeout){
+/*
+ 前記xbee_atnjをリモート先(子機)に対して設定する関数
+ 入力：byte *address = 宛先(子機)アドレス
+ 入力：timeout = 0でジョイン拒否、1～254で待ち秒数、255で常時ジョイン許可
+ 出力：byte 戻り値 = 0x00失敗、0xFF成功
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ #ifndef XBEE_WIFI
+ byte data[API_SIZE];
+ byte ret=0x00;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ data[0]=timeout;
+ if( xbee_tx_rx( "RATNJ", data ,1 ) > 0 ){
+ #ifdef LCD_H
+ xbee_log( 1, "done:ratnj" , xbee_tx_rx( "ATAC", data ,0 ) );
+ #endif
+ ret=0xFF;
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_ratnj" , ret );
+ #endif
+ return( ret );
+ #else
+ return( 0x95 );
+ #endif
+}
+
+byte xbee_ping(const byte *address ){
+/*
+入力：IEEEアドレスaddress
+出力： 0xFF エラー
+ DEV_TYPE_XBEE 0x00 // XBeeモジュール
+ DEV_TYPE_RS232 0x05 // RS-232Cアダプタ
+ DEV_TYPE_SENS 0x07 // Sensor (1wire専用)
+ DEV_TYPE_PLUG 0x0F // SmartPlug
+
+ byte 戻り値 = 0xFF失敗、成功時は0x00などのデバイス名(ATDD)の下2桁
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ byte i;
+ byte ret=0xFF; // デバイス名
+ byte data[API_SIZE];
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if( xbee_tx_rx( "RATDD", data ,0 ) > 0 ){ // デバイス名を取得
+ #ifdef XBEE_WIFI // Device Type Identifier. Stores a device type value
+ // 20 00 20 24 ← 電源投入した後は、こんな応答がある。モジュールによらず。
+ // 00 90 00 00 仕様書に書かれていないと思う
+ if( (data[18]==0x00 && data[19]==0x09 && data[20]==0x00 && data[21]==0x00) ||
+ (data[18]==0x20 && data[19]==0x00 && data[20]==0x20 && data[21]==0x24) ){ // XBee WiFiデバイス
+ data[21]=0x00;
+ #else
+ if( data[18]==0x00 && data[19]==0x03 && data[20]==0x00 ){ // XBeeデバイス
+ #endif
+ for(i=0;i<8;i++) ADR_FROM[i]=data[5+i]; // 2013.9.15 追加
+ ret=data[21]; // デバイス名をddに代入
+ }
+ #ifdef DEBUG
+ #ifdef ARM_MBED
+ for(i=18;i<=21;i++) _xbee_debug.printf("%2X ",data[i]);
+ _xbee_debug.printf("\n");
+ #else //PC
+ for(i=18;i<=21;i++) printf("%2X ",data[i]);
+ printf("\n");
+ #endif
+ #endif
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_ping" , ret );
+ #endif
+ #ifdef XBEE_WIFI_DEBUG
+ Serial.print("DD=");
+ for(i=18;i<=21;i++){
+ Serial.print(data[i],HEX);
+ Serial.print(" ");
+ }
+ Serial.println("");
+ #endif
+ return( ret );
+}
+
+int xbee_batt(const byte *address ){
+/*
+電池電圧の確認
+入力：IEEEアドレスaddress
+出力：約2100～3600[mV]、-1=エラー
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ int ret=-1;
+ byte data[API_SIZE];
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if( xbee_tx_rx( "RAT%V", data ,0 ) > 0 ){ // 電池電圧を取得
+ ret = (int)(((float)data[18] * 256. + (float)data[19] ) * 1.17);
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_batt" , (byte)(ret/100) );
+ #endif
+ return( ret );
+}
+
+byte xbee_batt_force(const byte *address ){
+/*
+電池電圧の確認
+入力：IEEEアドレスaddress
+xbee_batt_forceで測定指示を出して、xbee_rx_callで受け取ります。
+XBEE_RESULT.MODEに「MODE_BATT(0xE1)」が設定されるので他のリモートＡＴレスポンスと区別することが出来ます。
+電圧値はXBEE_RESULT.ADC[0]に約2100～3600[mV]の範囲で応答します。
+*/
+ byte data[XB_AT_SIZE];
+ byte ret = 0x00;
+
+ xbee_address( address ); // 送信先を指定
+ ret = xbee_at_tx("RAT%V", data , 0); // ATISを送信
+ if( ret > 0 ) ret = PACKET_ID;
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_batt_force" , ret );
+ #endif
+ return ( ret );
+}
+
+#ifdef ARDUINO
+byte xbee_gpio_config(const byte *address, const byte port, byte type ){
+#else
+#ifdef ARM_MBED
+byte xbee_gpio_config(const byte *address, const byte port, byte type ){
+#else
+byte xbee_gpio_config(const byte *address, const byte port, const enum xbee_port_type type ){
+#endif
+#endif
+/*
+入力：IEEEアドレスaddress、GPIOポート番号port、設定値type
+ enum xbee_port_type{ DISABLE=0, VENDER=1, AIN=2, DIN=3, DOUT_L=4, DOUT_H=5 };
+
+ port: port指定 IO名 ピン番号 共用 USB評価ボード(XBIB-U-Dev)
+ port= 0 DIO0 XBee_pin 20 (Cms) SW Commision コミッションボタン
+ port= 1 DIO1 XBee_pin 19 (AD1) SW2 汎用入力用(DIN or AIN)
+ port= 2 DIO2 XBee_pin 18 (AD2) SW3 汎用入力用(DIN or AIN)
+ port= 3 DIO3 XBee_pin 17 (AD3) SW4 汎用入力用(DIN or AIN)
+ port= 4 DIO4 XBee_pin 16 (RTS) LED3 汎用出力用
+ port= 5 DIO5 XBee_pin 15 (Ass) ASSOSIATE indication
+ port=10 DIO10 XBee_pin 6 (RSSI) RSSI indication (PWM)
+ port=11 DIO11 XBee_pin 7 LED2 汎用出力用
+ port=12 DIO12 XBee_pin 4 LED1 汎用出力用
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ byte ret=0xFF;
+ byte data[API_SIZE];
+ char at[] = "RATD0" ; // ATコマンド
+ byte dd=0xFF; // デバイス名
+
+ switch( type ){
+ case DISABLE:
+ if( (port >= 1 && port <= 5) || (port >= 10 && port <= 12) ) {
+ at[4] = '0' + port;
+ ret=0;
+ }
+ break;
+ case VENDER:
+ if( port == 0 || port == 5 || port == 10) ret=0;
+ break;
+ case AIN:
+ if( port >= 1 && port <= 4 ){
+ at[4] = '0' + port;
+ ret=0;
+ }else if( port == 0xFF ){
+ ret=0;
+ }
+ break;
+ case DIN:
+ case DOUT_L:
+ case DOUT_H:
+ if( port >= 1 && port <= 5 ){
+ at[4] = '0' + port;
+ ret=0;
+ }else if( port >= 10 && port <= 12 ){
+ at[3] = 'P';
+ at[4] = '0' + (port - 10);
+ ret=0;
+ }else if( port == 0xFF ){
+ ret=0;
+ }
+ break;
+ default:
+ break;
+ }
+ if( ret==0 ){
+ dd = xbee_ratd_myaddress(address);
+ if( dd != 0xFF ){ // アドレス設定が正常に実施された時
+ /*
+ 入力されたtypeがDINの時にRATICを変更する処理に対応予定（将来）
+ RATICで状態を取得して状態or設定を追加(ポート1～5と10～12)
+ */
+ data[0]=(byte)type;
+ xbee_tx_rx( at , data ,1 );
+ }
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_gpio_config" , dd );
+ #endif
+ return( dd );
+}
+
+byte xbee_gpio_init(const byte *address){
+/*
+子機XBeeデバイス(リモート先)のGPIOを入力に設定する関数
+リモート端末の宛先を本機アドレスに設定(リモート側のボタンで親機に送信するために)
+入力：なし
+出力：デバイス名(ATDDの下2桁)、FFでエラー
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ byte data[API_SIZE];
+ byte dd; // デバイス名
+
+ dd = xbee_ratd_myaddress(address);
+ if( dd != 0xFF){
+ data[0]=0x01; xbee_tx_rx( "RATD0", data ,1 ); // ポート0をコミッションボタンに設定
+ switch(dd){
+ case DEV_TYPE_XBEE:
+ data[0]=0x03; xbee_tx_rx( "RATD1", data ,1 ); // ポート1をデジタル入力に設定
+ data[0]=0x03; xbee_tx_rx( "RATD2", data ,1 ); // ポート2をデジタル入力に設定
+ data[0]=0x03; xbee_tx_rx( "RATD3", data ,1 ); // ポート3をデジタル入力に設定
+ data[0]=0x05; xbee_tx_rx( "RATD4", data ,1 ); // ポート4をデジタル出力に設定
+ data[0]=0x05; xbee_tx_rx( "RATP1", data ,1 ); // ポート11をデジタル出力に設定
+ data[0]=0x05; xbee_tx_rx( "RATP2", data ,1 ); // ポート12をデジタル出力に設定
+ data[0]=0x00;
+ data[1]=0x0E; // ポート1～3の↓
+ xbee_tx_rx( "RATIC", data ,2 ); // 入力値が変化したら通知するIC設定
+ break;
+ case DEV_TYPE_PLUG:
+ data[0]=0x02; xbee_tx_rx( "RATD3", data ,1 ); // ポート3をアナログ入力に設定
+ data[0]=0x04; xbee_tx_rx( "RATD4", data ,1 ); // ポート4をデジタル出力に設定
+ // breakしない
+ case DEV_TYPE_WALL:
+ data[0]=0x02; xbee_tx_rx( "RATD1", data ,1 ); // ポート1をアナログ入力に設定
+ data[0]=0x02; xbee_tx_rx( "RATD2", data ,1 ); // ポート2をアナログ入力に設定
+ break;
+ default:
+ #ifdef LCD_H
+ xbee_log( 4, "ERR:gpio_init DD" , dd );
+ #endif
+ break;
+ }
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:gpio init" , dd );
+ #endif
+ return( dd );
+}
+
+byte xbee_gpo(const byte *address, const byte port,const byte out){
+/*
+子機XBeeデバイス(リモート先)のGPIOへ出力する関数
+portは1～4と11～12が指定できる→port0～7と10～12に拡大
+出力：byte 戻り値 = 送信パケット番号PACKET_ID。0x00は失敗。
+ port: port指定 IO名 ピン番号 USB評価ボード(XBIB-U-Dev)
+ port= 0 DIO0 XBee_pin 20 (Cms) SW1 Commision
+ port= 1 DIO1 XBee_pin 19 (AD1) SW2
+ port= 2 DIO2 XBee_pin 18 (AD2) SW3
+ port= 3 DIO3 XBee_pin 17 (AD3) SW4
+ port= 4 DIO4 XBee_pin 11 LED3 ※port4 がLED3
+ port=10 DIO10 XBee_pin 6 RSSI
+ port=11 DIO11 XBee_pin 7 LED2 ※port11がLED2
+ port=12 DIO12 XBee_pin 4 LED1 ※port12がLED1
+*/
+ char at[6];
+ byte data[API_SIZE];
+// byte i=0;
+ byte ret=0;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ at[0]='S'; at[1]='A'; at[2]='T'; at[3]=0; at[5]='\0';
+ // at[0]='R'; // RAT(応答待ち)の場合は本行のコメントを外してRATに変更する（かなり遅くなる）
+ if( port <= 7 ){ // port >= 0 &&
+ at[3] = 'D';
+ at[4] = '0' + port;
+ }else if( port >= 10 && port <= 12 ){
+ at[3] = 'P';
+ at[4] = '0' + (port - 10);
+ }
+ if( at[3] ){
+ data[0]=0x05; // output = H
+ if( out == 0 ) data[0]=0x04; // output = L
+ data[1]=0x00;
+ ret = xbee_at_tx( at, data ,1 );
+ if( ret > 0 ) ret = PACKET_ID;
+ // ret = xbee_tx_rx( at, data ,1 ); // RAT(応答待ち)の場合にコメントを外す
+ #ifdef XBEE_WIFI
+ if( DEVICE_TYPE == XB_TYPE_WIFI20) delay(10);
+ // S6Bで安定動作させるために必要（理由は不明）
+ /*
+ XBee Wi-Fiの場合はPACKET IDを0にしても応答がある。
+ したがってSATでは応答なしATコマンドを明示して送信している。
+ ところが、その場合ACを受信するまでコマンドが確定しない。
+ その対策としてATACを追加で送信する。
+ XBee ZBでもATACで応答遅延が無くなる利点があるが、パケット増加で
+ かえって高速動作が出来なくなるので、Wi-Fiのみの対応とする。
+ */
+ if(ret){ // 送信データを即確定する
+ at[0]='S'; at[1]='A'; at[2]='T';
+ at[3]='A'; at[4]='C';
+ xbee_at_tx( at, data ,0 );
+ }
+ #endif
+ }
+ #ifdef DEBUG
+ lcd_goto(LCD_ROW_3);
+ if( ret==0 ){
+ lcd_putstr("GPO ERR:");
+ }else{
+ lcd_putstr("GPO OK:");
+ }
+ lcd_disp_hex( data[17] );
+ #endif
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_gpo" , ret );
+ #endif
+ return(ret);
+}
+
+#ifdef EASY_GPI
+byte xbee_gpi(const byte *address, const byte port){
+/* リモート先(ADR_FROMに入力)のGPIOの入力値を応答するAPI
+
+★注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+本コマンドでは無くxbee_forceとxbee_rx_callの組み合わせでの利用を推奨します。
+
+portは1～4と11～12と0xFFが指定できる。
+port=0xFFでポート0～7をHEXで応答する。
+AINはxbee_adcを使用する。
+ port: port指定 IO名 ピン番号 USB評価ボード(XBIB-U-Dev)
+ port= 1 DIO1 XBee_pin 19 (AD1) SW2
+ port= 2 DIO2 XBee_pin 18 (AD2) SW3
+ port= 3 DIO3 XBee_pin 17 (AD3) SW4
+ out: 指定ポートの状態 0または1、エラー時は0xFF
+
+設計情報
+ リターン信号例
+ 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
+ 7E 00 15 97 01 00 13 A2 00 -- -- -- -- -- -- 49 53 00 01 18 1E 00 00 0E 8A
+ | len |mo|FI|送信元IEEEアドレス |Short|AT(IS) |01|MASK |AD|DATA |CS|
+ | |de|
+ | |__|__________________ MODE_RESP(0x97)= ATIS応答
+ |_____|_____________________ Data Length
+*/
+ byte data[API_SIZE];
+ byte ret=0xFF;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if( xbee_tx_rx("RATIS", data , 0) > 0 ){
+ // if( data[3]==MODE_RESP ){ // d[3] flame ID = 97(RAT応答)
+ // tx_rxで data[3]はチェック済み
+ if( port == 0xFF) ret = (data[23] & data[20]);
+ else{
+ if( (port >= 1) && (port <= 4) ){
+ if( ((data[20]>>port)&0x01) == 0x00 ){ // MASK_L(20)の該当ビットが否の時
+ data[0]=0x03; // リモート端末のポート1～3をデジタル入力(0x03)に設定
+ if( port ==1 ) xbee_tx_rx( "RATD1", data ,1 );
+ if( port ==2 ) xbee_tx_rx( "RATD2", data ,1 );
+ if( port ==3 ) xbee_tx_rx( "RATD3", data ,1 );
+ if( port ==4 ) xbee_tx_rx( "RATD4", data ,1 );
+ wait_millisec(200);
+ xbee_tx_rx("RATIS", data , 0); // 再度ISを実行
+ }
+ if( data[3]==MODE_RESP ) ret= ((data[23] >> port ) & 0x01); // 取得データDATA_L(23)を戻り値に
+ } else if( (port >= 11) && (port <= 12) ){
+ if( ((data[19]>>(port-8))&0x01) == 0x00 ){ // MASK_H(19)の該当ビットが否の時
+ data[0]=0x03; // リモート端末のポート11～12をデジタル入力(0x03)に設定
+ if( port ==11 ) xbee_tx_rx( "RATP1", data ,1 );
+ if( port ==12 ) xbee_tx_rx( "RATP2", data ,1 );
+ wait_millisec(200);
+ xbee_tx_rx("RATIS", data , 0); // 再度ISを実行
+ }
+ if( data[3]==MODE_RESP ) ret= ((data[22] >> (port-8))& 0x01); // 取得データDATA_H(22)を戻り値に
+ }
+ }
+ // }
+ }
+ #ifdef DEBUG
+ lcd_goto(LCD_ROW_3);
+ lcd_putstr("port"); lcd_disp_hex( port ); lcd_putstr("="); lcd_disp_hex( ret ); // 戻り値
+ lcd_goto(LCD_ROW_4);
+ lcd_putstr(" f:"); lcd_disp_hex( data[3]);
+ lcd_putstr(" M:"); lcd_disp_hex( data[19] ); lcd_disp_hex( data[20] ); // MASK表示
+ lcd_putstr(" D:"); lcd_disp_hex( data[22] ); lcd_disp_hex( data[23] ); // デジタルサンプル値
+ #endif
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_gpi" , ret );
+ #endif
+ return( ret );
+}
+#endif // EASY_GPI
+
+#ifdef EASY_ADC
+unsigned int xbee_adc(const byte *address, const byte port){
+/* リモート先(addressに入力)のADCの入力値を応答するAPI
+portは1～3が指定できる。指定したportがADC入力でない場合はADC入力に切り替える。
+ port: port指定 IO名 ピン番号 USB評価ボード(XBIB-U-Dev)
+ port= 1 DIO1 XBee_pin 19 (AD1) SW2
+ port= 2 DIO2 XBee_pin 18 (AD2) SW3
+ port= 3 DIO3 XBee_pin 17 (AD3) SW4
+ out: ADC値
+
+設計情報
+ リターン信号例
+ 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
+ 7E 00 17 97 01 00 13 A2 00 -- -- -- -- -- -- 49 53 00 01 18 16 08 18 06 00 00 7A
+ | len |mo|FI|送信元IEEEアドレス |Short|AT(IS) |01|GPIO |AD|GPIO |ADC |CS
+ | |de| | |Adrss| |01|MASK |MS|DATA |DATA |
+ | | | | | |
+ | | | ADC MASK________________|__|
+ | |__|__________________ MODE_RESP(0x97)= ATIS応答
+ |_____|_____________________ Data Length
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+*/
+ byte data[API_SIZE];
+ byte ports=1;
+ unsigned int ret=0xFFFF;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if( xbee_tx_rx("RATIS", data , 0) > 0 ){
+ if( data[3]==MODE_RESP ){ // d[3] flame ID = 97(MODE_RESP)
+ if( (port >= 1) && (port <= 3) ){
+ if( ((data[21]>>port ) & 0x01) == 0x00 ){ // MASKの該当ビットが否の時
+ data[0]=0x02; // リモート端末のポート1～3をADC入力(0x02)に設定
+ if( port == 1 ) xbee_tx_rx( "RATD1", data ,1 );
+ if( port == 2 ) xbee_tx_rx( "RATD2", data ,1 );
+ if( port == 3 ) xbee_tx_rx( "RATD3", data ,1 );
+ wait_millisec(1000);
+ xbee_tx_rx("RATIS", data , 0); // 再度ISを実行
+ }
+ if( (port == 2) && ((data[21]>>1)&0x01) ) ports =2; // port2指定でport1がADCならデータは2個
+ else if ( port == 3 ){
+ if( (data[21]>>2)&(data[21]>>1)&0x01 ) ports =3; // port3指定でport1と2がADCならデータは3個
+ else if( ((data[21]>>2)|(data[21]>>1))&0x01 ) ports =2; // port3指定でport1か2の片方がADCならデータは2個
+ }
+ if( data[3]==MODE_RESP ) ret= (unsigned int)data[22+ports*2]*256 + (unsigned int)data[23+ports*2];
+ // 取得データを戻り値に
+ }
+ }
+ }
+ #ifdef DEBUG
+ lcd_goto(LCD_ROW_4); lcd_putstr("ADC "); lcd_disp_hex( port ); lcd_putstr("=");
+ lcd_disp_hex( data[21] ); lcd_putstr(" "); lcd_disp_5( ret );
+ #endif
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_adc" , ret );
+ #endif
+ return( ret );
+}
+#endif // EASY_ADC
+
+byte xbee_force(const byte *address ){
+/*
+ GPIOやXBee Sensor(XBee Sensor /L/T または /L/T/H) へ測定指示(ATIS)を送るコマンド
+ 本xbee_forceで測定指示を出して、xbee_rx_callで受け取ることを推奨します。
+ XBee Sensor はxbee_sensor_resultでセンサー値を計算できます。
+ 入力：送信アドレス
+ 出力：送信結果（送信したAPIサービス長。送信しなかった場合は0）
+*/
+ byte ret = 0x00;
+ byte null_data [] = { 0x00 };
+
+ xbee_address( address ); // 送信先を指定
+ ret = xbee_at_tx("RATIS", null_data , 0); // ATISを送信
+ if( ret > 0 ) ret = PACKET_ID;
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_force" , ret );
+ #endif
+ return ( ret );
+}
+
+#ifdef ARDUINO
+float xbee_sensor_result( XBEE_RESULT *xbee_result, const byte type){
+#else
+#ifdef ARM_MBED
+float xbee_sensor_result( XBEE_RESULT *xbee_result, const byte type){
+#else
+float xbee_sensor_result( XBEE_RESULT *xbee_result, const enum xbee_sensor_type type ){
+#endif
+#endif
+/*
+xbee_rx_callで取得したxbee_sensorデータを値に変換するAPI(非通信)
+call_result情報から変換
+LIGHTはXBee Sensor用
+WATTはXBee Smart Plug用
+
+ 入力：enum xbee_sensor_type {LIGHT,TEMP,HUMIDITY,WATT}; // センサタイプの型
+ 出力：float センサ読み取り値
+
+ XBee Sensor(XBee Sensor /L/T または /L/T/H) ※ 1-wire Sensor Adapterではない
+
+ 設計情報
+ リターン信号例
+ 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
+ 7E 00 1B 97 01 00 13 A2 00 -- -- -- -- -- -- 49 53 00 01 08 00 0E 08 00 03 E2 02 62 02 16 A1
+ | len |mo|FI|送信元IEEEアドレス |Short|AT(IS) |01|GPIO |AD|GPIO |ADC1 |ADC2 |ADC3 |CS
+ | |de| | |Adrss| |01|MASK |MS|DATA |DATA |DATA |DATA |
+ | | | | | | |Light|Temp |Humidity
+ | | | ADC MASK________________|__|
+ | |__|__________________ MODE_RESP(0x97)= ATIS応答 [手間！]この先はMASKによって
+ |_____|_____________________ Data Length データの無い部分は省略される
+*/
+
+ float ret = -1;
+
+ switch(type){
+ case LIGHT:
+ #ifndef XBEE_WIFI
+ ret = ((float)(xbee_result->ADCIN[1]))*1.173;
+ // (ADC1) /1023.0) * 1200
+ #else
+ ret = ((float)(xbee_result->ADCIN[1]))*2.444;
+ // (ADC1) /1023.0) * 2500
+ #endif
+ break;
+ case TEMP:
+ #ifndef XBEE_WIFI
+ ret = ((float)(xbee_result->ADCIN[2]))*0.1173-50.0;
+ // (((ADC2/1023.0) * 1200) - 500.0)/ 10.0
+ #else
+ ret = ((float)(xbee_result->ADCIN[2]))*0.2444-50;
+ #endif
+ /*
+ XBee ルータの温度測定結果は内部温度による上昇分が加算されます。
+ Digi社によると約4℃の上昇があるので4℃を減算して使用することを推奨している。
+ 本ライブラリでは減算していませんが、実際の温度差を測定したところ
+ 平均7.12℃の差がありました。(27.2℃～28.0℃の環境下での平均誤差)
+ */
+ break;
+ case HUMIDITY:
+ #ifndef XBEE_WIFI
+ ret = ((float)(xbee_result->ADCIN[3]))*1.173;
+ // mVanalog = (ADC3/1023.0) * 1200
+ #else
+ ret = ((float)(xbee_result->ADCIN[3]))*2.444;
+ #endif
+ ret = (((ret * 108.2 / 33.2) / 5000 - 0.16) / 0.0062);
+ // hum = (((mVanalog * 108.2 / 33.2) / 5000 - 0.16) / 0.0062)
+ break;
+ case WATT:
+ #ifndef XBEE_WIFI
+ ret = ((float)(xbee_result->ADCIN[3]))*1.17302;
+ #else
+ ret = ((float)(xbee_result->ADCIN[3]))*2.44379;
+ #endif
+ ret = (ret * 156.0 / 47.0 - 520.0) / 180.0 * 70.71 ;
+ if( ret < 0 ) ret = 0;
+ // current = (mV*(156.0/47.0) - 520.0) /180.0 * .7071
+ /* 電圧を測定していないのでワットへの変換は100Vを乗算している。*/
+ /* XBee Smart Plugは誘導負荷が考慮されないので測定値は参考値にしかならない。
+ (モーターなどの力率の悪いものは測れない)
+ The XBee Smart Plug uses a hall-effect current sensor IC to detect RMS current draw
+ from the user controlled outlet. As there is no power factor correction for inductive loads,
+ sensor accuracy is only specified for resistive loads. Current measurements can still be
+ made on inductive loads that fall within the product load rating, but accuracy is not
+ guaranteed. */
+ break;
+ default:
+ break;
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_sensor_result" , (byte)ret );
+ #endif
+ return( ret );
+}
+
+unsigned int xbee_batt_acum(byte a1, byte a2 ){
+ return( (unsigned int)( ( (float)a1 * 256. + (float)a2 ) * 1.17 ) );
+}
+
+byte xbee_rx_call( XBEE_RESULT *xbee_result ){
+/*
+ XBeeからの受信を行うための待ち受け関数
+ Ver 1.70以降はモード指定での待ち受け機能を削除した。
+ mode MODE_AUTO 0x00 // 自動選択(modeに選択後のモード名が入る)
+ mode MODE_UART 0x90 // UART Receive
+ mode MODE_UAR2 0x91 // UART AO=0
+ mode MODE_GPIN 0x92 // GPI data
+ mode MODE_SENS 0x94 // XB Sensor
+ mode MODE_IDNT 0x95 // Node Identify
+ mode MODE_RES 0x88 // ローカルATコマンドの結果を受信
+ mode MODE_RESP 0x97 // リモートATコマンドの結果を受信
+ mode MODE_MODM 0x8A // Modem Statusを受信
+ mode MODE_TXST 0x8B // UART Transmit Status を受信
+ mode MODE_BATT 0xE1 // (独自定義)バッテリステータス RAT%Vの応答時
+
+ 出力 ：byte データ
+ 入力・出力：byte *mode モード値
+ 出力 ：byte *xbee_result データの戻り値
+ GPIデータ(無いGPIデータは0になるADCはFFFFになる)
+ 00 01 02 03 04 05 06 07 08 09 0A 0B 0C ....
+ |GPI |ADC0 |ADC1 |ADC2 |ADC3 |\0|\0|\0|....
+ UARTデータは最後が\0で戻り値がlength
+*/
+ byte data[API_SIZE];
+ byte ret=0;
+ byte return_MODE = 0x00;
+ byte cache_en = 0x00;
+ byte i, j;
+
+ // 各種APIによるエラー発生の解除処理
+ #ifdef ERRLOG
+ if( TIMER_ERR ){
+ #ifdef LCD_H
+ xbee_log( 5, ERR_LOG , ERR_CODE ); // エラーログを出力
+ #endif
+ xbee_reset(); // リセットに約3秒がかかる
+ #ifdef LCD_H
+ xbee_log( 3, "XBee Restarted" , TIMER_ERR );
+ #endif
+ #ifdef H3694
+ led_red( 0 );
+ #endif
+ TIMER_ERR = 0;
+ }
+ #endif
+
+ // 応答値の初期化
+ xbee_result->MODE = 0x00; // Ver 1.70から自動受信を廃止。そのための追加
+ xbee_result->ID = 0x00;
+ for( i=0 ; i<8 ; i++ ) xbee_result->FROM[i] = 0x00;
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for( i=0 ; i<2 ; i++ ) xbee_result->SHORT[i] = 0x00;
+ #endif
+ #endif
+ for( i=0 ; i<2 ; i++ ){
+ xbee_result->AT[i] = 0xFF;
+ xbee_result->GPI.BYTE[i] = 0xFF;
+ }
+ xbee_result->STATUS = 0xFF;
+ for( i=1 ; i<4 ; i++ ) xbee_result->ADCIN[i] = (unsigned int)(0xFFFF);
+ xbee_result->ADCIN[0] = 0;
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for( i=0 ; i<6 ; i++ ) xbee_result->ZCL[i] = 0xFF;
+ #endif
+ #endif
+ for( i=0 ; i<CALL_SIZE ; i++ ) xbee_result->DATA[i] = 0x00;
+
+ j = 0;
+ #ifdef CACHE_RES
+ if( CACHE_COUNTER > 0 ){
+ for( i=0 ; i < API_SIZE ; i++) data[i] = CACHE_MEM[0][i];
+ /* FIFO 処理 面倒なのでメモリーをコピー */
+ for( j=1 ; j < CACHE_COUNTER ; j++)
+ for( i=0 ; i < API_SIZE ; i++) CACHE_MEM[j-1][i] = CACHE_MEM[j][i];
+ CACHE_COUNTER--;
+ return_MODE = 0xFF;
+ cache_en = 0xFF; // キャッシュ有効 フラグ
+ #ifdef DEBUG
+ lcd_putstr("### CACHE_OUT ### -> "); // DEBUG
+ lcd_disp_hex( CACHE_COUNTER );
+ lcd_putch('\n');
+ #endif
+ }
+ #endif
+ if( cache_en == 0x00 ) return_MODE = xbee_at_rx( data ); // 受信
+ if( return_MODE > 0x00 ){ // キャッシュがある、または受信データがある時
+ // if( xbee_result->MODE == 0x00 || // 指定(入力)されたモード値が00(オート)
+ // xbee_result->MODE == data[3] || // または、受信結果と一致
+ // cache_en ){ // キャッシュ動作の時
+ return_MODE = xbee_from_acum( data );
+ switch( return_MODE ){
+ case MODE_RESP: // 0x97 リモートATコマンドの結果を受信 Remote Command Response
+ for(i=0;i<8;i++) xbee_result->FROM[i] = data[5+i]; // アドレスはdata[5]から
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for(i=0;i<2;i++) xbee_result->SHORT[i] = data[13+i];// アドレスはdata[13]から
+ #endif
+ #endif
+ // for( i=0 ; i<2 ; i++ ) xbee_result->AT[i] = data[15+i]; // ATはdata[15]から
+ xbee_result->AT[0] = data[15];
+ xbee_result->AT[1] = data[16];
+ xbee_result->ID = data[4]; // PACKET_ID
+ xbee_result->STATUS = data[17]; // statusはdata[17]
+ ret = data[17];
+ if( xbee_result->STATUS==0x00 ){
+ if( xbee_result->AT[0]=='I' && xbee_result->AT[1]=='S' ){ // ATISの受信
+ ret=(data[23] & data[20]); // GPIOの下位を受信マスクで＆して応答(要約応答)
+ if( data[19] == 0x00 && data[20] == 0x00 ){
+ j = 1; // デジタルデータが無いとき
+ }else{
+ j = 0; // デジタルデータがある時
+ xbee_result->GPI.BYTE[1] = (data[22] & data[19]); // 上位をマスクして応答
+ xbee_result->GPI.BYTE[0] = (data[23] & data[20]); // 下位をマスクして応答
+ for( i = 0 ; i<2 ; i++) xbee_result->DATA[i] = xbee_result->GPI.BYTE[i];
+ }
+ for( i=0; i < 4 ; i++ ){ // この中でjを使用している
+ if( (data[21]>>i) & 0x01 ){ // data[21] ADCマスク
+ xbee_result->ADCIN[i] = (unsigned int)(data[(2*i+24-2*j)]);
+ xbee_result->ADCIN[i] *= (unsigned int)256;
+ xbee_result->ADCIN[i] += (unsigned int)(data[2*i+25-2*j]);
+ xbee_result->DATA[i*2+2] = data[24+2*i-2*j];
+ xbee_result->DATA[i*2+3] = data[25+2*i-2*j];
+ }else{
+ xbee_result->DATA[i*2+2] = 0xFF;
+ xbee_result->DATA[i*2+3] = 0xFF;
+ j++;
+ }
+ }
+ }else if( xbee_result->AT[0] == '%' && xbee_result->AT[1] == 'V'){ // BATTの受信
+ return_MODE = MODE_BATT;
+ xbee_result->GPI.BYTE[1] = data[18];
+ xbee_result->GPI.BYTE[0] = data[19];
+ // xbee_result->DATA[1] = data[18];
+ // xbee_result->DATA[0] = data[19];
+ xbee_result->ADCIN[0] = xbee_batt_acum(data[18],data[19]);
+ }
+ }
+ break;
+ case MODE_GPIN: // 0x92 GPI data を受信するモード (ZigBee IO Data Sample Ex Indicator)
+ ret=xbee_gpi_acum( data );
+ for(i=0;i<8;i++) xbee_result->FROM[i] = data[4+i]; // アドレスはdata[4]から
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for(i=0;i<2;i++) xbee_result->SHORT[i] = data[12+i];// アドレスはdata[12]から
+ #endif
+ #endif
+ xbee_result->STATUS = data[14]; // statusはdata[14] 0x01=Ack 0x02=broadcast
+ if( data[16] == 0x00 && data[17] == 0x00 ){
+ j = 1; // デジタルデータが無いとき
+ }else{
+ j = 0; // デジタルデータがある時
+ xbee_result->GPI.BYTE[1] = (data[16] & data[19]); // 上位をマスクして応答
+ xbee_result->GPI.BYTE[0] = (data[17] & data[20]); // 下位をマスクして応答
+ for( i = 0 ; i<2 ; i++) xbee_result->DATA[i] = xbee_result->GPI.BYTE[i];
+ }
+ for( i=0; i < 4 ; i++ ){ // この中でjを使用している
+ if( (data[18]>>i) & 0x01 ){
+ xbee_result->ADCIN[i] = (unsigned int)(data[2*i+21-2*j]);
+ xbee_result->ADCIN[i] *= (unsigned int)256;
+ xbee_result->ADCIN[i] += (unsigned int)(data[2*i+22-2*j]);
+ xbee_result->DATA[i*2+2] = data[21+2*i-2*j];
+ xbee_result->DATA[i*2+3] = data[22+2*i-2*j];
+ }else {
+ xbee_result->DATA[i*2+2] = 0xFF;
+ xbee_result->DATA[i*2+3] = 0xFF;
+ j++;
+ }
+ //printf("ADC[%d]=%d \n",i, (int)(xbee_result->ADC[i]) );
+ }
+ if( (data[18]>>7) & 0x01 ){
+ xbee_result->ADCIN[0] = xbee_batt_acum(data[29-2*j],data[30-2*j]);
+ }
+ // xbee_result->DATA[10]=data[2]; // 仮（受信バイト数を確認するため）
+ break;
+ case MODE_UART: // 0x90 UART data を受信するモード 戻り値はlength
+ for(i=0;i<8;i++) xbee_result->FROM[i] = data[4+i]; // アドレスはdata[4]から
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for(i=0;i<2;i++) xbee_result->SHORT[i] = data[12+i];// アドレスはdata[12]から
+ #endif
+ #endif
+ xbee_result->STATUS = data[14]; // statusはdata[14]
+ if( ( xbee_uart_acum( data )) > 0 ){ // 以上の値は仕様書に記述誤り
+ ret = data[2]-0x0C; // 12バイト減算
+ if( ret >= CALL_SIZE ) ret = CALL_SIZE -1;
+ for( i=0; i<ret ; i++ ) xbee_result->DATA[i] = data[15+i];
+ // xbee_result->DATA[i] = 0x00;
+ xbee_result->STATUS = data[14];
+ }
+ break;
+ #ifndef LITE // BeeBee Lite by 蘭
+ case MODE_UAR2: // 0x91 UART data 2を受信するモード
+ for(i=0;i<8;i++) xbee_result->FROM[i] = data[4+i]; // アドレスはdata[4]から
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for(i=0;i<2;i++) xbee_result->SHORT[i] = data[12+i];// アドレスはdata[12]から
+ for(i=0;i<6;i++) xbee_result->ZCL[i] = data[14+i]; // ZCL情報data[14]から
+ #endif
+ #endif
+ xbee_result->STATUS = data[20]; // statusはdata[20]
+ if( ( xbee_uart_acum( data )) > 0 ){
+ ret = data[2]-0x12; // 18バイト減算
+ if( ret >= CALL_SIZE ) ret = CALL_SIZE -1;
+ for( i=0; i<ret ; i++ ) xbee_result->DATA[i] = data[21+i];
+ // xbee_result->DATA[i] = 0x00;
+ }
+ break;
+ #endif // LITE
+ #ifndef LITE // BeeBee Lite by 蘭
+ case MODE_SENS: // 0x94 XB Sensor(1-wire)を受信するモード(未確認)
+ for(i=0;i<8;i++) xbee_result->FROM[i] = data[4+i]; // アドレスはdata[4]から
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for(i=0;i<2;i++) xbee_result->SHORT[i] = data[12+i];// アドレスはdata[12]から
+ #endif
+ #endif
+ xbee_result->STATUS = data[14]; // statusはdata[14]
+ xbee_result->ADCIN[0] = 256*(unsigned int)data[24] + (unsigned int)data[25];
+ for( i=1; i < 4 ; i++ ) // ADC値を代入、ただしAIN[0]へは代入しない
+ xbee_result->ADCIN[i] = 256*(unsigned int)data[2*i+16] + (unsigned int)data[2*i+16];
+ for( i=0; i<10 ; i++ ) xbee_result->DATA[i] = data[16+i];
+ xbee_result->DATA[10] = data[16+i]; // sensor 01:ADC 02:Temp. 60:water present
+ break;
+ #endif // LITE
+ case MODE_IDNT: // 0x95 Node Identifyを受信するモード
+ for(i=0;i<8;i++) xbee_result->FROM[i] = data[4+i]; // アドレスはdata[4]から
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ for(i=0;i<2;i++) xbee_result->SHORT[i] = data[12+i]; // アドレスはdata[12]から
+ for(i=0;i<CALL_SIZE && i<20;i++){
+ xbee_result->DATA[i] = data[15+i];
+ /*
+ 0 15 Source 16-bit address
+ 2 17 64-bit Network address
+ 10 25 NI Strings
+ 12 27 Parent address
+ 14 29 Device Type
+ 15 30 Source Event
+ 16 31 Profile ID C1 05
+ 18 33 Manufacture ID 10 1F
+ */
+ }
+ #endif
+ #endif
+ xbee_result->STATUS = data[14]; // // statusはdata[14] 0x01=Ack 0x02=broadcast
+ ret = data[14];
+ switch(data[29]){
+ case 0x00: ret=ZB_TYPE_COORD; break;
+ case 0x01: ret=ZB_TYPE_ROUTER; break;
+ case 0x02: ret=ZB_TYPE_ENDDEV; break;
+ }
+ break;
+ case MODE_RES: // 0x88 ローカルATコマンドの結果を受信(モードのみ応答)
+ // for( i=0 ; i<2 ; i++ ) xbee_result->AT[i] = data[5+i]; // ATはdata[15]から
+ xbee_result->AT[0] = data[5];
+ xbee_result->AT[1] = data[6];
+ xbee_result->ID = data[4]; // Frame ID
+ xbee_result->STATUS = data[7]; // statusはdata[7]
+ ret = data[7];
+ break;
+ case MODE_MODM: // 0x8A Modem Statusを受信
+ xbee_result->STATUS = data[4]; // statusはdata[4]
+ ret = data[4];
+ break;
+ case MODE_TXST: // 0x8B UART Transmit Status を受信
+ xbee_result->STATUS = data[8]; // delivery statusはdata[8] 0x00=Success
+ ret = data[9]; // Discovery status data[9]
+ #ifndef ARDUINO
+ #ifndef ARM_MBED
+ case 0x00:
+ break;
+ #endif
+ #endif
+ default:
+ #ifdef LCD_H
+ xbee_log( 3, "CAUTION:recieved unknown pckt" , xbee_result->MODE );
+ #endif
+ ret = xbee_result->MODE;
+ break;
+ }
+ xbee_result->MODE = return_MODE;
+ }
+ #ifdef LCD_H
+ // xbee_log( 1, "done:xbee_rx_call" , ret );
+ #endif
+ return( ret );
+}
+
+void xbee_clear_cache(void){
+ #ifdef CACHE_RES
+ CACHE_COUNTER=0;
+ #endif
+}
+
+#ifdef EASY_SENSOR
+float xbee_sensor(const byte *address, const enum xbee_sensor_type type ){
+/* XBee Sensor(XBee Sensor /L/T または /L/T/H) の測定API (1-wire Sensor Adapterではない)
+
+注意：本コマンドは応答待ちを行うので干渉によるパケット損失があります。
+ また、センサーがスリープになっている場合はエラーになる場合が多い(タイムアウトする)
+
+ これらのような場合は、xbee_forceで測定指示を出して、xbee_rx_callで受信結果を得ます。
+ XBee Sensorはxbee_sensor_resultで受信結果を温度などに変換できます。
+
+ 入力：enum xbee_sensor_type {LIGHT,TEMP,HUMIDITY,WATT}; // センサタイプの型
+ 出力：float センサ読み取り値
+
+設計情報
+ リターン信号例
+ 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
+ 7E 00 1B 97 01 00 13 A2 00 -- -- -- -- -- -- 49 53 00 01 08 00 0E 08 00 03 E2 02 62 02 16 A1
+ | len |mo|FI|送信元IEEEアドレス |Short|AT(IS) |01|GPIO |AD|GPIO |ADC1 |ADC2 |ADC3 |CS
+ | |de| | |Adrss| |01|MASK |MS|DATA |DATA |DATA |DATA |
+ | | | | | | |Light|Temp |Humidity
+ | | | ADC MASK________________|__|
+ | |__|__________________ MODE_RESP(0x97)= ATIS応答
+ |_____|_____________________ Data Length
+*/
+ XBEE_RESULT xbee_result;
+ byte data[API_SIZE];
+ byte j;
+ float ret = -1.;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if( xbee_tx_rx("RATIS", data , 0) > 0 ){
+ if( data[3]==MODE_RESP ){ // d[3] flame ID = 97(RAT応答)
+ if( data[19] == 0x00 && data[20] == 0x00 ) j = 0; else j = 2;
+ xbee_result.ADCIN[1] = (unsigned int)data[22+j] * 256 + (unsigned int)data[23+j];
+ xbee_result.ADCIN[2] = (unsigned int)data[24+j] * 256 + (unsigned int)data[25+j];
+ xbee_result.ADCIN[3] = (unsigned int)data[26+j] * 256 + (unsigned int)data[27+j];
+ ret = xbee_sensor_result( &xbee_result, type );
+ }
+ }
+ #ifdef LCD_H
+ xbee_log( 1, "done:xbee_sensor" , ret );
+ #endif
+ return( ret );
+}
+#endif // EASY_SENSOR
+
+byte xbee_init( const byte port ){
+/*
+ port：PCの場合、オープンするシリアルポート番号
+ Arduinoの場合リトライ回数、0で永久にリトライを繰り返す
+ 戻り値：0＝エラー 1＝成功までのトライ回数
+ Arduino版 portが0で無い時は、portの指定回数リトライしてエラーでもreturnする
+*/
+ byte i=1; // iはリセット実行リトライ回数、0で成功するまで永久
+ byte j; // jは色々
+ byte k=0; // kはリセット成功可否フラグ,戻り値
+ #ifndef LITE
+ #ifndef XBEE_WIFI
+ byte address[8]; //={0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
+ #else // XBEE_WIFI
+ byte address[8]={0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF};
+ // xbee_address(address);
+ #endif
+ #endif
+
+ #ifdef LCD_H
+ xbee_log( 1, "started:xbee_init" , port );
+ #endif
+ #ifdef H3694
+ port_init(); // 汎用入出力ポートの初期化
+ timer_sec_init(); // 秒タイマー初期化
+ led_green( 1 );
+ #endif
+
+ #ifdef H3694
+ sci_init( 0 ); // シリアル初期化
+ i=port;
+ #elif ARDUINO
+ sci_init( 0 ); // シリアル初期化
+ i=port;
+ #else
+ #ifdef ARM_MBED
+ sci_init( 0 ); // シリアル初期化
+ _xbee_time_init(); // Initialize Timer
+ i=port;
+ #else // PC
+ if( port != 0 ){
+ j = sci_init( port ); // シリアル初期化
+ }else{
+ // ポート検索
+ for( i=10 ; i>0; i--){
+ j = sci_init( i );
+ if( j != 0 ){
+ k = xbee_reset();
+ if( k > 0 ) i = 1; else j = 0;
+ }
+ }
+ }
+ if( j == 0 ){
+ fprintf(stderr,"EXIT:Serial Open Error\n");
+ exit(-1);
+ }
+ i=1;
+ #endif
+ #endif
+
+ #ifdef LCD_H
+ #ifndef ARDUINO
+ #ifdef H3694
+ lcd_enable( 1 ); // 液晶の電源投入
+ wait_millisec(15); // 起動待ち
+ lcd_init(); // 液晶制御ＩＣのプレ初期化
+ #endif
+ #endif
+ wait_millisec(15); // 初期化待ち
+ lcd_init(); // ２回目の初期化（確実な初期化）
+ #ifndef ARDUINO
+ lcd_control(1,0,0); // 液晶制御 表示ON,カーソルOFF,点滅OFF
+ #endif
+ #ifdef H3694
+ lcd_cls(); // 液晶消去
+ lcd_goto(LCD_ROW_1);
+ #endif
+ lcd_putstr( NAME );
+ lcd_putstr(" ");
+ lcd_putstr( VERSION );
+ #ifdef H3694
+ lcd_goto(LCD_ROW_2);
+ #else
+ lcd_putch('\n');
+ #endif
+ #ifdef LITE
+ lcd_putstr(COPYRIGHT);
+ lcd_putch('\n');
+ #else
+ lcd_putstr(COPYRIGHT);
+ #endif
+ xbee_log( 1, "xbee_reset" , 0 );
+ #endif
+ #ifdef LITE // by 蘭
+ k = xbee_reset();
+ #ifndef H3694
+ #ifndef ARDUINO
+ #ifndef ARM_MBED // PC
+ if(k==0){
+ #ifdef LCD_H
+ xbee_log( 5, "EXIT:xbee_init:myaddress" , 0 );
+ #endif
+ exit(-1);
+ }
+ #endif
+ #endif
+ #endif
+ #else // Normal mode
+ k=1;
+ if(i==0) while( !xbee_reset() ) wait_millisec(1000);
+ else for(j=0;j<i;j++){
+ k=xbee_reset(); // 0だとシリアル異常
+ if( k ) break;
+ wait_millisec(1000);
+ }
+ if(k==0){
+ #ifndef H3694
+ #ifndef ARDUINO
+ #ifndef ARM_MBED // PC
+ #ifdef LCD_H
+ xbee_log( 5, "EXIT:xbee_init:myaddress" , 0 );
+ #endif
+ exit(-1);
+ #endif
+ #endif
+ #endif
+ }else{ // k>0 すなわち reset成功時 以下、kは使用しないこと（戻り値にする）
+ #ifdef LCD_H
+ #ifdef H3694
+ lcd_cls();
+ lcd_goto(LCD_ROW_1);
+ #else
+ lcd_putstr("\n--------------------\n");
+ #endif
+ #endif
+ #ifdef LCD_H
+ xbee_log( 1, "xbee_init:myaddress" , port );
+ #endif
+ xbee_myaddress( address ); // 自分自身のアドレスを取得
+ #ifdef LCD_H
+ for(i=0;i<4;i++){
+ #ifndef XBEE_WIFI
+ lcd_disp_hex(address[4+i]);
+ #else // XBEE_WIFI
+ /*
+ printf("%d",address[i]);
+ if(i<3)printf(".");
+ */
+ lcd_disp_hex(address[i]);
+ #endif
+ }
+ switch( DEVICE_TYPE ){
+ #ifndef XBEE_WIFI
+ case ZB_TYPE_COORD: lcd_putstr( " COORD."); break;
+ case ZB_TYPE_ROUTER: lcd_putstr( " ROUTER"); break;
+ case ZB_TYPE_ENDDEV: lcd_putstr( " ENDDEV"); break;
+ #else
+ case XB_TYPE_NULL: lcd_putstr( " XBee Wi-Fi"); break;
+ case XB_TYPE_WIFI10: lcd_putstr( " XBee Wi-Fi Ver 1.0"); break;
+ case XB_TYPE_WIFI20: lcd_putstr( " XBee Wi-Fi Ver 2.0"); break;
+ #endif
+ default: lcd_putstr( " UNKNWON"); break;
+ }
+ #ifdef H3694
+ lcd_goto(LCD_ROW_1);
+ #else
+ lcd_putstr("\n\n");
+ #endif
+ xbee_log( 1, "done:xbee_init" , 0 );
+ #endif
+ }
+ #endif
+ return(k);
+}
+
+
+byte xbee_end_device(const byte *address, byte sp, byte ir, const byte pin){
+/*
+XBee子機(エンドデバイス)をスリープモードに設定する
+入力：byte *address = 宛先(子機)アドレス
+入力：byte sp = 1～28:スリープ間隔（秒）
+入力：byte ir = 0:自動送信切、1～65:自動送信間隔（秒）
+入力：byte pin = 0:通常のスリープ、 1:SLEEP_RQ端子を有効に設定
+出力：戻り値 = 0x00 指示成功、 その他=エラー理由
+ 1： 対応デバイス(ZigBee End Deviceなど)以外に設定しようとした
+ 2： スリープ解除しようとしたのに失敗した
+ 4： スリープ移行待ち時間ST設定の失敗
+ 8： スリープ間隔SP設定の失敗
+ 16： ローカル親機へのスリープ時間SP設定の失敗
+ 32： データ取得間隔IR設定の失敗
+ 64： スリープ状態設定の失敗
+ 128： スリープオプション設定の失敗
+*/
+ byte ret=0x00;
+ byte data[API_SIZE];
+ unsigned int time;
+
+ xbee_address( address ); // 送信先を指定
+
+ if( sp == 0x00 ){
+ data[0] = 0x00;
+ if( !xbee_tx_rx("RATSM",data,1) ) ret|=2; // スリープ解除
+ }else{
+ #ifdef XBEE_WIFI
+ if(DEVICE_TYPE == XB_TYPE_WIFI20){
+ return(1);
+ }
+ data[0] = 0x01;
+ data[1] = 0x40; // スリープ時間 sleep_time
+ if( !xbee_tx_rx("RATSO",data,2) ) ret|=128;
+ #endif
+
+ #ifndef XBEE_WIFI // ZigBee
+ /* XBee★親機★にXBee子機のデータ保持期間(28秒)を設定 */
+ data[0] = 0x0A;
+ data[1] = 0xF0; // スリープ時間 sleep_time
+ if( !xbee_tx_rx("ATSP",data,2) ) ret|=16; // 保持時間 sleep_time
+ #endif
+
+ /* XBee子機から自動送信する周期を設定します */
+ if( ir > 65 ) ir = 65;
+ time = (unsigned int)ir * 1000; // ms単位の数字に変換
+ data[0] = (byte)(time / 256);
+ data[1] = (byte)(time % 256); // スリープ時間 sleep_time
+ if( !xbee_tx_rx("RATIR",data,2) ) ret|=32;
+
+ /* XBee子機のスリープ移行待ち時間を設定します */
+ data[0]=0x01; data[1]=0xF4; // 保持時間 500 ms
+ if( !xbee_tx_rx("RATST",data,2) ) ret|=4;
+
+ /* XBee子機のスリープ間隔を設定します */
+ if( sp > 28 ) sp = 28;
+ time = (unsigned int)sp * 100; // 10ms単位の数字に変換
+ data[0] = (byte)(time / 256);
+ data[1] = (byte)(time % 256); // スリープ時間 sleep_time
+ if( !xbee_tx_rx("RATSP",data,2) ) ret|=8;
+
+ /* XBee子機をサイクリックスリープに設定します */
+ if( pin ) data[0]=0x05; else data[0]=0x04; // 0x00:常に動作 0x04:低消費電力動作
+ if( !xbee_tx_rx("RATSM",data,1) ) ret|=64; // 0x05:SLEEP_RQ有効
+ }
+
+ #ifdef LCD_H
+ xbee_log( 1, "done:end_device" , ret );
+ #endif
+ return( ret );
+}
+
+#ifndef LITE
+byte _xbee_i2c(byte dio,byte level,byte *data){
+/* dio = 11:SCL 12:SDA
+ level = 0:L 1:Open
+ data ATコマンド応答用データ
+
+ data[0]=0x03; xbee_at_tx("SATP1",data,1); // Port 11(SCL) H Imp
+ data[0]=0x04; xbee_at_tx("SATP1",data,1); // Port 11(SCL) L Out
+ data[0]=0x03; xbee_at_tx("SATP2",data,1); // Port 12(SDA) H Imp
+ data[0]=0x04; xbee_at_tx("SATP2",data,1); // Port 12(SDA) L Out
+*/
+ char at[6]="SATPX";
+ if(dio>=10) dio = dio%10;
+ if(dio>=2) dio=2; else dio=1;
+ at[4]='0'+dio;
+ data[0]=level;
+ if(level>=10) data[0]=level%10;
+ if(level==0) data[0]=4; // Out Low
+ if(level==1) data[0]=3; // High Imp
+ return( xbee_at_tx(at,data,1) ); // 戻り値：0ならエラー発生
+}
+
+byte _xbee_i2c_start(byte *data){
+ byte ret=1; // 戻り値：0ならエラー発生
+ ret *= _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ ret *= xbee_tx_rx("RATAC",data,0); // クロックHレベル固定
+ ret *= _xbee_i2c(2/*SDA*/,1,data); // Port 12(SDA) H Imp
+ ret *= _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ ret *= _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ if(ret==0) xbee_log( 5, "ERROR:Failed I2C TX Output" , ret );
+ return(ret);
+}
+
+byte _xbee_i2c_tx(const byte in, byte *data){
+ byte i;
+ for(i=0;i<8;i++){
+ if( (in>>(7-i))&0x01 ){
+ _xbee_i2c(2/*SDA*/,1,data); // Port 12(SDA) H Imp
+ }else _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ /*Clock*/
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ }
+ /* ACK受信待ち(ACKはスレーブから) */
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ _xbee_i2c(2/*SDA*/,1,data); // Port 12(SDA) H Imp 逆
+// xbee_tx_rx("RATAC",data,0); // 本来は不要だがEnd Deviceの時にRATISを確実に受信するために入れてみた
+ i=xbee_tx_rx("RATIS",data,0);
+ if( i==0) xbee_log( 5, "ERROR:I2C no RAT RESP" , i );
+ if( (data[22]>>4)&0x01 ){
+ xbee_log( 5, "ERROR:I2C no ACK" , data[22] );
+ i=0;
+ }
+// printf("ACK=%d ATIS=%d\n",(data[22]>>4)&0x01,i);
+ return(i);
+}
+
+byte xbee_i2c_init(const byte *address){
+/*
+XBee I2Cインタフェースとして使用するための初期設定
+入力：byte *address リモートXBee子機のIEEEアドレス
+*/
+ byte data[API_SIZE];
+ byte i;
+ for(i=3;i>0;i--){ // リトライ3回まで
+ xbee_address(address);
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ _xbee_i2c(2/*SDA*/,1,data); // Port 12(SDA) H Imp
+ if( xbee_tx_rx("RATIS",data,0) ){
+ if( ((data[22]>>3)&0x03) == 0 ) break;
+ }
+ }
+ delay(200);
+ return(i);
+}
+
+byte xbee_i2c_read(const byte *address, byte adr, byte *rx, byte len){
+/*
+子機XBeeデバイス(リモート先)のI2Cから指定バイトの情報を読み取る関数
+入力：byte *address = リモートXBee子機のIEEEアドレス
+入力：byte adr = I2Cアドレス ／SHT 温度測定時0x01 湿度測定時0x02
+出力：byte *rx = 受信データ用ポインタ
+入力：byte len = 受信長、０の時は Sensirion SHT用２バイト受信
+ port=11 DIO11 XBee_pin 7 SCL
+ port=12 DIO12 XBee_pin 4 SDA
+・I2Cマスタ機能のみを実装（スレーブとしては動作しない）
+・７ビットアドレスのみ対応
+・１バイトの受信に５秒以上かかる（かなり遅いし、多量のXBee通信が発生する）
+*/
+ byte data[API_SIZE];
+ byte ret,i,sht=0;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if(len){ // stop シーケンス ＋ start シーケンス
+ _xbee_i2c_start(data);
+ }else{ // Sensirion SHT用 TS シーケンス
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ _xbee_i2c(2/*SDA*/,1,data); // Port 12(SDA) H Imp
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ sht=1; len=2; // SHTモード
+ xbee_tx_rx("RATAC",data,0);
+ adr = adr<<1;
+ }
+ adr |= 0x01; // RW=1 受信モード
+ if( _xbee_i2c_tx(adr, data)==0 ) return(0); // アドレス設定
+ if( !sht ){ // SHTセンサで無い時
+ _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ }
+
+ /* スレーブ待機状態待ち */
+ if(!sht){ // I2C
+ /*
+ for(i=0;i<4;i++){
+ ret=xbee_tx_rx("RATIS",data,0);
+ if( (((data[22]>>4)&0x01) == 1) && // ACKが解除された //data[22]b4=Port 12(SDA)
+ (((data[22]>>3)&0x01) == 1) ) break;// スレーブがCLKホールドしていない // data[22]b3=Port 11(SCL)
+ wait_millisec(500);
+ }
+ // printf("i=%d\n",i);
+ if(i==4){
+ xbee_log( 5, "ERROR:I2C Clock Holded" , data[22] );
+ return(0);
+ }
+ */
+ }else{ // SHT
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ for(i=0;i<4;i++){
+ ret=xbee_tx_rx("RATIS",data,0);
+ if( ((data[22]>>4)&0x01) == 0 ) break;// 測定完了 //data[22]b4=Port 12(SDA)
+ } // printf("Slave Holds SDA i=%d\n",i);
+ if(i==4){
+ xbee_log( 5, "ERROR:I2C SDA Holded" , data[22] );
+ return(0);
+ }
+ }
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+
+ /* 受信データ */
+ for(ret=0;ret<len;ret++){
+ if(ret){ // 初回以外の時はACKを応答する
+ _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ _xbee_i2c(2/*SDA*/,1,data); // Port 12(SDA) H Imp
+ }
+ rx[ret]=0x00;
+ for(i=0;i<8;i++){
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ // xbee_tx_rx("RATAC",data,0);
+ if( xbee_tx_rx("RATIS",data,0)==0x00) break; // error
+ rx[ret] |= ((data[22]>>4)&0x01)<<(7-i); //data[22] b4=Port 12(SDA)
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ }
+ if(i!=8) break; // error
+ }
+ _xbee_i2c(1/*SCL*/,1,data); // Port 11(SCL) H Imp
+ if(sht) _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ xbee_tx_rx("RATAC",data,0);
+ return(ret);
+}
+
+byte xbee_i2c_write(const byte *address, byte adr, byte *tx, byte len){
+/*
+子機XBeeデバイス(リモート先)のI2Cから指定バイトの情報を書き込む関数
+入力：byte *address = リモートXBee子機のIEEEアドレス
+入力：byte adr = I2Cアドレス ／SHT 温度測定時0x01 湿度測定時0x02
+入力：byte *tx = 送信データ用ポインタ
+入力：byte len = 送信データ長、０の時は Sensirion SHT用２バイト受信
+ port=11 DIO11 XBee_pin 7 SCL
+ port=12 DIO12 XBee_pin 4 SDA
+*/
+ byte data[API_SIZE];
+ byte ret;
+
+ xbee_address(address); // 宛先のアドレスを設定
+ if(len) _xbee_i2c_start(data);
+ else return(0);
+ adr &= 0xFE; // RW=0 送信モード
+ if( _xbee_i2c_tx(adr, data)==0 ) return(0); // アドレス設定
+ /* スレーブ待機状態待ち */
+ /*
+ for(i=0;i<4;i++){
+ ret=xbee_tx_rx("RATIS",data,0);
+ if( (((data[22]>>4)&0x01) == 1) && // ACKが解除された //data[22]b4=Port 12(SDA)
+ (((data[22]>>3)&0x01) == 1) ) break;// スレーブがCLKホールドしていない // data[22]b3=Port 11(SCL)
+ wait_millisec(500);
+ }
+ // printf("i=%d\n",i);
+ if(i==4){
+ xbee_log( 5, "ERROR:I2C Clock Holded" , data[22] );
+ return(0);
+ }
+ */
+ _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+
+ /* 送信データ */
+ for(ret=0;ret<len;ret++){
+ _xbee_i2c_tx(tx[ret],data);
+ _xbee_i2c(2/*SDA*/,0,data); // Port 12(SDA) L Out
+ _xbee_i2c(1/*SCL*/,0,data); // Port 11(SCL) L Out
+ }
+ return(ret);
+}
+#endif // LITE
+
+byte xbee_delay(unsigned int ms){
+/*
+待ち時間。受信値はバッファへ保存します。
+入力：unsigned int(shortを想定) ms = 時間[ms]
+戻り値：受信パケット数
+*/
+ #ifdef LITE // BeeBee Lite by 蘭
+ wait_millisec( ms );
+ return 0;
+ #else
+ byte i,ret=0;
+ byte data[API_SIZE];
+
+ while(ms>0){
+ #ifdef CACHE_RES
+ if( CACHE_COUNTER < CACHE_RES ){
+ if( xbee_at_rx( data ) > 0){
+ for( i=0 ; i < API_SIZE ; i++) CACHE_MEM[CACHE_COUNTER][i] = data[i];
+ CACHE_COUNTER++;
+ ret++;
+ #ifdef DEBUG
+ lcd_putstr("### CACHE_RES ### <- "); // DEBUG
+ lcd_disp_hex( CACHE_COUNTER );
+ lcd_putch('\n');
+ #endif
+ }
+ }
+ #endif
+ if( ms > 100 ){
+ wait_millisec( 100 );
+ ms -= 100;
+ }else{
+ wait_millisec( ms );
+ ms = 0;
+ }
+ }
+ return(ret);
+ #endif
+}