acklib.c

The EZ320 utility demonstrates the communication program between host PC and the MR320.

			}
		    }
		 return(HA_ret_resp1(cc));
   }
}
int HA_set_tab1(char cmd,int port,char *str,int len)
{
    unsigned char cc;
    unsigned char temp_buff[256];

   if ((port < 1) || (port > 4)) return(2); else CURR_PORT = port-1;
   serinit(CURR_PORT,HA_COM_para[CURR_PORT]);    // initial COM parameter
   cc=HA_send_485_cmd1(cmd,str,temp_buff,len);                  // 3.0
   serclose(CURR_PORT);
   switch (cc)
   {
      case ETX : switch(temp_buff[2])
                 {
                    case 00 : return(0);
                    case 01 : return(2);
                    default : return(5);
                 }
      default  : return(HA_ret_resp1(cc));
   }
}
//
int HA_download(int port,char *fname)
{
   FILE *ptr;
   int j,i,kk=0;
   unsigned char buff[256],buff1[256],cc,fname1[80];
// unsigned char HA_send_pack();

   if ( (ptr=fopen(fname,"rb")) == NULL  )
      return(0x30);
   for (j=0,i=-1;j<(int)strlen(fname);j++)
   {
      if ((fname[j] == 92) || (fname[j] == 58)) i=j;
   }
   i++;
   strcpy(fname1,fname+i);
   sprintf(buff1,"kermit send %s",fname1);
   strcat(fname1,"K");
   if ((port < 1) || (port > 4)) return(2); else CURR_PORT = port-1;
   serinit(CURR_PORT,HA_COM_para[CURR_PORT]);

   cc=HA_send_485_cmd('L',fname1,buff);                    // 3.0
   serclose(CURR_PORT);
   if (cc != ACK) goto end_download;
   system(buff1);

end_download:
   fclose(ptr);
   switch(cc)
   {
      case  2  : return(2);
      case ACK : return(0);
      case NAK : return(3);
      case 255 : return(4);
      case 254 : return(5);
      case 253 : return(6);
      case 27  : return(8);
   }
   return(5);
}
int HA_read_pack(FILE *ptr,unsigned char *str)                                       // 3.0
{
   int kk,jj;
   unsigned char buff[256];

   kk = (HA_pack_size-7) >> 1;
   jj = fread(buff,1,kk,ptr);
   return(HA_pack(buff,jj,str));
}
int HA_upload(int port,char *fname)
{
   FILE *ptr;
   int f_tag,j,kk=0,HA_unpack(),tag=1,nak_cnt=0;
   unsigned char buff[256],buff1[256],fname1[60],cc,bbb[40],dd;

   sprintf(bbb,"01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ");
   strcpy(fname1,fname);
   j=0;
   while ((fname[j] != '.') && (fname[j] != 0)) j++;
   j--;
   f_tag=0;
   while ((ptr=fopen(fname1,"r")) != NULL)
   {
      fclose(ptr);
      if (f_tag > 37) return(0x33);
      fname1[j] = bbb[f_tag++];
   }
   /*************    ESC 4 filename    ***********************/
   if ((port < 1) || (port > 4)) return(2); else CURR_PORT = port-1;
   serinit(CURR_PORT,HA_COM_para[CURR_PORT]);
   HA_pack_cnt = 0L;
   HA_total_byte = 0L;
   cc = HA_send_485_cmd('U',fname,buff);                 // new    // 3.0
   if (strcmp(fname,fname1) == 0) f_tag = 0;  else f_tag = 1;
   ptr=fopen(fname1,"wb");
   if (cc == ACK)                                             // new    // 3.0
   {
      while (tag)
      {
         cc = HA_send_485_cmd('Y',"",buff);                 // new    // 3.0
         switch (cc)
         {
            case ETX : if (buff[1] == 'Y')
                       {
                          j=HA_unpack(buff+2,buff1);               // new
                          fwrite(buff1,j,1,ptr);                // new
                          nak_cnt=0;
                          HA_pack_cnt++;
                          HA_total_byte+=(long)j;
                          if (HA_upl_disp == 1) HA_upl_sub(fname1);
                        }
                        else if (buff[1] == 'Z') tag = 0;
                        break;
            case NAK : if (++nak_cnt > HA_retry) tag = 0;
                       HA_time_delay(HA_NAK_delay);
                       break;
            default  : tag = 0; break;
         }
         if (HA_enable_ESC == 1)
            if ((kbhit()!=0) && ((dd=(unsigned char)getch())== 27))
            {
               tag = 0;
               dd = cc;
            }
      }
   }
   serclose(CURR_PORT);
   fclose(ptr);
   switch(cc)
   {
      case ETX : return(0);
      case EOT : return(0x30);
      case NAK : return(3);
      case 255 : return(4);
      case 254 : return(5);
      case 253 : return(6);
      case 27  : return(8);
   }
   return(5);
}
int HA_ret_resp1(unsigned char cc)
{
   switch(cc)
   {
      case ACK : return(0);
      case NAK : return(3);
      case 255 : return(4);
      case 254 : return(5);
      case 253 : return(6);
   }
   return(5);
}
unsigned char HA_send_485_cmd(char type,unsigned char *buff,unsigned char *str)
{
   unsigned char cc;
   int nak_cnt=0,tag=1;

   while (tag)
   {
      HA_send_esc(type,buff);                              // 3.0
      tag=0;
      cc = HA_resp_485(str);                                    // 3.0
      if ((cc == NAK) && (++nak_cnt < HA_retry))
      {
         HA_time_delay(HA_NAK_delay);
         tag=1;
      }
   }
   HA_time_delay(HA_ESC_delay);
   return(cc);
}
unsigned char HA_send_esc(char type,unsigned char *buff)
{
   unsigned char cs,cc;
   int ii;

    sersend(CURR_PORT,(int)STX);
    sersend(CURR_PORT,(int)ESC);
    sersend(CURR_PORT,(int)type);
    if (HA_disp_cmd == 1) printf("\nPC:STX ESC %c",type);
    cs = ESC+type;
    for(ii=0;buff[ii];ii++)
    {
       cs += buff[ii];
       if (HA_disp_cmd == 1) printf("%c",buff[ii]);
       sersend(CURR_PORT,(int)buff[ii]);
    }
//  cs = cs + ii + 2 ;                             // 3.0
    cs = cs + ii + 2 ;                             // 3.0
    cc = ((cs & 0xf0) >> 4) | 0x40;
    if (HA_disp_cmd == 1) printf("%c",cc);
    sersend(CURR_PORT,(int)cc);
    cc = (cs & 0x0f) | 0x40;
    if (HA_disp_cmd == 1) printf("%c",cc);
    sersend(CURR_PORT,(int)cc);
    if (HA_disp_cmd == 1) printf(" %x",ETX);
    sersend(CURR_PORT,(int)ETX);
    return(1);
}
unsigned char HA_send_485_cmd1(char type,unsigned char *buff,unsigned char *str,int len)
{
   unsigned char cc;
   int nak_cnt=0,tag=1;

   while (tag)
   {
      HA_send_esc1(type,buff,len);                              // 3.0
      tag=0;
      cc = HA_resp_485(str);                                    // 3.0
      if ((cc == NAK) && (++nak_cnt < HA_retry))
      {
         HA_time_delay(HA_NAK_delay);
         tag=1;
      }
   }
   HA_time_delay(HA_ESC_delay);
   return(cc);
}
unsigned char HA_send_esc1(char type,unsigned char *buff,int len)                                     // 3.0
{
   unsigned char cs,cc;
   int ii;

    sersend(CURR_PORT,(int)STX);
    sersend(CURR_PORT,(int)ESC);
    sersend(CURR_PORT,(int)type);
    if (HA_disp_cmd == 1) printf("\nPC:STX ESC %c",type);
    cs = ESC+type;
    for(ii=0;ii<len;ii++)
    {
       cs += buff[ii];
       if (HA_disp_cmd == 1) printf("%c",buff[ii]);
       sersend(CURR_PORT,(int)buff[ii]);
    }
//  cs = cs + ii + 2 ;                             // 3.0
    cs = cs + ii + 2 ;                             // 3.0
    cc = ((cs & 0xf0) >> 4) | 0x40;
    if (HA_disp_cmd == 1) printf("%c",cc);
    sersend(CURR_PORT,(int)cc);
    cc = (cs & 0x0f) | 0x40;
    if (HA_disp_cmd == 1) printf("%c",cc);
    sersend(CURR_PORT,(int)cc);
    if (HA_disp_cmd == 1) printf(" %x",ETX);
    sersend(CURR_PORT,(int)ETX);
    return(1);
}
unsigned char HA_resp_485(unsigned char *str)                                  // 3.0
{
  int i=0,j,nak_cnt=0;
  long cnt,pt,st,et;
  unsigned char cc,cs,cs1,cs2,cs3;
  int HA_isprint1();

  if (HA_disp_cmd == 1) printf("\nMR 360:");
  do
  {
     st = time(&st);
     cnt=0L;
     do
     {
        cc=(unsigned char)serrecv(CURR_PORT);
        if (cc != 255) break;
        pt = time(&et) - st;
        if(pt > HA_timeout)
        {
          if (i == 0) return(255);
          else return(254);
        }
     } while(1);
     if (HA_disp_cmd == 1)
     {
        if (HA_isprint1(cc)) printf("%c",cc); else printf(" %.2x ",cc);
     }
     switch(cc)
     {
        case NAK : return(NAK);
        case ACK : return(ACK);
        case EOT : return(EOT);
        case STX : cs = 0;
                   i = 0;
                   break;
        case ETX : cs2 = str[--i];
                   cs1 = str[--i];
                   str[i] = 0;
                   for (j=0,cs=0;j<i;j++) cs += str[j];
                   cs += i;                                     // 3.0
                   cs3 = ((cs1 & 0x0f) << 4) + (cs2 & 0x0f);
                   if (cs == cs3)
                   {
                      if (HA_disp_cmd == 1) printf("\nPC:ACK ",ACK);
                      HA_time_delay(HA_ACK_delay);
                      sersend(CURR_PORT,(int)ACK);
                      return(ETX);
                   }
                   if (HA_disp_cmd == 1) printf("\nPC:NAK ",NAK);
                   sersend(CURR_PORT,(int)NAK);
                   if (++nak_cnt >= HA_retry) return(253);
                   else
                      HA_time_delay(HA_NAK_delay);
                   break;
        default  : str[i++] = cc;
                   cs += cc;
                   if (i>=255) return(254);
                   break;
     }
  } while(1);
}
int HA_unpack(unsigned char *str_i,unsigned char *str_o)
{
   int i,cnt;

   cnt = 0;
   i = 0;
   while (str_i[i] != 0)
   {
      if (str_i[i] != 0x5c) str_o[cnt] = str_i[i];
      else
      {
        i++;
        if (str_i[i] == 0x5c)
           str_o[cnt] = str_i[i];
        else if ((str_i[i] >= 0x80) && (str_i[i] < 0x0a0))
           str_o[cnt] = str_i[i] & 0x7f;
        else if ((str_i[i] >= 0x20) && (str_i[i] <= 0x7f))
           str_o[cnt] = str_i[i] | 0x80;
      }
      i++;
      cnt++;
   }
   str_o[cnt] = 0;
   return(cnt);
}
int HA_pack(unsigned char *str_i,int len,unsigned char *str_o)                                       // 3.0
{
   int i,cnt;

   i = cnt = 0;
   while (i < len)
   {
      if (str_i[i] < 0x20)
      {
         str_o[cnt++] = 0x5c;
         str_o[cnt++] = str_i[i] | 0x80;
      }
      else if (str_i[i] >= 0xA0)
      {
        if (str_i[i] == 0xdc)            // 0xDC
          str_o[cnt++] = str_i[i];
        else
        {
          str_o[cnt++] = 0x5c;
          str_o[cnt++] = str_i[i] & 0x7f;
        }
      }
      else if (str_i[i] == 0x5c)                 // '/'
      {
         str_o[cnt++] = str_i[i];
         str_o[cnt++] = str_i[i];
      }
      else str_o[cnt++] = str_i[i];
      if (cnt >= HA_pack_size+6) goto EXIT;
      i++;
   }
EXIT:
   str_o[cnt] = 0;
   return(cnt);
}
int HA_uploadclose(int port)
{
   unsigned char temp_buff[256],cc;

   if ((port < 1) || (port > 4)) return(2); else CURR_PORT = port-1;
   serinit(CURR_PORT,HA_COM_para[CURR_PORT]);    // initial COM parameter
   cc=HA_send_485_cmd('8',"",temp_buff);                   // 3.0
   serclose(CURR_PORT);
   return(HA_ret_resp1(cc));
}
int HA_isprint1(char ch)
{
  if ((ch > 32) && (ch <= 128)) return(1);
  return(0);
}