idt72t40108.vhd

VHDL的ram和fifo model code 包含众多的厂家

    CONSTANT partID            : String := "IDT72T40108";
    CONSTANT TotalLoc          :  POSITIVE := 65536;
    CONSTANT MaxData           :  POSITIVE := 1023;
    CONSTANT HiDbit            :  NATURAL  := 39;

    SIGNAL D0_ipd              : std_ulogic := 'U';
    SIGNAL D1_ipd              : std_ulogic := 'U';
    SIGNAL D2_ipd              : std_ulogic := 'U';
    SIGNAL D3_ipd              : std_ulogic := 'U';
    SIGNAL D4_ipd              : std_ulogic := 'U';
    SIGNAL D5_ipd              : std_ulogic := 'U';
    SIGNAL D6_ipd              : std_ulogic := 'U';
    SIGNAL D7_ipd              : std_ulogic := 'U';
    SIGNAL D8_ipd              : std_ulogic := 'U';
    SIGNAL D9_ipd              : std_ulogic := 'U';
    SIGNAL D10_ipd             : std_ulogic := 'U';
    SIGNAL D11_ipd             : std_ulogic := 'U';
    SIGNAL D12_ipd             : std_ulogic := 'U';
    SIGNAL D13_ipd             : std_ulogic := 'U';
    SIGNAL D14_ipd             : std_ulogic := 'U';
    SIGNAL D15_ipd             : std_ulogic := 'U';
    SIGNAL D16_ipd             : std_ulogic := 'U';
    SIGNAL D17_ipd             : std_ulogic := 'U';
    SIGNAL D18_ipd             : std_ulogic := 'U';
    SIGNAL D19_ipd             : std_ulogic := 'U';
    SIGNAL D20_ipd             : std_ulogic := 'U';
    SIGNAL D21_ipd             : std_ulogic := 'U';
    SIGNAL D22_ipd             : std_ulogic := 'U';
    SIGNAL D23_ipd             : std_ulogic := 'U';
    SIGNAL D24_ipd             : std_ulogic := 'U';
    SIGNAL D25_ipd             : std_ulogic := 'U';
    SIGNAL D26_ipd             : std_ulogic := 'U';
    SIGNAL D27_ipd             : std_ulogic := 'U';
    SIGNAL D28_ipd             : std_ulogic := 'U';
    SIGNAL D29_ipd             : std_ulogic := 'U';
    SIGNAL D30_ipd             : std_ulogic := 'U';
    SIGNAL D31_ipd             : std_ulogic := 'U';
    SIGNAL D32_ipd             : std_ulogic := 'U';
    SIGNAL D33_ipd             : std_ulogic := 'U';
    SIGNAL D34_ipd             : std_ulogic := 'U';
    SIGNAL D35_ipd             : std_ulogic := 'U';
    SIGNAL D36_ipd             : std_ulogic := 'U';
    SIGNAL D37_ipd             : std_ulogic := 'U';
    SIGNAL D38_ipd             : std_ulogic := 'U';
    SIGNAL D39_ipd             : std_ulogic := 'U';
    SIGNAL BM_ipd              : std_ulogic := 'U';
    SIGNAL FSEL0_ipd           : std_ulogic := 'U';
    SIGNAL FSEL1_ipd           : std_ulogic := 'U';
    SIGNAL FWFT_ipd            : std_ulogic := 'U';
    SIGNAL HSTL_ipd            : std_ulogic := 'U';
    SIGNAL IW_ipd              : std_ulogic := 'U';
    SIGNAL MARK_ipd            : std_ulogic := 'U';
    SIGNAL MRSNeg_ipd          : std_ulogic := 'U';
    SIGNAL OENeg_ipd           : std_ulogic := 'U';
    SIGNAL OW_ipd              : std_ulogic := 'U';
    SIGNAL PRSNeg_ipd          : std_ulogic := 'U';
    SIGNAL RCLK_ipd            : std_ulogic := 'U';
    SIGNAL RCSNeg_ipd          : std_ulogic := 'U';
    SIGNAL RENNeg_ipd          : std_ulogic := 'U';
    SIGNAL RSDRNeg_ipd         : std_ulogic := 'U';
    SIGNAL RTNeg_ipd           : std_ulogic := 'U';
    SIGNAL SCLK_ipd            : std_ulogic := 'U';
    SIGNAL SENNeg_ipd          : std_ulogic := 'U';
    SIGNAL SRENNeg_ipd         : std_ulogic := 'U';
    SIGNAL SI_ipd              : std_ulogic := 'U';
    SIGNAL WCLK_ipd            : std_ulogic := 'U';
    SIGNAL WCSNeg_ipd          : std_ulogic := 'U';
    SIGNAL WENNeg_ipd          : std_ulogic := 'U';
    SIGNAL WSDRNeg_ipd         : std_ulogic := 'U';
    -- SKEW stuff
    ALIAS  tSKEW1          : VitalDelayType IS tdevice_SKEW1;
    ALIAS  tSKEW2          : VitalDelayType IS tdevice_SKEW2;
    ALIAS  tSKEW3          : VitalDelayType IS tdevice_SKEW3;
    SIGNAL OpenIn, OpenOut : std_logic;

    SHARED VARIABLE FROMOE      : BOOLEAN := false;
    SHARED VARIABLE FROMRCLK    : BOOLEAN := false;

