SRAM只能写一次！ 重复读写求助！

学习学习                                                     

sram部分程序如下，希望各位能给些建议和帮助，谢谢！
module simple_exram(

     input clk,

     input wr,
     input rd,
     input[7:0] adc_data_in,
     input[17:0]wr_end_addr,
     
     
     output MEM_WE_N,
     output reg MEM_OE_N,
     output[17:0] MEM_A,
     inout[7:0] MEM_DATA,
     
     input[17:0] addr_to_read,
     output reg[7:0] data_read

     );
      
      

      /*************** extern_ram *****************/


     reg[17:0] wr_addr18 = 18'd0;
     reg[17:0] rd_addr18 = 18'd0;

//读数据
     reg[7:0] Data_out_r = 8'h00;

      always @(posedge clk)
      begin
         if(rd==1'b1)
             begin
                 MEM_OE_N <= 1'b0;
                 rd_addr18 <= addr_to_read;
                 Data_out_r <= MEM_DATA;
                 data_read <= Data_out_r;
             end
         else
             begin
                 MEM_OE_N <= 1'b1;
                 rd_addr18 <= 18'd0;
                 Data_out_r <= 8'h00;
             end
      end



         //写数据   
     reg flag = 1'b0;
     reg we_r = 1'b0;
     reg[7:0] bufdata = 8'd0;
     reg[17:0] wr_addr18_reg = 18'd0;


     
      always @(posedge clk)
      begin
        if(wr == 1'b1)
             begin
                 if(wr_addr18 <= wr_end_addr)
                     begin
                         if(!flag)
                             begin
                                 we_r <= 1'b1;
                                 wr_addr18 <= wr_addr18_reg;
                                 wr_addr18_reg <= wr_addr18_reg + 18'd1;
                                 bufdata <= adc_data_in;
                                 flag <= 1'b1;
                             end
                         else
                             begin
                                 we_r <= 1'b0;
                                 wr_addr18 <= wr_addr18;
                                 bufdata <= bufdata;
                                 flag <= 1'b0;
                             end
                     end
                 else
                     begin
                         we_r <= 1'b0;
                         flag <= 1'b0;
                         wr_addr18 <= wr_addr18;
                         bufdata <= bufdata;
                     end
             end
         else
             begin
                 we_r <= 1'b0;
                 wr_addr18_reg <=18'd0;
                 wr_addr18 <= 18'd0;
                 bufdata <= 8'd0;
                 flag <= 1'b0;
             end
      end
     



      assign MEM_A = wr?wr_addr18:rd_addr18;
      assign MEM_WE_N = (~we_r)?1'b1:1'b0;
      assign MEM_DATA = we_r? bufdata:8'hzz;


endmodule

写SRAM的使能信号要控制好。