Subversion Repositories socgen

task next;

  input [31:0] num;

  repeat (num)       @ (posedge clk);

endtask

task wait_tx;

begin

  while(!txd_buffer_empty) next(1);

end

endtask // wait_tx

task send_byte;

  input [7:0] byte_out;

begin

  while(!txd_buffer_empty) next(1);

  $display("%t %m        %2h",$realtime ,byte_out  );

  txd_data_in  = byte_out;

  next(1);

  txd_load   = 1'b1;

  next(1);

  txd_load   = 1'b0;

  next(1);

end

endtask // send_byte

task rcv_byte;

  input [7:0] byte_in;

   begin

   exp_rx_shift_buffer <= byte_in;

   while(!rx_frame_rdy)  next(1);

   $display("%t %m check   %h   %h ",$realtime,rx_shift_buffer,byte_in);

   mask_rx_frame_err    <= 1'b1;

   mask_rx_parity_err   <= 1'b1;

   mask_rx_shift_buffer <= 8'hff;

   next(1);

   mask_rx_frame_err    <= 1'b0;

   mask_rx_parity_err   <= 1'b0;

   mask_rx_shift_buffer <= 8'h00;

end

endtask