nulllib.c

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

		    case 01 : return(2);
		    case 'C': if (temp_buff[3]==0) return(0); //just patchs
			      else if (temp_buff[3]==1) return(2);
			      else return(5);
		    default : return(5);
		 }
      default  : return(HN_ret_resp1(cc));
   }
}
int HN_set_tab1(char cmd,int port,unsigned 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,HN_COM_para[CURR_PORT]);    // initial COM parameter
   cc=HN_send_485_cmd1(cmd,str,temp_buff,len);                  // 3.0
   serclose(CURR_PORT);
   switch (cc)
   {
      case 0 : switch(temp_buff[2])
                 {
                    case 00 : return(0);
                    case 01 : return(2);
                    default : return(5);
                 }
      default  : return(HN_ret_resp1(cc));
   }
}
//
int HN_download(int port,char *fname)
{
   FILE *ptr;
   int j,i,kk=0,HN_read_pack(),pks;
   unsigned char buff[256],buff1[256],fname1[80],cc;
// unsigned char HN_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);
   if ((port < 1) || (port > 4)) return(2); else CURR_PORT = port-1;
   serinit(CURR_PORT,HN_COM_para[CURR_PORT]);

   cc=HN_send_485_cmd('L',fname1,buff);                    // 3.0
   if (cc != ACK) goto end_download;
   fseek(ptr,0L,SEEK_SET);
   strcpy(fname,fname1);

   pks= (HN_pack_size-7) >> 1;
   HN_pack_cnt=0L;
   HN_total_byte = 0L;
rd_pack:
   if (HN_enable_ESC == 1)
      if ((kbhit()!=0) && ((cc=getch())== 27))
         goto end_download;
   kk = fread(buff,1,pks,ptr);
   HN_pack(buff,kk,buff1);
//   kk = HN_read_pack(ptr,buff);
   if (kk == 0) goto end_pack; else HN_total_byte += (long)kk;

   cc=HN_send_485_cmd('Y',buff1,buff);              // new    // 3.0
//   cc=HN_send_pack(buff);                          // old
   if (cc == ACK)
   {
      HN_pack_cnt++;
      if (HN_dnl_disp == 1) HN_dnl_sub(fname1);
      goto rd_pack;
   }
   else goto end_download;

end_pack:
   cc=HN_send_485_cmd('Z',"",buff);              // new    // 3.0
//   sprintf(buff,"%c",EOT);                              // old
//   cc=HN_send_pack(buff);                               // old

end_download:
   serclose(CURR_PORT);
   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 HN_read_pack(FILE *ptr,unsigned char *str)
{
   int kk,jj;
   unsigned char buff[256];

   kk = (HN_pack_size-7) >> 1;
   jj = fread(buff,1,kk,ptr);
   return(HN_pack(buff,jj,str));
}
int HN_upload(int port,char *fname)
{
   FILE *ptr;
   int f_tag,j,kk=0,HN_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,HN_COM_para[CURR_PORT]);
   HN_pack_cnt = 0L;
   HN_total_byte = 0L;
   cc = HN_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 = HN_send_485_cmd('Y',"",buff);                 // new    // 3.0
         switch (cc)
         {
            case 0 : if (buff[1] == 'Y')
                       {
                          j=HN_unpack(buff+2,buff1);               // new
                          fwrite(buff1,j,1,ptr);                // new
                          nak_cnt=0;
                          HN_pack_cnt++;
                          HN_total_byte+=(long)j;
                          if (HN_upl_disp == 1) HN_upl_sub(fname1);
                        }
			else if (buff[1] == 'Z') tag = 0;
                        break;
            case NAK : if (++nak_cnt > HN_retry) tag = 0;
                       HN_time_delay(HN_NAK_delay);
                       break;
            default  : tag = 0; break;
         }
         if (HN_enable_ESC == 1)
            if ((kbhit()!=0) && ((dd=getch())== 27))
            {
               tag = 0;
               dd = cc;
            }
      }
   }
   serclose(CURR_PORT);
   fclose(ptr);
   switch(cc)
   {
      case 0 : 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 HN_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 HN_send_485_cmd(char type,unsigned char *buff,unsigned char *str)
{
   unsigned char cc;
   int nak_cnt=0,tag=1;

   HN_send_esc(type,buff);                              // 3.0
   tag=0;
   cc = HN_resp_485(str);                                    // 3.0
   HN_time_delay(HN_ESC_delay);
   return(cc);
}
unsigned char HN_send_esc(char type,unsigned char *buff)                                     // 3.0
{
   int ii;

    sersend(CURR_PORT,(int)ESC);
    sersend(CURR_PORT,(int)type);
    if (HN_disp_cmd == 1) printf("\nPC:STX ESC %c",type);
    for(ii=0;buff[ii];ii++)
    {
       if (HN_disp_cmd == 1) printf("%c",buff[ii]);
       sersend(CURR_PORT,(int)buff[ii]);
    }
    if (HN_disp_cmd == 1) printf(" %x",0);
    sersend(CURR_PORT,(int)0);
    return(1);
}
unsigned char HN_send_485_cmd1(char type,unsigned char *buff,unsigned char *str,int len)
{
   unsigned char cc;
   int nak_cnt=0,tag=1;

      HN_send_esc1(type,buff,len);                              // 3.0
      tag=0;
      cc = HN_resp_485(str);                                    // 3.0
   HN_time_delay(HN_ESC_delay);
   return(cc);
}
unsigned char HN_send_esc1(char type,unsigned char *buff,int len)                                     // 3.0
{
   int ii;

    sersend(CURR_PORT,(int)ESC);
    sersend(CURR_PORT,(int)type);
    if (HN_disp_cmd == 1) printf("\nPC:STX ESC %c",type);
    for(ii=0;ii<len;ii++)
    {
       if (HN_disp_cmd == 1) printf("%c",buff[ii]);
       sersend(CURR_PORT,(int)buff[ii]);
    }
    if (HN_disp_cmd == 1) printf(" %x",0);
    sersend(CURR_PORT,0);
    return(1);
}
unsigned char HN_resp_485(unsigned char *str)
{
  int i=0,nak_cnt=0;
  long cnt,pt,st,et;
  unsigned char cc;
  
  if (HN_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 > HN_timeout)
        {
          if (i == 0) return(255);
          else return(254);
        }
     } while(1);
     if (HN_disp_cmd == 1)
     {
	if (HN_isprint1(cc)) printf("%c",cc); else printf(" %.2x ",cc);
     }
     switch(cc)
     {
        case NAK : return(NAK);
        case 0   :
                   str[i] = 0;
                   return(0);
                   break;
        default  : str[i++] = cc;
                   if (i>=255) return(254);
                   break;
     }
  } while(1);
}
int HN_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 HN_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 >= HN_pack_size+6) goto EXIT;
      i++;
   }
EXIT:
   str_o[cnt] = 0;
   return(cnt);
}
int HN_uploadclose(int port)
{
   unsigned char temp_buff[256],cc;

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