!<BLF/REQUIRE 'USR_LIBRARY:PRETTY'>
%TITLE 'NODUMP'
MODULE nodump (IDENT = 'V001-1',			! File: NODUMP.BLI
		MAIN = nodump
		) =
BEGIN

!++
!
! FACILITY:
!
!		NODUMP - Inhibit writing a system dump on operator shutdown
!
! ABSTRACT:
!
!		This program will inhibit the system from writing a system 
!		dump as a result of an operator requested shutdown. This is
!		a VERY simple program, it merely resets the BUGDUMP bit in
!		EXE$GL_FLAGS. This field corresponds to the BUGDUMP parameter
!		in SYSGEN
!
! ENVIRONMENT:	VAX/VMS, kernel mode only
!
! AUTHOR:	Brian K Catlin
!
! CREATED:	March, 1988
!
! MODIFICATION
! HISTORY:
!
!	V001-1	Brian K Catlin	    March, 1988
!		Original version
!
!--


%SBTTL 'Declarations'

!+
! SWITCHES:
!-

SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE);

!+
! LINKAGE/GLOBAL REGISTERS:
!-

!	None.

!+
! LINKAGES:
!-

!	None.

!+
! TABLE OF CONTENTS:
!-

FORWARD ROUTINE
    nodump,					! Main routine
    do_it;					! Kernel mode routine to clear the bit

!+
! INCLUDE FILES:
!-

LIBRARY 'SYS$LIBRARY:LIB';			! VMS dependent macros/symbols.

!+
! MACROS:
!-

!	None.

!+
! FIELDS:
!-

!	None.

!+
! STRUCTURES:
!-

!	None.

!+
! PROGRAM SECTION DECLARATIONS:
!-

!	None.

!+
! EQUATED SYMBOLS:
!-

!	None.

!+
! OWN (R/O) STORAGE:
!-

!	None.

!+
! OWN (R/W) STORAGE:
!-

!	None.

!+
! BUILTIN DECLARATIONS:
!-

!	None.

!+
! EXTERNAL ROUTINES:
!-

!	None.

!+
! EXTERNAL REFERENCES:
!-

EXTERNAL LITERAL
    exe$v_bugdump;		    ! The bit to clear

EXTERNAL
    exe$gl_flags : BITVECTOR [];    ! Longword out in system space


%SBTTL 'NODUMP - Main routine'
ROUTINE nodump =

!++
!
! FUNCTIONAL DESCRIPTION:
!
!	Just call the DO_IT routine in kernel mode, and then exit
!
! ENVIRONMENT:
!
!	All access modes, AST reentrant.
!
! CALLING SEQUENCE:
!
!	DUMMY ()
!
! LINKAGE:
!
!	CALL
!
! FORMAL PARAMETERS:
!
!	None.
!
! IMPLICIT INPUTS:
!
!	None.
!
! IMPLICIT OUTPUTS:
!
!	None.
!
! COMPLETION CODES:
!
!	SS$_NORMAL	Normal successful completion.
!
! SIDE EFFECTS:
!
!	None.
!
!--

    BEGIN

    $cmkrnl (routin = do_it)
    END;					! End of routine nodump

%SBTTL 'DO_IT - Kernel mode routine to clear the bugcheck dump flag'
ROUTINE do_it =

!++
!
! FUNCTIONAL DESCRIPTION:
!
!	This is the routine where all the work is done (what there is of it).
!	Just clear the BUGDUMP bit, and leave
!
! ENVIRONMENT:
!
!	Kernel mode
!
! CALLING SEQUENCE:
!
!	do_it ()
!
! LINKAGE:
!
!	CALL
!
! FORMAL PARAMETERS:
!
!	None.
!
! IMPLICIT INPUTS:
!
!	None.
!
! IMPLICIT OUTPUTS:
!
!	None.
!
! COMPLETION CODES:
!
!	SS$_NORMAL	Normal successful completion.
!
! SIDE EFFECTS:
!
!	None.
!
!--

    BEGIN

    exe$gl_flags [exe$v_bugdump] = 0;	    ! Clear the bit
!
    ss$_normal
    END;					! End of routine DO_IT
END						! End of module NODUMP

ELUDOM