From eed8d12791242cee19bdab186429b51411341f05 Mon Sep 17 00:00:00 2001 From: Chris Double Date: Thu, 8 Sep 2005 01:46:20 +0000 Subject: [PATCH] space invaders: fix flag bug preventing number of ships and coins displaying --- contrib/space-invaders/cpu.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/space-invaders/cpu.factor b/contrib/space-invaders/cpu.factor index 46e97eab1a..627b724d03 100644 --- a/contrib/space-invaders/cpu.factor +++ b/contrib/space-invaders/cpu.factor @@ -209,7 +209,7 @@ TUPLE: cpu b c d e f h l a pc sp halted? last-interrupt cycles port1 port2i port over HEX: FF bitand 0 = [ zero-flag over cpu-f-bitor= ] when over HEX: 80 bitand 0 = not [ sign-flag over cpu-f-bitor= ] when over HEX: 100 >= [ carry-flag over cpu-f-bitor= ] when - r> rot ( cpu x n ) + r> swapd ( cpu x n ) [ pick cpu-a bitxor bitxor HEX: 10 bitand 0 = not [ half-carry-flag over cpu-f-bitor= ] when ] 2keep [ bitxor ] 2keep ( cpu x^n x n ) >r pick cpu-a r> bitxor ( cpu x^n x a^n )