12 lines
486 B
Perl
12 lines
486 B
Perl
#! /usr/bin/perl -w
|
|
use strict;
|
|
open(my $out, '>:raw', 'ivt.bin') or die "Unable to open: $!";
|
|
print $out pack("V", 0x412000D1); # Signature
|
|
print $out pack("V", 0x80800000); # Load Address (*load_address)
|
|
print $out pack("V", 0x0); # Reserved
|
|
print $out pack("V", 0x0); # DCD pointer
|
|
print $out pack("V", 0x0); # Boot Data
|
|
print $out pack("V", 0x80EEA000); # Self Pointer (*ivt)
|
|
print $out pack("V", 0x80EEA020); # CSF Pointer (*csf)
|
|
print $out pack("V", 0x0); # Reserved
|
|
close($out);
|