Parent Directory | Revision Log | Patch
revision 88 by dpavlin, Thu Aug 2 11:08:10 2007 UTC | revision 89 by dpavlin, Thu Aug 2 12:01:09 2007 UTC | |
---|---|---|
# | Line 284 sub read { | Line 284 sub read { |
284 | my $self = shift; | my $self = shift; |
285 | my ($addr) = @_; | my ($addr) = @_; |
286 | my $byte = $mem[$addr]; | my $byte = $mem[$addr]; |
287 | confess sprintf("can't find memory at address %04x",$addr); | |
288 | warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace; | warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace; |
289 | ||
290 | # keyboard | # keyboard |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |