Subversion Repositories xgate

#!/usr/bin/perl -w
 
sub month_to_number {
  if ($_[0] eq "0") {
      $_[0] = "0";
  } elsif ($_[0] eq "1") {
      $_[0] = "1";
  } elsif ($_[0] eq "IMM3") {
      $_[0] = "???";
  } elsif ($_[0] eq "RS") {
      $_[0] = "???";
  } elsif ($_[0] eq "RD") {
      $_[0] = "???";
  } elsif ($_[0] eq "IMM4") {
      $_[0] = "????";
  } elsif ($_[0] eq "RS1") {
      $_[0] = "???";
  } elsif ($_[0] eq "RS2") {
      $_[0] = "???";
  } elsif ($_[0] eq "REL9") {
      $_[0] = "?????????";
  } elsif ($_[0] eq "REL10") {
      $_[0] = "??????????";
  } elsif ($_[0] eq "RB") {
      $_[0] = "???";
  } elsif ($_[0] eq "OFFS5") {
      $_[0] = "?????";
  } elsif ($_[0] eq "RI") {
      $_[0] = "???";
  } elsif ($_[0] eq "IMM8") {
      $_[0] = "????????";
  } else {
      printf "Bad Instruction Parameter: %s\n", $_[0];
      $_[0] = "";
  }
}
 
sub set_default_values {
    print "  always \@*\n";
    print "    begin\n";
    print "      enable_rd = 0;\n";
    print "      enable_imm3 = 0;\n";
    print "      enable_rs = 0;\n";
    print "      enable_imm4 = 0;\n";
    print "      enable_rs1 = 0;\n";
    print "      enable_rs2 = 0;\n";
    print "      enable_rel9 = 0;\n";
    print "      enable_rel10 = 0;\n";
    print "      enable_rb = 0;\n";
    print "      enable_offs5 = 0;\n";
    print "      enable_ri = 0;\n";
    print "      enable_imm8 = 0;\n";
    print "      ena_rd_low_byte = 0;\n";
    print "      ena_rd_high_byte = 0;\n";
    print "      ena_bra_ = 0;\n";
    print "      ena_alu_ = 0;\n";
    print "\n";
    print "      case (op_code)\n";
}
 
 
if( @ARGV < 1 ) {
  $progname = `basename $0`;
  chomp($progname);
  print "Syntax: $progname <Infile> <Outfile>\n";
  die;
} elsif ( @ARGV < 2 ) {
  print "Using default output file \"temp.v\"\n";
  $Infile = shift @ARGV;
  $Outfile = 'temp.v';
} else {
  $Infile = shift @ARGV;
  $Outfile = shift @ARGV;
}
 
open( source_file,  "<$Infile" )  || die "Could not open Input file";
open( verilog_file, ">$Outfile" ) || die "Could not open Output file";
 
$i = 1;
@op_code_list = ();
set_default_values;
while (<source_file>) {
  chomp;
  s/\\$//;      # remove trailing \
  s/}$//;       # remove trailing }
  s/{.*//;      # get rid of all the lines starting with {
  s/\\\w*//g;   # get rid of all words starting with \
  s/^ *//g;     # get rid of all leading blanks
  s/'96RI/-RI/; # swap oddball minus sign format
  if ($_) {
    if (! / [01] [01] / ) {
      print "\n      // Instruction Group -- $_ \n";
    } else {
      /( [01] )/;
      $inst = index($_, $1);
      $instruction = substr($_, 0, $inst);
      $op_code = substr($_, $inst++);
      # print "Instruction Line = $_\n";
      @bit_fields = split / /, $op_code;
      shift @bit_fields;  # get rid of leading blank element
      $case_var = "";
      foreach $field (@bit_fields) {
	$case_var = $case_var . &month_to_number($field);
      }
      push @op_code_list, $case_var;
      print "\n      // Instruction = $instruction, Op Code = $op_code\n";
      print "      16'b$case_var :\n";
      print "         begin\n";
      print "           ena_bra_ = 1;\n";
      print "           ena_alu_ = 1;\n";
      if (index($instruction, "RD") != -1) {
        print "           ena_rd_low_byte = 1;\n";
        print "           ena_rd_high_byte = 1;\n";
      }
      if (index($instruction, "IMM3") != -1) {print "           enable_imm3 = 1;\n"}
      if (index($instruction, "RS") != -1) {print "           enable_rs = 1;\n"}
      if (index($instruction, "IMM4") != -1) {print "           enable_imm4 = 1;\n"}
      if (index($instruction, "RS1") != -1) {print "           enable_rs1 = 1;\n"}
      if (index($instruction, "RS2") != -1) {print "           enable_rs2 = 1;\n"}
      if (index($instruction, "REL9") != -1) {print "           enable_rel9 = 1;\n"}
      if (index($instruction, "REL10") != -1) {print "           enable_rel10 = 1;\n"}
      if (index($instruction, "RB") != -1) {print "           enable_rb = 1;\n"}
      if (index($instruction, "OFFS5") != -1) {print "           enable_offs5 = 1;\n"}
      if (index($instruction, "RI") != -1) {print "           enable_ri = 1;\n"}
      if (index($instruction, "IMM8") != -1) {print "           enable_imm8 = 1;\n"}
      print "         end\n";
      $i++;
    }
  }
}
 
print "      default :\n";
print "        begin\n";
print "        end\n";
print "    endcase\n";
 
print "    end\n";
 
 
close( source_file );
close( verilog_file );
 
sort @op_code_list;
foreach $item (@op_code_list) {
  print "$item\n"
}