3. VM

<<bitlang_struct>>=

struct bitlang {
    int stk[8];
    int stkpos;
    int reg[8];
    int err;
};

<<funcdefs>>=

void bitlang_regset(bitlang *vm, int pos, int val);

<<funcs>>=

void bitlang_regset(bitlang *vm, int pos, int val)
{
    vm->reg[pos] = val;
}