Протокол Modbus RTU/ASCII для режима Slave

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
void main()
{
       FILE* com;
       com=fopen("com1","rb");
       fclose(com);
}

#include <stdio.h>
 
#define SIZE 65536
 
int main()
{
   // Память
   char mem[SIZE] = { 0 };
 
   // Загрузка при старте
   FILE* f = fopen("mem.dat", "rb");
   if (f)
   {
      fread(mem, SIZE, 1, f);
      fclose(f);
   }
 
   // ...
 
   // Выгрузка при завершении
   f = fopen("mem.dat", "wb");
 
   if (f)
   {
      fwrite(mem, SIZE, 1, f);
      fclose(f);
   }
 
   return 0;
}

#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <windows.h>
 
#define SIZE 65536
#define SIZE1 8
#define ADDR 0x01
 
unsigned int CRC(unsigned char *lMessage, unsigned int lCount)
{
    unsigned int data;
    unsigned char lBits,lCnt;
    data=0xFFFF;
    for(lCnt=0;lCnt<lCount;lCnt++)
    {
        data^=lMessage[lCnt];
        for(lBits=0;lBits<8;lBits++)
        {
            if(data & 0x0001)
            {
                data>>=1;
                data^=0xA001;
            }
            else data>>=1;
        }
    }
    return(data);
}
 
void main()
{   
    HANDLE Com;
    FILE *DIf,*Cf,*IRf,*HRf;
    unsigned char zapr[SIZE1] = { 0 }, otv[SIZE] = { 0 }, addr, func;
    unsigned short param1,param2,zapcrc, IR[SIZE] = { 0 }, HR[SIZE] = { 0 }, DI[SIZE] = { 0 }, C[SIZE] = { 0 };
    unsigned int prcrc;
    int bytesread, byteswrite, i, sizeotv;
    setlocale(LC_ALL,"russian");
    Com = CreateFile("com2", GENERIC_READ, 0,NULL, OPEN_EXISTING, 0, NULL);
    if (Com == INVALID_HANDLE_VALUE) 
    {
        printf("Ком-порт невозможно открыть\n");
        ExitProcess(1);
    }
    ReadFile(Com,zapr,SIZE1,&bytesread,NULL);
    CloseHandle(Com);
    addr=zapr[0];
    func=zapr[1];
    param1=(zapr[2]<<8)+zapr[3];
    param2=(zapr[4]<<8)+zapr[5];
    zapcrc=(zapr[7]<<8)+zapr[6];
    prcrc=CRC(zapr,SIZE1-2);
    if(zapcrc==prcrc)
    {
        if (ADDR==addr)
        {   
            printf("Получен запрос\n");
            for(i=0;i<SIZE1;i++) 
                printf("[%02x]",zapr[i]);
            printf("\n");
            DIf=fopen("DIf.dat","rb");
            if(DIf)
            {
                fread(DI,SIZE,1,DIf);
                fclose(DIf);
            }
            Cf=fopen("Cf.dat","rb");
            if(Cf)
            {
                fread(C,SIZE,1,Cf);
                fclose(Cf);
            }
            IRf=fopen("IRf.dat","rb");
            if(IRf)
            {
                fread(IR,SIZE*2,1,IRf);
                fclose(IRf);
            }
            HRf=fopen("HRf.dat","rb");
            if(HRf)
            {
                fread(HR,SIZE*2,1,HRf);
                fclose(HRf);
            }
            switch(func)
            {
            case 0x01: //получение текущего состояние группы логических ячеек (С)
                {   
                    unsigned char kolvo, a = 0, kol[250][8]= { 0 }, kol1[250] = { 0 }; int j;
                    if(param2%8==0) kolvo=param2/8;
                    if(param2%8>0) kolvo=param2/8+1;
                    for(i=0;i<kolvo;i++)
                        for(j=8;j>0;j--)
                        {
                            if(C[param1+i]==0xFF00) kol[i][j]=1;
                            param1++;
                        }
                        otv[0]=zapr[0];
                        otv[1]=zapr[1];
                        otv[2]=kolvo;
                        for(i=0;i<kolvo;i++)
                        {
                            for(j=0;j<8;j++)
                                a|=kol[i][j]<<j;
                            kol1[i]=a;
                        }
                        for(i=3;i<kolvo+3;i++) 
                            otv[i]=kol1[i-3];
                        prcrc=CRC(otv,kolvo+3);
                        otv[kolvo+3]=prcrc;
                        otv[kolvo+4]=prcrc>>8;
                        sizeotv=kolvo+5;
                }
                break;
            case 0x02: //получение текущего состояния группы дискретных входов (DI)
                {
                    unsigned char kolvo, a = 0, kol[250][8]= { 0 }, kol1[250] = { 0 }; int j;
                    if(param2%8==0) kolvo=param2/8;
                    if(param2%8>0) kolvo=param2/8+1;
                    for(i=0;i<kolvo;i++)
                        for(j=8;j>0;j--)
                        {
                            if(DI[param1+i]==0xFF00) kol[i][j]=1;
                            param1++;
                        }
                        otv[0]=zapr[0];
                        otv[1]=zapr[1];
                        otv[2]=kolvo;
                        for(i=0;i<kolvo;i++)
                        {
                            for(j=0;j<8;j++)
                                a|=kol[i][j]<<j;
                            kol1[i]=a;
                        }
                        for(i=3;i<kolvo+3;i++) 
                            otv[i]=kol1[i-3];
                        prcrc=CRC(otv,kolvo+3);
                        otv[kolvo+3]=prcrc;
                        otv[kolvo+4]=prcrc>>8;
                        sizeotv=kolvo+5;
                }
                break;
            case 0x03: //получение текущего значения одного или нескольких регистров хранения (HR)
                {
                    unsigned char kolvo, kol1[250] = { 0 }; int j;
                    kolvo=param2*2;
                    for(i=0;i<kolvo;i+=2)
                    {
                        kol1[i]=HR[param1]>>8;
                        kol1[i+1]=HR[param1];
                        param1++;
                    }
                    otv[0]=zapr[0];
                    otv[1]=zapr[1];
                    otv[2]=kolvo;
                    for(i=3;i<kolvo+3;i++) 
                        otv[i]=kol1[i-3];
                    prcrc=CRC(otv,kolvo+3);
                    otv[kolvo+3]=prcrc;
                    otv[kolvo+4]=prcrc>>8;
                    sizeotv=kolvo+5;
                }
                break;
            case 0x04: //получение текущего значения одного или нескольких входных регистров (IR)
                {
                    unsigned char kolvo, kol1[250] = { 0 }; int j;
                    kolvo=param2*2;
                    for(i=0;i<kolvo;i+=2)
                    {
                        kol1[i]=IR[param1]>>8;
                        kol1[i+1]=IR[param1];
                        param1++;
                    }
                    otv[0]=zapr[0];
                    otv[1]=zapr[1];
                    otv[2]=kolvo;
                    for(i=3;i<kolvo+3;i++) 
                        otv[i]=kol1[i-3];
                    prcrc=CRC(otv,kolvo+3);
                    otv[kolvo+3]=prcrc;
                    otv[kolvo+4]=prcrc>>8;
                    sizeotv=kolvo+5;
                }
                break;
            case 0x05: //изменение логической ячейки в состояние ON - 0xFF00, OFF - 0x0000 (C)
                {
                    if((param2==0xFF00) || (param2==0x0000)) 
                    {
                        C[param1]=param2;
                        for(i=0;i<SIZE1;i++) 
                            otv[i]=zapr[i];
                        sizeotv=SIZE1;
                    }
                }
                break;
            case 0x06: //запись нового значения в регистр хранения (HR)
                {
                    HR[param1]=param2;
                    for(i=0;i<SIZE1;i++) 
                        otv[i]=zapr[i];
                    sizeotv=SIZE1;
                }
                break;
            case 0x0F: //изменить состояние нескольких последовательных логических ячеек (C)
                {
 
                }
                break;
            case 0x10: //установить новые значения нескольких последовательных регистров (HR)
                {
 
                }
                break;
            default: printf("Запрошена неописанная функция\n");
            }
            Com = CreateFile("com2", GENERIC_WRITE, 0,NULL, OPEN_EXISTING, 0, NULL);
            if (Com == INVALID_HANDLE_VALUE) 
            {
                printf("Ком-порт невозможно открыть\n");
                ExitProcess(1);
            }
            WriteFile(Com,otv,sizeotv,&byteswrite,NULL);
            CloseHandle(Com);
            printf("Выслан ответ\n");
            for(i=0;i<sizeotv;i++) 
                printf("[%02x]",otv[i]);
            printf("\n");
            DIf=fopen("DIf.dat","wb");
            if(DIf)
            {
                fwrite(DI,SIZE,1,DIf);
                fclose(DIf);
            }
            Cf=fopen("Cf.dat","wb");
            if(Cf)
            {
                fwrite(C,SIZE,1,Cf);
                fclose(Cf);
            }
            IRf=fopen("IRf.dat","wb");
            if(IRf)
            {
                fwrite(IR,SIZE*2,1,IRf);
                fclose(IRf);
            }
            HRf=fopen("HRf.dat","wb");
            if(HRf)
            {
                fwrite(HR,SIZE*2,1,HRf);
                fclose(HRf);
            }
        }
    }
}