DIRECTORY
DragonStack;
DragonStackImpl: CEDAR PROGRAM
IMPORTS DragonStack
EXPORTS DragonStack
~ BEGIN OPEN DragonStack;
DisableInterrupts: PUBLIC PROC ~ {
status: StackedStatusWord ← GetYoungestStatus[];
IF status.userMode THEN ERROR;
status.trapsEnabled ← TRUE;
SetYoungestStatus[status];
};
EnableInterrupts: PUBLIC PROC ~ {
status: StackedStatusWord ← GetYoungestStatus[];
status.trapsEnabled ← FALSE;
SetYoungestStatus[status];
};
END.