diff --git a/chip/pm4_me.pas b/chip/pm4_me.pas
index 63115967..f6413e66 100644
--- a/chip/pm4_me.pas
+++ b/chip/pm4_me.pas
@@ -3107,8 +3107,8 @@ begin
   WAIT_REG_MEM_FUNC_LESS_EQUAL   :Result:=(val<=ref);
   WAIT_REG_MEM_FUNC_EQUAL        :Result:=(val=ref);
   WAIT_REG_MEM_FUNC_NOT_EQUAL    :Result:=(val<>ref);
-  WAIT_REG_MEM_FUNC_GREATER_EQUAL:Result:=(val>ref);
-  WAIT_REG_MEM_FUNC_GREATER      :Result:=(val>=ref);
+  WAIT_REG_MEM_FUNC_GREATER_EQUAL:Result:=(val>=ref);
+  WAIT_REG_MEM_FUNC_GREATER      :Result:=(val>ref);
   else
    Assert(false,'me_test_mem');
  end;
diff --git a/chip/pm4_pfp.pas b/chip/pm4_pfp.pas
index 96d2ee18..36af21d2 100644
--- a/chip/pm4_pfp.pas
+++ b/chip/pm4_pfp.pas
@@ -1340,8 +1340,8 @@ begin
   WAIT_REG_MEM_FUNC_LESS_EQUAL   :Result:=(val<=ref);
   WAIT_REG_MEM_FUNC_EQUAL        :Result:=(val=ref);
   WAIT_REG_MEM_FUNC_NOT_EQUAL    :Result:=(val<>ref);
-  WAIT_REG_MEM_FUNC_GREATER_EQUAL:Result:=(val>ref);
-  WAIT_REG_MEM_FUNC_GREATER      :Result:=(val>=ref);
+  WAIT_REG_MEM_FUNC_GREATER_EQUAL:Result:=(val>=ref);
+  WAIT_REG_MEM_FUNC_GREATER      :Result:=(val>ref);
   else
    Assert(false,'me_test_mem');
  end;