|
@@ -87,12 +87,15 @@ foreach my $rom ( @roms ) {
|
87
|
87
|
# Fix checksum for this ROM segment
|
88
|
88
|
$rom->fix_checksum();
|
89
|
89
|
|
|
90
|
+ # Add this ROM to base ROM
|
|
91
|
+ my $data = substr ( $baserom->get(), 0, $baserom->length() );
|
|
92
|
+ $data .= $rom->get();
|
|
93
|
+ $data .= $baserom->next_image()->get() if $baserom->next_image();
|
|
94
|
+ $baserom->set ( $data );
|
|
95
|
+
|
90
|
96
|
$offset += $rom->length;
|
91
|
97
|
}
|
92
|
98
|
|
93
|
99
|
$baserom->pnp_header->fix_checksum() if $baserom->pnp_header;
|
94
|
100
|
$baserom->fix_checksum();
|
95
|
101
|
$baserom->save ( "-" );
|
96
|
|
-foreach my $rom ( @roms ) {
|
97
|
|
- $rom->save ( "-" );
|
98
|
|
-}
|