--- M6502/M6502.pm	2007/07/30 17:56:13	30
+++ M6502/M6502.pm	2007/07/30 18:07:29	31
@@ -80,6 +80,18 @@
 	$mem[$addr++] = $_ foreach @_;
 }
 
+=head2 write_chunk
+
+  $emu->write_chunk( $address, $chunk_of_data );
+
+=cut
+
+sub write_chunk {
+	my ($self, $addr, $chunk) = @_;
+	my $len = length($chunk);
+	splice @mem, $addr, $len, unpack('C*', $chunk);
+}
+
 =head2 ram
 
 Read searies of bytes from memory without passing through MMU