/[VRac]/M6502/Orao.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/Orao.pm

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

revision 78 by dpavlin, Wed Aug 1 13:52:39 2007 UTC revision 89 by dpavlin, Thu Aug 2 12:01:09 2007 UTC
# Line 39  my @kbd_ports = ( Line 39  my @kbd_ports = (
39      0x83FE,0x83FF,      0x83FE,0x83FF,
40  );  );
41    
42  =head2 init  =head2 boot
43    
44  Start emulator, open L<Screen>, load initial ROM images, and render memory  Start emulator, open L<Screen>, load initial ROM images, and render memory
45    
46      my $orao = Orao->new({});
47      $orao->boot;
48    
49  =cut  =cut
50    
51  our $orao;  our $orao;
52    
53  select(STDERR); $| = 1;  select(STDERR); $| = 1;
54    
55  sub init {  sub boot {
56          my $self = shift;          my $self = shift;
57          warn "Orao calling upstream init\n";          warn "Orao calling upstream init\n";
58          $self->SUPER::init( $self, @_ );          $self->SUPER::init( $self, @_ );
# Line 109  sub init { Line 112  sub init {
112    
113          #( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 );          #( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 );
114    
115          warn "Orao init finished",          warn "Orao boot finished",
116                  $self->trace ? ' trace' : '',                  $self->trace ? ' trace' : '',
117                  $self->debug ? ' debug' : '',                  $self->debug ? ' debug' : '',
118                  "\n";                  "\n";
119    
120            M6502::reset();
121    
122  }  }
123    
124  =head2 load_rom  =head2 load_rom
# Line 279  sub read { Line 284  sub read {
284          my $self = shift;          my $self = shift;
285          my ($addr) = @_;          my ($addr) = @_;
286          my $byte = $mem[$addr];          my $byte = $mem[$addr];
287            confess sprintf("can't find memory at address %04x",$addr);
288          warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;          warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;
289    
290          # keyboard          # keyboard
Legend:
Removed from v.78  
changed lines
  Added in v.89
  ViewVC Help
Powered by ViewVC 1.1.26