flag-lookup ( string -- vector )

Vocabulary

cpu.8080.emulator

Inputs

string

an object

Outputs

vector

an object

Definition

USING: assocs ;

IN: cpu.8080.emulator

: flag-lookup ( string -- vector )
    H{
        { "P" { flag-p? } }
        { "NZ" { flag-nz? } }
        { "PO" { flag-po? } }
        { "C" { flag-c? } }
        { "NC" { flag-nc? } }
        { "PE" { flag-pe? } }
        { "Z" { flag-z? } }
        { "M" { flag-m? } }
    } at ;