// 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 // // 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;