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

cpu.8080: fix stack effects.

db4
John Benediktsson 2011-10-18 19:15:09 -07:00
parent 2608214622
commit 375d9813fb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/cpu/8080/emulator/emulator.factor
View File

@ -1395,11 +1395,11 @@ SYMBOL: last-opcode
SYNTAX: INSTRUCTION: ";" parse-tokens parse-instructions ; SYNTAX: INSTRUCTION: ";" parse-tokens parse-instructions ;
SYNTAX: cycles SYNTAX: cycles
#! Set the number of cycles for the last instruction that was defined. #! Set the number of cycles for the last instruction that was defined.
scan-token string>number last-opcode get-global instruction-cycles set-nth ; scan-token string>number last-opcode get-global instruction-cycles set-nth ;
SYNTAX: opcode ( -- ) SYNTAX: opcode
#! Set the opcode number for the last instruction that was defined. #! Set the opcode number for the last instruction that was defined.
last-instruction get-global 1quotation scan-token hex> last-instruction get-global 1quotation scan-token hex>
dup last-opcode set-global set-instruction ; dup last-opcode set-global set-instruction ;