40 |
warn "call upstream init\n"; |
warn "call upstream init\n"; |
41 |
$self->SUPER::init( @_ ); |
$self->SUPER::init( @_ ); |
42 |
|
|
43 |
warn "staring Orao $ORAO::VERSION emulation\n"; |
warn "staring Orao $Orao::VERSION emulation\n"; |
44 |
|
|
45 |
$self->open_screen; |
$self->open_screen; |
46 |
$self->load_rom; |
$self->load_rom; |
80 |
my $self = shift; |
my $self = shift; |
81 |
my ( $path, $addr ) = @_; |
my ( $path, $addr ) = @_; |
82 |
|
|
83 |
my $size = -s $path || die "no size for $path: $!"; |
my $size = -s $path || confess "no size for $path: $!"; |
84 |
|
|
85 |
my $buff = read_file( $path ); |
my $buff = read_file( $path ); |
86 |
|
|