|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
    #02 #04 SUB
    ( mem-test )
	BRK

@mem-test ( a b c -- x)
    !{
    &a $1
    &b $1
    &c $1
    }
    ,/a STR
    ,/b STR
    ,/c STR

    ,/a LDR
    ,/b LDR
    ADD
    ,/c LDR
    ADD ( 06 )

    STH
    #00 STH
    SWP2r
   	JMP2r



    ( !{ &a $1 } )