Subversion Repositories lpffir

task serial_monitor::do_mon;
  fork
    forever @(posedge vif.clk)
    begin
      serial_tx tx;
      tx = serial_tx::type_id::create("tx");
      while (vif.data_in == 0)
        @(posedge vif.clk);
      tx.dir = serial_tx::IN;
      for (int i = 7; i >= 0 ; i--)
      begin
        tx.data[i] = vif.data_in;
        @(posedge vif.clk);
      end
      analysis_port.write(tx);
    end
    
    forever @(posedge vif.clk)
    begin
      serial_tx tx;
      tx = serial_tx::type_id::create("tx");
      while (vif.data_out == 0)
        @(posedge vif.clk);
      tx.dir = serial_tx::OUT;
      for (int i = 7; i >= 0 ; i--)
      begin
        tx.data[i] = vif.data_out;
        @(posedge vif.clk);
      end
      analysis_port.write(tx);
    end
  join
endtask