#!/usr/bin/perl -w
-# generate vectors.S, the trap/interrupt entry points.
-# there has to be one entry point per interrupt number
+# Generate vectors.S, the trap/interrupt entry points.
+# There has to be one entry point per interrupt number
# since otherwise there's no way to tell the interrupt
# number.
print "/* generated by vectors.pl */\n";
+print "/* handlers */\n";
print ".text\n";
print ".globl alltraps\n";
for(my $i = 0; $i < 256; $i++){
print "\tpushl \$$i\n";
print "\tjmp alltraps\n";
}
+
+print "\n/* vector table */\n";
print ".data\n";
print ".globl vectors\n";
print "vectors:\n";
for(my $i = 0; $i < 256; $i++){
- print ".long vector$i\n";
+ print "\t.long vector$i\n";
}