chkdgt(char *s){
  int i,j=StrLen(s);
  if(j!=6)
    return 0;
  for(i=0,j=0;i<5;i++) {
    if(i&1)
      j+=*s-'0';
    else
      j+=(*s-'0')*3;
    s++;
  }
  return *s-'0'==(10-j%10)%10;
}

macset() {
  int i,j;
  unsigned int *k;
  unsigned long d;
  char *buf,*buf2;

  k=0xfc;
  if(*k!=0xffff){
    PrStr("MAC already set:00:1f:e8:49:");
    PrHexByte(*0xfc);
    PrChar(':');
    PrHexByte(*0xfd);
    PrStr("\r\n");
    return;
  }
  buf=MemoryAlloc(10);
  buf2=MemoryAlloc(10);
  for(;;){
    PrStr("Enter Number=");
    Gets(buf,7);
    if(!chkdgt(buf)) {
      PrStr("Wrong Number\r\n");
      break;
    }
    PrStr("ReEnter Number=");
    Gets(buf2,7);
    if(!chkdgt(buf2)){
      PrStr("Wrong Number\r\n");
      break;
    }
    if(StrCmp(buf,buf2)){
      PrStr("Wrong Number\r\n");
      break;
    }
    *(buf+5)=0;
    d=Atoi(buf)<<16;NvmWrite(0xfff000fc,&d,4);
    if(*k!=Atoi(buf)){
      PrStr("Write Error\r\n");
      break;
    }
    PrStr("MAC = 00:1f:e8:49:");
    PrHexByte(*0xfc);
    PrChar(':');
    PrHexByte(*0xfd);
    PrStr("\r\n");break;
  }
  MemoryFree(buf);MemoryFree(buf2);
}

recover(){
  int i,j,k;
  char *buf;
  long s;

  k=0x400;// End adrs
  i=SmartInit();
  if(i!=0x20){
    PrStr("Not connected!\r\n");
    return;
  }
  buf=MemoryAlloc(256);
  for(;;){
    PrStr("\r\nErase 1,Sum 2,Clone 3,Replace1 4,Replace2 5 ?");
    Gets(buf,2);
    i=Atoi(buf);
    PrStr("\r\n");
    if(i==0)
      break;
    if(i==1){
      PrStr("Flash Erase");
      SmartErase(0x40);
      PrStr("d\r\n");
    }
    if(i==2){
      PrStr("Sum check...");
      for(i=0,s=0;i<k;i++)
	s+=SmartRead(i,0,buf,256);
      PrStr("Sum=");
      PrHex(s);
      PrStr("\r\n");
    }
    if(i==3){
      PrStr("Programing...");
      SmartErase(0x40);
      if(SmartWrite(0,0,0,252)!=0x20){
	PrStr("Error!");
	break;
      }
      for(i=1;i<k;i++){
	if(SmartWrite(i,0,i*256,256)!=0x20){
	  PrStr("Error!");
	  break;
	}
      }
      PrStr("Finish!\r\n");
    }
    if(i==4){
      PrStr("Programing...");
      for(i=0;i<0x200;i++){
	if(SmartWrite(i,0,i*256+0x20000,256)!=0x20){
	  PrStr("Error!");
	  break;
	}
      }
      PrStr("Finish!\r\n");
    }
    if(i==5){
      PrStr("Programing...");
      for(i=0;i<0x200;i++){
	if(SmartWrite(i+0x200,0,i*256+0x20000,256)!=0x20) {
	  PrStr("Error!");
	  break;
	}
      }
      PrStr("Finish!\r\n");
    }
  }
  MemoryFree(buf);
}

update(){
  unsigned long sum,sum1;
  char *buf;
  
  buf=MemoryAlloc(12);
  StrCpy(buf,"0x");
  PrStr("Enter Checksum=");
  Gets(buf+2,9);
  sum=Atoi(buf);
  if(sum==0)
    return;
  sum1 = Checksum(0x2c000,0x14000);
  PrHex(sum1);
  PrStr("\r\n");
  if(sum1!=sum) {
    PrStr("Wrong Checksum\r\n");
    return;
  }
  PrStr("Ready?");
  Gets(buf,2);
  if(*buf!='y')
    return;
  PrStr("Wait 10 seconds....\r\n");
  Sleep(400);
  FirmwareUpdate(sum);
  PrStr("Wrong Checksum\r\n");
  return;
}