/*
  7188           FarCon
--------------------------
  RX  <---------  TX
  TX  --------->  RX
  RTS --------->  CTS
  CTS <---------  RTS
  GND ----------  GND

  If in I-7188 use COM1,need set RTS high,or FarCOn will not response.
  If in I-7188 use COM3/4 --> there are not CTS and RTS,In the FarCon side
  just short CTS and RTS(pin 7 & 8 on D-Type 9 pin connecter)
*/

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

unsigned char PlcCmd[256];
int PlcCmdLen;
int PlcComPort=1;  /* use I-7188's COM1 */
int PlcStation=1;  /* default station no=1 */
/*
  command:
  for example:
  "410"  STOP
  "411"  RUN
  "423Y0001"  set Y1 to high
  "424Y0001"  reset Y1 to low
*/
int SendPlcCmd(int station,unsigned char *s) /* s: command */
{ unsigned char sum;
  int i;

  PlcCmdLen=0;
  sum=2;
  PlcCmd[PlcCmdLen++]=2; /* STX */
  sum+=(PlcCmd[PlcCmdLen++]=hex_to_ascii[(station>>4)&0xF]);
  sum+=(PlcCmd[PlcCmdLen++]=hex_to_ascii[station&0xF]);
  while(*s){
     sum+=*s;
     PlcCmd[PlcCmdLen++]=*s++;
  }
  PlcCmd[PlcCmdLen++]=hex_to_ascii[sum>>4];
  PlcCmd[PlcCmdLen++]=hex_to_ascii[sum&0xF];
  PlcCmd[PlcCmdLen++]=3; /* ETX */

  for(i=0;i<PlcCmdLen;i++) {
      ToCom(1,PlcCmd[i]);
      printf("%c[%02X]",PlcCmd[i],PlcCmd[i]);
  }
  printf("\n");
  return 1;
}

unsigned char Cmd[20];
int idx=0;

void main(void)
{ int quit=0;
  int data;
  unsigned long Timeout=600000L;
  int WaitEcho=0;

  InstallCom(PlcComPort,9600,7,1,1); /* 9600,E,7,1*/
  outp(0x204,2); /* set COM1 RTS high, if not use COM1 */
		 /* need short CTS and RTS on FarCon PLC side */
  while(!quit){
     if(kbhit4()){
	data=getch4();
	putchar(data);
	if(data=='q') quit=1;
	else if(data=='\r'){
		putchar('\n');
		Cmd[idx]=0;
		SendPlcCmd(PlcStation,Cmd);
		idx=0;
		WaitEcho=1;
		Timeout=60000L;
	}
	else if(data=='\b'){
		if(idx) idx--;
	}
	else {
	    Cmd[idx++]=data;
	}
     }
     if(IsCom(1)){
	data=ReadCom(1);
	/*
	 here save the response to buf for use latter ....
	*/
	printf("%c[%02X]",data,data);
	if(data==3){  /* ETX : end of echo message */
	   WaitEcho=0;
	   printf("\n");
	}
     }
     else if(WaitEcho){
	     Timeout--;
	     if(!Timeout) {
		 printf("Timeout\n");
		 WaitEcho=0;
	     }
     }
  }
  printf("\n");
  RestoreCom(1);
}