Subversion Repositories oms8051mini

`timescale 1ns/1ns

module top;

int iCnt = 5; // number of contents in each row

string iString = "";

string iFormateString = "%3h %3h %3h %3h %3h";

string iTempString="";

integer TvTxPtr,TvTxPtr1=0,i,TvRxPtr;

int iRowCnt = 0;

reg [55:0]  inData;

int     iStringSize[5];

int iPos = 0;

initial

begin

    $display("Starting Testing");

    TvTxPtr  =$fopen("input.hex","r");

    TvRxPtr  =$fopen("output.hex","w");

    if(TvTxPtr == 0 ) begin

        $display ("ERROR at (%m): Unable to open the input vector file");

        $finish;

    end

    while (TvTxPtr1 != -1) begin

       iString = "";

       for(i = 0; i < iCnt; i=i+1) begin

           TvTxPtr1 = $fscanf(TvTxPtr,"%s ",iTempString);

           if(TvTxPtr1 == -1) break;

           iString  = {iString,iTempString};

           iStringSize[i] = iTempString.len();

       end

        if(TvTxPtr1 == -1) break;

       $sscanf(iString,"%h",inData);

       iPos = 0;

       $display("Row:%d String: %s; String Length : %d Hex Data: %h",++iRowCnt, iString,iStringSize[i],inData);

       for(i = 0; i < iCnt; i=i+1) begin

           $write("%d %s ",iStringSize[i],iString.substr(iPos,iPos+iStringSize[i]-1));

           if(i == iCnt -1) // If you at last column, bypass the space character

              $fwrite(TvRxPtr,"%s",iString.substr(iPos,iPos+iStringSize[i]-1));

           else // If you are not at lasy colum, keep a space between next word

              $fwrite(TvRxPtr,"%s ",iString.substr(iPos,iPos+iStringSize[i]-1));

           iPos = iPos +iStringSize[i];

       end

       $fwrite(TvRxPtr,"\n");

   end

  $fclose(TvTxPtr);

  $fclose(TvRxPtr);

  #200;

  $finish;

end

endmodule