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

View File

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