Subversion Repositories cpu8080

{*******************************************************************************

*                                                                              *

*                            GENERATE VERILOG ROM IMAGE                        *

*                                                                              *

* Generates a rom image from a binary file.  This program is written in        *

* ISO 7185 Compliant Pascal.                                                   *

*                                                                              *

* Usage: run the program as follows:                                           *

*                                                                              *

* genrom test.obj > test.lst                                                   *

*                                                                              *

* Then paste the test.lst file into the rom cell data in testbench.v.          *

*                                                                              *

*******************************************************************************}

program genrom(binfil, output);

type byte = 0..255;

var binfil: file of byte;

    b:      byte;

        addr:   integer;

begin

   reset(binfil); { open file }

   addr := 0; { clear address }

   while not eof(binfil) do begin { dump bytes in file }

      { write preamble }

      write('      ', addr:6, ': datao = 8''h');

      read(binfil, b); { read next byte }

          { output high digit }

          if b div 16 > 9 then write(chr(b div 16-10+ord('A')))

          else write(chr(b div 16+ord('0')));

          { output low digit }

          if b mod 16 > 9 then write(chr(b mod 16-10+ord('A')))

          else write(chr(b mod 16+ord('0')));

          { write postamble }

          writeln(';');

          addr := addr+1

   end

end.