register-lookup ( string -- vector )

Vocabulary

cpu.8080.emulator

Inputs

string

an object

Outputs

vector

an object

Definition

USING: accessors assocs ;

IN: cpu.8080.emulator

: register-lookup ( string -- vector )
    H{
        { "A" { a>> a<< } }
        { "B" { b>> b<< } }
        { "C" { c>> c<< } }
        { "D" { d>> d<< } }
        { "E" { e>> e<< } }
        { "H" { h>> h<< } }
        { "L" { l>> l<< } }
        { "BC" { bc>> bc<< } }
        { "DE" { de>> de<< } }
        { "HL" { hl>> hl<< } }
        { "AF" { af>> af<< } }
        { "SP" { sp>> sp<< } }
    } at ;