--- M6502/Orao.pm	2007/08/02 16:58:07	100
+++ M6502/Orao.pm	2007/08/02 17:15:07	101
@@ -317,7 +317,7 @@
 	},
 	0x87FD => {
 		'return' => sub {
-			M6502::write( 0xfc, 13 );
+			M6502::_write( 0xfc, 13 );
 			return 0;
 		},
 		'left ctrl'  => 16,
@@ -418,6 +418,7 @@
 	},
 };
 
+my $keyboard_none = 255;
 
 sub read {
 	my $self = shift;
@@ -441,12 +442,14 @@
 					warn sprintf("keyboard port: %04x key: '%s' code: %02x\n", $addr, $key, $ret);
 				}
 				$mem[$addr] = $ret;
+				warn "keypress: $key = $ret\n";
 				return $ret;
 			} else {
 				warn sprintf("keyboard port: %04x unknown key: '%s'\n", $addr, $key) if $debug;
 			}
 			warn sprintf("keyboard port: %04x %s\n",$addr,dump( $r )) if $self->trace;
 		}
+		return $keyboard_none;
 	}
 
 	$self->mmap_pixel( $addr, 0, $byte, 0 );