300 |
} |
} |
301 |
|
|
302 |
if ( $addr > 0xafff ) { |
if ( $addr > 0xafff ) { |
303 |
confess sprintf "write access 0x%04x > 0xafff aborting\n", $addr; |
warn sprintf "write access 0x%04x > 0xafff aborting\n", $addr; |
304 |
|
return; |
305 |
} |
} |
306 |
|
|
307 |
$self->mmap_pixel( $addr, $byte, 0, 0 ); |
$self->mmap_pixel( $addr, $byte, 0, 0 ); |
414 |
} elsif ( $c =~ m/^t/ ) { |
} elsif ( $c =~ m/^t/ ) { |
415 |
$self->trace( not $self->trace ); |
$self->trace( not $self->trace ); |
416 |
print "trace ", $self->trace ? 'on' : 'off', "\n"; |
print "trace ", $self->trace ? 'on' : 'off', "\n"; |
417 |
|
$last = ''; |
418 |
} elsif ( $c =~ m/^d/ ) { |
} elsif ( $c =~ m/^d/ ) { |
419 |
$self->debug( not $self->debug ); |
$self->debug( not $self->debug ); |
420 |
print "debug ", $self->debug ? 'on' : 'off', "\n"; |
print "debug ", $self->debug ? 'on' : 'off', "\n"; |
421 |
|
$last = ''; |
422 |
} else { |
} else { |
423 |
warn "# ignored $line\n" if ($line); |
warn "# ignored $line\n" if ($line); |
424 |
$last = ''; |
$last = ''; |