cosrom128_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 COSROM128_W1 is
    port(
        addr          :in std_logic_vector(6 downto 0);
        cos_w1        :out std_logic_vector(31 downto 0)
    );
end COSROM128_W1;

architecture behavior of COSROM128_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'("01111111111111111111111111111111"),--address=0
        ROMWORD'("01111111111101100010000110000001"),--address=1
        ROMWORD'("01111111110110001000011110001100"),--address=2
        ROMWORD'("01111111101001110011011010110010"),--address=3
        ROMWORD'("01111111011000100011011010001101"),--address=4
        ROMWORD'("01111111000010011001000111000001"),--address=5
        ROMWORD'("01111110100111010101010111111001"),--address=6
        ROMWORD'("01111110000111011001001111100111"),--address=7
        ROMWORD'("01111101100010100101111100111100"),--address=8
        ROMWORD'("01111100111000111100111010101101"),--address=9
        ROMWORD'("01111100001010011111101111101001"),--address=10
        ROMWORD'("01111011010111010000001110011000"),--address=11
        ROMWORD'("01111010011111010000010101010101"),--address=12
        ROMWORD'("01111001100010100010001110101010"),--address=13
        ROMWORD'("01111000100001001000010000001011"),--address=14
        ROMWORD'("01110111011011000100111011010010"),--address=15
        ROMWORD'("01110110010000011010111100110010"),--address=16
        ROMWORD'("01110101000001001101001100111010"),--address=17
        ROMWORD'("01110011101101011110101111000100"),--address=18
        ROMWORD'("01110010010101010010110001110111"),--address=19
        ROMWORD'("01110000111000101100101110110111"),--address=20
        ROMWORD'("01101111010111110000001010100001"),--address=21
        ROMWORD'("01101101110010100000110100000010"),--address=22
        ROMWORD'("01101100001001000010100101001101"),--address=23
        ROMWORD'("01101010011011011001100010001111"),--address=24
        ROMWORD'("01101000101001101001111001101011"),--address=25
        ROMWORD'("01100110110011111000000100001000"),--address=26
        ROMWORD'("01100100111010001000100100001101"),--address=27
        ROMWORD'("01100010111100100000000110010001"),--address=28
        ROMWORD'("01100000111011000011100000010011"),--address=29
        ROMWORD'("01011110110101110111110001101011"),--address=30
        ROMWORD'("01011100101101000010000010111111"),--address=31
        ROMWORD'("01011010100000100111100101111000"),--address=32
        ROMWORD'("01011000010000101101110100110000"),--address=33
        ROMWORD'("01010101111101011010010010101100"),--address=34
        ROMWORD'("01010011100110110010101011001000"),--address=35
        ROMWORD'("01010001001100111100110001101010"),--address=36
        ROMWORD'("01001110101111111110100001111001"),--address=37
        ROMWORD'("01001100001111111101111111000110"),--address=38
        ROMWORD'("01001001101101000001010100000100"),--address=39
        ROMWORD'("01000111000111001110110010110101"),--address=40
        ROMWORD'("01000100011110101100110100011101"),--address=41
        ROMWORD'("01000001110011100001111000101111"),--address=42
        ROMWORD'("00111111000101110100100110000000"),--address=43
        ROMWORD'("00111100010101101011101000110110"),--address=44
        ROMWORD'("00111001100011001101110011110110"),--address=45
        ROMWORD'("00110110101110100001111111010110"),--address=46
        ROMWORD'("00110011110111101111001001000111"),--address=47
        ROMWORD'("00110000111110111100010100001011"),--address=48
        ROMWORD'("00101110000100010000101000011110"),--address=49
        ROMWORD'("00101011000111110011010010100101"),--address=50
        ROMWORD'("00101000001001101011100011100000"),--address=51
        ROMWORD'("00100101001010000000110000010100"),--address=52
        ROMWORD'("00100010001000111010010001111010"),--address=53
        ROMWORD'("00011111000110011111100100101110"),--address=54
        ROMWORD'("00011100000010111000001000011011"),--address=55
        ROMWORD'("00011000111110001011011111101011"),--address=56
        ROMWORD'("00010101111000100001001111110010"),--address=57
        ROMWORD'("00010010110010000001000000011010"),--address=58
        ROMWORD'("00001111101010110010011011010101"),--address=59
        ROMWORD'("00001100100010111101001100000110"),--address=60
        ROMWORD'("00001001011010101000111111110000"),--address=61
        ROMWORD'("00000110010001111101100100100001"),--address=62
        ROMWORD'("00000011001001000010101001100010"),--address=63
        ROMWORD'("11111111111111111111111110100011"),--address=64
        ROMWORD'("11111100110110111101010011100010"),--address=65
        ROMWORD'("11111001101110000010011000100100"),--address=66
        ROMWORD'("11110110100101010110111101010101"),--address=67
        ROMWORD'("11110011011101000010110000111111"),--address=68
        ROMWORD'("11110000010101001101100001110001"),--address=69
        ROMWORD'("11101101001101111110111100101101"),--address=70
        ROMWORD'("11101010000111011110101101010110"),--address=71
        ROMWORD'("11100111000001110100011101011101"),--address=72
        ROMWORD'("11100011111101000111110100101110"),--address=73
        ROMWORD'("11100000111001100000011000011100"),--address=74
        ROMWORD'("11011101110111000101101011010001"),--address=75
        ROMWORD'("11011010110101111111001100111000"),--address=76
        ROMWORD'("11010111110110010100011001101101"),--address=77
        ROMWORD'("11010100111000001100101010101010"),--address=78
        ROMWORD'("11010001111011101111010100110011"),--address=79
        ROMWORD'("11001111000001000011101001000111"),--address=80
        ROMWORD'("11001100001000010000110100001101"),--address=81
        ROMWORD'("11001001010001011101111110000000"),--address=82
        ROMWORD'("11000110011100110010001001100010"),--address=83
        ROMWORD'("11000011101010010100010100100100"),--address=84
        ROMWORD'("11000000111010001011010111011101"),--address=85
        ROMWORD'("10111110001100011110000100110000"),--address=86
        ROMWORD'("10111011100001010011001001000101"),--address=87
        ROMWORD'("10111000111000110001001010101111"),--address=88
        ROMWORD'("10110110010010111110101001100011"),--address=89
        ROMWORD'("10110011110000000001111110100100"),--address=90
        ROMWORD'("10110001010000000001011011110011"),--address=91
        ROMWORD'("10101110110011000011001100000101"),--address=92
        ROMWORD'("10101100011001001101010010101010"),--address=93
        ROMWORD'("10101010000010100101101011001001"),--address=94
        ROMWORD'("10100111101111010010001001001000"),--address=95
        ROMWORD'("10100101011111011000011000000100"),--address=96
        ROMWORD'("10100011010010111101111010111111"),--address=97
        ROMWORD'("10100001001010001000001100010111"),--address=98
        ROMWORD'("10011111000100111100011101110010"),--address=99
        ROMWORD'("10011101000011011111110111111000"),--address=100
        ROMWORD'("10011011000101110111011010000000"),--address=101
        ROMWORD'("10011001001100000111111010001000"),--address=102
        ROMWORD'("10010111010110010110000100101001"),--address=103
        ROMWORD'("10010101100100100110011100001000"),--address=104
        ROMWORD'("10010011110110111101011001001111"),--address=105
        ROMWORD'("10010010001101011111001010011101"),--address=106
        ROMWORD'("10010000101000001111110100000010"),--address=107
        ROMWORD'("10001111000111010011001111110001"),--address=108
        ROMWORD'("10001101101010101101001100110101"),--address=109
        ROMWORD'("10001100010010100001001111101011"),--address=110
        ROMWORD'("10001010111110110010110001111010"),--address=111
        ROMWORD'("10001001101111100101000010000110"),--address=112
        ROMWORD'("10001000100100111011000011101011"),--address=113
        ROMWORD'("10000111011110110111101110110101"),--address=114
        ROMWORD'("10000110011101011101110000011011"),--address=115
        ROMWORD'("10000101100000101111101001110101"),--address=116
        ROMWORD'("10000100101000101111110000110110"),--address=117
        ROMWORD'("10000011110101100000001111101001"),--address=118
        ROMWORD'("10000011000111000011000100101010"),--address=119
        ROMWORD'("10000010011101011010000010011111"),--address=120
        ROMWORD'("10000001111000100110101111111001"),--address=121
        ROMWORD'("10000001011000101010100111101011"),--address=122
        ROMWORD'("10000000111101100110111000101000"),--address=123
        ROMWORD'("10000000100111011100100101100000"),--address=124
        ROMWORD'("10000000010110001100100101000000"),--address=125
        ROMWORD'("10000000001001110111100001101011"),--address=126
        ROMWORD'("10000000000010011101111001111011") --address=127
    );
    
begin

    cos_w1 <= ROM(CONV_INTEGER(addr));

end behavior;