
								 4-May-1990 14:22:05	VAX Bliss-32 V4.5-862		    Page   1
								 4-May-1990 14:20:20	[BRIAN-JIM.NODUMP]NODUMP.BLI;3		 (1)

;   0001  0	!<BLF/REQUIRE 'USR_LIBRARY:PRETTY'>
;   0002  0	%TITLE 'NODUMP'
;   0003  0	MODULE nodump (IDENT = 'V001-1',			! File: NODUMP.BLI
;   0004  0			MAIN = nodump
;   0005  0			) =
;   0006  1	BEGIN
;   0007  1	
;   0008  1	!++
;   0009  1	!
;   0010  1	! FACILITY:
;   0011  1	!
;   0012  1	!		NODUMP - Inhibit writing a system dump on operator shutdown
;   0013  1	!
;   0014  1	! ABSTRACT:
;   0015  1	!
;   0016  1	!		This program will inhibit the system from writing a system 
;   0017  1	!		dump as a result of an operator requested shutdown. This is
;   0018  1	!		a VERY simple program, it merely resets the BUGDUMP bit in
;   0019  1	!		EXE$GL_FLAGS. This field corresponds to the BUGDUMP parameter
;   0020  1	!		in SYSGEN
;   0021  1	!
;   0022  1	! ENVIRONMENT:	VAX/VMS, kernel mode only
;   0023  1	!
;   0024  1	! AUTHOR:	Brian K Catlin
;   0025  1	!
;   0026  1	! CREATED:	March, 1988
;   0027  1	!
;   0028  1	! MODIFICATION
;   0029  1	! HISTORY:
;   0030  1	!
;   0031  1	!	V001-1	Brian K Catlin	    March, 1988
;   0032  1	!		Original version
;   0033  1	!
;   0034  1	!--
;   0035  1	

NODUMP		NODUMP						 4-May-1990 14:22:05	VAX Bliss-32 V4.5-862		    Page   2
V001-1		Declarations					 4-May-1990 14:20:20	[BRIAN-JIM.NODUMP]NODUMP.BLI;3		 (2)

;   0037  1	%SBTTL 'Declarations'
;   0038  1	
;   0039  1	!+
;   0040  1	! SWITCHES:
;   0041  1	!-
;   0042  1	
;   0043  1	SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE);
;   0044  1	
;   0045  1	!+
;   0046  1	! LINKAGE/GLOBAL REGISTERS:
;   0047  1	!-
;   0048  1	
;   0049  1	!	None.
;   0050  1	
;   0051  1	!+
;   0052  1	! LINKAGES:
;   0053  1	!-
;   0054  1	
;   0055  1	!	None.
;   0056  1	
;   0057  1	!+
;   0058  1	! TABLE OF CONTENTS:
;   0059  1	!-
;   0060  1	
;   0061  1	FORWARD ROUTINE
;   0062  1	    nodump,					! Main routine
;   0063  1	    do_it;					! Kernel mode routine to clear the bit
;   0064  1	
;   0065  1	!+
;   0066  1	! INCLUDE FILES:
;   0067  1	!-
;   0068  1	
;   0069  1	LIBRARY 'SYS$LIBRARY:LIB';			! VMS dependent macros/symbols.
;   0070  1	
;   0071  1	!+
;   0072  1	! MACROS:
;   0073  1	!-
;   0074  1	
;   0075  1	!	None.
;   0076  1	
;   0077  1	!+
;   0078  1	! FIELDS:
;   0079  1	!-
;   0080  1	
;   0081  1	!	None.
;   0082  1	
;   0083  1	!+
;   0084  1	! STRUCTURES:
;   0085  1	!-
;   0086  1	
;   0087  1	!	None.
;   0088  1	
;   0089  1	!+
;   0090  1	! PROGRAM SECTION DECLARATIONS:
;   0091  1	!-
;   0092  1	

NODUMP		NODUMP						 4-May-1990 14:22:05	VAX Bliss-32 V4.5-862		    Page   3
V001-1		Declarations					 4-May-1990 14:20:20	[BRIAN-JIM.NODUMP]NODUMP.BLI;3		 (2)

