1#! /usr/bin/perl -w
2use strict;
3open(my $out, '>:raw', 'ivt.bin') or die "Unable to open: $!";
4print $out pack("V", 0x412000D1); # Signature
5print $out pack("V", 0x80800000); # Load Address (*load_address)
6print $out pack("V", 0x0); # Reserved
7print $out pack("V", 0x0); # DCD pointer
8print $out pack("V", 0x0); # Boot Data
9print $out pack("V", 0x80EEA000); # Self Pointer (*ivt)
10print $out pack("V", 0x80EEA020); # CSF Pointer (*csf)
11print $out pack("V", 0x0); # Reserved
12close($out);
13