PLCFunction fix2

QuakeGod

2023-05-26 db25c9f050a690bbec032ef3f93e244c7ec2dbee

 Src/KLink.c

@@ -194,7 +194,7 @@
            PacketLen=KLMakeRplyPacket(p2,nDstHost,nKLStatus.StatByte,p1->nCMD,0,0);

            SendPacket(nChn, p2, PacketLen);

            break;

			


         case KLCmdRead:

         case KLCmdReadDataWord:

         case KLCmdReadDataByte:            

@@ -292,7 +292,10 @@
         case KLCmdWriteBits:

            break;

         case KLCmdChgMode:

				
            if (nDataType ==0) {StopPLC();}

            if (nDataType == 1) {StartPLC();}

            PacketLen=KLMakeRplyPacket(p2,nDstHost,nKLStatus.StatByte,p1->nCMD,0,0);

            SendPacket(nChn, p2, PacketLen);				
            break;

         case KLCmdReadProgram:

            nWordAddr=p1->Params[0]+ (p1->Params[1]<<8);