From 74b5ad93c44b19b18335868c7934dbcab5692014 Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Wed, 20 Sep 2023 10:17:00 -0400
Subject: [PATCH] Don't necessarily apply D for ARR.

---
 Processors/6502/Implementation/6502Implementation.hpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Processors/6502/Implementation/6502Implementation.hpp b/Processors/6502/Implementation/6502Implementation.hpp
index 5d0662445..7ba4989fa 100644
--- a/Processors/6502/Implementation/6502Implementation.hpp
+++ b/Processors/6502/Implementation/6502Implementation.hpp
@@ -656,7 +656,7 @@ template <Personality personality, typename T, bool uses_ready_line> void Proces
 					case OperationTSX: flags_.set_nz(x_ = s_);	continue;
 
 					case OperationARR:
-						if(flags_.decimal) {
+						if(flags_.decimal && has_decimal_mode(personality)) {
 							a_ &= operand_;
 							uint8_t unshiftedA = a_;
 							a_ = uint8_t((a_ >> 1) | (flags_.carry << 7));