Subversion Repositories socgen

initial

  begin

   device_write           <=  1'b0;

   device_tx_data         <=  8'h00;

   device_tx_parity       <=  1'b0;

   device_ack             <=  1'b1;

   device_stop            <=  1'b1;

   exp_device_rx_data     <=  8'h00;

   mask_device_rx_data    <=  8'h00;

   exp_device_rx_parity   <=  1'b0;

   mask_device_rx_parity  <=  1'b0;

  end

task next;

  input [31:0] num;

  repeat (num)       @ (posedge clk);

endtask

task send_byte;

  input [7:0] byte_out;

begin

  while(tap_state != IDLE) next(1);

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

  device_tx_data  <= byte_out;

  next(1);

  device_write   <= 1'b1;

  next(1);

  device_write   <= 1'b0;

end

endtask // send_byte

task rcv_byte;

  input [7:0] byte_in;

  input        parity;

   begin

   exp_device_rx_data  <=  byte_in;

   exp_device_rx_parity   <=  parity;

   while(!device_rx_read)  next(1);

   $display("%t           checking    %h         %b",$realtime,byte_in,parity);

   mask_device_rx_data <=  8'hff;

   mask_device_rx_parity  <=  1'b1;

   next(1);

   mask_device_rx_data <=  8'h00;

   mask_device_rx_parity  <=  1'b0;

end

endtask

always@(posedge clk)

  if( device_rx_read)

  $display ("%t %m device  rec    %h parity  %b",$realtime,device_rx_data,device_rx_parity);

always@(posedge clk)

  if(device_write)

  $display ("%t %m device send    %h parity  %b  stop %b ",$realtime,device_tx_data,device_tx_parity,device_stop);