/////Program

CASE StateVar OF
	0:
		IF RFIDReader.xReady THEN
				StateVar := 1;
		END_IF
	1:
		RFIDReader.Connect(usiNodeId:=32 , usiNetworkId:=0 , usiChannel:=1 );
		GVL.xQA1_RIGHT:=TRUE;
		GVL.M1:=FALSE;
		GVL.M2:=FALSE;
		StateVar := 2;
	2:
		IF RFIDReader.xConnected THEN
				StateVar := 3;
		END_IF
		IF NOT fbTcpClient.xActive AND NOT fbTcpClient.xBusy AND NOT fbTcpClient.xDone THEN
			xConnect := TRUE;
		ELSIF fbTcpClient.xDone THEN
			xConnect := FALSE;
		END_IF
		fbTcpClient(xEnable := xConnect, ipAddr := GVL.gc_stIpAddr, uiPort := GVL.gc_uiPort, udiTimeOut := 0);
	3:
		IF GVL.xBG21 AND NOT GVL.M2 THEN
			RFIDReader.ReadTag(uiStartAddress := 0, uiDataLength := SIZEOF(DataSt), ADR(DataSt) );

			StateVar := 4;
		END_IF

	4:
		IF RFIDReader.xReady THEN
			CarrierID := dc_ecp.SwapWORD(DataSt.uiCarrierID);
			ONo := dc_ecp.SwapDWORD(DataSt.stMesData.udiONo);
			OPos := dc_ecp.SwapWORD(DataSt.stMesData.uiOPos);
			stateVar := 5;
     		fbTcpWrite(xExecute := FALSE);
		END_IF

	5:
		IF NOT GVL.M1 THEN
			fbTcpWrite(xExecute := xConnect,hConnection := fbTcpClient.hConnection, udiTimeOut := 0, szSize := SIZEOF(CarrierID), pData := ADR(CarrierID));
			GVL.M1:=TRUE;
			stateVar:=6;
		END_IF

	6:
		fbTcpRead(xEnable := xRead AND xConnect, hConnection := fbTcpClient.hConnection, szSize := SIZEOF(abyInput), pData := ADR(abyInput), szCount => udiRead);
		IF fbTcpRead.xReady THEN
			timer_active:=TRUE;
			input_data:=abyInput[0];
			udiLastAck := SysTimeRtc.SysTimeRtcGet(udiResult);
			stateVar:=7;
		ELSIF fbTcpRead.xError THEN
			fbTcpRead(xEnable := FALSE);
		END_IF
	7:
		input_data:=input_data*1000;
		ton_1(IN:=timer_active,PT:=INT_TO_TIME(input_data));
		stateVar:= 8;

	8:
		ton_1(IN:=timer_active);
		IF ton_1.Q  THEN
			GVL.xMB20:=TRUE;
			GVL.M2:=TRUE;
			stateVar:=9;
		END_IF
	9: //create timer sort of here.
		IF NOT GVL.xBG21 THEN
			GVL.M2:=FALSE;
			GVL.xMB20:=FALSE;
			GVL.M1:=FALSE;
			stateVar:=3;
			ton_1(IN:=FALSE);
		END_IF

END_CASE

RFIDReader();