parse-instructions ( list -- )

Vocabulary

cpu.8080.emulator

Inputs

list

an object

Outputs

None

Definition

USING: kernel make namespaces parser sequences splitting words ;

IN: cpu.8080.emulator

: parse-instructions ( list -- )
    dup join-words instruction-quotations [
        "_" join [ "emulate-" % % ] "" make
        create-word-in dup last-instruction set-global
    ] dip ( cpu -- ) define-declared ;