BEGIN

--------------------------------------------------------------------------------
-- Dummy instances for exporting tSKEW vals from SDF file
-- using DEVICE construct
--------------------------------------------------------------------------------

  SKEW1: VitalBuf (OpenOut, OpenIn, (tdevice_SKEW1, tdevice_SKEW1));
  SKEW2: VitalBuf (OpenOut, OpenIn, (tdevice_SKEW2, tdevice_SKEW2));
  SKEW3: VitalBuf (OpenOut, OpenIn, (tdevice_SKEW3, tdevice_SKEW3));

    ----------------------------------------------------------------------------
    -- Wire Delays
    ----------------------------------------------------------------------------
    WireDelay : BLOCK
    BEGIN

        w_1 : VitalWireDelay (D0_ipd, D0, tipd_D0);
        w_2 : VitalWireDelay (D1_ipd, D1, tipd_D1);
        w_3 : VitalWireDelay (D2_ipd, D2, tipd_D2);
        w_4 : VitalWireDelay (D3_ipd, D3, tipd_D3);
        w_5 : VitalWireDelay (D4_ipd, D4, tipd_D4);
        w_6 : VitalWireDelay (D5_ipd, D5, tipd_D5);
        w_7 : VitalWireDelay (D6_ipd, D6, tipd_D6);
        w_8 : VitalWireDelay (D7_ipd, D7, tipd_D7);
        w_9 : VitalWireDelay (D8_ipd, D8, tipd_D8);
        w_10 : VitalWireDelay (D9_ipd, D9, tipd_D9);
        w_11 : VitalWireDelay (D10_ipd, D10, tipd_D10);
        w_12 : VitalWireDelay (D11_ipd, D11, tipd_D11);
        w_13 : VitalWireDelay (D12_ipd, D12, tipd_D12);
        w_14 : VitalWireDelay (D13_ipd, D13, tipd_D13);
        w_15 : VitalWireDelay (D14_ipd, D14, tipd_D14);
        w_16 : VitalWireDelay (D15_ipd, D15, tipd_D15);
        w_17 : VitalWireDelay (D16_ipd, D16, tipd_D16);
        w_18 : VitalWireDelay (D17_ipd, D17, tipd_D17);
        w_19 : VitalWireDelay (D18_ipd, D18, tipd_D18);
        w_20 : VitalWireDelay (D19_ipd, D19, tipd_D19);
        w_21 : VitalWireDelay (D20_ipd, D20, tipd_D20);
        w_22 : VitalWireDelay (D21_ipd, D21, tipd_D21);
        w_23 : VitalWireDelay (D22_ipd, D22, tipd_D22);
        w_24 : VitalWireDelay (D23_ipd, D23, tipd_D23);
        w_25 : VitalWireDelay (D24_ipd, D24, tipd_D24);
        w_26 : VitalWireDelay (D25_ipd, D25, tipd_D25);
        w_27 : VitalWireDelay (D26_ipd, D26, tipd_D26);
        w_28 : VitalWireDelay (D27_ipd, D27, tipd_D27);
        w_29 : VitalWireDelay (D28_ipd, D28, tipd_D28);
        w_30 : VitalWireDelay (D29_ipd, D29, tipd_D29);
        w_31 : VitalWireDelay (D30_ipd, D30, tipd_D30);
        w_32 : VitalWireDelay (D31_ipd, D31, tipd_D31);
        w_33 : VitalWireDelay (D32_ipd, D32, tipd_D32);
        w_34 : VitalWireDelay (D33_ipd, D33, tipd_D33);
        w_35 : VitalWireDelay (D34_ipd, D34, tipd_D34);
        w_36 : VitalWireDelay (D35_ipd, D35, tipd_D35);
        w_37 : VitalWireDelay (D36_ipd, D36, tipd_D36);
        w_38 : VitalWireDelay (D37_ipd, D37, tipd_D37);
        w_39 : VitalWireDelay (D38_ipd, D38, tipd_D38);
        w_40 : VitalWireDelay (D39_ipd, D39, tipd_D39);
        w_81 : VitalWireDelay (BM_ipd, BM, tipd_BM);
        w_82 : VitalWireDelay (FSEL0_ipd, FSEL0, tipd_FSEL0);
        w_83 : VitalWireDelay (FSEL1_ipd, FSEL1, tipd_FSEL1);
        w_84 : VitalWireDelay (FWFT_ipd, FWFT, tipd_FWFT);
        w_85 : VitalWireDelay (HSTL_ipd, HSTL, tipd_HSTL);
        w_86 : VitalWireDelay (IW_ipd, IW, tipd_IW);
        w_87 : VitalWireDelay (MARK_ipd, MARK, tipd_MARK);
        w_88 : VitalWireDelay (MRSNeg_ipd, MRSNeg, tipd_MRSNeg);
        w_89 : VitalWireDelay (OENeg_ipd, OENeg, tipd_OENeg);
        w_90 : VitalWireDelay (OW_ipd, OW, tipd_OW);
        w_91 : VitalWireDelay (PRSNeg_ipd, PRSNeg, tipd_PRSNeg);
        w_92 : VitalWireDelay (RCLK_ipd, RCLK, tipd_RCLK);
        w_93 : VitalWireDelay (RCSNeg_ipd, RCSNeg, tipd_RCSNeg);
        w_94 : VitalWireDelay (RENNeg_ipd, RENNeg, tipd_RENNeg);
        w_95 : VitalWireDelay (RSDRNeg_ipd, RSDRNeg, tipd_RSDRNeg);
        w_96 : VitalWireDelay (RTNeg_ipd, RTNeg, tipd_RTNeg);
        w_97 : VitalWireDelay (SCLK_ipd, SCLK, tipd_SCLK);
        w_98 : VitalWireDelay (SENNeg_ipd, SENNeg, tipd_SENNeg);
        w_99 : VitalWireDelay (SRENNeg_ipd, SRENNeg, tipd_SRENNeg);
        w_100 : VitalWireDelay (SI_ipd, SI, tipd_SI);
        w_101 : VitalWireDelay (WCLK_ipd, WCLK, tipd_WCLK);
        w_102 : VitalWireDelay (WCSNeg_ipd, WCSNeg, tipd_WCSNeg);
        w_103 : VitalWireDelay (WENNeg_ipd, WENNeg, tipd_WENNeg);
        w_104 : VitalWireDelay (WSDRNeg_ipd, WSDRNeg, tipd_WSDRNeg);
    END BLOCK;

    ----------------------------------------------------------------------------
    -- Main Behavior Block
    ----------------------------------------------------------------------------
    Behavior: BLOCK

        PORT (
            DIn         : IN    std_logic_vector(39 DOWNTO 0);
            BMIn        : IN    std_ulogic := 'U';
            FSEL0In     : IN    std_ulogic := 'U';
            FSEL1In     : IN    std_ulogic := 'U';
            FWFTIn      : IN    std_ulogic := 'U';
            HSTLIn      : IN    std_ulogic := 'U';
            IWIn        : IN    std_ulogic := 'U';
            MARKIn      : IN    std_ulogic := 'U';
            MRSNegIn    : IN    std_ulogic := 'U';
            OENegIn     : IN    std_ulogic := 'U';
            OWIn        : IN    std_ulogic := 'U';
            PRSNegIn    : IN    std_ulogic := 'U';
            RCLKIn      : IN    std_ulogic := 'U';
            RCSNegIn    : IN    std_ulogic := 'U';
            RENNegIn    : IN    std_ulogic := 'U';
            RSDRNegIn   : IN    std_ulogic := 'U';
            RTNegIn     : IN    std_ulogic := 'U';
            SCLKIn      : IN    std_ulogic := 'U';
            SENNegIn    : IN    std_ulogic := 'U';
            SRENNegIn   : IN    std_ulogic := 'U';
            SIIn        : IN    std_ulogic := 'U';
            WCLKIn      : IN    std_ulogic := 'U';
            WCSNegIn    : IN    std_ulogic := 'U';
            WENNegIn    : IN    std_ulogic := 'U';
            WSDRNegIn   : IN    std_ulogic := 'U';
            QOut        : OUT   std_logic_vector(39 downto 0);
            EFNegOut    : OUT   std_ulogic := 'U';
            ERCLKOut    : OUT   std_ulogic := 'U';
            ERENNegOut  : OUT   std_ulogic := 'U';
            FFNegOut    : OUT   std_ulogic := 'U';
            PAENegOut   : OUT   std_ulogic := 'U';
            PAFNegOut   : OUT   std_ulogic := 'U';
            SOOut       : OUT   std_ulogic := 'U'
         );
        PORT MAP (
            DIn(0) => D0_ipd,
            DIn(1) => D1_ipd,
            DIn(2) => D2_ipd,
            DIn(3) => D3_ipd,
            DIn(4) => D4_ipd,
            DIn(5) => D5_ipd,
            DIn(6) => D6_ipd,
            DIn(7) => D7_ipd,
            DIn(8) => D8_ipd,
            DIn(9) => D9_ipd,
            DIn(10) => D10_ipd,
            DIn(11) => D11_ipd,
            DIn(12) => D12_ipd,
            DIn(13) => D13_ipd,
            DIn(14) => D14_ipd,
            DIn(15) => D15_ipd,
            DIn(16) => D16_ipd,
            DIn(17) => D17_ipd,
            DIn(18) => D18_ipd,
            DIn(19) => D19_ipd,
            DIn(20) => D20_ipd,
            DIn(21) => D21_ipd,
            DIn(22) => D22_ipd,
            DIn(23) => D23_ipd,
            DIn(24) => D24_ipd,
            DIn(25) => D25_ipd,
            DIn(26) => D26_ipd,
            DIn(27) => D27_ipd,
            DIn(28) => D28_ipd,
            DIn(29) => D29_ipd,
            DIn(30) => D30_ipd,
            DIn(31) => D31_ipd,
            DIn(32) => D32_ipd,
            DIn(33) => D33_ipd,
            DIn(34) => D34_ipd,
            DIn(35) => D35_ipd,
            DIn(36) => D36_ipd,
            DIn(37) => D37_ipd,
            DIn(38) => D38_ipd,
            DIn(39) => D39_ipd,
            QOut(0) => Q0,
            QOut(1) => Q1,
            QOut(2) => Q2,
            QOut(3) => Q3,
            QOut(4) => Q4,
            QOut(5) => Q5,
            QOut(6) => Q6,
            QOut(7) => Q7,
            QOut(8) => Q8,
            QOut(9) => Q9,
            QOut(10) => Q10,
            QOut(11) => Q11,
            QOut(12) => Q12,
            QOut(13) => Q13,
            QOut(14) => Q14,
            QOut(15) => Q15,
            QOut(16) => Q16,
            QOut(17) => Q17,
            QOut(18) => Q18,
            QOut(19) => Q19,
            QOut(20) => Q20,
            QOut(21) => Q21,
            QOut(22) => Q22,
            QOut(23) => Q23,
            QOut(24) => Q24,
            QOut(25) => Q25,
            QOut(26) => Q26,
            QOut(27) => Q27,
            QOut(28) => Q28,
            QOut(29) => Q29,
            QOut(30) => Q30,
            QOut(31) => Q31,
            QOut(32) => Q32,
            QOut(33) => Q33,
            QOut(34) => Q34,
            QOut(35) => Q35,
            QOut(36) => Q36,
            QOut(37) => Q37,
            QOut(38) => Q38,
            QOut(39) => Q39,
            BMIn => To_UX01(BM_ipd),
            FSEL0In => To_UX01(FSEL0_ipd),
            FSEL1In => To_UX01(FSEL1_ipd),
            FWFTIn => To_UX01(FWFT_ipd),
            HSTLIn => To_UX01(HSTL_ipd),
            IWIn => To_UX01(IW_ipd),
            MARKIn => To_UX01(MARK_ipd),
            MRSNegIn => To_UX01(MRSNeg_ipd),
            OENegIn => To_UX01(OENeg_ipd),
            OWIn => To_UX01(OW_ipd),
            PRSNegIn => To_UX01(PRSNeg_ipd),
            RCLKIn => RCLK_ipd,
            RCSNegIn => To_UX01(RCSNeg_ipd),
            RENNegIn => To_UX01(RENNeg_ipd),
            RSDRNegIn => To_UX01(RSDRNeg_ipd),
            RTNegIn => To_UX01(RTNeg_ipd),
            SCLKIn => SCLK_ipd,
            SENNegIn => SENNeg_ipd,
            SRENNegIn => SRENNeg_ipd,
            SIIn => SI_ipd,
            WCLKIn => WCLK_ipd,
            WCSNegIn => To_UX01(WCSNeg_ipd),
            WENNegIn => To_UX01(WENNeg_ipd),
            WSDRNegIn => To_UX01(WSDRNeg_ipd),