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

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

revision 131 by dpavlin, Sat Aug 4 20:50:33 2007 UTC revision 137 by dpavlin, Sat Aug 4 22:40:14 2007 UTC
# Line 43  sub run { Line 43  sub run {
43          warn "Galaksija $Galaksija::VERSION emulation starting\n";          warn "Galaksija $Galaksija::VERSION emulation starting\n";
44    
45          $self->show_mem( 1 );          $self->show_mem( 1 );
46          $self->trace( 1 );          #$self->trace( 1 );
47    
48          $self->SUPER::init(          $self->SUPER::init(
49                  read => sub { $self->read( @_ ) },                  read => sub { $self->read( @_ ) },
# Line 76  sub run { Line 76  sub run {
76          $self->trace( 0 );          $self->trace( 0 );
77          $self->debug( 0 );          $self->debug( 0 );
78    
79          warn "rendering video memory\n";          warn "rendering memory\n";
80          #$self->render_vram( @mem[ 0x2800 .. 0x2a00 ] );          $self->render_mem( @mem );
81    
82          #$self->sync;          #$self->sync;
83          $self->trace( $trace );          $self->trace( $trace );
# Line 92  sub run { Line 92  sub run {
92    
93          $self->loop( sub {          $self->loop( sub {
94                  Z80::exec( $_[0] );                  Z80::exec( $_[0] );
95                  #$self->render_vram;                  $self->render_vram;
96          });          });
97    
98  }  }
# Line 100  sub run { Line 100  sub run {
100    
101  =head1 Memory management  =head1 Memory management
102    
 Galaksija implements all I/O using mmap addresses. This was main reason why  
 L<Acme::6502> was just too slow to handle it.  
   
103  =cut  =cut
104    
105  =head2 read  =head2 read
# Line 124  sub read { Line 121  sub read {
121          confess sprintf("can't find memory at address %04x",$addr) unless defined($byte);          confess sprintf("can't find memory at address %04x",$addr) unless defined($byte);
122          warn sprintf("# Galaksija::read(%04x) = %02x\n", $addr, $byte) if $self->trace;          warn sprintf("# Galaksija::read(%04x) = %02x\n", $addr, $byte) if $self->trace;
123    
124            $self->mmap_pixel( $addr, 0, $byte, 0 ) if $self->show_mem;
125          return $byte;          return $byte;
126  }  }
127    
# Line 140  sub write { Line 138  sub write {
138          my ($addr,$byte) = @_;          my ($addr,$byte) = @_;
139          warn sprintf("# Galaksija::write(%04x,%02x)\n", $addr, $byte) if $self->trace;          warn sprintf("# Galaksija::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
140    
141            $self->mmap_pixel( $addr, $byte, 0, 0 ) if $self->show_mem;
142          $mem[$addr] = $byte;          $mem[$addr] = $byte;
143          return;          return;
144  }  }
145    
146    =head1 Architecture specific
147    
148    =head2 render_vram
149    
150    Simple hex dumper of text buffer
151    
152    =cut
153    
154    sub render_vram {
155            my $self = shift;
156    
157            my $addr = 0x2800;
158    
159            print " "; # FIXME auch!
160            for my $y ( 0 .. 15 ) {
161                    printf "%2d: %s\n",$y, join('', map { sprintf("%02x ",$_) } @mem[ $addr .. $addr+31 ] );
162                    $addr += 32;
163            }
164    }
165    
166  =head2 cpu_PC  =head2 cpu_PC
167    
168  Helper metod to set or get PC for current architecture  Helper metod to set or get PC for current architecture
# Line 159  sub cpu_PC { Line 178  sub cpu_PC {
178          return $PC;          return $PC;
179  }  }
180    
181    =head1 SEE ALSO
182    
183    L<VRac>, L<Screen>, L<Z80>
184    
185  =head1 AUTHOR  =head1 AUTHOR
186    
187  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
188    
189    Based on Galaxy Win emulator L<http://emulator.galaksija.org/>
190    
191  =head1 BUGS  =head1 BUGS
192    
193  =head1 ACKNOWLEDGEMENTS  =head1 ACKNOWLEDGEMENTS
Legend:
Removed from v.131  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.26