sinrom128_w1.vhd

8-1024可变点数FFT/IFFT变换,VHDL语言设计, 仿真通过,可以很容易综合.

--************************************************************
--************************************************************
--*----------------------------------------------------------*
--*|Version                               :1.0               |
--*|Date of Last Revision                 :12/23/1998        |
--*----------------------------------------------------------*
--************************************************************
-- Copyright (C) 1999 Drey Enterprises Inc.   All Rights Reserved.
--************************************************************
-- Warning: This file is protected by Federal Copyright Law,
-- with all rights reserved. It is unlawful to reproduce
-- any parts of this file, in any form, without expressed
-- written permission from Drey Enterprises Inc. This Copyright
-- is actively enforced.
--************************************************************
--************************************************************

library IEEE;
use IEEE.std_logic_1164.all;
use IEEE.std_logic_unsigned.all;

entity SINROM128_W1 is
    port(
        addr          :in std_logic_vector(6 downto 0);
        sin_w1        :out std_logic_vector(31 downto 0)
    );
end SINROM128_W1;

architecture behavior of SINROM128_W1 is

    constant ROM_WIDTH:integer := 32;
    subtype ROMWORD is std_logic_vector(ROM_WIDTH-1 downto 0);
    type ROM_TABLE is array(0 to 127) of ROMWORD;

    constant ROM:ROM_TABLE := ROM_TABLE'(
        ROMWORD'("00000000000000000000000000000000"),--address=0
        ROMWORD'("00000011001001000010101011000000"),--address=1
        ROMWORD'("00000110010001111101100101111111"),--address=2
        ROMWORD'("00001001011010101001000001001101"),--address=3
        ROMWORD'("00001100100010111101001101100011"),--address=4
        ROMWORD'("00001111101010110010011100110010"),--address=5
        ROMWORD'("00010010110010000001000001110111"),--address=6
        ROMWORD'("00010101111000100001010001001110"),--address=7
        ROMWORD'("00011000111110001011100001000111"),--address=8
        ROMWORD'("00011100000010111000001001110111"),--address=9
        ROMWORD'("00011111000110011111100110001001"),--address=10
        ROMWORD'("00100010001000111010010011010100"),--address=11
        ROMWORD'("00100101001010000000110001101110"),--address=12
        ROMWORD'("00101000001001101011100100111001"),--address=13
        ROMWORD'("00101011000111110011010011111110"),--address=14
        ROMWORD'("00101110000100010000101001110110"),--address=15
        ROMWORD'("00110000111110111100010101100010"),--address=16
        ROMWORD'("00110011110111101111001010011101"),--address=17
        ROMWORD'("00110110101110100010000000101011"),--address=18
        ROMWORD'("00111001100011001101110101001010"),--address=19
        ROMWORD'("00111100010101101011101010001001"),--address=20
        ROMWORD'("00111111000101110100100111010010"),--address=21
        ROMWORD'("01000001110011100001111001111111"),--address=22
        ROMWORD'("01000100011110101100110101101100"),--address=23
        ROMWORD'("01000111000111001110110100000011"),--address=24
        ROMWORD'("01001001101101000001010101010000"),--address=25
        ROMWORD'("01001100001111111110000000010001"),--address=26
        ROMWORD'("01001110101111111110100011000011"),--address=27
        ROMWORD'("01010001001100111100110010110011"),--address=28
        ROMWORD'("01010011100110110010101100001111"),--address=29
        ROMWORD'("01010101111101011010010011110010"),--address=30
        ROMWORD'("01011000010000101101110101110100"),--address=31
        ROMWORD'("01011010100000100111100110111010"),--address=32
        ROMWORD'("01011100101101000010000100000000"),--address=33
        ROMWORD'("01011110110101110111110010101010"),--address=34
        ROMWORD'("01100000111011000011100001010000"),--address=35
        ROMWORD'("01100010111100100000000111001101"),--address=36
        ROMWORD'("01100100111010001000100101000110"),--address=37
        ROMWORD'("01100110110011111000000101000000"),--address=38
        ROMWORD'("01101000101001101001111010100001"),--address=39
        ROMWORD'("01101010011011011001100011000011"),--address=40
        ROMWORD'("01101100001001000010100101111111"),--address=41
        ROMWORD'("01101101110010100000110100110011"),--address=42
        ROMWORD'("01101111010111110000001011001111"),--address=43
        ROMWORD'("01110000111000101100101111100011"),--address=44
        ROMWORD'("01110010010101010010110010100001"),--address=45
        ROMWORD'("01110011101101011110101111101100"),--address=46
        ROMWORD'("01110101000001001101001101100000"),--address=47
        ROMWORD'("01110110010000011010111101010110"),--address=48
        ROMWORD'("01110111011011000100111011110100"),--address=49
        ROMWORD'("01111000100001001000010000101011"),--address=50
        ROMWORD'("01111001100010100010001111000111"),--address=51
        ROMWORD'("01111010011111010000010101110000"),--address=52
        ROMWORD'("01111011010111010000001110110001"),--address=53
        ROMWORD'("01111100001010011111110000000000"),--address=54
        ROMWORD'("01111100111000111100111011000010"),--address=55
        ROMWORD'("01111101100010100101111101001110"),--address=56
        ROMWORD'("01111110000111011001001111110111"),--address=57
        ROMWORD'("01111110100111010101011000000111"),--address=58
        ROMWORD'("01111111000010011001000111001101"),--address=59
        ROMWORD'("01111111011000100011011010010110"),--address=60
        ROMWORD'("01111111101001110011011010111001"),--address=61
        ROMWORD'("01111111110110001000011110010001"),--address=62
        ROMWORD'("01111111111101100010000110000011"),--address=63
        ROMWORD'("01111111111111111111111111111110"),--address=64
        ROMWORD'("01111111111101100010000101111110"),--address=65
        ROMWORD'("01111111110110001000011110001000"),--address=66
        ROMWORD'("01111111101001110011011010101011"),--address=67
        ROMWORD'("01111111011000100011011010000100"),--address=68
        ROMWORD'("01111111000010011001000110110110"),--address=69
        ROMWORD'("01111110100111010101010111101100"),--address=70
        ROMWORD'("01111110000111011001001111010110"),--address=71
        ROMWORD'("01111101100010100101111100101010"),--address=72
        ROMWORD'("01111100111000111100111010011001"),--address=73
        ROMWORD'("01111100001010011111101111010010"),--address=74
        ROMWORD'("01111011010111010000001101111111"),--address=75
        ROMWORD'("01111010011111010000010100111001"),--address=76
        ROMWORD'("01111001100010100010001110001100"),--address=77
        ROMWORD'("01111000100001001000001111101100"),--address=78
        ROMWORD'("01110111011011000100111010110000"),--address=79
        ROMWORD'("01110110010000011010111100001110"),--address=80
        ROMWORD'("01110101000001001101001100010100"),--address=81
        ROMWORD'("01110011101101011110101110011100"),--address=82
        ROMWORD'("01110010010101010010110001001101"),--address=83
        ROMWORD'("01110000111000101100101110001011"),--address=84
        ROMWORD'("01101111010111110000001001110011"),--address=85
        ROMWORD'("01101101110010100000110011010010"),--address=86
        ROMWORD'("01101100001001000010100100011011"),--address=87
        ROMWORD'("01101010011011011001100001011011"),--address=88
        ROMWORD'("01101000101001101001111000110101"),--address=89
        ROMWORD'("01100110110011111000000011010000"),--address=90
        ROMWORD'("01100100111010001000100011010011"),--address=91
        ROMWORD'("01100010111100100000000101010101"),--address=92
        ROMWORD'("01100000111011000011011111010110"),--address=93
        ROMWORD'("01011110110101110111110000101100"),--address=94
        ROMWORD'("01011100101101000010000001111110"),--address=95
        ROMWORD'("01011010100000100111100100110101"),--address=96
        ROMWORD'("01011000010000101101110011101100"),--address=97
        ROMWORD'("01010101111101011010010001100111"),--address=98
        ROMWORD'("01010011100110110010101010000000"),--address=99
        ROMWORD'("01010001001100111100110000100010"),--address=100
        ROMWORD'("01001110101111111110100000101111"),--address=101
        ROMWORD'("01001100001111111101111101111010"),--address=102
        ROMWORD'("01001001101101000001010010110111"),--address=103
        ROMWORD'("01000111000111001110110001100111"),--address=104
        ROMWORD'("01000100011110101100110011001101"),--address=105
        ROMWORD'("01000001110011100001110111011110"),--address=106
        ROMWORD'("00111111000101110100100100101110"),--address=107
        ROMWORD'("00111100010101101011100111100011"),--address=108
        ROMWORD'("00111001100011001101110010100011"),--address=109
        ROMWORD'("00110110101110100001111110000001"),--address=110
        ROMWORD'("00110011110111101111000111110010"),--address=111
        ROMWORD'("00110000111110111100010010110101"),--address=112
        ROMWORD'("00101110000100010000100111000110"),--address=113
        ROMWORD'("00101011000111110011010001001101"),--address=114
        ROMWORD'("00101000001001101011100010000111"),--address=115
        ROMWORD'("00100101001010000000101110111010"),--address=116
        ROMWORD'("00100010001000111010010000011111"),--address=117
        ROMWORD'("00011111000110011111100011010011"),--address=118
        ROMWORD'("00011100000010111000000110111111"),--address=119
        ROMWORD'("00011000111110001011011110001111"),--address=120
        ROMWORD'("00010101111000100001001110010101"),--address=121
        ROMWORD'("00010010110010000000111110111101"),--address=122
        ROMWORD'("00001111101010110010011001111000"),--address=123
        ROMWORD'("00001100100010111101001010101000"),--address=124
        ROMWORD'("00001001011010101000111110010010"),--address=125
        ROMWORD'("00000110010001111101100011000011"),--address=126
        ROMWORD'("00000011001001000010101000000100")--address=127
     );
    
begin

    sin_w1 <= ROM(CONV_INTEGER(addr));

end behavior;