Subversion Repositories eco32

/*

 * bit2exo.c -- convert Xilinx bitfile data to Motorola S-records

 */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <stdarg.h>

unsigned char bitHeader[13] = {

  0x00, 0x09, 0x0F, 0xF0,

  0x0F, 0xF0, 0x0F, 0xF0,

  0x0F, 0xF0, 0x00, 0x00,

  0x01

};

void error(char *fmt, ...) {

  va_list ap;

  va_start(ap, fmt);

  printf("Error: ");

  vprintf(fmt, ap);

  printf("\n");

  va_end(ap);

  exit(1);

}

unsigned int getCount2(FILE *infile) {

  unsigned char b1, b2;

  b1 = fgetc(infile);

  b2 = fgetc(infile);

  return ((unsigned int) b1 << 8) | (unsigned int) b2;

}

unsigned int getCount4(FILE *infile) {

  unsigned char b1, b2, b3, b4;

  b1 = fgetc(infile);

  b2 = fgetc(infile);

  b3 = fgetc(infile);

  b4 = fgetc(infile);

  return ((unsigned int) b1 << 24) | ((unsigned int) b2 << 16) |

         ((unsigned int) b3 <<  8) | ((unsigned int) b4 <<  0);

}

void show(char *name, FILE *infile, int count) {

  int c;

  printf("%s", name);

  while (count--) {

    c = fgetc(infile);

    if (c >= 0x20 && c <= 0x7E) {

      printf("%c", c);

    }

  }

  printf("\n");

}

unsigned char mirror(unsigned char n) {

  unsigned char m;

  int i;

  m = 0;

  for (i = 0; i < 8; i++) {

    m <<= 1;

    if (n & 1) {

      m |= 1;

    }

    n >>= 1;

  }

  return m;

}

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

  char *endptr;

  unsigned int loadAddr;

  FILE *infile;

  FILE *outfile;

  int numBytes, i;

  int c;

  unsigned char lineData[16];

  unsigned int chksum;

  int totalBytes;

  if (argc != 4) {

    printf("Usage: %s <load addr, hex> <input file> <output file>\n",

           argv[0]);

    printf("    ROM quadrant 0: load addr = 0x000000\n");

    printf("    ROM quadrant 1: load addr = 0x080000\n");

    printf("    ROM quadrant 2: load addr = 0x100000\n");

    printf("    ROM quadrant 3: load addr = 0x180000\n");

    exit(1);

  }

  loadAddr = strtoul(argv[1], &endptr, 16);

  if (*endptr != '\0') {

    error("illegal load address %s", argv[1]);

  }

  infile = fopen(argv[2], "rb");

  if (infile == NULL) {

    error("cannot open input file %s", argv[2]);

  }

  outfile = fopen(argv[3], "wt");

  if (outfile == NULL) {

    error("cannot open output file %s", argv[3]);

  }

  /* 13 bytes header */

  for (i = 0; i < 13; i++) {

    if (fgetc(infile) != bitHeader[i]) {

      error("input file header is not a '.bit' header");

    }

  }

  /* section 'a' */

  if (fgetc(infile) != 'a') {

    error("section 'a' not found");

  }

  i = getCount2(infile);

  show("design name:\t\t", infile, i);

  /* section 'b' */

  if (fgetc(infile) != 'b') {

    error("section 'b' not found");

  }

  i = getCount2(infile);

  show("part name:\t\t", infile, i);

  /* section 'c' */

  if (fgetc(infile) != 'c') {

    error("section 'c' not found");

  }

  i = getCount2(infile);

  show("creation date:\t\t", infile, i);

  /* section 'd' */

  if (fgetc(infile) != 'd') {

    error("section 'd' not found");

  }

  i = getCount2(infile);

  show("creation time:\t\t", infile, i);

  /* section 'e' */

  if (fgetc(infile) != 'e') {

    error("section 'e' not found");

  }

  i = getCount4(infile);

  printf("bit stream size:\t0x%08X\n", i);

  totalBytes = 0;

  while (1) {

    chksum = 0;

    for (numBytes = 0; numBytes < 16; numBytes++) {

      c = fgetc(infile);

      if (c == EOF) {

        break;

      }

      c = mirror(c & 0xFF);

      lineData[numBytes] = c;

      chksum += c;

    }

    if (numBytes == 0) {

      break;

    }

    totalBytes += numBytes;

    fprintf(outfile, "S2%02X%06X", numBytes + 4, loadAddr);

    for (i = 0; i < numBytes; i++) {

      fprintf(outfile, "%02X", lineData[i]);

    }

    chksum += numBytes + 4;

    chksum += ((loadAddr >>  0) & 0xFF) +

              ((loadAddr >>  8) & 0xFF) +

              ((loadAddr >> 16) & 0xFF);

    fprintf(outfile, "%02X\n", 0xFF - (chksum & 0xFF));

    loadAddr += numBytes;

    if (c == EOF) {

      break;

    }

  }

  fprintf(outfile, "S804000000FB\n");

  fclose(infile);

  fclose(outfile);

  printf("bytes converted:\t0x%08X\n", totalBytes);

  return 0;

}