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

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

revision 135 by dpavlin, Sat Aug 4 22:14:09 2007 UTC revision 138 by dpavlin, Sat Aug 4 22:47:32 2007 UTC
# Line 54  sub run { Line 54  sub run {
54          warn "emulating ", $#mem, " bytes of memory\n";          warn "emulating ", $#mem, " bytes of memory\n";
55    
56  #       $self->scale( 2 );  #       $self->scale( 2 );
57            $self->show_mem( 1 );
58    
59          $self->open_screen;          $self->open_screen;
60          $self->load_rom({          $self->load_rom({
# Line 79  sub run { Line 80  sub run {
80          $self->trace( 0 );          $self->trace( 0 );
81          $self->debug( 0 );          $self->debug( 0 );
82    
83          warn "rendering video memory\n";          warn "rendering memory\n";
84          $self->render_vram;          $self->render_mem( @mem );
85    
86          if ( $self->show_mem ) {          if ( $self->show_mem ) {
87    
                 warn "rendering memory map\n";  
   
                 $self->render_mem( @mem );  
   
88                  my @mmap = (                  my @mmap = (
89                          0x0000, 0x03FF, 'nulti blok',                          0x0000, 0x03FF, 'nulti blok',
90                          0x0400, 0x5FFF, 'korisnički RAM (23K)',                          0x0400, 0x5FFF, 'korisnički RAM (23K)',
# Line 99  sub run { Line 96  sub run {
96                          0xE000, 0xFFFF, 'sistemski ROM',                          0xE000, 0xFFFF, 'sistemski ROM',
97                  );                  );
98    
99                    print "Orao memory map:";
100    
101                    while ( @mmap ) {
102                            my ( $from, $to, $desc ) = splice(@mmap, 0, 3);
103                            printf("%04x-%04x %s\n", $from, $to, $desc);
104                    }
105    
106          }          }
107          $self->sync;  
108          $self->trace( $trace );          $self->trace( $trace );
109          $self->debug( $debug );          $self->debug( $debug );
110    
# Line 397  sub write { Line 401  sub write {
401          return;          return;
402  }  }
403    
404    =head1 Architecture specific
405    
406  =head2 render_vram  =head2 render_vram
407    
408  Render one frame of video ram  Render one frame of video ram
# Line 441  sub render_vram { Line 447  sub render_vram {
447    
448  =head2 cpu_PC  =head2 cpu_PC
449    
450    Helper metod to set or get PC for current architecture
451    
452  =cut  =cut
453    
454  sub cpu_PC {  sub cpu_PC {
Legend:
Removed from v.135  
changed lines
  Added in v.138
  ViewVC Help
Powered by ViewVC 1.1.26