pe_pkg.vhd

arm9_fpga2_verilog是一个可以综合的用verilog写的arm9的ip软核

  procedure Init_Clock_Pads
    (
      signal Pads : out Clock_Pads_Type 
    )
  is
  begin
    Pads.M_Clk <= 'Z';
    Pads.P_Clk <= 'Z';
    Pads.K_Clk <= 'Z';
    Pads.U_Clk <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_LAD_Bus_Pads
    (
      signal Pads : out LAD_Bus_Pads_Type
    )
  is
  begin
    Pads.Addr_Data  <= ( others => 'Z' );
    Pads.DS_n       <= 'Z';
    Pads.Reg_n      <= 'Z';
    Pads.WR_n       <= 'Z';
    Pads.CS_n       <= 'Z';
    Pads.Int_Req_n  <= 'Z';
    Pads.DMA_Chan   <= ( others => 'Z' );
    Pads.DMA_Stat   <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_LED_Pads
    (
      signal Pads : out LED_Pads_Type
    )
  is
  begin
    Pads.Red_n    <= 'Z';
    Pads.Green_n  <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Mem_Pads
    (
      signal Pads : out Mem_Pads_Type
    )
  is
  begin
    Pads.Addr       <= ( others => 'Z' );
    Pads.Data       <= ( others => 'Z' );
    Pads.Addr_CS_n  <= 'Z';
    Pads.CS_n       <= 'Z';
    Pads.WE_n       <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Mezz_Conn_Pads
    (
      signal Pads : out Mezz_Conn_Pads_Type
    )
  is
  begin
    Pads.Left   <= ( others => 'Z' );
    Pads.Right  <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_PE0_Bus_Pads
    (
      signal Pads : out PE0_Bus_Pads_Type
    )
  is
  begin
    Pads <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Reset_Pads
    (
      signal Pads : out Reset_Pads_Type
    )
  is
  begin
    Pads <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Systolic_Pads
    (
      signal Pads : out Systolic_Pads_Type
    )
  is
  begin
    Pads <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_PEX_Pads
    (
      signal Pads : out PEX_Pads_Type
    )
  is
  begin
    Init_Clock_Pads ( Pads.Clocks );
    Init_Reset_Pads ( Pads.Reset );
    Init_LAD_Bus_Pads ( Pads.LAD_Bus );
    Init_Mem_Pads ( Pads.Left_Mem );
    Init_Mem_Pads ( Pads.Right_Mem );
    Init_Systolic_Pads ( Pads.Bot_Sys );
    Init_Systolic_Pads ( Pads.Top_Sys );
    Init_Mezz_Conn_Pads ( Pads.Mezz );
    Init_LED_Pads ( Pads.LEDs );
    Init_PE0_Bus_Pads ( Pads.PE0_Bus );
  end procedure;

  ----------------------------------------------------------------------

  --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  --
  --  Basic I/O Initialization Procedures
  --
  --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

  ----------------------------------------------------------------------

  procedure Init_Clock_Basic_IO
    (
      signal User : out Clock_Basic_IO_Type
    )
  is
  begin
    User.M_Clk <= 'Z';
    User.P_Clk <= 'Z';
    User.K_Clk <= 'Z';
    User.U_Clk <= 'Z';
  end procedure;

  procedure Init_Clock_Basic_IO
    (
      signal User : out Clock_Basic_IO_In_Type
    )
  is
  begin
    User.M_Clk <= 'Z';
    User.P_Clk <= 'Z';
    User.K_Clk <= 'Z';
    User.U_Clk <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_LAD_Bus_Basic_IO
    (
      signal User : out LAD_Bus_Basic_IO_Type
    )
  is
  begin
    User.Addr_Data_In   <= ( others => 'Z' );
    User.Addr_Data_Out  <= ( others => 'Z' );
    User.Addr_Data_OE_n <= ( others => 'Z' );
    User.DS_n           <= 'Z';
    User.Reg_n          <= 'Z';
    User.WR_n           <= 'Z';
    User.CS_n           <= 'Z';
    User.Int_Req_n      <= 'Z';
    User.DMA_Chan       <= ( others => 'Z' );
    User.DMA_Stat       <= ( others => 'Z' );
  end procedure;

  procedure Init_LAD_Bus_Basic_IO
    (
      signal User : out LAD_Bus_Basic_IO_In_Type
    )
  is
  begin
    User.Addr_Data_In   <= ( others => 'Z' );
    User.DS_n           <= 'Z';
    User.Reg_n          <= 'Z';
    User.WR_n           <= 'Z';
    User.CS_n           <= 'Z';
    User.DMA_Chan       <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_LED_Basic_IO
    (
      signal User : out LED_Basic_IO_Type
    )
  is
  begin
    User.Red_n    <= 'Z';
    User.Green_n  <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Mem_Basic_IO
    (
      signal User : out Mem_Basic_IO_Type
    )
  is
  begin
    User.Addr       <= ( others => 'Z' );
    User.Data_In    <= ( others => 'Z' );
    User.Data_Out   <= ( others => 'Z' );
    User.Data_OE_n  <= ( others => 'Z' );
    User.Addr_CS_n  <= 'Z';
    User.CS_n       <= 'Z';
    User.WE_n       <= 'Z';
  end procedure;

  procedure Init_Mem_Basic_IO
    (
      signal User : out Mem_Basic_IO_In_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_PE0_Bus_Basic_IO
    (
      signal User : out PE0_Bus_Basic_IO_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
    User.Data_Out   <= ( others => 'Z' );
    User.Data_OE_n  <= ( others => 'Z' );
  end procedure;

  procedure Init_PE0_Bus_Basic_IO
    (
      signal User : out PE0_Bus_Basic_IO_In_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Systolic_Basic_IO
    (
      signal User : out Systolic_Basic_IO_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
    User.Data_Out   <= ( others => 'Z' );
    User.Data_OE_n  <= ( others => 'Z' );
  end procedure;

  procedure Init_Systolic_Basic_IO
    (
      signal User : out Systolic_Basic_IO_In_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  --
  --  Standard Interface Initialization Procedures
  --
  --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

  ----------------------------------------------------------------------

  procedure Init_Clock_Std_IF
    (
      signal User : out Clock_Std_IF_Type
    )
  is
  begin
    User.M_Clk          <= 'Z';
    User.P_Clk          <= 'Z';
    User.K_Clk          <= 'Z';
    User.U_Clk          <= 'Z';
    User.M_Clk_Locked   <= 'Z';
    User.P_Clk_Locked   <= 'Z';
    User.K_Clk_Locked   <= 'Z';
    User.U_Clk_Locked   <= 'Z';
  end procedure;

  procedure Init_Clock_Std_IF
    (
      signal User : out Clock_Std_IF_In_Type
    )
  is
  begin
    User.M_Clk          <= 'Z';
    User.P_Clk          <= 'Z';
    User.K_Clk          <= 'Z';
    User.U_Clk          <= 'Z';
    User.M_Clk_Locked   <= 'Z';
    User.P_Clk_Locked   <= 'Z';
    User.K_Clk_Locked   <= 'Z';
    User.U_Clk_Locked   <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_LAD_Bus_Std_IF
    (
      signal User : out LAD_Bus_Std_IF_Type
    )
  is
  begin
    User.Addr         <= ( others => 'Z' );
    User.Data_In      <= ( others => 'Z' );
    User.Data_Out     <= ( others => 'Z' );
    User.Reg_Strobe_n <= 'Z';
    User.Mem_Strobe_n <= 'Z';
    User.Write_Sel_n  <= 'Z';
    User.Int_Req_n    <= 'Z';
    User.DMA_Chan     <= ( others => 'Z' );
    User.DMA_Stat     <= ( others => 'Z' );
  end procedure;

  procedure Init_LAD_Bus_Std_IF
    (
      signal User : out LAD_Bus_Std_IF_In_Type
    )
  is
  begin
    User.Addr         <= ( others => 'Z' );
    User.Data_In      <= ( others => 'Z' );
    User.Reg_Strobe_n <= 'Z';
    User.Mem_Strobe_n <= 'Z';
    User.Write_Sel_n  <= 'Z';
    User.DMA_Chan     <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_LED_Std_IF
    (
      signal User : out LED_Std_IF_Type
    )
  is
  begin
    User.Red_n    <= 'Z';
    User.Green_n  <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Mem_Std_IF
    (
      signal User : out Mem_Std_IF_Type
    )
  is
  begin
    User.Addr         <= ( others => 'Z' );
    User.Data_In      <= ( others => 'Z' );
    User.Data_Out     <= ( others => 'Z' );
    User.Data_Valid_n <= 'Z';
    User.Strobe_n     <= 'Z';
    User.Write_Sel_n  <= 'Z';
  end procedure;

  procedure Init_Mem_Std_IF
    (
      signal User : out Mem_Std_IF_In_Type
    )
  is
  begin
    User.Data_In      <= ( others => 'Z' );
    User.Data_Valid_n <= 'Z';
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_PE0_Bus_Std_IF
    (
      signal User : out PE0_Bus_Std_IF_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
    User.Data_Out   <= ( others => 'Z' );
    User.Data_OE_n  <= ( others => 'Z' );
  end procedure;

  procedure Init_PE0_Bus_Std_IF
    (
      signal User : out PE0_Bus_Std_IF_In_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_Systolic_Std_IF
    (
      signal User : out Systolic_Std_IF_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
    User.Data_Out   <= ( others => 'Z' );
    User.Data_OE_n  <= ( others => 'Z' );
  end procedure;

  procedure Init_Systolic_Std_IF
    (
      signal User : out Systolic_Std_IF_In_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

  procedure Init_IO_Conn_Std_IF
    (
      signal User : out IO_Conn_Std_IF_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
    User.Data_Out   <= ( others => 'Z' );
    User.Data_OE_n  <= ( others => 'Z' );
  end procedure;

  procedure Init_IO_Conn_Std_IF
    (
      signal User : out IO_Conn_Std_IF_In_Type
    )
  is
  begin
    User.Data_In    <= ( others => 'Z' );
  end procedure;

  ----------------------------------------------------------------------

end package body;