define-register ( name num size -- word )

Vocabulary

cpu.x86.assembler.syntax

Inputs

name	an object
num	an object
size	an object

Outputs

word

an object

Definition

USING: combinators kernel parser words words.symbol ;

IN: cpu.x86.assembler.syntax

: define-register ( name num size -- word )
    [ create-word-in ] 2dip {
        [ 2drop ]
        [ 2drop define-symbol ]
        [ drop "register" set-word-prop ]
        [ nip "register-size" set-word-prop ]
    } 3cleave ;