kvisc/vm/in/super.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>

//
// Supervisor only instructions
//

IMPL_START_0(cli)
{
    CHK_SUPERV();
    flg &= ~IF;
}
IMPL_END;

IMPL_START_0(sti)
{
    CHK_SUPERV();
    flg |= IF;
}
IMPL_END;

IMPL_START_0(stop)
{
    CHK_SUPERV();
    _except(ctx, E_SHT, "STOP INSTR");
}
IMPL_END;