cpu.8080: fix stack effects.
parent
2608214622
commit
375d9813fb
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue