Subversion Repositories lattice6502

#!/usr/bin/perl

#       This and asm2bin converts asm file foo.asm into rom files.

#       1st type foo.bin used with ghld roms

#       2nd type foo.mem used with Lattice roms

#       This perl script call crasm to do the assembly.

#       crsasm generates the program listing foo.lst

$name = "$ARGV[0]";

#       The program was compilled at start address

$progadd = hex("FC00");

#       The code is packed into ROM start address

$romadd = hex("0");

$romsize = 1024;

#       was 128

$add_delta = $romadd - $progadd;

print "Processing $name.asm \n";

#       run crasm to generate *.o and *.lst

`crasm -o $name.o -x $name.asm > $name.lst`;

open(OBJfile, "< $name.o");

open(BINfile, "> $name.bin");

$n = 0;

@file = <OBJfile>;

foreach $line (@file)   {

        if (substr($line, 0, 2) = "S1") {

                $bytes = hex(substr($line, 2, 2));

                        $HEXadd = substr($line, 4, 4);

                        $address = hex("$HEXadd");

                        $runningadd = $address + $add_delta;

                        $len = length($line);

                        $substring = substr($line, 8, ($len-11));

                print "$line";

                print "n = $n, Address = $address, runAddress = $runningadd, del =  $add_delta \n";

                        while ($n < $runningadd) {

                                        print (BINfile "X\"EA\", \n");

                                        $n++;

                                        print("n is $n \n");

                                        }

                $a = 0;

#               while ($a < ($len - 11)) {

                while ($a < ($len - 11) and ($address > 64513)) {

                        $byte = substr($substring, $a, 2);

                        if ($n eq ($romsize - 1)) {

                                print (BINfile "X\"$byte\" )  ; \n");

                        }

                        else    {

                                print (BINfile "X\"$byte\", \n");

                                }

                        $a = $a + 2;

                        $n++ ;

                        }

                }

        }

close(OBJfile);

close(BINfile);

#       end