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

space invaders: fix things so 'step' compiles

cvs
Chris Double 2005-09-12 23:22:02 +00:00
parent a70469d3e9
commit e0bc6e8166
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/space-invaders/cpu-8080.factor
View File

@ -414,6 +414,17 @@ M: cpu write-port ( value port cpu -- )
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f
f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f }@ ; inline f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f f }@ ; inline
: not-implemented ( <cpu> -- )
drop ;
instructions length [
dup instructions nth [
drop
] [
[ not-implemented ] swap instructions set-nth
] ifte
] each
M: cpu reset ( cpu -- ) M: cpu reset ( cpu -- )
#! Reset the CPU to its poweron state #! Reset the CPU to its poweron state
[ 0 swap set-cpu-b ] keep [ 0 swap set-cpu-b ] keep
@ -732,7 +743,7 @@ SYMBOL: $4
[[ "SCF" [ carry-flag swap cpu-f-bitor= ] ]] [[ "SCF" [ carry-flag swap cpu-f-bitor= ] ]]
[[ "RLCA" [ (emulate-RLCA) ] ]] [[ "RLCA" [ (emulate-RLCA) ] ]]
[[ "RRCA" [ (emulate-RRCA) ] ]] [[ "RRCA" [ (emulate-RRCA) ] ]]
[[ "HALT" [ drop "HALT not implemented" throw ] ]] [[ "HALT" [ drop ] ]]
[[ "DI" [ [ 255 interrupt-flag - ] swap cpu-f-bitand ] ]] [[ "DI" [ [ 255 interrupt-flag - ] swap cpu-f-bitand ] ]]
[[ "EI" [ [ interrupt-flag ] swap cpu-f-bitor ] ]] [[ "EI" [ [ interrupt-flag ] swap cpu-f-bitor ] ]]
[[ "POP-RR" [ [ pop-sp ] keep $2 ] ]] [[ "POP-RR" [ [ pop-sp ] keep $2 ] ]]