--- M6502/Arch.pm	2007/07/31 13:56:50	55
+++ M6502/Arch.pm	2007/07/31 15:03:23	56
@@ -25,18 +25,21 @@
 
 =cut
 
-use base qw(Class::Accessor Orao M6502 Screen);
+use base qw(Class::Accessor Orao Prefs);
 warn "loaded ",__PACKAGE__,$/;
 
-my $prefs = {
+my $prefs = { arch => 'Orao' };
+if(0){
+$prefs = {
 	arch => 'Orao',
 	scale => 1,
 	show_mem => 1,
 	trace => 1,
 	debug => 1,
 };
+}#if(0)
 
-my $arch_name = $prefs->{arch};
+my $arch_name = $prefs->{arch} || die "need arch";
 our $arch = $arch_name->new( $prefs );
 warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n";
 $arch->prefs;