119 |
|
|
120 |
# $self->load_tape( 'tapes/Orao/bdash.tap' ); |
# $self->load_tape( 'tapes/Orao/bdash.tap' ); |
121 |
# $self->load_tape( 'tapes/Orao/crtanje.tap' ); |
# $self->load_tape( 'tapes/Orao/crtanje.tap' ); |
122 |
$self->load_tape( 'tapes/Orao/jjack.tap' ); |
# $self->load_tape( 'tapes/Orao/jjack.tap', 0x168 ); |
123 |
|
$self->load_tape( 'tapes/Orao/muzika.tap', 0x168 ); |
124 |
|
|
125 |
$self->render_vram; |
$self->render_vram; |
126 |
|
|
129 |
warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for) if $self->trace; |
warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for) if $self->trace; |
130 |
M6502::exec( $run_for ); |
M6502::exec( $run_for ); |
131 |
$self->render_vram; |
$self->render_vram; |
132 |
|
$self->render_mem( M6502::mem_peek_region(0x0000,0xffff) ) if $self->show_mem; |
133 |
}); |
}); |
134 |
}; |
}; |
135 |
|
|
379 |
return $self->read_tape; |
return $self->read_tape; |
380 |
} |
} |
381 |
|
|
382 |
$self->mmap_pixel( $addr, 0, $byte, 0 ) if $self->show_mem; |
# $self->mmap_pixel( $addr, 0, $byte, 0 ) if $self->show_mem; |
383 |
return $byte; |
return $byte; |
384 |
} |
} |
385 |
|
|
427 |
|
|
428 |
# my $pixels = pack("C*", map { $flip[$_] } @mem[ 0x6000 .. 0x7fff ]); |
# my $pixels = pack("C*", map { $flip[$_] } @mem[ 0x6000 .. 0x7fff ]); |
429 |
# my $pixels = pack("C*", map { $flip[$_] } $self->ram( 0x6000, 0x7fff )); |
# my $pixels = pack("C*", map { $flip[$_] } $self->ram( 0x6000, 0x7fff )); |
430 |
my $pixels = M6502::mem_peek_region( 0x6000, 0x7fff ); |
# my $pixels = M6502::mem_peek_region( 0x6000, 0x7fff ); |
431 |
|
my $pixels = pack('C*', map { $flip[$_] } unpack('C*', M6502::mem_peek_region( 0x6000, 0x7fff ) ) ); |
432 |
|
|
433 |
my $vram = SDL::Surface->new( |
my $vram = SDL::Surface->new( |
434 |
-width => 256, |
-width => 256, |