diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor index 6207b51d8c..f828486690 100644 --- a/extra/cpu/8080/emulator/emulator.factor +++ b/extra/cpu/8080/emulator/emulator.factor @@ -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 ;