cpu. ( cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors combinators io kernel math.parser sequences ;

IN: cpu.8080.emulator

: cpu. ( cpu -- )
    {
        [ " PC: " write pc>> >hex 4 32 pad-head write ]
        [ " B: " write b>> >hex 2 32 pad-head write ]
        [ " C: " write c>> >hex 2 32 pad-head write ]
        [ " D: " write d>> >hex 2 32 pad-head write ]
        [ " E: " write e>> >hex 2 32 pad-head write ]
        [ " F: " write f>> >hex 2 32 pad-head write ]
        [ " H: " write h>> >hex 2 32 pad-head write ]
        [ " L: " write l>> >hex 2 32 pad-head write ]
        [ " A: " write a>> >hex 2 32 pad-head write ]
        [ " SP: " write sp>> >hex 4 32 pad-head write ]
        [
            " cycles: " write
            cycles>> number>string 5 32 pad-head write
        ]
        [ bl peek-instruction name>> write bl ]
        [ nl drop ]
    } cleave ;