目的
前回、チェックサムと送達確認（PICマイコンからFONに対して応答）を行うようにした。今回は、送達確認を拡張して受信機能(PICマイコンからFONに対してコマンドを出せる）ようにした。
概要
チェックサムOKの場合に、FONに対してACKを送信する。シリアル通信のクロックはFON側で生成しているので、
イメージとしてはSPI通信に近いと思う。
結果
前回同様に１秒毎に顔文字「Adeno(^o^)mm-ss」※mm-ssは分-秒を送信し続けると、400回のコマンド送信に対して、送信NGは15回
80回のときは、2回 2〜3%くらい？
結果は地味だけど、PIC→FON方向の通信ができるようになったのは大きい
何をやったか
・フォーマット１．データを送信するとき
種類 方向
クロック FON→PIC 385us
送信データ [STX][チェックサム][DATA][ETX]
受信データPIC→FON 1byte前に対する受信結果
２．送信結果を確認するとき
種類 方向
クロック FON→PIC 385us
送信データ [ENQ]
受信データPIC→FON 1byte前に対する受信結果
黄色・・・クロック
水色・・・受信データ(PIC→FON）この場合はACK(0x06）
------------------------------------------------
gpio_write_sr Start:CLK=12 DATA_OUT=11 DATA_IN=14
Send:[STX][CHKSUM = 14][DATA][ETX]<-4ms->[ENQ]
Input = 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6
RcvChk = OK
Total Time = 307ms
------------------------------------------------
・FON側
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| int gpio_io_byte(int port_clk,int port_in,int port_out,unsigned char *cin,unsigned char cout){ | |
| int shift_clk = port_clk-8; | |
| int shift_out = port_out-8; | |
| unsigned char mask = 1 << 7; | |
| int idx=1,fd,req_w,req_r,i,j,value,tmp; | |
| int in_val=0; | |
| *cin = 0; | |
| fd = open(GPIO_DEV, O_RDONLY); | |
| if (fd < 0) { | |
| perror(GPIO_DEV); | |
| return -1; | |
| } | |
| if (0L <= port_in && port_in < RALINK_GPIO_DATA_LEN | |
| && shift_clk >= 0 && shift_out >= 0){ | |
| req_w = RALINK_GPIO_WRITE_BYTE | (idx << RALINK_GPIO_DATA_LEN); | |
| req_r = RALINK_GPIO_READ_BIT | (port_in << RALINK_GPIO_DATA_LEN); | |
| } else { | |
| close(fd); | |
| printf("gpio_io_byte: out of range\n"); | |
| } | |
| for(i=0;i<8;i++){ | |
| value = 0; | |
| tmp = 0; | |
| if((cout & mask)>0){ value = 1;} | |
| //clk reset(L) 1 with data set | |
| for(j=0;j<385;j++){ //1.4us x 275 = 385us | |
| tmp = (1<<shift_clk); | |
| tmp |= (value<<shift_out); | |
| tmp &= 0xff; | |
| if (ioctl(fd, req_w, tmp) < 0) { perror("ioctl"); close(fd); return -1; } | |
| } | |
| //clk set(H) 0 with data set | |
| for(j=0;j<385;j++){ | |
| tmp = (value<<shift_out); | |
| tmp &= 0xff; | |
| if (ioctl(fd, req_w, tmp) < 0) { perror("ioctl"); close(fd); return -1; } | |
| } | |
| //data read | |
| if(ioctl(fd,req_r,&in_val,0) < 0){ perror("ioctl"); close(fd); return -1; } | |
| if(in_val == 0) | |
| *cin = (*cin << 1); | |
| else | |
| *cin = (*cin << 1)+1; | |
| //next mask | |
| mask = mask >>1; | |
| } | |
| //clk set(H) 0 with data set aftertime | |
| for(j=0;j<4000;j++){ | |
| tmp = (value<<shift_out); | |
| tmp &= 0xff; | |
| if (ioctl(fd, req_w, tmp) < 0) { perror("ioctl"); close(fd); return -1; } | |
| } | |
| close(fd); | |
| return 0; | |
| } |
受信処理の後、に送信したいものを出力するだけ
↓受信処理
sr_buf = ((sr_buf<<1) & 0xFE) | (0x01 & DATA_PORT);
↓送信処理
//DATA 出力
if((sr_out & sr_out_mask) == 0){
DATA_OUT_PORT = 0;
}else{
DATA_OUT_PORT = 1;
}
sr_out_mask = sr_out_mask >> 1;
・エラー発生回数測定用スクリプト
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/sh | |
| myvar=1 | |
| errvar=0 | |
| sndvar=0 | |
| retval=0 | |
| while [ $myvar -ne $1 ] | |
| do | |
| echo ==================================================== SeqNo.$myvar | |
| ./mygpio5a.exe s 12 11 14 1000 "C2" | |
| if [ $? -eq 2 ]; then | |
| errvar=`expr $errvar + 1` | |
| fi | |
| sndvar=`expr $sndvar + 1` | |
| usleep 100000 | |
| ./mygpio5a.exe s 12 11 14 1000 "NAdeno(-_-)"`date +%M-%S` | |
| if [ $? -eq 2 ]; then | |
| errvar=`expr $errvar + 1` | |
| fi | |
| sndvar=`expr $sndvar + 1` | |
| usleep 400000 | |
| ./mygpio5a.exe s 12 11 14 1000 "C2" | |
| if [ $? -eq 2 ]; then | |
| errvar=`expr $errvar + 1` | |
| fi | |
| sndvar=`expr $sndvar + 1` | |
| usleep 100000 | |
| ./mygpio5a.exe s 12 11 14 1000 "NAdeno(^o^)"`date +%M-%S` | |
| if [ $? -eq 2 ]; then | |
| errvar=`expr $errvar + 1` | |
| fi | |
| sndvar=`expr $sndvar + 1` | |
| usleep 400000 | |
| myvar=`expr $myvar + 1` | |
| done | |
| echo TotalSend=$sndvar | |
| echo ErrSend=$errvar | |
