Subversion Repositories xgate

/* Verilog ROM Generator/Programer  Rev B March 12 1996  Bob Hayes            */

/* Started work on S-Record Writer Nov. 6, 1996 -- working except parity      */

/* Rev 1.1 Sept. 11, 2009 - Bob Hayes - Update to create output file name     */

/*   from input file name by changing extension to .v                         */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

FILE * open_read_file (char *);

FILE * open_write_file (char *);

int Get_ROM_Byte (FILE *, int *);

void Make_Ref_Mem (FILE *, FILE *);

/* ************************************************************************** */

/* ************************************************************************** */

int main(int argc, char *argv[])

{

    int i, j, k = 0;

    char c;

    FILE *file1, *file2;

    file1 = NULL;

    file2 = NULL;

    printf("\nConvert S-record to Verilog memory file\n");

    if (argc != 2)

    {

      printf("Usage: %s filename\n", argv[0]);

      exit(1);

    }

    file1 = open_read_file(argv[1]);

    file2 = open_write_file(argv[1]);

    Make_Ref_Mem(file1, file2);

    fclose(file1);

    fclose(file2);

    printf("\n All done now!\n");

    return 0;

}

/* ************************************************************************** */

/* 45678901234567890123456789012345678901234567890123456789012345678901234567 */

/* ************************************************************************** */

/* ************************************************************************** */

int Get_ROM_Byte (FILE *f1, int *S_Addr)

{

    static int Addr = 0, Count = 0, Sum = 0, Flag = 0;

    static int Max_Count = 0, Parity;

    static unsigned char c, *ch;

    static char EOL_str[80];

    static int i, j, k, OK, Byte;

    static long int Line_cnt = 0, Byte_cnt = 0;

    if (Flag == 0 )

    {

        Flag = 1;

        /* This code is to read first line of miscellaneous data */

        OK = fscanf(f1, "%c", &c);           /* Read the "S"         */

        OK = fscanf(f1, "%1x", &i);          /* Read the type number */

        OK = fscanf(f1, "%2x", &Max_Count);  /* Read the byte count  */

        if ( c != 'S' )

        {

            printf("Error in S-Records, No -S-, S = %c, i = %i, Max = %i\n", c, i, Max_Count);

            printf("Line Number = %i, Byte Number = %i\n", Line_cnt, Byte_cnt);

        }

        if ( i != 0 )

           rewind(f1);  /* Back-up if there is no comment line */

        else

        {

            printf("First S-Record info line is:\n");

            for (j = 1; j <= Max_Count-1; ++j)

              {

                 fscanf(f1, "%2x", &k);

                 if (( k >= ' ') && (k <= '~'))

                    printf("%c",k);

              }

            printf("\n\n");

            fgets(EOL_str, 10, f1); /* pick-up parity and other junk */

        }

    }

    if ( Count == 0 )

    {

        Sum = 0;

        OK = fscanf(f1, "%c", &c);           /* Read the "S"         */

        OK = fscanf(f1, "%1x", &i);          /* Read the type number */

        OK = fscanf(f1, "%2x", &Max_Count);  /* Read the byte count  */

        if ( c != 'S' )

        {

            printf("Error in S-Records, No -S-, S = %c, i = %i, Max = %i\n", c, i, Max_Count);

            printf("Line Number = %i, Byte Number = %i\n", Line_cnt, Byte_cnt);

        }

        switch (i)

        {

             case 1:

             case 9:

                 Max_Count = Max_Count - 2;

                 OK = fscanf(f1, "%4x", &Addr);

                 break;

             case 2:

             case 8:

                 Max_Count = Max_Count - 3;

                 OK = fscanf(f1, "%6x", &Addr);

                 break;

             case 3:

             case 7:

                 Max_Count = Max_Count - 4;

                 OK = fscanf(f1, "%8x", &Addr);

                 break;

             default :

                 printf("Error in S-Record file! Unrecognized TYPE Number\n");

                 break;

        }

    }

    if ( Max_Count > 1)               /* Make sure there is at least one byte of data */

      {

          OK = fscanf(f1, "%2x", &Byte); /* Read a Byte of Data        */

          Sum = Sum + Byte;              /* Increment the parity count */

          ++Count;

          ++Byte_cnt;

      }

    if ( Count == (Max_Count - 1))    /* Do the parity check        */

    {

        Count = 0;

        OK = fscanf(f1, "%2x", &Parity);  /* Read the parity from the S-Record File */

        Sum = 0xFF & ~Sum;

/*        printf("Line = %d, Sum = %2x, Parity = %2x\n", Line_cnt, Sum, Parity); */

        ++Line_cnt;

        c = ' ';

        while (( c != 'S') && ((k = feof(f1)) == 0))

          OK = fscanf(f1, "%c", &c);        /* Eat up end of line */

        if (( k = feof(f1)) != 0)

           printf("found EOF in S-Record file\n   %i Lines Processed\n", Line_cnt);

        else

           ungetc(c, f1);

    }

/*    printf("Read Byte = %x, Count = %i, Max_Count = %i \n", Byte, Count, Max_Count); */

    *S_Addr = Addr;

    return Byte;

}

/* *************************************************************************************** */

/* Convert S-record to Verilog memory file *********************************************** */

void Make_Ref_Mem (FILE *f1, FILE *f2)

{

    int Byte, S_Addr, S_Addr_Old;

    int i, j, k;

    i = 0;

    S_Addr_Old = 1;

    printf("// Making Verilog Reference Memory File \n");

            while (( i = feof(f1)) == 0)

            {

                Byte = Get_ROM_Byte(f1, &S_Addr);

                if ( S_Addr != S_Addr_Old )

                {

                    fprintf(f2, "\n@%4.4X", S_Addr );

                    S_Addr_Old = S_Addr;

                }

                fprintf(f2, " %2.2X", Byte);

            }

    printf("Conversion All Done Now\n");

    return;

}

/* ************************************************************************** */

FILE * open_read_file (char file_name[80])

{

    char c;

    FILE *file_num;

    file_num = NULL;

    printf("Input File Name => %s\n", file_name);

    file_num = fopen(file_name, "rb");

    if (file_num == NULL)

    {

       printf("\nError in opening read file!!\n");

    }

    return file_num;

}

/* ************************************************************************** */

FILE * open_write_file (char file_name[80])

{

    FILE *file_num;

    char c, out_file_name[80];

    int i, j, k;

    i = strlen(file_name);

    strcpy(out_file_name, file_name);

    while (out_file_name[i] != '.')

    {

      out_file_name[i] = 0;

      i--;

    }

    strcat(out_file_name, "v");

    file_num = NULL;

    printf("Output File Name => %s\n", out_file_name);

    file_num = fopen(out_file_name, "w");

    if (file_num == NULL)

      {

         printf("\nError in opening write file!!\n");

      }

    printf("\n");

    return file_num;

}