From 5e4ce46cab62bc9d7b127b3feed01588b32bb9de Mon Sep 17 00:00:00 2001
From: Astrid Smith
Date: Mon, 13 Sep 2010 22:26:37 -0700
Subject: CCF flags :(

---
 opcodes.asm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'opcodes.asm')

diff --git a/opcodes.asm b/opcodes.asm
index 329a825..f6171e9 100644
--- a/opcodes.asm
+++ b/opcodes.asm
@@ -738,9 +738,11 @@ emu_op_3e:
 emu_op_3f:
 	;; CCF
 	;; Clear carry flag
+	;; XXX fuck flags
 	bsr	flags_normalize
 	;; 	  SZ5H3PNC
-	eor.b	#%00010001,flag_byte-flag_storage(a3)
+	andi.b	#%11111110,flag_byte-flag_storage(a3)
+	ori.b	#%00000001,flag_valid-flag_storage(a3)
 	DONE			;nok
 
 	START
-- 
cgit v1.2.3