.LIST	TTM
	.NLIST	SYM
	.TITLE	CRASEG - SEGMENT FAULT IN KERNEL MODE
	.IDENT	/V01   /
	.PSECT	CRASEG

	UISDR6=177614

	.MCALL	EXIT$S
;
;	THIS PROGRAM DEMONSTRATES A CRASH CAUSED BY
;	A MEMORY MANAGEMENT FAULT OCCURRING WHILE THE
;	PROCESSOR IS IN KERNEL MODE.
;
;	ASSEMBLY INSTRUCTIONS:
;
;	CRASEG=EXEMC/ML,RSXMC/PA:1,CRASEG
;

CRASEG::
	CALL	$SWSTK,100$	;;;SWITCH TO SYSTEM STATE
	MOV	@#UISDR6,R0	;;;GET CONTENTS OF USER INSTRUCTION PDR 6
	BIC	#7,R0		;;;CLEAR ACCESS CONTROL FIELD
	BIS	#100,R0		;;;SET ACF TO TRAP ON READ OR WRITE
	MOV	R0,@#UISDR6	;;;LOAD USER INSTRUCTION PDR 6
	MFPI	@#140000	;;;CAUSE MEMORY MANAGEMENT FAULT
	RETURN			;;;SHOULD NEVER GET THIS FAR
100$:
	EXIT$S
	.END	CRASEG