API tools faq
paste
Guest User

Untitled

a guest
May 5th, 2013
50
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VHDL 4.68 KB | None | 0 0
raw download clone embed print report diff
  1.  
  2. library IEEE;
  3. use IEEE.STD_LOGIC_1164.all;
  4. use IEEE.STD_LOGIC_ARITH.all;
  5. use IEEE.STD_LOGIC_UNSIGNED.all;
  6.  
  7. entity CodeROM is
  8.     Generic(
  9.     n:integer := 11;  -- code word size
  10.     m:integer := 127; -- ROM length
  11.     k:integer := 7); -- adress bus size
  12.     Port(
  13.     Code_Read: in std_logic;
  14.     Code_Adr: in std_logic_vector(k-1 downto 0);
  15.     Code_Out: out std_logic_vector(n-1 downto 0));
  16. end CodeROM;
  17.  
  18. architecture CodeROM_arch of CodeROM is
  19.     subtype ROM_WORD is std_logic_vector(n-1 downto 0);
  20.     type ROM_TYPE is array(0 to m-1) of ROM_WORD;    
  21.     signal Rom: ROM_TYPE := (
  22.                     "00000000000", -- push  width
  23.                     "00000000001", -- push  height
  24.                     "01110000000", -- mul
  25.                     "00000000000", -- push  width
  26.                     "10000000000", -- sub
  27.                     "00010000001", -- pushc 1
  28.                     "10000000000", -- sub
  29.                     "00110000101", -- pop   maxI
  30.                     "00000000000", -- push  width
  31.                     "00010000001", -- pushc 1
  32.                     "01010000000", -- add
  33.                     "00110000100", -- pop   i
  34.                     "00000000010", -- push  source
  35.                     "00110000111", -- pop   topL
  36.                     "00000000010", -- push  source
  37.                     "00010000001", -- pushc 1
  38.                     "01100000000", -- addk
  39.                     "00110001000", -- pop   top
  40.                     "00010000010", -- pushc 2
  41.                     "01100000000", -- addk
  42.                     "00110001001", -- pop   topR
  43.                     "00000000000", -- push  width
  44.                     "01100000000", -- addk
  45.                     "00110001010", -- pop   left
  46.                     "00000000000", -- push  width
  47.                     "01100000000", -- addk
  48.                     "00010000010", -- pushc 2
  49.                     "01010000000", -- add
  50.                     "00110001011", -- pop   right
  51.                     "00000000000", -- push  width
  52.                     "00010000010", -- pushc 2
  53.                     "01110000000", -- mul
  54.                     "01100000000", -- addk
  55.                     "00110001100", -- pop   botL
  56.                     "00000000000", -- push  width
  57.                     "00010000010", -- pushc 2
  58.                     "01110000000", -- mul
  59.                     "01100000000", -- addk
  60.                     "00010000001", -- pushc 1
  61.                     "01010000000", -- add
  62.                     "00110001101", -- pop   bot
  63.                     "00000000000", -- push  width
  64.                     "00010000010", -- pushc 2
  65.                     "01110000000", -- mul
  66.                     "01010000000", -- add
  67.                     "00010000010", -- pushc 2
  68.                     "01010000000", -- add
  69.                     "00110001110", -- pop   botR
  70.                     "00000000011", -- push  dest
  71.                     "00000000100", -- push  i
  72.                     "01010000000", -- add
  73.                     "00110000110", -- pop   destAdr
  74.                     "00100000111", -- pushr topL
  75.                     "00100001001", -- pushr topR
  76.                     "10000000000", -- sub
  77.                     "00100001010", -- pushr left
  78.                     "00010000010", -- pushc 2
  79.                     "01110000000", -- mul
  80.                     "01010000000", -- add
  81.                     "00100001011", -- pushr right
  82.                     "00010000010", -- pushc 2
  83.                     "01110000000", -- mul
  84.                     "10000000000", -- sub
  85.                     "00100001100", -- pushr botL
  86.                     "01010000000", -- add
  87.                     "00100001110", -- pushr botR
  88.                     "10000000000", -- sub
  89.                     "10010000000", -- abs
  90.                     "00100001100", -- pushr botL
  91.                     "00100001101", -- pushr bot
  92.                     "00010000010", -- pushc 2
  93.                     "01110000000", -- mul
  94.                     "01010000000", -- add
  95.                     "00100001110", -- pushr botR
  96.                     "01010000000", -- add
  97.                     "00100000111", -- pushr topL
  98.                     "10000000000", -- sub
  99.                     "00100001000", -- pushr top
  100.                     "00010000010", -- pushc 2
  101.                     "01110000000", -- mul
  102.                     "10000000000", -- sub
  103.                     "00100001001", -- pushr topR
  104.                     "10000000000", -- sub
  105.                     "10010000000", -- abs
  106.                     "01010000000", -- add
  107.                     "01000000110", -- popr  destAdr
  108.                     "00000000100", -- push  i
  109.                     "00010000010", -- pushc 2
  110.                     "01010000000", -- add
  111.                     "00000000000", -- push  width
  112.                     "10100000000", -- mod
  113.                     "10111011110", -- jgz   CONTINUE
  114.                     "00010000011", -- pushc 3   //  Push    Delta
  115.                     "11001011111", -- jmp   END_IF
  116.                     "00010000001", -- pushc 1   //  Push    Delta
  117.                     "00000000111", -- push  topL
  118.                     "01100000000", -- addk
  119.                     "00110000111", -- pop   topL
  120.                     "00000001000", -- push  top
  121.                     "01100000000", -- addk
  122.                     "00110001000", -- pop   top
  123.                     "00000001001", -- push  topR
  124.                     "01100000000", -- addk
  125.                     "00110001001", -- pop   topR
  126.                     "00000001010", -- push  left
  127.                     "01100000000", -- addk
  128.                     "00110001010", -- pop   left
  129.                     "00000001011", -- push  right
  130.                     "01100000000", -- addk
  131.                     "00110001011", -- pop   right
  132.                     "00000001100", -- push  botL
  133.                     "01100000000", -- addk
  134.                     "00110001100", -- pop   botL
  135.                     "00000001101", -- push  bot
  136.                     "01100000000", -- addk
  137.                     "00110001101", -- pop   bot
  138.                     "00000001110", -- push  botR
  139.                     "01100000000", -- addk
  140.                     "00110001110", -- pop   botR
  141.                     "00000000100", -- push  i
  142.                     "01010000000", -- add
  143.                     "00110000100", -- pop   i
  144.                     "00000000101", -- push  maxI
  145.                     "00000000100", -- push  i
  146.                     "10000000000", -- sub
  147.                     "10110110000", -- jgz   LOOP
  148.                     "11010000000");-- halt
  149.        
  150. begin
  151.    
  152.     Main:process(Code_Read, Code_Adr)
  153.     begin
  154.         if (Code_Read = '1') then
  155.             Code_Out <= Rom(CONV_INTEGER(Code_Adr));
  156.         end if;
  157.     end process;
  158.    
  159. end CodeROM_arch;
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!