#include <stdio.h>
#include <stdlib.h>
#include<conio.h>
#include "..\lib\7188.h"

char disk='B';

int ScanCom4Str(char *str)
{ int count=0,quit=0;
  char data;

  while(!quit){
    if(IsCom4()){
       data=ReadCom4();
       if(data=='\r') {
	  quit=1;
	  *str=0;
	  ToCom4('\n');
	  ToCom4('\r');
       }
       else if(data=='\b'){
	       if(count){
		  count--;
		  str--;
		  *str=0;
		  ToCom4(data);
	       }
       }
       else {
	  *str++=data;
	  count++;
	  ToCom4(data);
       }
    }
  }
  return count;
}

void main(int argc,char *argv[])
{ long baud=57600L;
  int i,j,port;
  FILE *stream;
  char filename[20],c1,c2,cc;
  char buf[256];
  unsigned char checksum;
  unsigned count,error=0;
  int mode=0;
  int blockno=0,tmp;

  if(!Is7188()){
     puts("\nLD3.EXE must run on I-7188");
     return;
  }
  for(i=1;i<argc;i++){
      if(i==1 && argv[i][0]=='1') mode=1;
      else {
	 switch(argv[i][0]){
	   case '/':
		if(argv[i][1]=='c'|| argv[i][1]=='C'){
		   disk='c';
		}
		break;
	 }
      }
  }
  Init5DigitLed();
/*  port=4; */ /* COM4 */
  switch(inpw(0xff18)){
    case 43: case 44:
	 baud=57600;
	 break;
    case 1041:
	 baud=2400;
	 break;
    case 520:
	 baud=4800;
	 break;
    case 260:
	 baud=9600;
	 break;
    case 130:
	 baud=19200;
	 break;
    case 65:
	 baud=38400;
	 break;
    case 22:
	 baud=115200;
	 break;
    default:
	 baud=57600;
	 break;
  }
  InstallCom4(baud,8,0);
  ToCom4Str("\n\rLD3.EXE Ver 1.01");
  ToCom4Str("\n\r7188 filename=");
  filename[0]=disk;
  filename[1]=':';
  ScanCom4Str(filename+2);
  ToCom4Str("7188 RAM-DISK filename=");
  ToCom4Str(filename);
  if(mode)
    ToCom4Str("\n\rPress F3 for Download from PC(use default baud)");
  else
    ToCom4Str("\n\rPress ALT-S for Download from PC(baud=115200)");
  stream=fopen(filename,"wb");
  Delay(100);
  if(!mode){
     RestoreCom4();
     InstallCom4(115200L,8,0);
  }

  j=0;
  for (;;){
    while (!IsCom4()) ;
    i=ReadCom4();
    if(i=='Q'){
       /* if receive 'Q' -->end of transfer */
       break;
    }
    else if(i!='S'){
       /* 'S' --> start of block , if != 'S' --> error */
       break;
    }
    /* read block size , count=blocksize-1 ,max blocksize=256  */
    /* if blocksize < 256 --> the last block                   */
    while (!IsCom4()) ;
    count=ReadCom4();
    count&=0xff;
    count++;
    checksum=0;
    { tmp=count;
      Show5DigitLed(5,tmp%10);
      tmp/=10;
      Show5DigitLed(4,tmp%10);
      tmp/=10;
      Show5DigitLed(3,tmp%10);
    }
    for(j=0;j<count;j++){
       while (!IsCom4()) ;
       buf[j]=ReadCom4();
       checksum+=buf[j];
    }
    while (!IsCom4()) ;
    if(checksum==ReadCom4()){
       if(count != fwrite(buf,1,count,stream)) error++;
       ToCom4(0xAA); /* if check sum OK,return 0xAA for OK */
       blockno++;
       tmp=blockno;
       Show5DigitLedWithDot(2,tmp%10);
       tmp/=10;
       Show5DigitLed(1,tmp%10);
    }
    else {
       ToCom4(0x55); /* else if checksum error,return 0x55 for resend */
    }
  }
  fclose(stream);
  RestoreCom4();
  Delay(300);
  if(error){
    puts("\nfile write error! may be disk space not enough.");
  }
}