/[VRac]/M6502/Arch.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /M6502/Arch.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 55 by dpavlin, Tue Jul 31 13:56:50 2007 UTC revision 56 by dpavlin, Tue Jul 31 15:03:23 2007 UTC
# Line 25  Arch - tie arhitecutre components togeth Line 25  Arch - tie arhitecutre components togeth
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;
Legend:
Removed from v.55  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.26