DELTA 43 0 1052
SVN ºJ½P+ƒj* † ¦ ‹(‡€ƒ> ‚6’& M”\ –) ~—? ¡™=ƒhPC = 0xDD11;	# BC
#	$PC = 0xC274;	# MC_write_chunk {
	my $self = shift;
	my ( $addr, $chunk ) = @_;
	$self->write_chunk( $addr, $chunk );
	my $end = $addr + length($chunk);
	my ( $f, $t ) = ( 0x6000, 0x7fff );

	if ( $end < $f || $addr >= $t ) {
		warn "skip vram update\n";
		return;
	};

	$f = $addr if ( $addr > $f );
	$t = $end if ( $end < $t );

	warn sprintf("refresh video ram %04x-%04x\n", $f, $t);
	foreach my $a ( $f .. $t ) {
		$self->vram( $a - 0x6000 , $mem[ $a ] );
	}
}____ENDREP
id: q.0.r46/568
type: file
pred: q.0.r43/1077
count: 13
text: 46 0 545 7888 678d3cb7b394e7826102c19524c442a9
cpath: /M6502/Orao.pm
copyroot: 0 /

PLAIN
K 7
Codes.h
V 18
file e.0.r23/16303
K 10
ConDebug.c
V 18
file f.0.r23/16433
K 7
Debug.c
V 18
file g.0.r23/16568
K 7
M6502.c
V 18
file h.0.r23/16701
K 7
M6502.h
V 18
file i.0.r23/16037
K 8
M6502.pm
V 17
file k.0.r42/2280
K 8
MANIFEST
V 17
file o.0.r33/5518
K 11
Makefile.PL
V 16
file p.0.r44/117
K 7
Orao.pm
V 16
file q.0.r46/568
K 9
Screen.pm
V 16
file r.0.r45/722
K 8
Tables.h
V 18
file j.0.r23/16170
K 8
config.h
V 17
file m.0.r42/2727
K 6
perl.c
V 17
file n.0.r42/2132
K 9
perlxsi.c
V 17
file s.0.r29/6646
K 1
t
V 16
dir t.0.r33/5230
END
ENDREP
id: d.0.r46/1268
type: dir
pred: d.0.r45/1423
count: 23
text: 46 714 541 541 5ccdea23209256e9d35b0797b189e7a6
cpath: /M6502
copyroot: 0 /

PLAIN
K 5
M6502
V 16
dir d.0.r46/1268
K 11
Makefile.PL
V 17
file 2.0.r21/4556
K 3
lib
V 15
dir 9.0.r22/804
K 7
orao.pl
V 16
file 1.0.r22/940
K 1
t
V 16
dir 4.0.r21/3495
END
ENDREP
id: 0.0.r46/1587
type: dir
pred: 0.0.r45/1741
count: 46
text: 46 1407 167 167 74eb359f0963867490f8a0eb642b6496
cpath: /
copyroot: 0 /

q.0.t45-1 modify true false /M6502/Orao.pm


1587 1722