;   0093  1	!	None.
;   0094  1	
;   0095  1	!+
;   0096  1	! EQUATED SYMBOLS:
;   0097  1	!-
;   0098  1	
;   0099  1	!	None.
;   0100  1	
;   0101  1	!+
;   0102  1	! OWN (R/O) STORAGE:
;   0103  1	!-
;   0104  1	
;   0105  1	!	None.
;   0106  1	
;   0107  1	!+
;   0108  1	! OWN (R/W) STORAGE:
;   0109  1	!-
;   0110  1	
;   0111  1	!	None.
;   0112  1	
;   0113  1	!+
;   0114  1	! BUILTIN DECLARATIONS:
;   0115  1	!-
;   0116  1	
;   0117  1	!	None.
;   0118  1	
;   0119  1	!+
;   0120  1	! EXTERNAL ROUTINES:
;   0121  1	!-
;   0122  1	
;   0123  1	!	None.
;   0124  1	
;   0125  1	!+
;   0126  1	! EXTERNAL REFERENCES:
;   0127  1	!-
;   0128  1	
;   0129  1	EXTERNAL LITERAL
;   0130  1	    exe$v_bugdump;		    ! The bit to clear
;   0131  1	
;   0132  1	EXTERNAL
;   0133  1	    exe$gl_flags : BITVECTOR [];    ! Longword out in system space
;   0134  1	

NODUMP		NODUMP						 4-May-1990 14:22:05	VAX Bliss-32 V4.5-862		    Page   4
V001-1		NODUMP - Main routine				 4-May-1990 14:20:20	[BRIAN-JIM.NODUMP]NODUMP.BLI;3		 (3)

;   0136  1	%SBTTL 'NODUMP - Main routine'
;   0137  1	ROUTINE nodump =
;   0138  1	
;   0139  1	!++
;   0140  1	!
;   0141  1	! FUNCTIONAL DESCRIPTION:
;   0142  1	!
;   0143  1	!	Just call the DO_IT routine in kernel mode, and then exit
;   0144  1	!
;   0145  1	! ENVIRONMENT:
;   0146  1	!
;   0147  1	!	All access modes, AST reentrant.
;   0148  1	!
;   0149  1	! CALLING SEQUENCE:
;   0150  1	!
;   0151  1	!	DUMMY ()
;   0152  1	!
;   0153  1	! LINKAGE:
;   0154  1	!
;   0155  1	!	CALL
;   0156  1	!
;   0157  1	! FORMAL PARAMETERS:
;   0158  1	!
;   0159  1	!	None.
;   0160  1	!
;   0161  1	! IMPLICIT INPUTS:
;   0162  1	!
;   0163  1	!	None.
;   0164  1	!
;   0165  1	! IMPLICIT OUTPUTS:
;   0166  1	!
;   0167  1	!	None.
;   0168  1	!
;   0169  1	! COMPLETION CODES:
;   0170  1	!
;   0171  1	!	SS$_NORMAL	Normal successful completion.
;   0172  1	!
;   0173  1	! SIDE EFFECTS:
;   0174  1	!
;   0175  1	!	None.
;   0176  1	!
;   0177  1	!--
;   0178  1	
;   0179  2	    BEGIN
;   0180  2	
;   0181  3	    $cmkrnl (routin = do_it)
;   0182  1	    END;					! End of routine nodump


	.TITLE  NODUMP NODUMP
	.IDENT  \V001-1\

	.EXTRN  EXE$V_BUGDUMP, EXE$GL_FLAGS, SYS$CMKRNL

	.PSECT  $CODE$,NOWRT,2


NODUMP		NODUMP						 4-May-1990 14:22:05	VAX Bliss-32 V4.5-862		    Page   5
V001-1		NODUMP - Main routine				 4-May-1990 14:20:20	[BRIAN-JIM.NODUMP]NODUMP.BLI;3		 (3)

;NODUMP
U.1:	.WORD   ^M<>				 ;Save nothing			       0137 			       0000   00000
	CLRL    -(SP)				 ;-(SP)				       0181 			     7E  D4   00002
	PUSHAB  W^U.2				 ;U.2				      	    		      0000V  CF  9F   00004
	CALLS   #2, G^SYS$CMKRNL		 ;#2, SYS$CMKRNL		      	    00000000G  00	     02  FB   00008
	RET     				 ;				       0182 				 04   0000F

; Routine Size:  16 bytes,    Routine Base:  $CODE$ + 0000



