25 |
|
|
26 |
=cut |
=cut |
27 |
|
|
28 |
use base qw(Class::Accessor Orao M6502 Screen); |
use base qw(Class::Accessor Orao Prefs); |
29 |
warn "loaded ",__PACKAGE__,$/; |
warn "loaded ",__PACKAGE__,$/; |
30 |
|
|
31 |
my $prefs = { |
my $prefs = { arch => 'Orao' }; |
32 |
|
if(0){ |
33 |
|
$prefs = { |
34 |
arch => 'Orao', |
arch => 'Orao', |
35 |
scale => 1, |
scale => 1, |
36 |
show_mem => 1, |
show_mem => 1, |
37 |
trace => 1, |
trace => 1, |
38 |
debug => 1, |
debug => 1, |
39 |
}; |
}; |
40 |
|
}#if(0) |
41 |
|
|
42 |
my $arch_name = $prefs->{arch}; |
my $arch_name = $prefs->{arch} || die "need arch"; |
43 |
our $arch = $arch_name->new( $prefs ); |
our $arch = $arch_name->new( $prefs ); |
44 |
warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n"; |
warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n"; |
45 |
$arch->prefs; |
$arch->prefs; |