Subversion Repositories risc5x

//
// Risc5x
// www.OpenCores.Org - November 2001
//
//
// This library is free software; you can distribute it and/or modify it
// under the terms of the GNU Lesser General Public License as published
// by the Free Software Foundation; either version 2.1 of the License, or
// (at your option) any later version.
//
// This library is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU Lesser General Public License for more details.
//
// A RISC CPU core.
//
// (c) Mike Johnson 2001. All Rights Reserved.
// mikej@opencores.org for support or any other issues.
//
// Revision list
//
// version 1.0 initial opencores release
//
 
#include <stdio.h>
#include <stdlib.h>
 
#include <iostream>
#include <fstream>
#include <list>
#include <vector>
#include <string>
using namespace std;
 
#define ROM_SIZE 0x800
 
class cLine
{
	string line;
public:
 
	typedef std::vector<cLine> List;
	cLine(string l) : line(l) {}
	string get() {return line;}
};
 
int hex_to_int(string hex, int start, int len)
{
	int result = 0;
 
	for (int i = start; i < (start + len); i++) {
	  result <<= 4;
	  if      (hex[i] >= '0' && hex[i] <= '9')
		  result += (hex[i] - '0');
	  else if (hex[i] >= 'A' && hex[i] <= 'F')
		  result += (hex[i] - 'A') +10;
	  else if (hex[i] >= 'a' && hex[i] <= 'f')
		  result += (hex[i] - 'a') +10;
	  else
	  {
		  printf("hex to int error \n");
		  exit (1);
	  }
	}
	return result;
}
 
int main(int argc, char* argv[])
 
{
	// read file
	cLine::List l;
	string buffer;
	ifstream infile;
 
	if(argc != 2)
	{
		printf("no input file \n");
		return -1;
	}
 
	infile.open(argv[1]);
	if(infile.fail()) {
	   printf("Could not open input file \n");
	   return -1;
	}
	do
	{
		std::getline(infile,buffer,infile.widen('\n'));
		if(!buffer.empty())
		{
		   string::size_type sz1 = buffer.find(":");
		   if(sz1 != string::npos)
		  {
					sz1+=1;
					string::size_type sz2 = buffer.find(";");
					string real(&buffer[sz1]);
					l.push_back(cLine(real));
		   }
 
		}
	} while(!infile.fail());
	infile.close();
 
	// process
	int mem[ROM_SIZE];
	string line;
	int len =  l.size();
	int i,j,k,sum;
	int wc,type,data;
	int file_addr = 0;
	int addr = 0;
	int offset = 0;
	int mask = 0;
 
	// clear mem
	for (i = 0; i < ROM_SIZE; i++) mem[i] = 0;
 
	// process file
	for (j = 0; j < len-1; j++) {
 
	  line = l[j].get();
	  wc = hex_to_int(line,0,2);
	  file_addr = hex_to_int(line,2,4);
	  type = hex_to_int(line,6,2);
 
	  sum = 0;
	  for (i = 0; i < wc*2 + 9; i +=2) {
		sum += hex_to_int(line,i,2);
	  }
	  if ((sum & 0xff) != 0)
		  printf("incorrect checksum line %d \n", j+1);
	  int value = 0;
 
	  if (type == 0) {
		for (i = 0; i < wc*2; i +=4) {
		  value = hex_to_int(line,i + 8,2) + hex_to_int(line,i+10,2) * 256;
		  mem[addr] = value;
		  addr ++;
		}
	  }
	}
	// print attribute statements
	/*
	for (k = 0; k < 6; k ++){
	  mask = 0x3 << (k*2);
 
	  printf("\n\n");
	  for (j = 0; j < (ROM_SIZE/128); j++) {
		printf("attribute INIT_%02X of inst%d : label is \042",j,k);
		for (i = 0; i < 128; i+=4) {
 
		  data  = ((mem[(j*128) + (127 - i)] & mask) >> k*2);
		  data <<= 2;
		  data += ((mem[(j*128) + (126 - i)] & mask) >> k*2);
		  data <<= 2;
		  data += ((mem[(j*128) + (125 - i)] & mask) >> k*2);
		  data <<= 2;
		  data += ((mem[(j*128) + (124 - i)] & mask) >> k*2);
		  printf("%02X",data);
		}
		printf("\042;\n");
	  }
	}
	*/
 
	// print ucf statements
	for (k = 0; k < 6; k ++){
	  mask = 0x3 << (k*2);
 
	  printf("\n\n");
	  for (j = 0; j < (ROM_SIZE/128); j++) {
		printf("INST PRAMS_%d_INST INIT_%02X = ",k,j);
		for (i = 0; i < 128; i+=4) {
 
		  data  = ((mem[(j*128) + (127 - i)] & mask) >> k*2);
		  data <<= 2;
		  data += ((mem[(j*128) + (126 - i)] & mask) >> k*2);
		  data <<= 2;
		  data += ((mem[(j*128) + (125 - i)] & mask) >> k*2);
		  data <<= 2;
		  data += ((mem[(j*128) + (124 - i)] & mask) >> k*2);
		  printf("%02X",data);
		}
		printf(";\n");
	  }
	}
 
	return 0;
}