From adf16957cf26ad61e9cc386cb57fb92c6b623fb5 Mon Sep 17 00:00:00 2001
From: ghidorahrex <ghidorahrex@users.noreply.github.com>
Date: Mon, 6 Jul 2026 11:03:47 -0400
Subject: [PATCH] GP-G770: Corrected MCS-96 CMPL carry flag

---
 Ghidra/Processors/MCS96/data/languages/MCS96.sinc | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Ghidra/Processors/MCS96/data/languages/MCS96.sinc b/Ghidra/Processors/MCS96/data/languages/MCS96.sinc
index b75988fac0..2ac6ab0650 100644
--- a/Ghidra/Processors/MCS96/data/languages/MCS96.sinc
+++ b/Ghidra/Processors/MCS96/data/languages/MCS96.sinc
@@ -617,11 +617,7 @@ macro setSignedShiftRightCarryFlag(shiftee,amount) {
 :CMPL dlreg, lreg                   is op8=0xc5; lreg; dlreg {
 	op1:4 = lreg;
 	tmp:4 = dlreg - op1;
-	$(N) = (tmp s< 0);
-	$(Z) = (tmp == 0);
-	$(C) = scarry(dlreg, op1);
-	$(V) = (((dlreg & ~op1 & ~tmp) | (~dlreg & op1 & tmp)) & 0x80000000 ) != 0;
-	$(VT) = $(VT) | $(V);
+	subtractFlags(dlreg, op1, tmp);
 }
 
 @endif