DIRECTORY
        DragonStack;
         
    DragonStackImpl: CEDAR PROGRAM
    IMPORTS DragonStack
    EXPORTS DragonStack

    ~ BEGIN OPEN DragonStack;

        DisableInterrupts: PUBLIC PROC ~ {
            <<Must NOT be INLINE>>
            status: StackedStatusWord _ GetYoungestStatus[];
            IF status.userMode THEN ERROR;
            status.trapsEnabled _ TRUE;
            SetYoungestStatus[status];
            };

        EnableInterrupts: PUBLIC PROC ~ {
            <<Must NOT be INLINE>>
            status: StackedStatusWord _ GetYoungestStatus[];
            status.trapsEnabled _ FALSE;
            SetYoungestStatus[status];
            };

        MarkSignalHandler: PUBLIC PROC ~ {
            <<This procedure must NOT be INLINE so it marks the correct frame>>
            status: StackedStatusWord _ GetYoungestStatus[];
            status.signalHandler _ TRUE;
            SetYoungestStatus[status];
            };

    END.