--- M6502/Orao.pm	2007/07/30 18:07:29	31
+++ M6502/Orao.pm	2007/07/30 18:37:37	32
@@ -7,6 +7,7 @@
 use lib './lib';
 #use Time::HiRes qw(time);
 use File::Slurp;
+use Data::Dump qw/dump/;
 
 use base qw(Class::Accessor M6502 Screen);
 __PACKAGE__->mk_accessors(qw(debug trace run_for mem_dump trace));
@@ -35,6 +36,8 @@
 
 =cut
 
+our $orao;
+
 sub init {
 	my $self = shift;
 	warn "call upstream init\n";
@@ -44,6 +47,10 @@
 
 	$self->open_screen;
 	$self->load_rom;
+
+	$orao = $self;
+
+	$self->prompt( 0x1000 );
 }
 
 my $loaded_files = {
@@ -66,7 +73,7 @@
 
 	foreach my $addr ( sort keys %$loaded_files ) {
 		my $path = $loaded_files->{$addr};
-		printf "loading '%s' at %04x\n", $path, $addr;
+		warn sprintf "loading '%s' at %04x\n", $path, $addr;
 		$self->load_oraoemu( $path, $addr );
 	}
 }
@@ -86,12 +93,12 @@
 
 	if ( $size == 65538 ) {
 		$addr = 0;
-		printf "loading oraoemu 64k dump %s at %04x - %04x %02x\n", $path, $addr, $addr+$size, $size;
+		warn sprintf "loading oraoemu 64k dump %s at %04x - %04x %02x\n", $path, $addr, $addr+$size, $size;
 		$self->write_chunk( $addr, substr($buff,2) );
 		return;
 	} elsif ( $size == 32800 ) {
 		$addr = 0;
-		printf "loading oraoemu 1.3 dump %s at %04x - %04x %02x\n", $path, $addr, $addr+$size, $size;
+		warn sprintf "loading oraoemu 1.3 dump %s at %04x - %04x %02x\n", $path, $addr, $addr+$size, $size;
 		#$self->write_chunk( $addr, substr($buff,0x20) );
 		$self->poke_code( $addr, map { ord($_) } split(//,substr($buff,0x20)) );
 		return;
@@ -136,7 +143,7 @@
 	close($fh);
 
 	my $size = -s $path;
-	printf "saved %s %d %x bytes\n", $path, $size, $size;
+	warn sprintf "saved %s %d %x bytes\n", $path, $size, $size;
 }
 
 =head2 hexdump
@@ -167,7 +174,7 @@
 	my $self = shift;
 	my $a = shift;
 	my $last = shift;
-	print $self->hexdump( $a ),
+	print STDERR $self->hexdump( $a ),
 		$last ? "[$last] " : '',
 		"> ";
 	my $in = <STDIN>;
@@ -177,6 +184,62 @@
 	return split(/\s+/, $in) if $in;
 }
 
+=head1 Memory management
+
+Orao implements all I/O using mmap addresses. This was main reason why
+L<Acme::6502> was just too slow to handle it.
+
+=cut
+
+my @mem = (0xff) x 0x100000; # 64Mb
+
+=head2 read
+
+Read from memory
+
+  $byte = read( $address );
+
+=cut
+
+sub read {
+	my $self = $orao;
+	my ($addr) = @_;
+	my $byte = $mem[$addr];
+	warn "# Orao::read(",dump(@_),") = ",dump( $byte ),"\n" if $self->debug;
+	mmap_pixel( $addr, 0, $byte, 0 );
+	return $byte;
+}
+
+=head2 write
+
+Write into emory
+
+  write( $address, $byte );
+
+=cut
+
+sub write {
+	my $self = $orao;
+	warn "# Orao::write(",dump(@_),")\n" if $self->debug;
+	my ($addr,$byte) = @_;
+
+	if ( $addr >= 0x6000 && $addr < 0x8000 ) {
+		$self->vram( $addr - 0x6000 , $byte );
+	}
+
+	if ( $addr > 0xafff ) {
+		warn sprintf "access to %04x above affff aborting\n", $addr;
+		return -1;
+	}
+	if ( $addr == 0x8800 ) {
+		warn sprintf "sound ignored: %x\n", $byte;
+	}
+
+	mmap_pixel( $addr, $byte, 0, 0 );
+
+	$mem[$addr] = $byte;
+}
+
 
 =head1 AUTHOR