From 30d5f242043b3d8d4fbcbed50311fe9a84553307 Mon Sep 17 00:00:00 2001
From: "klaus.schauer" <klaus.schauer@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 5 May 2021 16:02:14 +0000
Subject: [PATCH] 00_TCM: processing of baseID changed

git-svn-id: https://svn.fhem.de/fhem/trunk@24387 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_TCM.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/00_TCM.pm b/fhem/FHEM/00_TCM.pm
index a7ebeb280..04ca6d538 100755
--- a/fhem/FHEM/00_TCM.pm
+++ b/fhem/FHEM/00_TCM.pm
@@ -140,13 +140,14 @@ sub TCM_InitSerialCom($) {
     my @getBaseID = ("get", "baseID");
     if (TCM_Get($hash, @getBaseID) =~ /[Ff]{2}[\dA-Fa-f]{6}/) {
       $baseID = sprintf "%08X", hex $&;
+      $baseID = $baseID eq 'F' x 8 ? '0' x 8 : $baseID;
       $attr{$name}{".baseIDSaved"} = $baseID;
       $hash->{BaseID} = $baseID;
-      $hash->{LastID} = sprintf "%08X", (hex $&) + 127;
+      $hash->{LastID} = sprintf "%08X", (hex $baseID) + 127;
     } else {
       $baseID = AttrVal($name, ".baseIDSaved", '0' x 8);
       $hash->{BaseID} = $baseID;
-      $hash->{LastID} = $baseID eq '0' x 8 ? '0' x 8 : sprintf("%08X", (hex $baseID) + 127);
+      $hash->{LastID} = sprintf("%08X", (hex $baseID) + 127);
     }
   }
   if (defined $baseID) {