fix address lookup

diff --git a/scripts/MDC.pm b/scripts/MDC.pm
index 1f1fd572dc404d778fa9d810c08b2cf761e5fd40..afa725076d3761a9b05f9aa77f56d5d48c028388 100644 (file)
--- a/scripts/MDC.pm
+++ b/scripts/MDC.pm
@@ -41,7 +41,7 @@ sub get_position {
   my $addr = shift @_;
   my ($p,$s,$b,$e);
   
-  if($addr > 0x8000) {
+  if(($addr&0xf000) == 0x8000) {
     $e = 5;
     $b = $addr & 0xf;
     $s = (($addr>>4)&0xf)%6;
@@ -52,7 +52,7 @@ sub get_position {
     $e = $addr & 0x3;
     $b = ($addr>>4) & 0xf;
     $s = (($addr>>8)&0xf)%6;
-    $p = (($addr>>12)==0x01)?0:2;
+    $p = (($addr>>12)&1)?2:0;
     $p += 1 if (($addr>>8)&0xf)>=6;
     }