Subversion Repositories oms8051mini

module Bus(input In1, output Out1);

  import "DPI" function void increment(input int indata, output int outdata);

  export "DPI" function stepit;

parameter string InFileName ="Infile.hex";

parameter EOF = 32'hFFFFFFFF;

  // This SystemVerilog function could be called from C

  function void stepit(input int indata, output int outdata);

     outdata = indata+1;

  endfunction

int iData,oData;

integer TvTxPtr,TvTxPtr1=0;

reg [11:0] FileI1,FileQ1;

reg [23:0] FileIn;

string    InString;

initial begin

  iData = 10;

  increment(iData,oData);

  TvTxPtr  =$fopen(InFileName,"r");

  if(TvTxPtr == 0) begin

        $fclose(TvTxPtr);

   end else begin

     //while(TvTxPtr1 != EOF) begin

        //TvTxPtr1 = $fscanf(TvTxPtr,"%h %h\n",FileI1,FileQ1);

        //$display("%h %h",FileI1,FileQ1);

        TvTxPtr1 = $fgets(InString, 100,TvTxPtr);

        $display("%s",InString);

      //end

      $fclose(TvTxPtr);

   end

  $display("At SV: Input: %d Output : %d", iData,oData);

end

endmodule