diff options
| author | Erich Eckner <git@eckner.net> | 2015-10-19 19:43:32 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-10-19 19:43:32 +0200 |
| commit | 12c5fcc4c5c21cb1b8354d078570d7e67499efd5 (patch) | |
| tree | 4a7e600ea5a8fe82427d5e8c7965d3c5ad63f3d2 | |
| parent | 19a3c272ece8d4187119b850d13f4de88f427d62 (diff) | |
| download | units-12c5fcc4c5c21cb1b8354d078570d7e67499efd5.tar.xz | |
richtige Bits maskieren und auslesen
| -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; |