write-tag ( instruction n -- )

Vocabulary

tinyvg

Inputs

instruction	an object
n	an object

Outputs

None

Definition

USING: accessors io kernel math.bitwise ;

IN: tinyvg

: write-tag ( instruction n -- )
    swap line-width>>
    [ [ 4 set-bit ] when write1 ] [ [ write-unit ] when* ] bi ;