X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=ROM%2Fmakeasm.pl;h=fb26c055e3fbc4a001242d030e2aa7f3d6ae8a1f;hb=3b238ed0c93b72edfe1c4a940fe069c6b6382ed8;hp=c278881d66789b38f330a946fbd8a820e59d5e9a;hpb=cf9e540d3a0189e82eaa364df59f5044060e51e2;p=uccvend-snackrom.git

diff --git a/ROM/makeasm.pl b/ROM/makeasm.pl
index c278881..fb26c05 100755
--- a/ROM/makeasm.pl
+++ b/ROM/makeasm.pl
@@ -12,25 +12,8 @@ LINE: while (<>) {
     print ";$_";
     @_=split(' ',$2);
     print "\tFCB\t\$".join(', $',@_)."\n";
-
-#    print "\tFCB\t\$$3, \$$5, \$$7, \$$9\n";
     next LINE;
   }
-#  if (/^([A-F0-9]{4}) (([A-F0-9]{2}) )(([A-F0-9]{2}) )(([A-F0-9]{2}) )/) {
-#    print ";$_";
-#    print "\tFCB\t\$$3, \$$5, \$$7\n";
-#    next LINE;
-#  }
-#  if (/^([A-F0-9]{4}) (([A-F0-9]{2}) )(([A-F0-9]{2}) )/) {
-#    print ";$_";
-#    print "\tFCB\t\$$3, \$$5\n";
-#    next LINE;
-#  }
-#  if (/^([A-F0-9]{4}) ([A-F0-9]{2})/) {
-#    print ";$_";
-#    print "\tFCB\t\$$2\n";
-#    next LINE;
-#  }
   if (/^\cZ$/) { next LINE; }
   print ";$_";
 }