mips_sys

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#! /usr/bin/perl
use strict;
use warnings;
if (@ARGV < 2) {
  die "usage: $0 <binary file> <ram number>\n";
}
my $binfile = $ARGV[0];
my $ramno = abs(int($ARGV[1]));
open BINFILE, "<", $binfile or die "cannot read \"$binfile\": ";
binmode BINFILE;
print <<EOF;
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.NUMERIC_STD.ALL;
ENTITY e_ram_$ramno IS
    GENERIC (
        addr_width: natural
    );
    PORT (
        clk:       IN  std_logic;
        i_addr:    IN  std_logic_vector(addr_width - 1 DOWNTO 0);
        o_rd_data: OUT std_logic_vector(             7 DOWNTO 0);
        i_wr_data: IN  std_logic_vector(             7 DOWNTO 0);
        i_wr_en:   IN  std_logic
    );
END ENTITY e_ram_$ramno;
ARCHITECTURE a_ram_$ramno OF e_ram_$ramno IS
    SUBTYPE t_addr IS std_logic_vector(addr_width - 1 DOWNTO 0);
    SUBTYPE t_data IS std_logic_vector(             7 DOWNTO 0);
    TYPE    t_buf  IS ARRAY(0 TO 2 ** addr_width - 1) OF t_data;
    SIGNAL s_buf: t_buf := (
EOF
my $addr = 0;
my $data;
while (read(BINFILE, $data, 4)) {
  my @d = unpack("CCCC", $data);
  printf "        %d => X\"%02X\",\n", $addr, $d[$ramno];
  ++$addr;
}
print <<EOF;
        OTHERS => X"00"
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX