git.ucc.asn.au
/
uccvend-snackrom.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cf9e540
)
Removed old commented, repetition
author
Nick Bannon
<
[email protected]
>
Fri, 16 Nov 2001 17:40:31 +0000
(17:40 +0000)
committer
Nick Bannon
<
[email protected]
>
Fri, 16 Nov 2001 17:40:31 +0000
(17:40 +0000)
ROM/makeasm.pl
patch
|
blob
|
history
diff --git
a/ROM/makeasm.pl
b/ROM/makeasm.pl
index
c278881
..
fb26c05
100755
(executable)
--- a/
ROM/makeasm.pl
+++ b/
ROM/makeasm.pl
@@
-12,25
+12,8
@@
LINE: while (<>) {
print ";$_";
@_=split(' ',$2);
print "\tFCB\t\$".join(', $',@_)."\n";
print ";$_";
@_=split(' ',$2);
print "\tFCB\t\$".join(', $',@_)."\n";
-
-# print "\tFCB\t\$$3, \$$5, \$$7, \$$9\n";
next LINE;
}
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 ";$_";
}
if (/^\cZ$/) { next LINE; }
print ";$_";
}
UCC
git Repository :: git.ucc.asn.au