|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1



|0100
@on-reset
    #01
    #00
    #00
    #00
    #00
    #00
    #00
    #01
    build-byte
    (
    #0a ( b )
    #10 SFT ( b )
    #00 ( b 00 )
    ?{ #01 ORA }
    )
	BRK

@build-byte ( p p p p p p p p )
    LITr 00 ( p p p p p p p p | 00 )
    ?{ LITr 01 ORAr }
    LITr 10 SFTr
    ?{ LITr 01 ORAr }
    LITr 10 SFTr
    ?{ LITr 01 ORAr }
    LITr 10 SFTr
    ?{ LITr 01 ORAr }
    LITr 10 SFTr
    ?{ LITr 01 ORAr }
    LITr 10 SFTr
    ?{ LITr 01 ORAr }
    LITr 10 SFTr
    ?{ LITr 01 ORAr }
    LITr 10 SFTr
    ?{ LITr 01 ORAr }
    STHr
    JMP2r