From e394f0a215f9737bc1532cb039f2807612e976a8 Mon Sep 17 00:00:00 2001
From: Digitelektro <32802255+Digitelektro@users.noreply.github.com>
Date: Mon, 23 Nov 2020 12:41:24 +0100
Subject: [PATCH] QPSK phase correction is fixed

---
 correlator.pas | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/correlator.pas b/correlator.pas
index 9f75b2d..5d2c4bf 100644
--- a/correlator.pas
+++ b/correlator.pas
@@ -75,20 +75,18 @@ procedure fix_packet(data:pointer;len:integer;shift:integer);
  case shift of
   4:for j:=0 to len div 2-1 do begin
    b:=d[j*2+0];
-   d[j*2+0]:=d[j*2+1];
-   d[j*2+1]:=b;
+   d[j*2+0]:= -d[j*2+1];
+   d[j*2+1]:= -b;
   end;
   5:for j:=0 to len div 2-1 do begin
    d[j*2+0]:=-d[j*2+0];
-   d[j*2+1]:= d[j*2+1];
   end;
   6:for j:=0 to len div 2-1 do begin
    b:=d[j*2+0];
-   d[j*2+0]:=-d[j*2+1];
-   d[j*2+1]:=-b;
+   d[j*2+0]:= d[j*2+1];
+   d[j*2+1]:= b;
   end;
   7:for j:=0 to len div 2-1 do begin
-   d[j*2+0]:= d[j*2+0];
    d[j*2+1]:=-d[j*2+1];
   end;
  end;