From 21d17782d6661147590ebb2a97b1b132cf870243 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq@hades33.gsi.de>
Date: Mon, 16 Sep 2024 18:09:31 +0200
Subject: [PATCH] fix address lookup

---
 scripts/MDC.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/MDC.pm b/scripts/MDC.pm
index 1f1fd57..afa7250 100644
--- 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;
     }
     
-- 
2.43.0