NODUMP		NODUMP						 4-May-1990 14:22:05	VAX Bliss-32 V4.5-862		    Page   6
V001-1		DO_IT - Kernel mode routine to clear the bugche  4-May-1990 14:20:20	[BRIAN-JIM.NODUMP]NODUMP.BLI;3		 (4)

;   0184  1	%SBTTL 'DO_IT - Kernel mode routine to clear the bugcheck dump flag'
;   0185  1	ROUTINE do_it =
;   0186  1	
;   0187  1	!++
;   0188  1	!
;   0189  1	! FUNCTIONAL DESCRIPTION:
;   0190  1	!
;   0191  1	!	This is the routine where all the work is done (what there is of it).
;   0192  1	!	Just clear the BUGDUMP bit, and leave
;   0193  1	!
;   0194  1	! ENVIRONMENT:
;   0195  1	!
;   0196  1	!	Kernel mode
;   0197  1	!
;   0198  1	! CALLING SEQUENCE:
;   0199  1	!
;   0200  1	!	do_it ()
;   0201  1	!
;   0202  1	! LINKAGE:
;   0203  1	!
;   0204  1	!	CALL
;   0205  1	!
;   0206  1	! FORMAL PARAMETERS:
;   0207  1	!
;   0208  1	!	None.
;   0209  1	!
;   0210  1	! IMPLICIT INPUTS:
;   0211  1	!
;   0212  1	!	None.
;   0213  1	!
;   0214  1	! IMPLICIT OUTPUTS:
;   0215  1	!
;   0216  1	!	None.
;   0217  1	!
;   0218  1	! COMPLETION CODES:
;   0219  1	!
;   0220  1	!	SS$_NORMAL	Normal successful completion.
;   0221  1	!
;   0222  1	! SIDE EFFECTS:
;   0223  1	!
;   0224  1	!	None.
;   0225  1	!
;   0226  1	!--
;   0227  1	
;   0228  2	    BEGIN
;   0229  2	
;   0230  2	    exe$gl_flags [exe$v_bugdump] = 0;	    ! Clear the bit
;   0231  2	!
;   0232  2	    ss$_normal
;   0233  1	    END;					! End of routine DO_IT





;DO_IT

NODUMP		NODUMP						 4-May-1990 14:22:05	VAX Bliss-32 V4.5-862		    Page   7
V001-1		DO_IT - Kernel mode routine to clear the bugche  4-May-1990 14:20:20	[BRIAN-JIM.NODUMP]NODUMP.BLI;3		 (4)

U.2:	.WORD   ^M<>				 ;Save nothing			       0185 			       0000   00000
	BBCC    #EXE$V_BUGDUMP, G^EXE$GL_FLAGS, -;#EXE$V_BUGDUMP, EXE$GL_FLAGS, 1$     0230 00000000G  00 00000000G  8F  E5   00002
		1$				 ;					    			     00       0000D
1$:	MOVL    #1, R0				 ;#1, R0			       0233 	       50	     01  D0   0000E
	RET     				 ;				      	    				 04   00011

; Routine Size:  18 bytes,    Routine Base:  $CODE$ + 0010


;   0234  1	END						! End of module NODUMP
;   0235  1	
;   0236  0	ELUDOM






;				       PSECT SUMMARY
;
;	Name			 Bytes			       Attributes
;
;  $CODE$			       34  NOVEC,NOWRT,  RD ,  EXE,NOSHR,  LCL,  REL,  CON,NOPIC,ALIGN(2)




;				Library Statistics
;
;					     -------- Symbols --------	    Pages	Processing
;	File				     Total    Loaded   Percent      Mapped	Time
;
;  SYS$COMMON:[SYSLIB]LIB.L32;5		     32180         4         0      1736          00:02.9







;					COMMAND QUALIFIERS

;	BLISS/LIST/MACHINE=(ASSEMBLER,UNIQUE)/OPTIMIZE=(SPEED,LEVEL=3) NODUMP

; Size:		34 code + 0 data bytes
; Run Time:	   00:05.5
; Elapsed Time:	   00:34.6
; Lines/CPU Min:    2579
; Lexemes/CPU-Min:  2360
; Memory Used:	65 pages
; Compilation Complete

	.END	U.1
