kvisc/vm/in/debug.c

// The OS/K Team licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.

#include <in/instrs.h>

IMPL_START_0(break)
{
    trace("\nExecuting BREAK INSTR\n");
    dumpregs(ctx);

    getchar();
    trace("Resuming execution\n");
}
IMPL_END;

IMPL_START_1(step)
{
    ctx->step = !!v1;
}
IMPL_END;

IMPL_START_1(dump)
{
    (void)v1;

#if 1
    if (ctx->dumpsw && !v1)
        trace("0x%lX:\t...\n", rpc);

    else if (!ctx->dumpsw && v1)
        dump_instr(ctx, ctx->cur_in, p1, p2, p3, 0, 0);

    ctx->dumpsw = !!v1;
#endif

}
IMPL_END;

IMPL_START_0(err)
{
}
IMPL_END;