print <<'END' or die $!
include morse-defs.inc
+ include morse-auto.inc
+
radix dec
org morse_messages_start
END
if $which eq 'asm';
+$bytes= 0;
+
while (<>) {
chomp;
s/\#.*//;
push @data, ('0') x (3 - (scalar(@data) + 3) % 4);
- print ("morse_$morse_name db @data\n") or die $!
+ print("morse_$morse_name db @data\n") or die $!
if $which eq 'asm';
- print (" extern morse_$morse_name\n") or die $!
+ printf("morse_$morse_name equ morse_messages_start+0x%x\n",
+ $bytes) or die $!
if $which eq 'inc';
+
+ $bytes += scalar @data;
}
print <<'END' or die $!