/[VRac]/M6502/t/05-M6502.t
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/t/05-M6502.t

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

revision 202 by dpavlin, Sun Apr 13 20:03:57 2008 UTC revision 203 by dpavlin, Sun Apr 13 22:04:44 2008 UTC
# Line 62  foreach my $byte ( 0x00, 0x01, 0xff, 0xa Line 62  foreach my $byte ( 0x00, 0x01, 0xff, 0xa
62          my $a = 0x1000 + $byte * 100;          my $a = 0x1000 + $byte * 100;
63          cmp_ok( M6502::_write($a,$byte), '==', $byte, 'M6502::_write' );          cmp_ok( M6502::_write($a,$byte), '==', $byte, 'M6502::_write' );
64          cmp_ok( $mem[$a], '==', $byte, '$mem' );          cmp_ok( $mem[$a], '==', $byte, '$mem' );
65    #       is( M6502::mem_peek( $a ), $byte, 'M6502::mem_peek' );
66          cmp_ok( M6502::_read($a), '==', $byte, 'M6502::_read' );          cmp_ok( M6502::_read($a), '==', $byte, 'M6502::_read' );
67  }  }
68    
# Line 108  foreach my $test ( @flip_tests ) { Line 109  foreach my $test ( @flip_tests ) {
109          M6502::set_write_callback( $_ ) foreach ( 0x6000 .. 0x6010 );          M6502::set_write_callback( $_ ) foreach ( 0x6000 .. 0x6010 );
110          dump_callbacks('after set_write_callback');          dump_callbacks('after set_write_callback');
111    
112          # flip bytes 6502 asm          diag 'flip bytes 6502 asm';
113          my $a = 0x1000;          my $a = 0x1000;
114    
115          $mem[$a++] = $_ foreach (          $mem[$a++] = $_ foreach (
# Line 121  foreach my $test ( @flip_tests ) { Line 122  foreach my $test ( @flip_tests ) {
122                  0xd9, 0x60, 0x00,                  0xd9, 0x60, 0x00,
123          );          );
124    
125          $mem[$_] = $test->{fill} foreach ( 0x6000 .. 0x7ffff );          diag 'clean video ram';
126            $mem[$_] = $test->{fill} foreach ( 0x6000 .. 0x7fff );
127    
128          diag dump_R();          diag dump_R();
129          $PC = 0x1000;          $PC = 0x1000;
# Line 135  foreach my $test ( @flip_tests ) { Line 137  foreach my $test ( @flip_tests ) {
137    
138          foreach my $a ( 0x6000 .. 0x600c ) {          foreach my $a ( 0x6000 .. 0x600c ) {
139                  cmp_ok( $mem[$a], '==', $test->{expect}, sprintf('flipped 1st %04x %08b -> %08b',$a, $test->{fill}, $mem[$a]) );                  cmp_ok( $mem[$a], '==', $test->{expect}, sprintf('flipped 1st %04x %08b -> %08b',$a, $test->{fill}, $mem[$a]) );
 #               cmp_ok( M6502::get_callback( $a ), '==', $test->{callbacks}, 'callback' );  
140          }          }
141    
142          dump_callbacks;          dump_callbacks;
# Line 146  foreach my $test ( @flip_tests ) { Line 147  foreach my $test ( @flip_tests ) {
147    
148          foreach my $a ( 0x6000 .. 0x600c ) {          foreach my $a ( 0x6000 .. 0x600c ) {
149                  is( $mem[$a], $test->{fill}, sprintf('flipped 2nd %04x %08b -> %08b',$a, $test->{fill}, $mem[$a]) );                  is( $mem[$a], $test->{fill}, sprintf('flipped 2nd %04x %08b -> %08b',$a, $test->{fill}, $mem[$a]) );
 #               is( M6502::get_callback( $a ), $test->{callbacks}, 'callback' );  
150          }          }
151    
152          dump_callbacks;          dump_callbacks;
Legend:
Removed from v.202  
changed lines
  Added in v.203
  ViewVC Help
Powered by ViewVC 1.1.26