sinrom256_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;

-- sin(2*pi*n*1/1024);

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

architecture behavior of SINROM256_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 255) of ROMWORD;

    constant ROM:ROM_TABLE := ROM_TABLE'(
        ROMWORD'("00000000000000000000000000000000"),--address=0
        ROMWORD'("00000000110010010000111110001000"),--address=1
        ROMWORD'("00000001100100100001110100100000"),--address=2
        ROMWORD'("00000010010110110010011011011000"),--address=3
        ROMWORD'("00000011001001000010101011000000"),--address=4
        ROMWORD'("00000011111011010010011011101000"),--address=5
        ROMWORD'("00000100101101100001100101011111"),--address=6
        ROMWORD'("00000101011111110000000000110111"),--address=7
        ROMWORD'("00000110010001111101100101111111"),--address=8
        ROMWORD'("00000111000100001010001101000111"),--address=9
        ROMWORD'("00000111110110010101101110100010"),--address=10
        ROMWORD'("00001000101000100000000010011110"),--address=11
        ROMWORD'("00001001011010101001000001001101"),--address=12
        ROMWORD'("00001010001100110000100011000001"),--address=13
        ROMWORD'("00001010111110110110100000001010"),--address=14
        ROMWORD'("00001011110000111010110000111010"),--address=15
        ROMWORD'("00001100100010111101001101100011"),--address=16
        ROMWORD'("00001101010100111101101110011000"),--address=17
        ROMWORD'("00001110000110111100001011101010"),--address=18
        ROMWORD'("00001110111000111000011101101100"),--address=19
        ROMWORD'("00001111101010110010011100110010"),--address=20
        ROMWORD'("00010000011100101010000001001111"),--address=21
        ROMWORD'("00010001001110011111000011010110"),--address=22
        ROMWORD'("00010010000000010001011011011101"),--address=23
        ROMWORD'("00010010110010000001000001110111"),--address=24
        ROMWORD'("00010011100011101101101110111001"),--address=25
        ROMWORD'("00010100010101010111011010111010"),--address=26
        ROMWORD'("00010101000110111101111110001111"),--address=27
        ROMWORD'("00010101111000100001010001001110"),--address=28
        ROMWORD'("00010110101010000001001100001111"),--address=29
        ROMWORD'("00010111011011011101100111101000"),--address=30
        ROMWORD'("00011000001100110110011011110011"),--address=31
        ROMWORD'("00011000111110001011100001000111"),--address=32
        ROMWORD'("00011001101111011100101111111110"),--address=33
        ROMWORD'("00011010100000101010000000110001"),--address=34
        ROMWORD'("00011011010001110011001011111011"),--address=35
        ROMWORD'("00011100000010111000001001110111"),--address=36
        ROMWORD'("00011100110011111000110011000000"),--address=37
        ROMWORD'("00011101100100110100111111110010"),--address=38
        ROMWORD'("00011110010101101100101000101011"),--address=39
        ROMWORD'("00011111000110011111100110001001"),--address=40
        ROMWORD'("00011111110111001101110000101001"),--address=41
        ROMWORD'("00100000100111110111000000101011"),--address=42
        ROMWORD'("00100001011000011011001110101110"),--address=43
        ROMWORD'("00100010001000111010010011010100"),--address=44
        ROMWORD'("00100010111001010100000110111110"),--address=45
        ROMWORD'("00100011101001101000100010001110"),--address=46
        ROMWORD'("00100100011001110111011101100111"),--address=47
        ROMWORD'("00100101001010000000110001101110"),--address=48
        ROMWORD'("00100101111010000100010111000110"),--address=49
        ROMWORD'("00100110101010000010000110010110"),--address=50
        ROMWORD'("00100111011001111001111000000101"),--address=51
        ROMWORD'("00101000001001101011100100111001"),--address=52
        ROMWORD'("00101000111001010111000101011100"),--address=53
        ROMWORD'("00101001101000111100010010010111"),--address=54
        ROMWORD'("00101010011000011011000100010100"),--address=55
        ROMWORD'("00101011000111110011010011111110"),--address=56
        ROMWORD'("00101011110111000100111010000010"),--address=57
        ROMWORD'("00101100100110001111101111001110"),--address=58
        ROMWORD'("00101101010101010011101100001111"),--address=59
        ROMWORD'("00101110000100010000101001110110"),--address=60
        ROMWORD'("00101110110011000110100000110010"),--address=61
        ROMWORD'("00101111100001110101001001110110"),--address=62
        ROMWORD'("00110000010000011100011101110101"),--address=63
        ROMWORD'("00110000111110111100010101100010"),--address=64
        ROMWORD'("00110001101101010100101001110011"),--address=65
        ROMWORD'("00110010011011100101010011011101"),--address=66
        ROMWORD'("00110011001001101110001011011000"),--address=67
        ROMWORD'("00110011110111101111001010011101"),--address=68
        ROMWORD'("00110100100101101000001001100110"),--address=69
        ROMWORD'("00110101010011011001000001101101"),--address=70
        ROMWORD'("00110110000001000001101011110000"),--address=71
        ROMWORD'("00110110101110100010000000101011"),--address=72
        ROMWORD'("00110111011011111001111001011101"),--address=73
        ROMWORD'("00111000001001001001001111000111"),--address=74
        ROMWORD'("00111000110110001111111010101011"),--address=75
        ROMWORD'("00111001100011001101110101001010"),--address=76
        ROMWORD'("00111010010000000010110111101010"),--address=77
        ROMWORD'("00111010111100101110111011001111"),--address=78
        ROMWORD'("00111011101001010001111001000010"),--address=79
        ROMWORD'("00111100010101101011101010001001"),--address=80
        ROMWORD'("00111101000001111100000111101111"),--address=81
        ROMWORD'("00111101101110000011001010111111"),--address=82
        ROMWORD'("00111110011010000000101101000110"),--address=83
        ROMWORD'("00111111000101110100100111010010"),--address=84
        ROMWORD'("00111111110001011110110010110010"),--address=85
        ROMWORD'("01000000011100111111001000110111"),--address=86
        ROMWORD'("01000001001000010101100010110101"),--address=87
        ROMWORD'("01000001110011100001111001111111"),--address=88
        ROMWORD'("01000010011110100100000111101011"),--address=89
        ROMWORD'("01000011001001011100000101010001"),--address=90
        ROMWORD'("01000011110100001001101100001000"),--address=91
        ROMWORD'("01000100011110101100110101101100"),--address=92
        ROMWORD'("01000101001001000101011011011000"),--address=93
        ROMWORD'("01000101110011010011010110101011"),--address=94
        ROMWORD'("01000110011101010110100001000100"),--address=95
        ROMWORD'("01000111000111001110110100000011"),--address=96
        ROMWORD'("01000111110000111100001001001011"),--address=97
        ROMWORD'("01001000011010011110011010000001"),--address=98
        ROMWORD'("01001001000011110101100000001011"),--address=99
        ROMWORD'("01001001101101000001010101010000"),--address=100
        ROMWORD'("01001010010110000001110010111011"),--address=101
        ROMWORD'("01001010111110110110110010110101"),--address=102
        ROMWORD'("01001011100111100000001110101101"),--address=103
        ROMWORD'("01001100001111111110000000010001"),--address=104
        ROMWORD'("01001100111000010000000001010010"),--address=105
        ROMWORD'("01001101100000010110001011100010"),--address=106
        ROMWORD'("01001110001000010000011000110101"),--address=107
        ROMWORD'("01001110101111111110100011000011"),--address=108
        ROMWORD'("01001111010111100000100100000001"),--address=109
        ROMWORD'("01001111111110110110010101101011"),--address=110
        ROMWORD'("01010000100101111111110001111101"),--address=111
        ROMWORD'("01010001001100111100110010110011"),--address=112
        ROMWORD'("01010001110011101101010010001101"),--address=113