--- Orao.pm 2007/08/04 22:14:09 135 +++ Orao.pm 2007/08/04 22:47:32 138 @@ -54,6 +54,7 @@ warn "emulating ", $#mem, " bytes of memory\n"; # $self->scale( 2 ); + $self->show_mem( 1 ); $self->open_screen; $self->load_rom({ @@ -79,15 +80,11 @@ $self->trace( 0 ); $self->debug( 0 ); - warn "rendering video memory\n"; - $self->render_vram; + warn "rendering memory\n"; + $self->render_mem( @mem ); if ( $self->show_mem ) { - warn "rendering memory map\n"; - - $self->render_mem( @mem ); - my @mmap = ( 0x0000, 0x03FF, 'nulti blok', 0x0400, 0x5FFF, 'korisnički RAM (23K)', @@ -99,8 +96,15 @@ 0xE000, 0xFFFF, 'sistemski ROM', ); + print "Orao memory map:"; + + while ( @mmap ) { + my ( $from, $to, $desc ) = splice(@mmap, 0, 3); + printf("%04x-%04x %s\n", $from, $to, $desc); + } + } - $self->sync; + $self->trace( $trace ); $self->debug( $debug ); @@ -397,6 +401,8 @@ return; } +=head1 Architecture specific + =head2 render_vram Render one frame of video ram @@ -441,6 +447,8 @@ =head2 cpu_PC +Helper metod to set or get PC for current architecture + =cut sub cpu_PC {