brender-v1.1.2/DOSIO/MAPTODEF.PL
2022-05-04 18:14:23 -07:00

7 lines
141 B
Perl

while(<>) {
last if(/Publics by Value/);
}
while(<>) {
print "#define SYM$2 0x$1\n" if(process && /[0-9A-F]{4}:([0-9A-F]{4})\s+(\w+)/);
}