diff options
| -rw-r--r-- | irdecoderunit.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/irdecoderunit.pas b/irdecoderunit.pas index f344606..dcbc5fe 100644 --- a/irdecoderunit.pas +++ b/irdecoderunit.pas @@ -51,11 +51,11 @@ procedure tIRDecoder.verarbeite(lw: longword); var empf: boolean; begin - empf:=odd(lw); - lw:=lw shr 1; + empf:=odd(lw shr 1); + lw:=((lw shr 1) and not 1) or byte(odd(lw)); if (lw<>letztesZeichen[letzterEmpf]) or not einzelKlickZeichen(lw) then - tastenDruckAnhaengen(lw); + tastenDruckAnhaengen(mirrorBits(lw and not $08)); letztesZeichen[empf]:=lw; letzterEmpf:=empf; |