steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

space invaders: fix flag bug preventing number of ships and coins displaying

cvs
Chris Double 2005-09-08 01:46:20 +00:00
parent 296be06d06
commit eed8d12791
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/space-invaders/cpu.factor
View File

@ -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 )