Subversion Repositories lattice6502

#!/usr/bin/perl

#       This 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;

$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(MEMfile, "> $name.mem");

print(MEMfile "#Format=Hex \n");

print(MEMfile "#Depth=1024 \n");

print(MEMfile "#Width=8 \n");

print(MEMfile "#AddrRadix=3 \n");

print(MEMfile "#DataRadix=3 \n");

print(MEMfile "#Data \n");

$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 (MEMfile "EA \n");

                                        $n++;

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

                                        }

                $a = 0;

#               while ($a < ($len - 11) and ($address > hex("FC00"))) {

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

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

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

                        print (MEMfile "$byte \n");

                        $a = $a + 2;

                        $n++ ;

                        }

                }

        }

print " n is $n \n";

while ($n < $romsize) {

        print (MEMfile "EA \n");

        $n++;

        }

close(OBJfile);

close(MEMfile);

#       end